summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristian Cunningham <cc@local.lan>2024-06-09 22:49:28 -0700
committerChristian Cunningham <cc@local.lan>2024-06-09 22:49:28 -0700
commitcc9ae6e5ad24b0fd4e768f31d9c6bc76aacac3f9 (patch)
tree784248cd80cc61db16e8c1ad364e40ccbb47999f
parent9dacfb0b0392bffa19443859135f2a4037deba6e (diff)
Simplified Button Logic
-rw-r--r--elchemy-personal.el4
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)))