awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

ui/doom-dashboard: show command at point in echo-area

Browse Source
This commit is contained in:
Henrik Lissner
2019-03-01 18:28:55 -05:00
parent 21e01189b9
commit 735ec58b36
2 changed files with 17 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
modules/ui/doom-dashboard/autoload.el
View File

@ -1,5 +1,10 @@
;;; ui/doom-dashboard/autoload.el -*- lexical-binding: t; -*-
(defun +doom-dashboard--help-echo ()
(when-let* ((btn (button-at (point)))
(msg (button-get btn 'help-echo)))
(message "%s" msg)))
;;;###autoload
(defun +doom-dashboard/open (frame)
"Switch to the dashboard in the current window, of the current FRAME."
@ -12,10 +17,12 @@
(defun +doom-dashboard/forward-button (n)
"Like `forward-button', but don't wrap."
(interactive "p")
(forward-button n nil))
(forward-button n nil)
(+doom-dashboard--help-echo))
;;;###autoload
(defun +doom-dashboard/backward-button (n)
"Like `backward-button', but don't wrap."
(interactive "p")
(backward-button n nil))
(backward-button n nil)
(+doom-dashboard--help-echo))