blob: f9c40ee56998f14debdd79fc7d64941bc46f4d45 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
|
;;; dashboard-config.el --- Dashboard Configuration -*- lexical-binding: t; -*-
;;; Commentary:
;; Note:
;; Nerd-Icons Cheat Sheet: https://www.nerdfonts.com/cheat-sheet
;;; Code:
;; ------------------------ Dashboard Bookmarks Override -----------------------
;; overrides the bookmark insertion from the dashboard package to provide an
;; option that only shows the bookmark name, avoiding the path. Paths are often
;; too long and the truncation options aren't aesthetically pleasing. Should be
;; accompanied by the setting (setq dashboard-bookmarks-show-path nil) in
;; config.
(defcustom dashboard-bookmarks-item-format "%s"
"Format to use when showing the base of the file name."
:type 'string
:group 'dashboard)
(defun dashboard-insert-bookmarks (list-size)
"Add the list of LIST-SIZE items of bookmarks."
(require 'bookmark)
(dashboard-insert-section
"Bookmarks:"
(dashboard-subseq (bookmark-all-names) list-size)
list-size
'bookmarks
(dashboard-get-shortcut 'bookmarks)
`(lambda (&rest _) (bookmark-jump ,el))
(if-let* ((filename el)
(path (bookmark-get-filename el))
(path-shorten (dashboard-shorten-path path 'bookmarks)))
(cl-case dashboard-bookmarks-show-path
(`align
(unless dashboard--bookmarks-cache-item-format
(let* ((len-align (dashboard--align-length-by-type 'bookmarks))
(new-fmt (dashboard--generate-align-format
dashboard-bookmarks-item-format len-align)))
(setq dashboard--bookmarks-cache-item-format new-fmt)))
(format dashboard--bookmarks-cache-item-format filename path-shorten))
(`nil filename)
(t (format dashboard-bookmarks-item-format filename path-shorten)))
el)))
;; ----------------------------- Display Dashboard -----------------------------
;; convenience function to redisplay dashboard
(defun cj/display-dashboard ()
"Display dashboard, create if it doesn't exist."
(interactive)
(dired-sidebar-hide-sidebar) ;; hide dired-sidebar if displaying
(get-buffer-create "*dashboard*")
(pop-to-buffer "*dashboard*")
(delete-other-windows))
(global-set-key (kbd "<f4>") 'cj/display-dashboard)
;; --------------------------------- Dashboard ---------------------------------
;; a useful startup screen for Emacs
(use-package dashboard
:demand t ;; needed to startup quickly
:custom
(dashboard-projects-backend 'projectile)
(dashboard-item-generators
'((projects . dashboard-insert-projects)
(bookmarks . dashboard-insert-bookmarks)))
(dashboard-items '((projects . 5)
(bookmarks . 7)))
(dashboard-startupify-list
'(dashboard-insert-banner
dashboard-insert-banner-title
dashboard-insert-newline
dashboard-insert-newline
dashboard-insert-navigator
dashboard-insert-init-info
dashboard-insert-newline
dashboard-insert-newline
dashboard-insert-items
dashboard-insert-newline))
:config
;; == general
(dashboard-setup-startup-hook) ;; run dashboard post emacs init
(setq initial-buffer-choice (lambda () (get-buffer "*dashboard*"))) ;; display dashboard on startup
(setq dashboard-display-icons-p t) ;; display icons on both GUI and terminal
(setq dashboard-icon-type 'nerd-icons) ;; use `nerd-icons' package
(setq dashboard-center-content t) ;; horizontally center dashboard content
(setq dashboard-bookmarks-show-path nil) ;; don't show paths in bookmarks
(setq dashboard-set-footer nil) ;; don't show footer and quotes
;; == banner
(setq dashboard-startup-banner (concat user-emacs-directory "assets/M-x_butterfly.png"))
(setq dashboard-banner-logo-title "Emacs: The Editor That Saves Your Soul")
;; == navigation
(setq dashboard-set-navigator t)
(setq dashboard-navigator-buttons
`(((,(nerd-icons-faicon "nf-fa-envelope")
"Email" "Mu4e Email Client"
(lambda (&rest _) (mu4e)))
(,(nerd-icons-faicon "nf-fae-book_open_o")
"Ebooks" "Calibre Ebook Reader"
(lambda (&rest _) (calibredb)))
(,(nerd-icons-mdicon "nf-md-school")
"Flashcards" "Org-Drill"
(lambda (&rest _) (cj/drill-start)))
(,(nerd-icons-faicon "nf-fa-rss_square")
"Feeds" "Elfeed Feed Reader"
(lambda (&rest _) (elfeed-dashboard)))
(,(nerd-icons-faicon "nf-fa-comments")
"IRC" "Emacs Relay Chat"
(lambda (&rest _) (cj/erc-start-or-switch)))
(,(nerd-icons-faicon "nf-fae-telegram")
"Telegram" "Telega Chat Client"
(lambda (&rest _) (telega)))
(,(nerd-icons-faicon "nf-fa-folder_o")
"Files" "Dirvish File Manager"
(lambda (&rest _) (dirvish user-home-dir))))))
;; == content
(setq dashboard-show-shortcuts nil) ;; don't show dashboard item abbreviations
) ;; end use-package dashboard
(provide 'dashboard-config)
;;; dashboard-config.el ends here.
|
