blob: f6e6032311023569285530aceb84475f66efcd59 (
about) (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
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
|
