7ae17daa98
While I first switched to EXWM warily and thinking it would only be temporary, it seems like this switch is here to stay. It turns out that EXWM was exactly the integration I've been looking for. How serendipitous it that I found it when I did. Thank you, @tazjin.
64 lines
2.2 KiB
EmacsLisp
64 lines
2.2 KiB
EmacsLisp
;;; org.el --- My org preferences -*- lexical-binding: t -*-
|
|
;; Author: William Carroll <wpcarro@gmail.com>
|
|
|
|
;;; Commentary:
|
|
;; Hosts my org mode preferences
|
|
|
|
;;; Code:
|
|
|
|
;; TODO: figure out how to nest this in (use-package org ...)
|
|
(setq org-capture-templates
|
|
`(
|
|
|
|
("w" "work" entry (file+headline
|
|
,(f-join (getenv "ORG_DIRECTORY") "work.org")
|
|
"Tasks")
|
|
"* TODO %?")
|
|
|
|
("p" "personal" entry (file+headline
|
|
,(f-join (getenv "ORG_DIRECTORY") "personal.org")
|
|
"Tasks")
|
|
"* TODO %? ")
|
|
|
|
("i" "ideas" entry (file+headline
|
|
,(f-join (getenv "ORG_DIRECTORY") "ideas.org")
|
|
"Tasks")
|
|
"* %? ")
|
|
|
|
("s" "shopping list" entry (file+headline
|
|
,(f-join (getenv "ORG_DIRECTORY") "shopping.org")
|
|
"Items")
|
|
"* TODO %? ")
|
|
|
|
))
|
|
(evil-set-initial-state 'org-mode 'normal)
|
|
|
|
(use-package org
|
|
:config
|
|
(general-add-hook 'org-mode-hook
|
|
;; TODO: consider supporting `(disable (list linum-mode company-mode))'
|
|
(list (disable linum-mode)
|
|
(disable company-mode)))
|
|
(general-define-key :prefix "C-c"
|
|
"l" #'org-store-link
|
|
"a" #'org-agenda
|
|
"c" #'org-capture)
|
|
(setq org-startup-folded nil)
|
|
(setq org-todo-keywords
|
|
'((sequence "TODO" "BLOCKED" "DONE")))
|
|
(setq org-default-notes-file (f-join (getenv "ORG_DIRECTORY") "notes.org"))
|
|
(setq org-agenda-files (list (f-join (getenv "ORG_DIRECTORY") "work.org")
|
|
(f-join (getenv "ORG_DIRECTORY") "personal.org")))
|
|
;; TODO: troubleshoot why `wpc/kbds-minor-mode', `wpc/ensure-kbds' aren't
|
|
;; enough to override the following KBDs. See this discussion for more context
|
|
;; on where the idea came from:
|
|
;; https://stackoverflow.com/questions/683425/globally-override-key-binding-in-emacs
|
|
(general-unbind 'normal org-mode-map "M-h" "M-j" "M-k" "M-l"))
|
|
|
|
(use-package org-bullets
|
|
:after (org)
|
|
:config
|
|
(general-add-hook 'org-mode-hook (enable org-bullets-mode)))
|
|
|
|
(provide 'wpc-org)
|
|
;;; wpc-org.el ends here
|