Browse Source

Reverting back to loading org since it's not working

ivy
Raphael Roberts 7 years ago
parent
commit
777daf081f
  1. 27
      init.el

27
init.el

@ -13,26 +13,7 @@
(unless (package-installed-p package)
(package-install package)))
package-selected-packages)
(defvar org-init/settings.org-message-depth 4
"What depth of settings.org headers to message at startup.")
;;; init.el
(with-temp-buffer
(insert-file "~/.emacs.d/settings.org")
(goto-char (point-min))
(while (not (eobp))
(forward-line 1)
(cond
;; Report Headers
((looking-at
(format "\\*\\{2,%s\\} +.*$"
org-init/settings.org-message-depth))
(message "%s" (match-string 0)))
;; Evaluate Code Blocks
((looking-at "^#\\+BEGIN_SRC +emacs-lisp *$")
(let ((l (match-end 0)))
(search-forward "\n#+END_SRC")
(eval-region l (match-beginning 0))))
;; Finish on the next level-1 header
((looking-at "^\\* ")
(goto-char (point-max))))))
(require 'org)
(org-babel-load-file
(expand-file-name "settings.org"
user-emacs-directory))
Loading…
Cancel
Save