steveandgitadmin
02a5e0df28
Remove all org files using a new script to more config over, The old org file configuaration were great but required org. This new version only requires the scripts that is included in the repo. The configuration are all done but have not ported the theming system yet. Signed-off-by: Steve Beaulac <steve@sagacity.ca> Change-Id: I14cd7fe058a71c8ba9d6d35397dc8d7e6a6a6964
34 lines
1.1 KiB
EmacsLisp
34 lines
1.1 KiB
EmacsLisp
;;;; pre-init.el --- Init -*- no-byte-compile: t; lexical-binding: t; -*-
|
|
|
|
;; handle emacs server
|
|
(defun server-already-running-p ()
|
|
"Is Emacs already running?"
|
|
(or (file-exists-p (format "/tmp/emacs%s/server" (user-uid)))
|
|
(file-exists-p (format "/run/user/%s/snap.emacs/emacs/server" (user-uid)))
|
|
(file-exists-p (format "/run/user/%s/emacs/server" (user-uid)))))
|
|
|
|
(defun server-shunt ()
|
|
"Shunts to emacsclient"
|
|
(let ((args (append '("emacsclient" "-a" "\"\"" "-c" "-n")
|
|
(cdr command-line-args))))
|
|
(shell-command (substring (format "%S" args) 1 -1))
|
|
(kill-emacs)))
|
|
|
|
;; restart with emacsclient if server is running
|
|
(unless (featurep 'server)
|
|
(if (server-already-running-p) (server-shunt) (server-start)))
|
|
|
|
(fset 'epg-wait-for-status 'ignore)
|
|
(fset 'epg-pinentry-mode 'loopback)
|
|
;;(fset 'epg-debug t)
|
|
|
|
(require 'package)
|
|
(require 'xdg)
|
|
|
|
(setq package-user-dir (expand-file-name "emacs/elpa" (xdg-cache-home)))
|
|
|
|
;; make sure the elpa/ folder exists after setting it above.
|
|
(unless (file-exists-p package-user-dir)
|
|
(mkdir package-user-dir t))
|
|
|
|
(provide 'pre-init) |