cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

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

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