59
59
" Buffer name of the psci buffer." )
60
60
61
61
(defcustom psci/purs-path " purs"
62
- " Path to the ` purs' binary"
62
+ " Path to the \" purs\" binary. "
63
63
:group 'psci
64
64
:type 'string )
65
65
66
66
(defcustom psci/psc-package-path " psc-package"
67
- " Path to the ` psc-package' binary."
67
+ " Path to the \" psc-package\" binary."
68
68
:group 'psci
69
69
:type 'string )
70
70
71
71
(defcustom psci/spago-path " spago"
72
- " Path to the ` spago' binary."
72
+ " Path to the \" spago\" binary."
73
73
:group 'psci
74
74
:type 'string )
75
75
76
76
(defcustom psci/arguments '(" src/**/*.purs" " bower_components/purescript-*/src/**/*.purs" )
77
- " Commandline arguments to pass to `psci' function."
77
+ " Command-line arguments to pass to `psci' function."
78
78
:group 'psci
79
79
:type '(repeat string))
80
80
@@ -95,7 +95,7 @@ Beware, can return nil if no .psci file is found."
95
95
(format " *%s * " buffer-name))
96
96
97
97
(defun psci/--file-content (filename )
98
- " Load the FILENAME's content as a string.
98
+ " Load FILENAME's content as a string.
99
99
When FILENAME is nil or not a real file, returns nil."
100
100
(when (and filename (file-exists-p filename))
101
101
(with-temp-buffer
@@ -116,6 +116,7 @@ When FILENAME is nil or not a real file, returns nil."
116
116
(match-string 1 ))))
117
117
118
118
(defun psci/--get-psc-package-sources! ()
119
+ " Find extra source path globs using purescript package tools,if they appear to be used."
119
120
(cond
120
121
((file-exists-p " psc-package.json" )
121
122
(process-lines (psci/--executable-find-relative psci/psc-package-path) " sources" ))
@@ -134,8 +135,10 @@ Otherwise, just return PATH."
134
135
135
136
;;;### autoload
136
137
(defun psci (project-root-folder )
137
- " Run an inferior instance of `psci' inside Emacs.
138
- Relies on .psci file for determining the project's root folder."
138
+ " Run an inferior instance of \" psci\" inside Emacs, in PROJECT-ROOT-FOLDER.
139
+ If not supplied, the root folder will be guessed using
140
+ `projectile-project-root' (if available), otherwise it will
141
+ default to the current buffer's directory."
139
142
(interactive (list (read-directory-name " Project root? "
140
143
(psci/--project-root!))))
141
144
(let* ((default-directory project-root-folder)
0 commit comments