modded some keymaps and tags faces
This commit is contained in:
petrucci4prez
parent
e114a114d2
commit
8cde66d303
60
conf.el
60
conf.el
|
|
@ -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)
|
||||||
|
|
||||||
|
|
@ -226,7 +230,7 @@
|
||||||
(load "ess-site")
|
(load "ess-site")
|
||||||
(setq ess-history-file "session.Rhistory")
|
(setq ess-history-file "session.Rhistory")
|
||||||
(setq ess-history-directory
|
(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-log-done t)
|
||||||
(setq org-src-window-setup 'current-window)
|
(setq org-src-window-setup 'current-window)
|
||||||
|
|
@ -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,33 +261,38 @@
|
||||||
|
|
||||||
(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" . ??))))
|
||||||
|
|
||||||
(setq org-capture-templates
|
;; TODO I'm sure there is a better way to do this in lisp
|
||||||
(quote (("t" "todo" entry (file "~/Org/capture.org") "* TODO %?\n%U\n")
|
(setq org-tag-faces
|
||||||
("n" "note" entry (file "~/Org/capture.org") "* %? :NOTE:\n%U\n" )
|
'(("LAPTOP" . (:foreground "PaleGreen"))
|
||||||
("a" "appointment" entry (file "~/Org/capture.org") "* TODO %?\n%U\n%^t\n" )
|
("PERSONAL" . (:foreground "PaleGreen"))
|
||||||
("m" "multi-day" entry (file "~/Org/capture.org") "* TODO %?\n%U\n%^t--%^t\n" )
|
("WORK" . (:foreground "PaleGreen"))
|
||||||
("d" "deadline" entry (file "~/Org/capture.org") "* TODO %?\nDEADLINE: %^t\n%U\n" )
|
("NOTE" . (:foreground "PaleGreen"))
|
||||||
|
("FLAGGED" . (:foreground "PaleGreen"))))
|
||||||
|
|
||||||
("j" "journal" entry (file+datetree "~/Org/diary.org") "* %?\n%U\n")
|
(setq org-capture-templates
|
||||||
("p" "org-protocol" entry (file+headline ,(concat org-directory "~/Org/capture.org") "Inbox")
|
'(("t" "todo" entry (file "~/Org/capture.org") "* TODO %?\n%U\n")
|
||||||
"* %^{Title}\nSource: %u, %c\n #+BEGIN_QUOTE\n%i\n#+END_QUOTE\n\n\n%?")
|
("n" "note" entry (file "~/Org/capture.org") "* %? :NOTE:\n%U\n" )
|
||||||
("L" "org-protocol" entry (file+headline ,(concat org-directory "~/Org/capture.org") "Inbox")
|
("a" "appointment" entry (file "~/Org/capture.org") "* TODO %?\n%U\n%^t\n" )
|
||||||
"* %? [[%:link][%:description]] \nCaptured On: %U")
|
("m" "multi-day" entry (file "~/Org/capture.org") "* TODO %?\n%U\n%^t--%^t\n" )
|
||||||
("h" "habit" entry (file "~/Org/capture.org")
|
("d" "deadline" entry (file "~/Org/capture.org") "* TODO %?\nDEADLINE: %^t\n%U\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"))))
|
|
||||||
|
("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)
|
(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)
|
||||||
|
|
||||||
|
|
|
||||||
73
conf.org
73
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))))
|
(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,42 +403,45 @@ 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" )
|
||||||
("d" "deadline" entry (file "~/Org/capture.org") "* TODO %?\nDEADLINE: %^t\n%U\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")
|
("j" "journal" entry (file+datetree "~/Org/diary.org") "* %?\n%U\n")
|
||||||
("p" "org-protocol" entry (file+headline ,(concat org-directory "~/Org/capture.org") "Inbox")
|
("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%?")
|
"* %^{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")
|
("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
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue