diff options
author | Thomas F. K. Jorna <[email protected]> | 2021-07-20 21:33:27 +0200 |
---|---|---|
committer | Thomas F. K. Jorna <[email protected]> | 2021-07-20 21:33:27 +0200 |
commit | 2f4e558d73eb690434099fe3a660590ece7542fc (patch) | |
tree | e50bbb48dd24606d9241126a9ec040a5acd7d854 | |
parent | f314f28dec8322fdd2a92bb57ed22eba099f3b73 (diff) |
actually have a good let statement instead of working through magic
-rw-r--r-- | org-roam-ui.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/org-roam-ui.el b/org-roam-ui.el index 8f796d2..a8c98ee 100644 --- a/org-roam-ui.el +++ b/org-roam-ui.el @@ -50,17 +50,16 @@ (cons 'target (elt row 2)))) (defservlet* theme application/json () - (progn (if (boundp 'doom-themes--colors) (let* ((colors (butlast doom-themes--colors (- (length doom-themes--colors) 25))) - (ui-theme (list nil))) + (ui-theme)) (progn (dolist (color colors) (push (cons (car color) (car (cdr color))) ui-theme)) (insert (json-encode ui-theme)))) (insert "{}")) - (httpd-send-header t "text/plain" 200 :Access-Control-Allow-Origin "*"))) + (httpd-send-header t "text/plain" 200 :Access-Control-Allow-Origin "*")) (provide 'org-roam-ui) |