.emacs

;; -*- Mode: Emacs-Lisp -*-
;;
;; GNU emacs startup file
;; Adam Spiers
;;

;; Stop Red Hat trampling over my nice config :-(
(setq inhibit-default-init t)

;; Duplicated in as-pre-init-d to allow standalone byte-compilation
(defvar edotdir
  (or (getenv "ZDOTDIR") "~")
  "Home directory to be used to retrieve emacs init files.")

(setq user-emacs-directory (expand-file-name ".emacs.d" edotdir))

(defvar as-init-d-suffix ".emacs.d/init.d")
(message "Using emacs config from %s" edotdir)
(load (concat edotdir "/" as-init-d-suffix "/as-pre-init-d"))

(require 'cl) ;; for remove-if-not
(defun as-find-hooks (hook-name)
  "Uses $ZDOT_FIND_HOOKS to return a list of hooks for `hook-name'."
  (let* ((lines (split-string
                 (shell-command-to-string (concat ". $ZDOT_FIND_HOOKS " hook-name))
                 "\n"
                 'omit-nulls))
         (files (remove-if-not (lambda (file) (string-match "\\.el\\'" file)) lines)))
    (mapcar
     ;; trim .el from end to allow `load' to use byte-compiled form
     (lambda (file)
       (if (string-match "\\.el\\'" file)
           (replace-match "" nil t file)
         file))
         files)))

;; Call (package-initialize) exactly when we want (actually never, because
;; we're using straight.el now).
(setq package-enable-at-startup nil)

(defun as-load-hooks (hook-name)
  "Load hooks found by `as-find-hooks'."
  (dolist (hook-file (as-find-hooks hook-name))
    (as-load-hook hook-file)))

(defun as-load-hook (hook-file)
  "Load the given hook file."
  (let ((feature (intern (file-name-nondirectory hook-file))))
    (as-progress "loading %s... " (abbreviate-file-name hook-file))
    (let ((loaded (require feature hook-file)))
      (as-progress
       (if loaded "loading %s... done" "ERROR: failed to load %s")
       (abbreviate-file-name hook-file)))
    ;; Canary for forward-word weirdness
    ;; https://gist.github.com/aspiers/775ce717bd06d43d7adb
    ;;
    ;; (with-current-buffer (find-file "~/.emacs")
    ;;   (goto-char (point-min))
    ;;   (forward-word))
    ))

(unless (or (getenv "EMACS_BATCH") (getenv "DEBUG_EMACS_INIT"))
  (as-load-hooks as-init-d-suffix))

(as-progress "end of ~/.emacs")