From 8efa6f3f1db166d30a4eb38780f6c47855c51439 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Sun, 3 Sep 2023 17:05:49 +0300 Subject: emacs: Modularize --- .emacs.d/init.el | 43 +++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 43 insertions(+) create mode 100644 .emacs.d/init.el (limited to '.emacs.d/init.el') diff --git a/.emacs.d/init.el b/.emacs.d/init.el new file mode 100644 index 0000000..f6e6032 --- /dev/null +++ b/.emacs.d/init.el @@ -0,0 +1,43 @@ +;; + +(setf user-full-name "Thanos Apollo" + user-mail-address "public@thanosapollo.com") + +(defvar is-zeus (equal (system-name) "zeus")) +(defvar is-hermes (equal (system-name) "hermes")) +(defvar is-phone (equal (system-name) "localhost")) + +(setf browse-url-browser-function 'browse-url-generic + browse-url-generic-program "firefox") + +(setf backup-directory-alist '((".*" . "~/.Trash"))) + +(define-prefix-command 'thanos/applications-map) +(global-set-key (kbd "C-c a") 'thanos/applications-map) + +(define-prefix-command 'Create) +(define-key thanos/applications-map (kbd "C-c") 'Create) + +;;(global-set-key (kbd "") 'keyboard-escape-quit) ; + +;; custom themes +(add-to-list 'custom-theme-load-path (expand-file-name "~/.emacs.d/themes/")) + +(require 'cl-lib) + +(defun thanos/load-modules () + "." + (let* ((modules-dir (concat user-emacs-directory "modules")) + (modules (cl-remove-if-not + (lambda (file) (string-suffix-p ".el" file)) + (directory-files modules-dir t)))) + (dolist (module modules) + (when (not (string-match-p "#" module)) + (load module))))) + + +(thanos/load-modules) + + + +;;; init.el ends here -- cgit v1.2.3