emacs: Modularize

1 files changed, 43 insertions, 0 deletions

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 "[email protected]")
+
+(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 "<escape>") '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