From f86ce4a2e8a39a9bd509619a4cd0086ba52d2675 Mon Sep 17 00:00:00 2001 From: Jen-Chieh Date: Mon, 17 Jan 2022 16:49:09 +0800 Subject: [PATCH 01/13] Made function respect to shortcut id --- dashboard-widgets.el | 47 ++++++++++++++++++++++---------------------- 1 file changed, 24 insertions(+), 23 deletions(-) diff --git a/dashboard-widgets.el b/dashboard-widgets.el index 4fe2e38b..0bc1dbc5 100644 --- a/dashboard-widgets.el +++ b/dashboard-widgets.el @@ -237,9 +237,10 @@ installed." (const :tag "Use project.el" project-el)) :group 'dashboard) -(defcustom dashboard-items '((recents . 5) - (bookmarks . 5) - (agenda . 5)) +(defcustom dashboard-items + '((recents . 5) + (bookmarks . 5) + (agenda . 5)) "Association list of items to show in the startup buffer. Will be of the form `(list-type . list-size)'. If nil it is disabled. Possible values for list-type are: @@ -247,11 +248,12 @@ If nil it is disabled. Possible values for list-type are: :type '(repeat (alist :key-type symbol :value-type integer)) :group 'dashboard) -(defcustom dashboard-item-shortcuts '((recents . "r") - (bookmarks . "m") - (projects . "p") - (agenda . "a") - (registers . "e")) +(defcustom dashboard-item-shortcuts + '((recents . "r") + (bookmarks . "m") + (projects . "p") + (agenda . "a") + (registers . "e")) "Association list of items and their corresponding shortcuts. Will be of the form `(list-type . keys)' as understood by `(kbd keys)'. If nil, shortcuts are disabled. If an entry's @@ -366,6 +368,11 @@ If nil it is disabled. Possible values for list-type are: (let ((len (length seq))) (butlast seq (- len (min len end))))) +(defun dashboard-get-shortcut-name (item) + "Get the shortcut name to be used for ITEM." + (let ((elem (rassoc item dashboard-item-shortcuts))) + (and elem (car elem)))) + (defun dashboard-get-shortcut (item) "Get the shortcut to be used for ITEM." (let ((elem (assq item dashboard-item-shortcuts))) @@ -376,25 +383,19 @@ If nil it is disabled. Possible values for list-type are: &optional no-next-line) "Insert a shortcut SHORTCUT-CHAR for a given SEARCH-LABEL. Optionally, provide NO-NEXT-LINE to move the cursor forward a line." - (let* (;; Ensure punctuation and upper case in search string is not - ;; used to construct the `defun' - (name (downcase (replace-regexp-in-string - "[[:punct:]]+" "" (format "%s" search-label) nil nil nil))) - ;; Ensure whitespace in e.g. "recent files" is replaced with dashes. - (sym (intern (format "dashboard-jump-to-%s" (replace-regexp-in-string - "[[:blank:]]+" "-" name nil nil nil))))) + (let* (;; Ensure punctuation and upper case in search string is not used to + ;; construct the `defun' + (name (downcase (replace-regexp-in-string "[[:punct:]]+" "" (format "%s" search-label)))) + (id (dashboard-get-shortcut-name (eval shortcut-char))) + (sym (intern (format "dashboard-jump-to-%s" id)))) `(progn (eval-when-compile (defvar dashboard-mode-map)) (defun ,sym nil - ,(concat - "Jump to " - name - ". This code is dynamically generated in `dashboard-insert-shortcut'.") + ,(concat "Jump to " name ". This code is dynamically generated in `dashboard-insert-shortcut'.") (interactive) (unless (search-forward ,search-label (point-max) t) (search-backward ,search-label (point-min) t)) - ,@(unless no-next-line - '((forward-line 1))) + ,@(unless no-next-line '((forward-line 1))) (back-to-indentation)) (eval-after-load 'dashboard (define-key dashboard-mode-map ,shortcut-char ',sym))))) @@ -1223,7 +1224,7 @@ If both attributes are nil or equals the next strategy in `STRATEGIES' is used t (dashboard-agenda--sorted-agenda) list-size (dashboard-get-shortcut 'agenda) - `(lambda (&rest ignore) + `(lambda (&rest _) (let ((buffer (find-file-other-window (nth 2 ',el)))) (with-current-buffer buffer (goto-char (nth 1 ',el)) @@ -1241,7 +1242,7 @@ If both attributes are nil or equals the next strategy in `STRATEGIES' is used t register-alist list-size (dashboard-get-shortcut 'registers) - (lambda (&rest _ignore) (jump-to-register (car el))) + (lambda (&rest _) (jump-to-register (car el))) (format "%c - %s" (car el) (register-describe-oneline (car el))))) (provide 'dashboard-widgets) From 905b9674223b4cc1bb679a3cfb90ca6569913725 Mon Sep 17 00:00:00 2001 From: Jen-Chieh Date: Mon, 17 Jan 2022 16:57:29 +0800 Subject: [PATCH 02/13] Rev eval --- dashboard-widgets.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/dashboard-widgets.el b/dashboard-widgets.el index 0bc1dbc5..aaa29cf8 100644 --- a/dashboard-widgets.el +++ b/dashboard-widgets.el @@ -386,7 +386,7 @@ Optionally, provide NO-NEXT-LINE to move the cursor forward a line." (let* (;; Ensure punctuation and upper case in search string is not used to ;; construct the `defun' (name (downcase (replace-regexp-in-string "[[:punct:]]+" "" (format "%s" search-label)))) - (id (dashboard-get-shortcut-name (eval shortcut-char))) + (id (dashboard-get-shortcut-name shortcut-char)) (sym (intern (format "dashboard-jump-to-%s" id)))) `(progn (eval-when-compile (defvar dashboard-mode-map)) From 8414ec4654baa8afa0b7e9f066198eec0f38c9ec Mon Sep 17 00:00:00 2001 From: Jen-Chieh Date: Mon, 17 Jan 2022 17:00:19 +0800 Subject: [PATCH 03/13] Try wrap --- dashboard-widgets.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/dashboard-widgets.el b/dashboard-widgets.el index aaa29cf8..f32d9b35 100644 --- a/dashboard-widgets.el +++ b/dashboard-widgets.el @@ -383,11 +383,11 @@ If nil it is disabled. Possible values for list-type are: &optional no-next-line) "Insert a shortcut SHORTCUT-CHAR for a given SEARCH-LABEL. Optionally, provide NO-NEXT-LINE to move the cursor forward a line." - (let* (;; Ensure punctuation and upper case in search string is not used to - ;; construct the `defun' - (name (downcase (replace-regexp-in-string "[[:punct:]]+" "" (format "%s" search-label)))) - (id (dashboard-get-shortcut-name shortcut-char)) - (sym (intern (format "dashboard-jump-to-%s" id)))) + (when-let* (;; Ensure punctuation and upper case in search string is not used to + ;; construct the `defun' + (name (downcase (replace-regexp-in-string "[[:punct:]]+" "" (format "%s" search-label)))) + (id (car (rassoc shortcut-char dashboard-item-shortcuts))) + (sym (intern (format "dashboard-jump-to-%s" id)))) `(progn (eval-when-compile (defvar dashboard-mode-map)) (defun ,sym nil From 94e5279bc91952566820449b65dd725d62657b1f Mon Sep 17 00:00:00 2001 From: Jen-Chieh Date: Mon, 17 Jan 2022 17:01:51 +0800 Subject: [PATCH 04/13] Eval realtime --- dashboard-widgets.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/dashboard-widgets.el b/dashboard-widgets.el index f32d9b35..6e13111d 100644 --- a/dashboard-widgets.el +++ b/dashboard-widgets.el @@ -386,7 +386,7 @@ Optionally, provide NO-NEXT-LINE to move the cursor forward a line." (when-let* (;; Ensure punctuation and upper case in search string is not used to ;; construct the `defun' (name (downcase (replace-regexp-in-string "[[:punct:]]+" "" (format "%s" search-label)))) - (id (car (rassoc shortcut-char dashboard-item-shortcuts))) + (id (car (rassoc (eval shortcut-char) dashboard-item-shortcuts))) (sym (intern (format "dashboard-jump-to-%s" id)))) `(progn (eval-when-compile (defvar dashboard-mode-map)) From d24e4a07ee1f4dea0244517bf85e7088c26bd108 Mon Sep 17 00:00:00 2001 From: Jen-Chieh Shen Date: Mon, 17 Jan 2022 18:52:00 +0800 Subject: [PATCH 05/13] Try remove shortcut name --- dashboard-widgets.el | 28 ++++++++++++---------------- 1 file changed, 12 insertions(+), 16 deletions(-) diff --git a/dashboard-widgets.el b/dashboard-widgets.el index 6e13111d..9400b7d0 100644 --- a/dashboard-widgets.el +++ b/dashboard-widgets.el @@ -280,11 +280,12 @@ Set to nil for unbounded." :type 'integer :group 'dashboard) -(defcustom dashboard-heading-icons '((recents . "history") - (bookmarks . "bookmark") - (agenda . "calendar") - (projects . "rocket") - (registers . "database")) +(defcustom dashboard-heading-icons + '((recents . "history") + (bookmarks . "bookmark") + (agenda . "calendar") + (projects . "rocket") + (registers . "database")) "Association list for the icons of the heading sections. Will be of the form `(list-type . icon-name-string)`. If nil it is disabled. Possible values for list-type are: @@ -368,11 +369,6 @@ If nil it is disabled. Possible values for list-type are: (let ((len (length seq))) (butlast seq (- len (min len end))))) -(defun dashboard-get-shortcut-name (item) - "Get the shortcut name to be used for ITEM." - (let ((elem (rassoc item dashboard-item-shortcuts))) - (and elem (car elem)))) - (defun dashboard-get-shortcut (item) "Get the shortcut to be used for ITEM." (let ((elem (assq item dashboard-item-shortcuts))) @@ -809,21 +805,21 @@ WIDGET-PARAMS are passed to the \"widget-create\" function." (let ((len-item (cdr (assoc type dashboard-items))) (count 0) (align-length -1) len-list base) (cl-case type - (recents + (`recents (require 'recentf) (setq len-list (length recentf-list)) (while (and (< count len-item) (< count len-list)) (setq base (nth count recentf-list) align-length (max align-length (length (dashboard-f-filename base)))) (cl-incf count))) - (bookmarks + (`bookmarks (let ((bookmarks-lst (bookmark-all-names))) (setq len-list (length bookmarks-lst)) (while (and (< count len-item) (< count len-list)) (setq base (nth count bookmarks-lst) align-length (max align-length (length base))) (cl-incf count)))) - (projects + (`projects (let ((projects-lst (dashboard-projects-backend-load-projects))) (setq len-list (length projects-lst)) (while (and (< count len-item) (< count len-list)) @@ -865,7 +861,7 @@ WIDGET-PARAMS are passed to the \"widget-create\" function." (dashboard-shorten-paths recentf-list 'dashboard-recentf-alist 'recents) list-size (dashboard-get-shortcut 'recents) - `(lambda (&rest ignore) + `(lambda (&rest _) (find-file-existing (dashboard-expand-path-alist ,el dashboard-recentf-alist))) (let* ((file (dashboard-expand-path-alist el dashboard-recentf-alist)) (filename (dashboard-f-filename file)) @@ -908,7 +904,7 @@ WIDGET-PARAMS are passed to the \"widget-create\" function." (dashboard-subseq (bookmark-all-names) list-size) list-size (dashboard-get-shortcut 'bookmarks) - `(lambda (&rest ignore) (bookmark-jump ,el)) + `(lambda (&rest _) (bookmark-jump ,el)) (if-let* ((filename el) (path (bookmark-get-filename el)) (path-shorten (dashboard-shorten-path path 'bookmarks))) @@ -965,7 +961,7 @@ switch to." 'dashboard-projects-alist 'projects) list-size (dashboard-get-shortcut 'projects) - `(lambda (&rest ignore) + `(lambda (&rest _) (funcall (dashboard-projects-backend-switch-function) (dashboard-expand-path-alist ,el dashboard-projects-alist))) (let* ((file (dashboard-expand-path-alist el dashboard-projects-alist)) From 2e27e4568e5fde7541998f520eb8e5d09a141d30 Mon Sep 17 00:00:00 2001 From: Jen-Chieh Shen Date: Mon, 17 Jan 2022 23:05:49 +0800 Subject: [PATCH 06/13] Revert for CI test --- dashboard-widgets.el | 17 ++++++++++++----- 1 file changed, 12 insertions(+), 5 deletions(-) diff --git a/dashboard-widgets.el b/dashboard-widgets.el index 9400b7d0..d2cb235e 100644 --- a/dashboard-widgets.el +++ b/dashboard-widgets.el @@ -369,6 +369,11 @@ If nil it is disabled. Possible values for list-type are: (let ((len (length seq))) (butlast seq (- len (min len end))))) +(defun dashboard-get-shortcut-name (item) + "Get the shortcut name to be used for ITEM." + (let ((elem (rassoc item dashboard-item-shortcuts))) + (and elem (car elem)))) + (defun dashboard-get-shortcut (item) "Get the shortcut to be used for ITEM." (let ((elem (assq item dashboard-item-shortcuts))) @@ -379,11 +384,13 @@ If nil it is disabled. Possible values for list-type are: &optional no-next-line) "Insert a shortcut SHORTCUT-CHAR for a given SEARCH-LABEL. Optionally, provide NO-NEXT-LINE to move the cursor forward a line." - (when-let* (;; Ensure punctuation and upper case in search string is not used to - ;; construct the `defun' - (name (downcase (replace-regexp-in-string "[[:punct:]]+" "" (format "%s" search-label)))) - (id (car (rassoc (eval shortcut-char) dashboard-item-shortcuts))) - (sym (intern (format "dashboard-jump-to-%s" id)))) + (let* (;; Ensure punctuation and upper case in search string is not + ;; used to construct the `defun' + (name (downcase (replace-regexp-in-string + "[[:punct:]]+" "" (format "%s" search-label) nil nil nil))) + ;; Ensure whitespace in e.g. "recent files" is replaced with dashes. + (sym (intern (format "dashboard-jump-to-%s" (replace-regexp-in-string + "[[:blank:]]+" "-" name nil nil nil))))) `(progn (eval-when-compile (defvar dashboard-mode-map)) (defun ,sym nil From 0834ee731ac27c71992dc5ee41b39285c9216416 Mon Sep 17 00:00:00 2001 From: Jen-Chieh Shen Date: Mon, 17 Jan 2022 23:12:06 +0800 Subject: [PATCH 07/13] Remove unused nil --- dashboard-widgets.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/dashboard-widgets.el b/dashboard-widgets.el index d2cb235e..2a2b8396 100644 --- a/dashboard-widgets.el +++ b/dashboard-widgets.el @@ -387,10 +387,10 @@ Optionally, provide NO-NEXT-LINE to move the cursor forward a line." (let* (;; Ensure punctuation and upper case in search string is not ;; used to construct the `defun' (name (downcase (replace-regexp-in-string - "[[:punct:]]+" "" (format "%s" search-label) nil nil nil))) + "[[:punct:]]+" "" (format "%s" search-label)))) ;; Ensure whitespace in e.g. "recent files" is replaced with dashes. (sym (intern (format "dashboard-jump-to-%s" (replace-regexp-in-string - "[[:blank:]]+" "-" name nil nil nil))))) + "[[:blank:]]+" "-" name))))) `(progn (eval-when-compile (defvar dashboard-mode-map)) (defun ,sym nil From 42748f4117fd8dd2d3c24a0fa22de92574017ff6 Mon Sep 17 00:00:00 2001 From: Jen-Chieh Shen Date: Mon, 17 Jan 2022 23:14:22 +0800 Subject: [PATCH 08/13] Get shortcut char --- dashboard-widgets.el | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/dashboard-widgets.el b/dashboard-widgets.el index 2a2b8396..bcd25880 100644 --- a/dashboard-widgets.el +++ b/dashboard-widgets.el @@ -389,8 +389,7 @@ Optionally, provide NO-NEXT-LINE to move the cursor forward a line." (name (downcase (replace-regexp-in-string "[[:punct:]]+" "" (format "%s" search-label)))) ;; Ensure whitespace in e.g. "recent files" is replaced with dashes. - (sym (intern (format "dashboard-jump-to-%s" (replace-regexp-in-string - "[[:blank:]]+" "-" name))))) + (sym (intern (format "dashboard-jump-to-%s" (dashboard-get-shortcut-name shortcut-char))))) `(progn (eval-when-compile (defvar dashboard-mode-map)) (defun ,sym nil From 6c8dece15522b575cc99a32ab221005205e2eebf Mon Sep 17 00:00:00 2001 From: Jen-Chieh Shen Date: Mon, 17 Jan 2022 23:16:54 +0800 Subject: [PATCH 09/13] Try not to wrap --- dashboard-widgets.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/dashboard-widgets.el b/dashboard-widgets.el index bcd25880..95c9330e 100644 --- a/dashboard-widgets.el +++ b/dashboard-widgets.el @@ -389,7 +389,7 @@ Optionally, provide NO-NEXT-LINE to move the cursor forward a line." (name (downcase (replace-regexp-in-string "[[:punct:]]+" "" (format "%s" search-label)))) ;; Ensure whitespace in e.g. "recent files" is replaced with dashes. - (sym (intern (format "dashboard-jump-to-%s" (dashboard-get-shortcut-name shortcut-char))))) + (sym (intern (format "dashboard-jump-to-%s" (car (rassoc shortcut-char dashboard-item-shortcuts)))))) `(progn (eval-when-compile (defvar dashboard-mode-map)) (defun ,sym nil From 99b52e6339522752631bbc51477fe3fb3b525853 Mon Sep 17 00:00:00 2001 From: Jen-Chieh Shen Date: Mon, 17 Jan 2022 23:35:02 +0800 Subject: [PATCH 10/13] Test --- dashboard-widgets.el | 23 ++++++++++++++--------- 1 file changed, 14 insertions(+), 9 deletions(-) diff --git a/dashboard-widgets.el b/dashboard-widgets.el index 95c9330e..3ec77750 100644 --- a/dashboard-widgets.el +++ b/dashboard-widgets.el @@ -379,17 +379,17 @@ If nil it is disabled. Possible values for list-type are: (let ((elem (assq item dashboard-item-shortcuts))) (and elem (cdr elem)))) -(defmacro dashboard-insert-shortcut (shortcut-char +(defmacro dashboard-insert-shortcut (shortcut-id + shortcut-char search-label &optional no-next-line) "Insert a shortcut SHORTCUT-CHAR for a given SEARCH-LABEL. Optionally, provide NO-NEXT-LINE to move the cursor forward a line." (let* (;; Ensure punctuation and upper case in search string is not ;; used to construct the `defun' - (name (downcase (replace-regexp-in-string - "[[:punct:]]+" "" (format "%s" search-label)))) + (name (downcase (replace-regexp-in-string "[[:punct:]]+" "" (format "%s" search-label)))) ;; Ensure whitespace in e.g. "recent files" is replaced with dashes. - (sym (intern (format "dashboard-jump-to-%s" (car (rassoc shortcut-char dashboard-item-shortcuts)))))) + (sym (intern (format "dashboard-jump-to-%s" ,shortcut-id)))) `(progn (eval-when-compile (defvar dashboard-mode-map)) (defun ,sym nil @@ -619,22 +619,22 @@ Argument IMAGE-PATH path to the image." (insert "\n")) (insert "\n"))) -(defmacro dashboard-insert-section (section-name list list-size shortcut action &rest widget-params) +(defmacro dashboard-insert-section (section-name list list-size shortcut-id shortcut-char action &rest widget-params) "Add a section with SECTION-NAME and LIST of LIST-SIZE items to the dashboard. -SHORTCUT is the keyboard shortcut used to access the section. +SHORTCUT-CHAR is the keyboard shortcut used to access the section. ACTION is theaction taken when the user activates the widget button. WIDGET-PARAMS are passed to the \"widget-create\" function." `(progn (dashboard-insert-heading ,section-name - (if (and ,list ,shortcut dashboard-show-shortcuts) ,shortcut)) + (if (and ,list ,shortcut-char dashboard-show-shortcuts) ,shortcut-char)) (if ,list (when (and (dashboard-insert-section-list ,section-name (dashboard-subseq ,list ,list-size) ,action ,@widget-params) - ,shortcut) - (dashboard-insert-shortcut ,shortcut ,section-name)) + ,shortcut-char) + (dashboard-insert-shortcut ,shortcut-id ,shortcut-char ,section-name)) (insert (propertize "\n --- No items ---" 'face 'dashboard-no-items-face))))) ;; @@ -866,6 +866,7 @@ WIDGET-PARAMS are passed to the \"widget-create\" function." "Recent Files:" (dashboard-shorten-paths recentf-list 'dashboard-recentf-alist 'recents) list-size + 'recents (dashboard-get-shortcut 'recents) `(lambda (&rest _) (find-file-existing (dashboard-expand-path-alist ,el dashboard-recentf-alist))) @@ -909,6 +910,7 @@ WIDGET-PARAMS are passed to the \"widget-create\" function." "Bookmarks:" (dashboard-subseq (bookmark-all-names) list-size) list-size + 'bookmarks (dashboard-get-shortcut 'bookmarks) `(lambda (&rest _) (bookmark-jump ,el)) (if-let* ((filename el) @@ -966,6 +968,7 @@ switch to." (dashboard-subseq (dashboard-projects-backend-load-projects) list-size) 'dashboard-projects-alist 'projects) list-size + 'projects (dashboard-get-shortcut 'projects) `(lambda (&rest _) (funcall (dashboard-projects-backend-switch-function) @@ -1225,6 +1228,7 @@ If both attributes are nil or equals the next strategy in `STRATEGIES' is used t "Agenda for today:") (dashboard-agenda--sorted-agenda) list-size + 'agenda (dashboard-get-shortcut 'agenda) `(lambda (&rest _) (let ((buffer (find-file-other-window (nth 2 ',el)))) @@ -1243,6 +1247,7 @@ If both attributes are nil or equals the next strategy in `STRATEGIES' is used t "Registers:" register-alist list-size + 'registers (dashboard-get-shortcut 'registers) (lambda (&rest _) (jump-to-register (car el))) (format "%c - %s" (car el) (register-describe-oneline (car el))))) From 6cbe10e23d69c8dfaf58153a7005e51911b2b864 Mon Sep 17 00:00:00 2001 From: Jen-Chieh Shen Date: Mon, 17 Jan 2022 23:42:01 +0800 Subject: [PATCH 11/13] Use shortcut-id --- dashboard-widgets.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/dashboard-widgets.el b/dashboard-widgets.el index 3ec77750..047a8261 100644 --- a/dashboard-widgets.el +++ b/dashboard-widgets.el @@ -389,7 +389,7 @@ Optionally, provide NO-NEXT-LINE to move the cursor forward a line." ;; used to construct the `defun' (name (downcase (replace-regexp-in-string "[[:punct:]]+" "" (format "%s" search-label)))) ;; Ensure whitespace in e.g. "recent files" is replaced with dashes. - (sym (intern (format "dashboard-jump-to-%s" ,shortcut-id)))) + (sym (intern (format "dashboard-jump-to-%s" shortcut-id)))) `(progn (eval-when-compile (defvar dashboard-mode-map)) (defun ,sym nil @@ -633,7 +633,7 @@ WIDGET-PARAMS are passed to the \"widget-create\" function." (dashboard-subseq ,list ,list-size) ,action ,@widget-params) - ,shortcut-char) + ,shortcut-id ,shortcut-char) (dashboard-insert-shortcut ,shortcut-id ,shortcut-char ,section-name)) (insert (propertize "\n --- No items ---" 'face 'dashboard-no-items-face))))) From fc50b9165ef99ab0150de25e3d761d2e38653988 Mon Sep 17 00:00:00 2001 From: Jen-Chieh Shen Date: Mon, 17 Jan 2022 23:42:42 +0800 Subject: [PATCH 12/13] Update copyright year --- dashboard-widgets.el | 2 +- dashboard.el | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/dashboard-widgets.el b/dashboard-widgets.el index 047a8261..6729adc5 100644 --- a/dashboard-widgets.el +++ b/dashboard-widgets.el @@ -1,6 +1,6 @@ ;;; dashboard-widgets.el --- A startup screen extracted from Spacemacs -*- lexical-binding: t -*- -;; Copyright (c) 2016-2021 emacs-dashboard maintainers +;; Copyright (c) 2016-2022 emacs-dashboard maintainers ;; ;; Author : Rakan Al-Hneiti ;; Maintainer : Jesús Martínez diff --git a/dashboard.el b/dashboard.el index ee59981d..e743f915 100644 --- a/dashboard.el +++ b/dashboard.el @@ -1,6 +1,6 @@ ;;; dashboard.el --- A startup screen extracted from Spacemacs -*- lexical-binding: t -*- -;; Copyright (c) 2016-2021 emacs-dashboard maintainers +;; Copyright (c) 2016-2022 emacs-dashboard maintainers ;; ;; Author : Rakan Al-Hneiti ;; Maintainer : Jesús Martínez From b8ef5235b30b0fe7e46a2ecfb2bf5e0522d5f370 Mon Sep 17 00:00:00 2001 From: Jen-Chieh Shen Date: Mon, 17 Jan 2022 23:46:35 +0800 Subject: [PATCH 13/13] Upate cahngelog --- CHANGELOG.md | 1 + 1 file changed, 1 insertion(+) diff --git a/CHANGELOG.md b/CHANGELOG.md index 2bc62fdf..e5c6cef5 100644 --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -31,6 +31,7 @@ Check [Keep a Changelog](http://keepachangelog.com/) for recommendations on how * Add feature to sort agenda (#335) * Update the CI process uasing Cask (#341) * Add a changelog (#342) +* Make shortcut function name respect to shortcut id (#348) ## 1.7.0 > Released Feb 21, 2020