audacia
/
audacia
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Update nyquist-plug-in-installer.ny 

Fix newlines from \n to ~%
This commit is contained in:
Thomas De Rocker 2021-04-03 20:04:06 +02:00 committed by James Crook
parent ff07130ac4
commit 29c7133dd9
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
plug-ins/nyquist-plug-in-installer.ny
View File

@ -185,11 +185,11 @@ $control overwrite (_ "Allow overwriting") choice ((_ "Disallow") (_ "Allow")) 0
;; Format results and display in human readable form.
(cond
((isempty install-success)
(setf msg (_ "Error.\n")))
(setf msg (_ "Error.~%")))
((isempty install-fail)
(setf msg (format nil (_ "Success.~%Files written to:~%~s~%")
(get '*system-dir* 'user-plug-in))))
(t (setf msg (_ "Warning.\nFailed to copy some files:\n"))))
(t (setf msg (_ "Warning.~%Failed to copy some files:~%"))))
(setf results (append install-success install-fail))
(setf results (sort-results results))
(let ((status -1))
@ -213,7 +213,7 @@ $control overwrite (_ "Allow overwriting") choice ((_ "Disallow") (_ "Allow")) 0
;; This allows result messages to be grouped according to installation status.
(case num
;; Success
(0 (_ "Plug-ins installed.\n(Use the Plug-in Manager to enable effects):"))
(0 (_ "Plug-ins installed.~%(Use the Plug-in Manager to enable effects):"))
(1 (_ "Plug-ins updated:"))
(2 (_ "Files copied to plug-ins folder:"))
;; Fail