blob: 5116807b10616a8a620d03596d0e1de23a7a06fa (
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
|
(defun elchemy/create-dashboard ()
"Create the user dashboard"
(interactive)
(let ((buffer (get-buffer-create "*Dashboard*")))
(switch-to-buffer buffer)
(unless buffer-read-only
(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 4.0))))
(insert "\n\n")
(dotimes (i (length elchemy/dashboard/heading-buttons))
(let* ((button (nth i elchemy/dashboard/heading-buttons))
(title (car button))
(callback (cdr button)))
(insert (buttonize title callback))
(if (eq (% (+ i 1) elchemy/dashboard/heading-columns) 0)
(insert "\n")
(insert (format (concat "%-" (format "%d" (+ (- elchemy/dashboard/heading-max-length (length title)) elchemy/dashboard/heading-padding)) "s") " ")))))
(unless (eq (% (length elchemy/dashboard/heading-buttons) elchemy/dashboard/heading-columns) 0)
(insert "\n"))
(insert "\n\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 1.5))))
(insert "\n")
(mapcar #'(lambda (x) (let ((name (car x))
(path (cdr x)))
(insert (buttonize name (lambda (y) (elchemy/find-file y)) path) "\n")))
(elchemy/read-alist-file (concat elchemy/elchemy-root elchemy/elchemy-projects-file)))
(insert "\n"))
(let ((start (point)))
(insert "Command Reference")
(add-text-properties start (point)
'(face (:height 1.5))))
(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")
(setq header-line-format nil)
(button-mode +1)
(read-only-mode +1))))
(provide 'elchemy-dashboard)
|