blob: 2839307fef1a68a748726e999791365224c78f15 (
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
|
(defun elchemy/create-dashboard (&optional RECREATE)
"Create the user dashboard"
(interactive)
(let ((buffer (get-buffer-create "*Dashboard*")))
(switch-to-buffer buffer)
(unless (and buffer-read-only (not RECREATE))
(read-only-mode -1)
(erase-buffer)
(when (file-exists-p (concat elchemy/elchemy-root elchemy/dashboard-splash))
(insert-image (create-image (concat elchemy/elchemy-root elchemy/dashboard-splash) nil nil :scale 0.25))
(insert "\n"))
(let ((start (point)))
(insert "Elchemy Dashboard")
(add-text-properties start (point)
`(face (:height ,elchemy/dashboard/header-size))))
(insert "\n")
(when (file-exists-p (concat elchemy/elchemy-root elchemy/elchemy-headings-file))
(elchemy/display-tabular-button-alist
(elchemy/read-alist-file (concat elchemy/elchemy-root elchemy/elchemy-headings-file))
elchemy/dashboard/heading-columns elchemy/dashboard/heading-padding)
(insert "\n"))
(when (file-exists-p (concat elchemy/elchemy-root elchemy/elchemy-projects-file))
(let ((start (point)))
(insert "Projects")
(add-text-properties start (point)
`(face (:height ,elchemy/dashboard/subheader-size))))
(insert "\n")
(elchemy/display-tabular-button-alist
(elchemy/read-alist-file (concat elchemy/elchemy-root elchemy/elchemy-projects-file))
elchemy/dashboard/projects-columns elchemy/dashboard/projects-padding)
(insert "\n"))
(ignore-errors
(setq agenda-items (mapcar #'(lambda (x) (elchemy/get-agenda-items x 3)) elchemy/dashboard-agenda-titles)
agenda-max-count (apply 'max (mapcar #'(lambda (x) (length x)) agenda-items))
agenda-max-length (apply 'max (mapcar #'(lambda (x) (apply 'max (mapcar #'(lambda (y) (length y)) x))) agenda-items)))
(let ((start (point)))
(insert "Agenda")
(add-text-properties start (point)
`(face (:height elchemy/dashboard/subheader-size))))
(insert "\n")
(insert (apply 'format (concat "%-" (format "%d" (+ agenda-max-length elchemy/dashboard/agenda-padding)) "s" "%-" (format "%d" (+ agenda-max-length elchemy/dashboard/agenda-padding)) "s" "%s\n") elchemy/dashboard-agenda-titles))
(dotimes (i agenda-max-count)
(insert (format
(concat "%-" (format "%d" (+ agenda-max-length elchemy/dashboard/agenda-padding)) "s")
(elchemy/replace-nil (nth i (nth 0 agenda-items)))))
(insert (format
(concat "%-" (format "%d" (+ agenda-max-length elchemy/dashboard/agenda-padding)) "s")
(elchemy/replace-nil (nth i (nth 1 agenda-items)))))
(insert (format
"%s"
(elchemy/replace-nil (nth i (nth 2 agenda-items)))))
(insert "\n")
)
(insert "\n")
(let ((start (point)))
(insert "Overdue")
(add-text-properties start (point)
`(face (:height ,elchemy/dashboard/subheader-size))))
(insert "\n")
(insert (elchemy/format-processed-agenda (mapcar 'elchemy/process-agenda-heading (org-ql-select (org-agenda-files) `(and (todo "STRT" "WAIT" "TODO" "CYCL") (ts :from ,(- elchemy/schedule-lookahead) :to today)) :sort '(todo priority date)))))
(insert "\n")
(let ((start (point)))
(insert "Upcoming")
(add-text-properties start (point)
`(face (:height ,elchemy/dashboard/subheader-size))))
(insert "\n")
(insert (elchemy/format-processed-agenda (mapcar 'elchemy/process-agenda-heading (org-ql-select (org-agenda-files) `(and (or (todo "STRT" "WAIT" "TODO") (todo "CYCL")) (ts :from today :to ,elchemy/schedule-lookahead)) :sort '(todo priority date)))))
(insert "\n"))
(let ((start (point)))
(insert "Command Reference")
(add-text-properties start (point)
`(face (:height ,elchemy/dashboard/subheader-size))))
(insert "\n")
(insert "C-/ ~ Undo\n")
(insert "C-x n n ~ Narrow\n")
(insert "C-x n w ~ Widen\n")
(insert "M-% ~ Query Replace\n")
(insert "C-M-s ~ Regex Search\n")
(insert "F3 ~ Record Macro\n")
(insert "F4 ~ Play Macro\n")
(insert "M-0 F4 ~ Play Macro until failure\n")
(insert "M-l ~ Lowercase following word\n")
(insert "M-u ~ Uppercase following word\n")
(insert "M-c ~ Capitalize following word\n")
(insert "M-g w ~ Jump to word\n")
(insert "M-g l ~ Jump to line\n")
(insert "C-x C-l ~ Lowercase Region\n")
(insert "C-x C-u ~ Uppercase Region\n")
(insert "C-M-n ~ Move forward one balanced expression\n")
(insert "C-M-p ~ Move forward one balanced expression\n")
(insert "\n")
(insert (buttonize "Refresh" '(lambda (x) (elchemy/recreate-dashboard))))
(insert "\n")
(button-mode +1)
(read-only-mode +1)
(goto-char (point-min)))))
(defun elchemy/recreate-dashboard ()
"Recreate the dashboard"
(interactive)
(elchemy/create-dashboard t))
(provide 'elchemy-dashboard)
|
