Christopher James Hayward
3 years ago
2 changed files with 0 additions and 130 deletions
-
122early-init.el
-
8init.el
@ -1,122 +0,0 @@ |
|||||
;; This file is controlled by README.org |
|
||||
;; Please make any modifications there. |
|
||||
|
|
||||
;; The original value of `user-emacs-directory' prior to redirection. |
|
||||
(defconst dotfiles/home |
|
||||
(or (getenv "DOTFILES_HOME") |
|
||||
(expand-file-name user-emacs-directory))) |
|
||||
|
|
||||
;; The redirection target of `user-emacs-directory' during initialization. |
|
||||
(defconst dotfiles/cache |
|
||||
(or (getenv "DOTFILES_CACHE") |
|
||||
(expand-file-name "~/.cache/emacs"))) |
|
||||
|
|
||||
;; Make sure `dotfiles/cache' is a valid directory. |
|
||||
(unless (file-exists-p dotfiles/cache) |
|
||||
(make-directory dotfiles/cache t)) |
|
||||
|
|
||||
;; Redirect the value of `user-emacs-directory'. |
|
||||
(setq user-emacs-directory dotfiles/cache) |
|
||||
|
|
||||
;; Remove the eln-cache subdirectory. |
|
||||
(delete (expand-file-name "eln-cache" dotfiles/home) comp-eln-load-path) |
|
||||
|
|
||||
;; Add a new eln-cache folder. |
|
||||
(add-to-list 'comp-eln-load-path (expand-file-name "eln-cache" dotfiles/cache)) |
|
||||
|
|
||||
;; Disable error messages for packages that don't support native-comp. |
|
||||
(setq comp-async-report-warnings-errors nil) |
|
||||
|
|
||||
;; Disable unwanted features. |
|
||||
(setq make-backup-files nil |
|
||||
create-lockfiles nil) |
|
||||
|
|
||||
;; Apply the configurations prior to bootstrapping the package manager. |
|
||||
(setq straight-repository-branch "master" |
|
||||
straight-use-package-by-default t |
|
||||
package-enable-at-startup nil) |
|
||||
|
|
||||
;; BUGFIX https://github.com/raxod502/straight.el/issues/757 |
|
||||
(defvar native-comp-deferred-compilation-deny-list ()) |
|
||||
|
|
||||
;; Bootstrap the package manager. |
|
||||
(defvar bootstrap-version) |
|
||||
(let ((bootstrap-file |
|
||||
(expand-file-name "straight/repos/straight.el/bootstrap.el" user-emacs-directory)) |
|
||||
(bootstrap-version 5)) |
|
||||
(unless (file-exists-p bootstrap-file) |
|
||||
(with-current-buffer |
|
||||
(url-retrieve-synchronously |
|
||||
"https://raw.githubusercontent.com/raxod502/straight.el/develop/install.el" |
|
||||
'silent 'inhibit-cookies) |
|
||||
(goto-char (point-max)) |
|
||||
(eval-print-last-sexp))) |
|
||||
(load bootstrap-file nil 'nomessage)) |
|
||||
|
|
||||
;; Integrate with `use-package' by installing it via `straight'. |
|
||||
(straight-use-package 'use-package) |
|
||||
|
|
||||
;; Specify core package sources. |
|
||||
(straight-use-package 'no-littering) |
|
||||
(straight-use-package '(org :local-repo nil)) |
|
||||
|
|
||||
;; All of the modules available sorted in their default load order. |
|
||||
(defconst dotfiles/modules-p |
|
||||
'(trash keys org evil dired magit shell |
|
||||
emms mu4e elfeed eshell vterm gpg pass |
|
||||
x11 exwm roam agenda spelling grammar |
|
||||
reveal hugo capture projects docker |
|
||||
lsp dap cc go uml conf python fonts |
|
||||
nix ivy themes modeline dashboard)) |
|
||||
|
|
||||
;; All of the enabled modules. |
|
||||
(defvar dotfiles/modules dotfiles/modules-p) |
|
||||
|
|
||||
;; The default system language. |
|
||||
(defvar dotfiles/language (getenv "LANG")) |
|
||||
|
|
||||
;; Configure a unified system font. |
|
||||
(defvar dotfiles/font "Fira Code") |
|
||||
|
|
||||
;; Default system font size. |
|
||||
(defvar dotfiles/font-size 96) |
|
||||
|
|
||||
;; Delay time before offering suggestions and completions. |
|
||||
(defvar dotfiles/idle 0.0) |
|
||||
|
|
||||
;; The all powerful leader key. |
|
||||
(defvar dotfiles/leader-key "SPC") |
|
||||
|
|
||||
;; Global prefix for the leader key under X11 windows. |
|
||||
(defvar dotfiles/leader-key-global |
|
||||
(concat "C-" dotfiles/leader-key)) |
|
||||
|
|
||||
;; The location on disk of source code projects. |
|
||||
(defvar dotfiles/projects |
|
||||
(or (getenv "DOTFILES_PROJECTS") |
|
||||
(expand-file-name "~/.local/source"))) |
|
||||
|
|
||||
;; The location on disk of the local copy of the password store. |
|
||||
(defvar dotfiles/passwords |
|
||||
(or (getenv "DOTFILES_PASSWORDS") |
|
||||
(expand-file-name "~/.password-store"))) |
|
||||
|
|
||||
;; The public GPG key to encrpyt files, and emails for / to / with. |
|
||||
(defvar dotfiles/public-key "37AB1CB72B741E478CA026D43025DCBD46F81C0F") |
|
||||
|
|
||||
;; Load a host configuration. |
|
||||
(defun dotfiles/load-host (host-name) |
|
||||
"Load the host configuration file for the system `host-name'." |
|
||||
(interactive) |
|
||||
(let ((host-file (concat dotfiles/home "/hosts/" host-name ".org"))) |
|
||||
(when (file-exists-p host-file) |
|
||||
(org-babel-load-file host-file)))) |
|
||||
|
|
||||
;; Load a module definition. |
|
||||
(defun dotfiles/load-modules (modules) |
|
||||
"Load the `modules' in sequential order." |
|
||||
(interactive) |
|
||||
(dolist (m modules) |
|
||||
(let ((mod-file (concat dotfiles/home "/modules/" (symbol-name m) ".org"))) |
|
||||
(when (file-exists-p mod-file) |
|
||||
(org-babel-load-file mod-file))))) |
|
@ -1,8 +0,0 @@ |
|||||
;; This file is controlled by README.org |
|
||||
;; Please make any modifications there. |
|
||||
|
|
||||
;; Load the host configuration. |
|
||||
(dotfiles/load-host system-name) |
|
||||
|
|
||||
;; Load the enabled modules. |
|
||||
(dotfiles/load-modules dotfiles/modules) |
|
Write
Preview
Loading…
Cancel
Save
Reference in new issue