From a126008635cfd53588a0204d4fc94b24998df236 Mon Sep 17 00:00:00 2001 From: JesusMtnez Date: Fri, 24 May 2019 07:38:59 +0200 Subject: [PATCH 1/2] Add action to widget-create --- dashboard-widgets.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/dashboard-widgets.el b/dashboard-widgets.el index a09ca03a..b3019a81 100644 --- a/dashboard-widgets.el +++ b/dashboard-widgets.el @@ -325,7 +325,7 @@ WIDGET-PARAMS are passed to the \"widget-create\" function." ;; ;; Section list ;; -(defmacro dashboard-insert-section-list (section-name list _action &rest rest) +(defmacro dashboard-insert-section-list (section-name list action &rest rest) "Insert into SECTION-NAME a LIST of items, expanding ACTION and passing REST to widget creation." `(when (car ,list) (mapc @@ -362,6 +362,7 @@ WIDGET-PARAMS are passed to the \"widget-create\" function." (setq tag (concat icon " " ,@rest)))) (widget-create 'file-link + :action ,action :tag tag :mouse-face 'highlight :help-echo el From b32d6049bad23ff55a473f41cf32bb140a4c3d9a Mon Sep 17 00:00:00 2001 From: JesusMtnez Date: Fri, 24 May 2019 07:55:12 +0200 Subject: [PATCH 2/2] Quote action --- dashboard-widgets.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/dashboard-widgets.el b/dashboard-widgets.el index b3019a81..e3bb450f 100644 --- a/dashboard-widgets.el +++ b/dashboard-widgets.el @@ -509,7 +509,7 @@ date part is considered." register-alist list-size "e" - (lambda (&rest ignore) (jump-to-register (car el))) + `(lambda (&rest ignore) (jump-to-register (car el))) (format "%c - %s" (car el) (register-describe-oneline (car el)))))