diff options
author | Christian Cunningham <cc@localhost> | 2024-06-09 22:49:28 -0700 |
---|---|---|
committer | Christian Cunningham <cc@localhost> | 2024-06-09 22:49:28 -0700 |
commit | 4c7e449106bc9f3377b2554ae789ba3b091c4497 (patch) | |
tree | 784248cd80cc61db16e8c1ad364e40ccbb47999f /elchemy-personal.el | |
parent | 545e6037e7ef5148e6b2fd66f7b6c227489f0b4d (diff) |
Simplified Button Logic
Diffstat (limited to 'elchemy-personal.el')
-rw-r--r-- | elchemy-personal.el | 4 |
1 files 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))) |