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

- made nicer the error message when a directive is missing from configuration file.

Browse Source
This commit is contained in:
cage 2021-03-09 10:19:01 +01:00
parent fb76953a64
commit 8b99548e6e
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/software-configuration.lisp
View File

@ -542,12 +542,15 @@
;;;; interface ;;;; interface
(defun access-key->user-directive (key)
(join-with-strings (mapcar #'string-downcase key) "."))
(defun access-non-null-conf-value (object &rest keys) (defun access-non-null-conf-value (object &rest keys)
(let ((value (apply #'access:accesses object keys))) (let ((value (apply #'access:accesses object keys)))
(if (null value) (if (null value)
(error (_ (format nil (error (_ (format nil
(_ "The configuration (*.conf) file is missing the value for ~a") (_ "The configuration (*.conf) file is missing the value for ~s")
keys))) (access-key->user-directive keys))))
value))) value)))
(defun gemini-default-favicon () (defun gemini-default-favicon ()
@ -1171,6 +1174,7 @@
(defun trivial-configuration-missing-value-check () (defun trivial-configuration-missing-value-check ()
(loop for fn in (list (loop for fn in (list
#'gemini-default-favicon
#'gemini-link-prefix-to-gemini #'gemini-link-prefix-to-gemini
#'gemini-link-prefix-to-other #'gemini-link-prefix-to-other
#'gemini-quote-prefix #'gemini-quote-prefix