branch: elpa/gnosis
commit a58b251b5e93b635e619bf4f300f11bb071f7b2c
Author: Thanos Apollo <[email protected]>
Commit: Thanos Apollo <[email protected]>
dashboard: Handle first module separately.
+ Create first module without inserting separator.
+ For the rest, insert a separator before the module, this way we do
not have to delete the last separator as we did before.
---
gnosis-dashboard.el | 20 ++++++++++----------
1 file changed, 10 insertions(+), 10 deletions(-)
diff --git a/gnosis-dashboard.el b/gnosis-dashboard.el
index ce763d5b04b..cb74e943c8f 100644
--- a/gnosis-dashboard.el
+++ b/gnosis-dashboard.el
@@ -600,19 +600,19 @@ DASHBOARD-TYPE: either Themata or Decks to display the
respective dashboard."
"Launch gnosis dashboard."
(interactive)
(let* ((buffer (get-buffer-create gnosis-dashboard-buffer-name))
- (inhibit-read-only t))
+ (inhibit-read-only t))
(with-current-buffer buffer
(erase-buffer)
(gnosis-dashboard-mode)
- (dolist (module gnosis-dashboard-modules)
- (funcall (symbol-value module))
- (gnosis-insert-separator))
- ;; Delete last separator
- (beginning-of-visual-line)
- (kill-whole-line))
- (pop-to-buffer-same-window buffer)
- (goto-char (point-min))
- (gnosis-dashboard-enable-mode)))
+ (let ((modules gnosis-dashboard-modules))
+ (when modules
+ (funcall (symbol-value (car modules)))
+ (dolist (module (cdr modules))
+ (gnosis-insert-separator)
+ (funcall (symbol-value module)))))
+ (pop-to-buffer-same-window buffer)
+ (goto-char (point-min))
+ (gnosis-dashboard-enable-mode))))
(provide 'gnosis-dashboard)
;;; gnosis-dashboard.el ends here
