From 8cde66d3031c855903a5b0f543a0f53e43202b08 Mon Sep 17 00:00:00 2001 From: petrucci4prez Date: Sun, 8 Apr 2018 01:10:01 -0400 Subject: [PATCH] modded some keymaps and tags faces --- conf.el | 60 ++++++++++++++++++++++++---------------------- conf.org | 73 ++++++++++++++++++++++++++++---------------------------- 2 files changed, 68 insertions(+), 65 deletions(-) diff --git a/conf.el b/conf.el index 13efc93..7c0c3a2 100644 --- a/conf.el +++ b/conf.el @@ -65,6 +65,10 @@ (global-set-key (kbd "C-h a") 'apropos) +(global-set-key (kbd "") 'org-agenda) +(global-set-key (kbd "") 'org-capture) +(global-set-key (kbd "") 'org-iswitchb) + (use-package delight :ensure t) @@ -226,7 +230,7 @@ (load "ess-site") (setq ess-history-file "session.Rhistory") (setq ess-history-directory - (substitute-in-file-name "${XDG_CONFIG_HOME}/r/")) + (substitute-in-file-name "${XDG_CONFIG_HOME}/r/")) (setq org-log-done t) (setq org-src-window-setup 'current-window) @@ -239,20 +243,13 @@ (add-to-list 'org-structure-template-alist '("el" "#+BEGIN_SRC emacs-lisp\n?\n#+END_SRC")) -(global-set-key "\C-cl" 'org-store-link) -(global-set-key "\C-ca" 'org-agenda) -(global-set-key "\C-cb" 'org-iswitchb) -(global-set-key (kbd "C-c c") 'org-capture) - -;; consider adding f1-12 shortcuts for org things that must be a) fast and b) work in any mode - (setq org-special-ctrl-a/e t) (setq org-special-ctrl-k t) (setq org-yank-adjusted-subtrees t) (setq org-todo-keywords - (quote ((sequence "TODO(t)" "NEXT(n)" "|" "DONE(d)") - (sequence "WAITING(w@/!)" "HOLD(h@/!)" "|" "CANCELLED(c@/!)")))) + '((sequence "TODO(t)" "NEXT(n)" "|" "DONE(d)") + (sequence "WAITING(w@/!)" "HOLD(h@/!)" "|" "CANCELLED(c@/!)"))) (setq org-todo-keyword-faces (quote (("TODO" :foreground "light coral" :weight bold) @@ -264,33 +261,38 @@ (setq org-tag-alist (quote ((:startgroup) ("@errand" . ?e) - ("@work" . ?o) + ("@work" . ?w) ("@home" . ?h) ("@travel" . ?f) (:endgroup) ("LAPTOP" . ?L) - ("WAITING" . ?W) - ("HOLD" . ?H) ("PERSONAL" . ?P) - ("WORK" . ?O) + ("WORK" . ?W) ("NOTE" . ?N) - ("CANCELLED" . ?C) ("FLAGGED" . ??)))) -(setq org-capture-templates - (quote (("t" "todo" entry (file "~/Org/capture.org") "* TODO %?\n%U\n") - ("n" "note" entry (file "~/Org/capture.org") "* %? :NOTE:\n%U\n" ) - ("a" "appointment" entry (file "~/Org/capture.org") "* TODO %?\n%U\n%^t\n" ) - ("m" "multi-day" entry (file "~/Org/capture.org") "* TODO %?\n%U\n%^t--%^t\n" ) - ("d" "deadline" entry (file "~/Org/capture.org") "* TODO %?\nDEADLINE: %^t\n%U\n" ) +;; TODO I'm sure there is a better way to do this in lisp +(setq org-tag-faces + '(("LAPTOP" . (:foreground "PaleGreen")) + ("PERSONAL" . (:foreground "PaleGreen")) + ("WORK" . (:foreground "PaleGreen")) + ("NOTE" . (:foreground "PaleGreen")) + ("FLAGGED" . (:foreground "PaleGreen")))) - ("j" "journal" entry (file+datetree "~/Org/diary.org") "* %?\n%U\n") - ("p" "org-protocol" entry (file+headline ,(concat org-directory "~/Org/capture.org") "Inbox") - "* %^{Title}\nSource: %u, %c\n #+BEGIN_QUOTE\n%i\n#+END_QUOTE\n\n\n%?") - ("L" "org-protocol" entry (file+headline ,(concat org-directory "~/Org/capture.org") "Inbox") - "* %? [[%:link][%:description]] \nCaptured On: %U") - ("h" "habit" entry (file "~/Org/capture.org") - "* NEXT %?\n%U\n%a\nSCHEDULED: %(format-time-string \"%<<%Y-%m-%d %a .+1d/3d>>\")\n:PROPERTIES:\n:STYLE: habit\n:REPEAT_TO_STATE: NEXT\n:END:\n")))) +(setq org-capture-templates + '(("t" "todo" entry (file "~/Org/capture.org") "* TODO %?\n%U\n") + ("n" "note" entry (file "~/Org/capture.org") "* %? :NOTE:\n%U\n" ) + ("a" "appointment" entry (file "~/Org/capture.org") "* TODO %?\n%U\n%^t\n" ) + ("m" "multi-day" entry (file "~/Org/capture.org") "* TODO %?\n%U\n%^t--%^t\n" ) + ("d" "deadline" entry (file "~/Org/capture.org") "* TODO %?\nDEADLINE: %^t\n%U\n" ) + + ("j" "journal" entry (file+datetree "~/Org/diary.org") "* %?\n%U\n") + ("p" "org-protocol" entry (file+headline ,(concat org-directory "~/Org/capture.org") "Inbox") + "* %^{Title}\nSource: %u, %c\n #+BEGIN_QUOTE\n%i\n#+END_QUOTE\n\n\n%?") + ("L" "org-protocol" entry (file+headline ,(concat org-directory "~/Org/capture.org") "Inbox") + "* %? [[%:link][%:description]] \nCaptured On: %U") + ("h" "habit" entry (file "~/Org/capture.org") + "* NEXT %?\n%U\n%a\nSCHEDULED: %(format-time-string \"%<<%Y-%m-%d %a .+1d/3d>>\")\n:PROPERTIES:\n:STYLE: habit\n:REPEAT_TO_STATE: NEXT\n:END:\n"))) (setq org-refile-targets (quote ((nil :maxlevel . 9) ("~/Org/reference/idea.org" :maxlevel . 9) @@ -300,7 +302,7 @@ (setq org-outline-path-complete-in-steps nil) (setq org-completion-use-ido t) -(setq org-refile-allow-creating-parent-nodes (quote confirm)) +(setq org-refile-allow-creating-parent-nodes 'confirm) (setq org-indirect-buffer-display 'current-window) diff --git a/conf.org b/conf.org index 5f2e4e7..0b52893 100644 --- a/conf.org +++ b/conf.org @@ -101,9 +101,16 @@ NOTE: this only works if we start term after gui, and term has light bg. not big (setq dashboard-items '((recents . 10)))) #+END_SRC * keybindings -** apropros +** overrides #+BEGIN_SRC emacs-lisp -(global-set-key (kbd "C-h a") 'apropos) + (global-set-key (kbd "C-h a") 'apropos) +#+END_SRC +** modeless bindings +These are commands that should work in any mode. Make the assumption that function keys are pretty much free in any major/minor mode +#+BEGIN_SRC emacs-lisp + (global-set-key (kbd "") 'org-agenda) + (global-set-key (kbd "") 'org-capture) + (global-set-key (kbd "") 'org-iswitchb) #+END_SRC * printing ** @@ -373,15 +380,6 @@ vim is all about escape, not...ctrl+g??? '("el" "#+BEGIN_SRC emacs-lisp\n?\n#+END_SRC")) #+END_SRC ** keyboard shortcuts -*** global -#+BEGIN_SRC emacs-lisp - (global-set-key "\C-cl" 'org-store-link) - (global-set-key "\C-ca" 'org-agenda) - (global-set-key "\C-cb" 'org-iswitchb) - (global-set-key (kbd "C-c c") 'org-capture) - - ;; consider adding f1-12 shortcuts for org things that must be a) fast and b) work in any mode -#+END_SRC *** navigation #+BEGIN_SRC emacs-lisp (setq org-special-ctrl-a/e t) @@ -392,8 +390,8 @@ vim is all about escape, not...ctrl+g??? *** sequences #+BEGIN_SRC emacs-lisp (setq org-todo-keywords - (quote ((sequence "TODO(t)" "NEXT(n)" "|" "DONE(d)") - (sequence "WAITING(w@/!)" "HOLD(h@/!)" "|" "CANCELLED(c@/!)")))) + '((sequence "TODO(t)" "NEXT(n)" "|" "DONE(d)") + (sequence "WAITING(w@/!)" "HOLD(h@/!)" "|" "CANCELLED(c@/!)"))) #+END_SRC *** colors #+BEGIN_SRC emacs-lisp @@ -405,42 +403,45 @@ vim is all about escape, not...ctrl+g??? ("HOLD" :foreground "violet" :weight bold) ("CANCELLED" :foreground "deep sky blue" :weight bold)))) #+END_SRC -** tag selection keys +** tags +I use tags for filtering in the agenda view to narrow down tasks by project/context. I don't use tags for custom commands (easier with skip functions). I make the tags here brightly colored to distinguish from those set in FILETAGS #+BEGIN_SRC emacs-lisp (setq org-tag-alist (quote ((:startgroup) ("@errand" . ?e) - ("@work" . ?o) + ("@work" . ?w) ("@home" . ?h) ("@travel" . ?f) (:endgroup) ("LAPTOP" . ?L) - ("WAITING" . ?W) - ("HOLD" . ?H) ("PERSONAL" . ?P) - ("WORK" . ?O) + ("WORK" . ?W) ("NOTE" . ?N) - ("CANCELLED" . ?C) ("FLAGGED" . ??)))) + + ;; TODO I'm sure there is a better way to do this in lisp + (setq org-tag-faces + '(("LAPTOP" . (:foreground "PaleGreen")) + ("PERSONAL" . (:foreground "PaleGreen")) + ("WORK" . (:foreground "PaleGreen")) + ("NOTE" . (:foreground "PaleGreen")) + ("FLAGGED" . (:foreground "PaleGreen")))) #+END_SRC ** capture templates -TODO, use %a to link to calling buffer -TODO: add fast way to immediately schedule an event or appointment -TODO: add meeting template as scheduled+action item thing #+BEGIN_SRC emacs-lisp (setq org-capture-templates - (quote (("t" "todo" entry (file "~/Org/capture.org") "* TODO %?\n%U\n") - ("n" "note" entry (file "~/Org/capture.org") "* %? :NOTE:\n%U\n" ) - ("a" "appointment" entry (file "~/Org/capture.org") "* TODO %?\n%U\n%^t\n" ) - ("m" "multi-day" entry (file "~/Org/capture.org") "* TODO %?\n%U\n%^t--%^t\n" ) - ("d" "deadline" entry (file "~/Org/capture.org") "* TODO %?\nDEADLINE: %^t\n%U\n" ) - - ("j" "journal" entry (file+datetree "~/Org/diary.org") "* %?\n%U\n") - ("p" "org-protocol" entry (file+headline ,(concat org-directory "~/Org/capture.org") "Inbox") - "* %^{Title}\nSource: %u, %c\n #+BEGIN_QUOTE\n%i\n#+END_QUOTE\n\n\n%?") - ("L" "org-protocol" entry (file+headline ,(concat org-directory "~/Org/capture.org") "Inbox") - "* %? [[%:link][%:description]] \nCaptured On: %U") - ("h" "habit" entry (file "~/Org/capture.org") - "* NEXT %?\n%U\n%a\nSCHEDULED: %(format-time-string \"%<<%Y-%m-%d %a .+1d/3d>>\")\n:PROPERTIES:\n:STYLE: habit\n:REPEAT_TO_STATE: NEXT\n:END:\n")))) + '(("t" "todo" entry (file "~/Org/capture.org") "* TODO %?\n%U\n") + ("n" "note" entry (file "~/Org/capture.org") "* %? :NOTE:\n%U\n" ) + ("a" "appointment" entry (file "~/Org/capture.org") "* TODO %?\n%U\n%^t\n" ) + ("m" "multi-day" entry (file "~/Org/capture.org") "* TODO %?\n%U\n%^t--%^t\n" ) + ("d" "deadline" entry (file "~/Org/capture.org") "* TODO %?\nDEADLINE: %^t\n%U\n" ) + + ("j" "journal" entry (file+datetree "~/Org/diary.org") "* %?\n%U\n") + ("p" "org-protocol" entry (file+headline ,(concat org-directory "~/Org/capture.org") "Inbox") + "* %^{Title}\nSource: %u, %c\n #+BEGIN_QUOTE\n%i\n#+END_QUOTE\n\n\n%?") + ("L" "org-protocol" entry (file+headline ,(concat org-directory "~/Org/capture.org") "Inbox") + "* %? [[%:link][%:description]] \nCaptured On: %U") + ("h" "habit" entry (file "~/Org/capture.org") + "* NEXT %?\n%U\n%a\nSCHEDULED: %(format-time-string \"%<<%Y-%m-%d %a .+1d/3d>>\")\n:PROPERTIES:\n:STYLE: habit\n:REPEAT_TO_STATE: NEXT\n:END:\n"))) #+END_SRC ** refile *** targets @@ -457,7 +458,7 @@ TODO: add meeting template as scheduled+action item thing #+END_SRC *** node creation #+BEGIN_SRC emacs-lisp - (setq org-refile-allow-creating-parent-nodes (quote confirm)) + (setq org-refile-allow-creating-parent-nodes 'confirm) #+END_SRC *** use current window #+BEGIN_SRC emacs-lisp