cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-05 04:57:40 +01:00
Code Issues

allow editor to be nil

Browse Source
This commit is contained in:
Omar Polo 2021-05-28 17:47:19 +00:00
parent f8352e5212
commit 61c8adb649
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/os-utils.lisp
View File

@ -63,7 +63,9 @@
(let ((error-message (let ((error-message
(_ "No editor found, please configure the 'editor' directive in your configuration file")) (_ "No editor found, please configure the 'editor' directive in your configuration file"))
(editor (or (swconf:external-editor) (editor (or (swconf:external-editor)
(getenv "EDITOR")))) (getenv "VISUAL")
(getenv "EDITOR")
"ed")))
(if (null editor) (if (null editor)
(error error-message) (error error-message)
(let ((space (cl-ppcre:scan "\\s" editor))) (let ((space (cl-ppcre:scan "\\s" editor)))

4
src/software-configuration.lisp
View File

@ -757,8 +757,8 @@
4)) 4))
(defun external-editor () (defun external-editor ()
(access-non-null-conf-value *software-configuration* (access:access *software-configuration*
+key-editor+)) +key-editor+))
(defun color-regexps () (defun color-regexps ()
(access:accesses *software-configuration* (access:accesses *software-configuration*