|
@ -1,7 +1,7 @@ |
|
|
#+TITLE: Emacs configuration file |
|
|
#+TITLE: Emacs configuration file |
|
|
#+AUTHOR: Marc |
|
|
#+AUTHOR: Marc |
|
|
#+BABEL: :cache yes |
|
|
#+BABEL: :cache yes |
|
|
#+PROPERTY: header-args :tangle yes |
|
|
|
|
|
|
|
|
#+PROPERTY: header-args :tangle init.el |
|
|
#+OPTIONS: ^:nil |
|
|
#+OPTIONS: ^:nil |
|
|
* TODOS |
|
|
* TODOS |
|
|
- early-init.el? What to outsource here? |
|
|
- 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 () |
|
|
(defun my/tangle-config () |
|
|
"Export code blocks from the literate config file." |
|
|
"Export code blocks from the literate config file." |
|
|
(interactive) |
|
|
(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 |
|
|
(add-to-list 'kill-emacs-query-functions |
|
|
(lambda () |
|
|
(lambda () |
|
|
(or (not (process-live-p (get-process "tangle-process"))) |
|
|
(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) |
|
|
(defun my--add-local-hook (hook function) |
|
|
"Add buffer-local hook." |
|
|
"Add buffer-local hook." |
|
|
(add-hook hook function :local t)) |
|
|
(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 |
|
|
#+END_SRC |
|
|
|
|
|
|
|
|
A small function to measure start up time. |
|
|
A small function to measure start up time. |
|
|