awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases Wiki Activity

Make bootstrap.el byte-compile-friendly

Browse Source
This commit is contained in:
Henrik Lissner
2016-02-26 00:08:57 -05:00
parent b78d210ace
commit 591ed6e7a3
1 changed files with 17 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
bootstrap.el
View File

@ -1,22 +1,23 @@
;;; bootstrap.el ;;; bootstrap.el
(defconst narf-emacs-dir user-emacs-directory) (eval-and-compile
(defconst narf-core-dir (concat narf-emacs-dir "core/")) (defconst narf-emacs-dir user-emacs-directory)
(defconst narf-modules-dir (concat narf-emacs-dir "modules/")) (defconst narf-core-dir (concat narf-emacs-dir "core/"))
(defconst narf-private-dir (concat narf-emacs-dir "private/")) (defconst narf-modules-dir (concat narf-emacs-dir "modules/"))
(defconst narf-packages-dir (concat narf-emacs-dir ".cask/" emacs-version "/elpa/")) (defconst narf-private-dir (concat narf-emacs-dir "private/"))
(defconst narf-script-dir (concat narf-emacs-dir "scripts/")) (defconst narf-packages-dir (concat narf-emacs-dir ".cask/" emacs-version "/elpa/"))
(defconst narf-snippet-dirs (list (concat narf-private-dir "snippets/") (defconst narf-script-dir (concat narf-emacs-dir "scripts/"))
(concat narf-private-dir "templates/"))) (defconst narf-snippet-dirs (list (concat narf-private-dir "snippets/")
;; Hostname and emacs version-based elisp temp directories (concat narf-private-dir "templates/")))
(defconst narf-temp-dir ;; Hostname and emacs version-based elisp temp directories
(format "%scache/%s/%s.%s/" (defconst narf-temp-dir
narf-private-dir (system-name) (format "%scache/%s/%s.%s/"
emacs-major-version emacs-minor-version)) narf-private-dir (system-name)
emacs-major-version emacs-minor-version))
(defconst IS-MAC (eq system-type 'darwin)) (defconst IS-MAC (eq system-type 'darwin))
(defconst IS-LINUX (eq system-type 'gnu/linux)) (defconst IS-LINUX (eq system-type 'gnu/linux))
(defconst IS-WINDOWS (eq system-type 'windows-nt)) (defconst IS-WINDOWS (eq system-type 'windows-nt)))
;; Global settings ;; Global settings
(scroll-bar-mode -1) ; no scrollbar (scroll-bar-mode -1) ; no scrollbar