dd9db4e318
Instead of keeping this in my ~/.profile, I'm going to define it in .envrc. What I still don't know is how functions like `getenv` are supposed to interact with direnv. I suppose maybe they aren't? Right now, when I call `(getenv "DOTFILES")` from Emacs, it's `nil`, which I understand. Hopefully the more I use direnv, the more reasonable expectations I'll have.
79 lines
2.7 KiB
EmacsLisp
79 lines
2.7 KiB
EmacsLisp
;;; org.el --- My org preferences -*- lexical-binding: t -*-
|
|
;; Author: William Carroll <wpcarro@gmail.com>
|
|
|
|
;;; Commentary:
|
|
;; Hosts my org mode preferences
|
|
|
|
;;; Code:
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; Dependencies
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(require 'prelude)
|
|
(require 'f)
|
|
|
|
;; TODO: Define function like env/set? to handle this.
|
|
(prelude/assert (f-exists? (getenv "ORG_DIRECTORY")))
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; Configuration
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
;; 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
|