;; 

(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 "<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