Cleanup Straight/Org Literate Loading
This commit is contained in:
20
init.el
20
init.el
@@ -3,6 +3,7 @@
|
||||
;; This file loads Org and then loads the rest of our Emacs initialization from Emacs lisp
|
||||
;; embedded in literate Org files.
|
||||
|
||||
(setq straight-check-for-modifications '(check-on-save find-when-checking))
|
||||
(defvar bootstrap-version)
|
||||
(let ((bootstrap-file
|
||||
(expand-file-name
|
||||
@@ -19,24 +20,11 @@
|
||||
(eval-print-last-sexp)))
|
||||
(load bootstrap-file nil 'nomessage))
|
||||
|
||||
(setq straight-vc-git-default-clone-depth '(1 single-branch)) ;; instead of the default 'full
|
||||
|
||||
(straight-use-package 'org)
|
||||
|
||||
;; Load up Org Mode and (now included) Org Babel for elisp embedded in Org Mode files
|
||||
(setq dotfiles-dir (file-name-directory (or (buffer-file-name) load-file-name)))
|
||||
|
||||
(let* ((org-dir (expand-file-name
|
||||
"lisp" (expand-file-name
|
||||
"org" (expand-file-name
|
||||
"src" dotfiles-dir))))
|
||||
(org-contrib-dir (expand-file-name
|
||||
"lisp" (expand-file-name
|
||||
"contrib" (expand-file-name
|
||||
".." org-dir))))
|
||||
(load-path (append (list org-dir org-contrib-dir)
|
||||
(or load-path nil))))
|
||||
;; load up Org and Org-babel
|
||||
(require 'org)
|
||||
(require 'ob-tangle))
|
||||
(setq dotfiles-dir (file-name-directory (or (buffer-file-name) load-file-name)))
|
||||
|
||||
;; load up all literate org-mode files in this directory
|
||||
(mapc #'org-babel-load-file (directory-files dotfiles-dir t "\\.org$"))
|
||||
|
||||
Reference in New Issue
Block a user