2017-06-25 02:01:05 +02:00
|
|
|
;;; ui/doom-dashboard/autoload.el -*- lexical-binding: t; -*-
|
|
|
|
|
|
2019-03-01 18:28:55 -05:00
|
|
|
(defun +doom-dashboard--help-echo ()
|
|
|
|
|
(when-let* ((btn (button-at (point)))
|
|
|
|
|
(msg (button-get btn 'help-echo)))
|
|
|
|
|
(message "%s" msg)))
|
|
|
|
|
|
2018-01-20 02:53:06 -05:00
|
|
|
;;;###autoload
|
|
|
|
|
(defun +doom-dashboard/open (frame)
|
|
|
|
|
"Switch to the dashboard in the current window, of the current FRAME."
|
|
|
|
|
(interactive (list (selected-frame)))
|
|
|
|
|
(with-selected-frame frame
|
2019-04-08 22:58:10 -04:00
|
|
|
(switch-to-buffer (doom-fallback-buffer))
|
2018-07-10 17:46:31 +02:00
|
|
|
(+doom-dashboard-reload t)))
|
2018-07-03 20:05:27 +02:00
|
|
|
|
|
|
|
|
;;;###autoload
|
|
|
|
|
(defun +doom-dashboard/forward-button (n)
|
|
|
|
|
"Like `forward-button', but don't wrap."
|
|
|
|
|
(interactive "p")
|
2019-03-01 18:28:55 -05:00
|
|
|
(forward-button n nil)
|
|
|
|
|
(+doom-dashboard--help-echo))
|
2018-07-03 20:05:27 +02:00
|
|
|
|
|
|
|
|
;;;###autoload
|
|
|
|
|
(defun +doom-dashboard/backward-button (n)
|
|
|
|
|
"Like `backward-button', but don't wrap."
|
|
|
|
|
(interactive "p")
|
2019-03-01 18:28:55 -05:00
|
|
|
(backward-button n nil)
|
|
|
|
|
(+doom-dashboard--help-echo))
|
