modded some keymaps and tags faces

This commit is contained in:
petrucci4prez 2018-04-08 01:10:01 -04:00
parent e114a114d2
commit 8cde66d303
2 changed files with 68 additions and 65 deletions

36
conf.el
View File

@ -65,6 +65,10 @@
(global-set-key (kbd "C-h a") 'apropos) (global-set-key (kbd "C-h a") 'apropos)
(global-set-key (kbd "<f1>") 'org-agenda)
(global-set-key (kbd "<f2>") 'org-capture)
(global-set-key (kbd "<f3>") 'org-iswitchb)
(use-package delight (use-package delight
:ensure t) :ensure t)
@ -239,20 +243,13 @@
(add-to-list 'org-structure-template-alist (add-to-list 'org-structure-template-alist
'("el" "#+BEGIN_SRC emacs-lisp\n?\n#+END_SRC")) '("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-a/e t)
(setq org-special-ctrl-k t) (setq org-special-ctrl-k t)
(setq org-yank-adjusted-subtrees t) (setq org-yank-adjusted-subtrees t)
(setq org-todo-keywords (setq org-todo-keywords
(quote ((sequence "TODO(t)" "NEXT(n)" "|" "DONE(d)") '((sequence "TODO(t)" "NEXT(n)" "|" "DONE(d)")
(sequence "WAITING(w@/!)" "HOLD(h@/!)" "|" "CANCELLED(c@/!)")))) (sequence "WAITING(w@/!)" "HOLD(h@/!)" "|" "CANCELLED(c@/!)")))
(setq org-todo-keyword-faces (setq org-todo-keyword-faces
(quote (("TODO" :foreground "light coral" :weight bold) (quote (("TODO" :foreground "light coral" :weight bold)
@ -264,21 +261,26 @@
(setq org-tag-alist (quote ((:startgroup) (setq org-tag-alist (quote ((:startgroup)
("@errand" . ?e) ("@errand" . ?e)
("@work" . ?o) ("@work" . ?w)
("@home" . ?h) ("@home" . ?h)
("@travel" . ?f) ("@travel" . ?f)
(:endgroup) (:endgroup)
("LAPTOP" . ?L) ("LAPTOP" . ?L)
("WAITING" . ?W)
("HOLD" . ?H)
("PERSONAL" . ?P) ("PERSONAL" . ?P)
("WORK" . ?O) ("WORK" . ?W)
("NOTE" . ?N) ("NOTE" . ?N)
("CANCELLED" . ?C)
("FLAGGED" . ??)))) ("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"))))
(setq org-capture-templates (setq org-capture-templates
(quote (("t" "todo" entry (file "~/Org/capture.org") "* TODO %?\n%U\n") '(("t" "todo" entry (file "~/Org/capture.org") "* TODO %?\n%U\n")
("n" "note" entry (file "~/Org/capture.org") "* %? :NOTE:\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" ) ("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" ) ("m" "multi-day" entry (file "~/Org/capture.org") "* TODO %?\n%U\n%^t--%^t\n" )
@ -290,7 +292,7 @@
("L" "org-protocol" entry (file+headline ,(concat org-directory "~/Org/capture.org") "Inbox") ("L" "org-protocol" entry (file+headline ,(concat org-directory "~/Org/capture.org") "Inbox")
"* %? [[%:link][%:description]] \nCaptured On: %U") "* %? [[%:link][%:description]] \nCaptured On: %U")
("h" "habit" entry (file "~/Org/capture.org") ("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")))) "* 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) (setq org-refile-targets (quote ((nil :maxlevel . 9)
("~/Org/reference/idea.org" :maxlevel . 9) ("~/Org/reference/idea.org" :maxlevel . 9)
@ -300,7 +302,7 @@
(setq org-outline-path-complete-in-steps nil) (setq org-outline-path-complete-in-steps nil)
(setq org-completion-use-ido t) (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) (setq org-indirect-buffer-display 'current-window)

View File

@ -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)))) (setq dashboard-items '((recents . 10))))
#+END_SRC #+END_SRC
* keybindings * keybindings
** apropros ** overrides
#+BEGIN_SRC emacs-lisp #+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 "<f1>") 'org-agenda)
(global-set-key (kbd "<f2>") 'org-capture)
(global-set-key (kbd "<f3>") 'org-iswitchb)
#+END_SRC #+END_SRC
* printing * printing
** **
@ -373,15 +380,6 @@ vim is all about escape, not...ctrl+g???
'("el" "#+BEGIN_SRC emacs-lisp\n?\n#+END_SRC")) '("el" "#+BEGIN_SRC emacs-lisp\n?\n#+END_SRC"))
#+END_SRC #+END_SRC
** keyboard shortcuts ** 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 *** navigation
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(setq org-special-ctrl-a/e t) (setq org-special-ctrl-a/e t)
@ -392,8 +390,8 @@ vim is all about escape, not...ctrl+g???
*** sequences *** sequences
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(setq org-todo-keywords (setq org-todo-keywords
(quote ((sequence "TODO(t)" "NEXT(n)" "|" "DONE(d)") '((sequence "TODO(t)" "NEXT(n)" "|" "DONE(d)")
(sequence "WAITING(w@/!)" "HOLD(h@/!)" "|" "CANCELLED(c@/!)")))) (sequence "WAITING(w@/!)" "HOLD(h@/!)" "|" "CANCELLED(c@/!)")))
#+END_SRC #+END_SRC
*** colors *** colors
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
@ -405,30 +403,33 @@ vim is all about escape, not...ctrl+g???
("HOLD" :foreground "violet" :weight bold) ("HOLD" :foreground "violet" :weight bold)
("CANCELLED" :foreground "deep sky blue" :weight bold)))) ("CANCELLED" :foreground "deep sky blue" :weight bold))))
#+END_SRC #+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 #+BEGIN_SRC emacs-lisp
(setq org-tag-alist (quote ((:startgroup) (setq org-tag-alist (quote ((:startgroup)
("@errand" . ?e) ("@errand" . ?e)
("@work" . ?o) ("@work" . ?w)
("@home" . ?h) ("@home" . ?h)
("@travel" . ?f) ("@travel" . ?f)
(:endgroup) (:endgroup)
("LAPTOP" . ?L) ("LAPTOP" . ?L)
("WAITING" . ?W)
("HOLD" . ?H)
("PERSONAL" . ?P) ("PERSONAL" . ?P)
("WORK" . ?O) ("WORK" . ?W)
("NOTE" . ?N) ("NOTE" . ?N)
("CANCELLED" . ?C)
("FLAGGED" . ??)))) ("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 #+END_SRC
** capture templates ** 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 #+BEGIN_SRC emacs-lisp
(setq org-capture-templates (setq org-capture-templates
(quote (("t" "todo" entry (file "~/Org/capture.org") "* TODO %?\n%U\n") '(("t" "todo" entry (file "~/Org/capture.org") "* TODO %?\n%U\n")
("n" "note" entry (file "~/Org/capture.org") "* %? :NOTE:\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" ) ("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" ) ("m" "multi-day" entry (file "~/Org/capture.org") "* TODO %?\n%U\n%^t--%^t\n" )
@ -440,7 +441,7 @@ TODO: add meeting template as scheduled+action item thing
("L" "org-protocol" entry (file+headline ,(concat org-directory "~/Org/capture.org") "Inbox") ("L" "org-protocol" entry (file+headline ,(concat org-directory "~/Org/capture.org") "Inbox")
"* %? [[%:link][%:description]] \nCaptured On: %U") "* %? [[%:link][%:description]] \nCaptured On: %U")
("h" "habit" entry (file "~/Org/capture.org") ("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")))) "* 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 #+END_SRC
** refile ** refile
*** targets *** targets
@ -457,7 +458,7 @@ TODO: add meeting template as scheduled+action item thing
#+END_SRC #+END_SRC
*** node creation *** node creation
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(setq org-refile-allow-creating-parent-nodes (quote confirm)) (setq org-refile-allow-creating-parent-nodes 'confirm)
#+END_SRC #+END_SRC
*** use current window *** use current window
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp