diff --git a/config.org b/config.org index a741fc1..6eceba6 100644 --- a/config.org +++ b/config.org @@ -1,7 +1,7 @@ #+TITLE: Emacs configuration file #+AUTHOR: Marc #+BABEL: :cache yes -#+PROPERTY: header-args :tangle yes +#+PROPERTY: header-args :tangle init.el #+OPTIONS: ^:nil * TODOS - early-init.el? What to outsource here? @@ -39,7 +39,7 @@ These functions updates config.el whenever changes in config.org are made. The u (defun my/tangle-config () "Export code blocks from the literate config file." (interactive) - ;; prevent emacs from killing until tangle-process finished + ;; prevent emacs from killing until tangle-process has finished (add-to-list 'kill-emacs-query-functions (lambda () (or (not (process-live-p (get-process "tangle-process"))) @@ -56,21 +56,6 @@ These functions updates config.el whenever changes in config.org are made. The u (defun my--add-local-hook (hook function) "Add buffer-local hook." (add-hook hook function :local t)) - -;; (defun my/async-process (command &optional name filter) -;; "Start an async process by running the COMMAND string with bash. Return the -;; process object for it. - -;; NAME is name for the process. Default is \"async-process\". - -;; FILTER is function that runs after the process is finished, its args should be -;; \"(process output)\". Default is just messages the output." -;; (make-process -;; :command `("bash" "-c" ,command) -;; :name (if name name -;; "async-process") -;; :filter (if filter filter -;; (lambda (process output) (message output))))) #+END_SRC A small function to measure start up time.