mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Re-enable wpc-org with direnv support

Browse source 
After moving some environment variables out of `~/.profile` and into a `.envrc`
file, I broke some of my modules because Emacs, which is started in
`~/.xsessionrc.shared`, is started from outside of the `.envrc` scope.

Thankfully someone wrote an excellent Emacs integration with `direnv` so now the
world keeps turning and it is even more beautiful than it was previously.
This commit is contained in:
William Carroll 2020-01-17 10:41:01 +00:00
parent 2108ee933a
commit e197dc5aba
2 changed files with 10 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
configs/shared/.emacs.d/wpc/packages/wpc-misc.el
View file

@ -90,6 +90,11 @@
;; alternative to help
(use-package helpful)
;; Emacs integration with direnv
(use-package direnv
:config
(direnv-mode))
;; Superior Elisp library for working with dates and times.
;; TODO: Put this where my other installations for dash.el, s.el, a.el, and
;; other utility Elisp libraries are located.

16
configs/shared/.emacs.d/wpc/packages/wpc-org.el
View file

@ -12,9 +12,10 @@
(require 'prelude)
(require 'f)
(require 'maybe)
;; TODO: Define function like env/set? to handle this.
(prelude/assert (f-exists? (getenv "ORG_DIRECTORY")))
(prelude/assert (and (maybe/some? (getenv "ORG_DIRECTORY"))
(f-exists? (getenv "ORG_DIRECTORY"))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Configuration
@ -22,29 +23,22 @@
;; TODO: figure out how to nest this in (use-package org ...)
(setq org-capture-templates
`(
("w" "work" entry (file+headline
`(("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 %? ")
))
"* TODO %? ")))
(evil-set-initial-state 'org-mode 'normal)