From 2f4e558d73eb690434099fe3a660590ece7542fc Mon Sep 17 00:00:00 2001 From: "Thomas F. K. Jorna" Date: Tue, 20 Jul 2021 21:33:27 +0200 Subject: actually have a good let statement instead of working through magic --- org-roam-ui.el | 5 ++--- 1 file 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) -- cgit v1.2.3