From 14709c6a53c3ab9e05072fb478405cff28ca1922 Mon Sep 17 00:00:00 2001 From: Christian Cunningham Date: Fri, 14 Jun 2024 17:43:29 -0700 Subject: Remove Extra Dashboard Text --- elchemy-dashboard.el | 23 ----------------------- 1 file changed, 23 deletions(-) diff --git a/elchemy-dashboard.el b/elchemy-dashboard.el index 8f999bc..721109f 100644 --- a/elchemy-dashboard.el +++ b/elchemy-dashboard.el @@ -67,29 +67,6 @@ (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 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) -- cgit v1.2.1