From 4c7e449106bc9f3377b2554ae789ba3b091c4497 Mon Sep 17 00:00:00 2001 From: Christian Cunningham Date: Sun, 9 Jun 2024 22:49:28 -0700 Subject: Simplified Button Logic --- elchemy-personal.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/elchemy-personal.el b/elchemy-personal.el index 408d35e..97e7ffa 100644 --- a/elchemy-personal.el +++ b/elchemy-personal.el @@ -99,7 +99,7 @@ (switch-to-buffer buffer) (unless buffer-read-only (when (file-exists-p "~/.elchemy/assets/splash.png") - (insert-image (create-image "~/.elchemy/assets/splash.png" nil nil :scale 0.5)) + (insert-image (create-image "~/.elchemy/assets/splash.png" nil nil :scale 0.25)) (insert "\n")) (let ((start (point))) (insert "Elchemy Dashboard") @@ -132,7 +132,7 @@ (insert "\n") (mapcar #'(lambda (x) (let ((name (car x)) (path (cdr x))) - (insert (eval (read (concat "(buttonize \"" name "\" (lambda (y) (elchemy/find-file \"" path "\")))"))) "\n"))) + (insert (buttonize name (lambda (y) (elchemy/find-file y)) path) "\n"))) (elchemy/read-alist-file "~/.elchemy/projects")) (insert "\n")) (let ((start (point))) -- cgit v1.2.1