From 4205b3cbdeaf8c9ed8ecfeba0d3104c8811f7f8b Mon Sep 17 00:00:00 2001 From: Christopher James Hayward Date: Mon, 14 Jun 2021 20:37:44 -0400 Subject: [PATCH] Delete Emacs init files --- early-init.el | 122 -------------------------------------------------- init.el | 8 ---- 2 files changed, 130 deletions(-) delete mode 100644 early-init.el delete mode 100644 init.el diff --git a/early-init.el b/early-init.el deleted file mode 100644 index ab3a54f..0000000 --- a/early-init.el +++ /dev/null @@ -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))))) diff --git a/init.el b/init.el deleted file mode 100644 index 1ee91bc..0000000 --- a/init.el +++ /dev/null @@ -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)