Created essential file, which configures defaults emacs behavior.

1 files changed, 14 insertions, 66 deletions

diff --git a/.config/emacs/init.el b/.config/emacs/init.el
index e312bca..762e5b1 100644
--- a/.config/emacs/init.el
+++ b/.config/emacs/init.el
@@ -1,24 +1,11 @@
 ;; -*- lexical-binding: t; -*-
 
 
-(require 'package)
-(add-to-list 'load-path "/home/bdunahu/.guix-profile/share/emacs/site-lisp")
-(guix-emacs-autoload-packages)
-
-(require 'use-package-ensure)
-(setq use-package-always-ensure t)
-;; (setq use-package-verbose t) ; for debugging
-
-
 ;; reduce the frequency of garbage collection by making it happen on
 ;; each 50MB of allocated data (the default is on every 0.76MB)
-(setq gc-cons-threshold 50000000)
-
-(setenv "PATH" (format "%s:%s" "/home/bdunahu/Personal/scripts/" (getenv "PATH")))
+(setopt gc-cons-threshold 50000000)
 
-;;; do not store customized setting (automatic) here
-(setq custom-file "/home/bdunahu/.config/emacs/custom.el")
-(load custom-file t)
+(load (expand-file-name "$HOME/.config/emacs/bd-essential.el"))
 
 (defun request-sudo ()
   "Uses TRAMP to edit currently opened file as root."
@@ -46,16 +33,9 @@ open URL at point."
 (defun clamp (lower-bound upper-bound value)
   (max lower-bound (min value upper-bound)))
 
-(defun remote-shell ()
-  (interactive)
-  (let ((default-directory "/ssh:bdunahu@perch.cs.colostate.edu:"))
-    (shell)))
-
-(global-unset-key (kbd "C-z"))
-
-(load "/home/bdunahu/.config/emacs/bd-org.el")
-(load "/home/bdunahu/.config/emacs/bd-emms.el")
-(load "/home/bdunahu/.config/emacs/bd-development.el")
+(load (expand-file-name "$HOME/.config/emacs/bd-org.el"))
+(load (expand-file-name "$HOME/.config/emacs/bd-emms.el"))
+(load (expand-file-name "$HOME/.config/emacs/bd-development.el"))
 
 (use-package newsticker
   :demand t
@@ -82,34 +62,15 @@ open URL at point."
                        ("TECH" ("GNU/Linux" "Arch Linux: Recent news updates" "Parabola GNU/Linux-libre: Recent news updates") "suckless.org news")
                        ("VIDEO" "Mental Outlaw" "Luke Smith" "Brent Westbrook" "Bugswriter" "Protesilaos Stravrou"))))
 
-(setq erc-server "irc.libera.chat"
-      erc-nick "Isaz"
-      erc-user-full-name "bd"
-      erc-kill-buffer-on-part t
-      erc-autojoin-channels-alist '(("irc.libera.char" "#parabola" "#emacs")))
+(setopt erc-server "irc.libera.chat"
+	erc-nick "Isaz"
+	erc-user-full-name "bd"
+	erc-kill-buffer-on-part t
+	erc-autojoin-channels-alist '(("irc.libera.char" "#parabola" "#emacs")))
 (defalias 'erc 'erc-tls)
 
 ;; dired
-(setq dired-listing-switches "-alh")
-
-(setq inhibit-startup-message t)
-(menu-bar-mode -1)
-(tool-bar-mode -1)
-(scroll-bar-mode -1)
-
-;; move backups to tmp folder
-(setq backup-directory-alist `(("." . ,(expand-file-name "tmp/backups/" user-emacs-directory))))
-(make-directory (expand-file-name "tmp/auto_saves/" user-emacs-directory) t)
-;; move auto-saves to tmp folder
-(setq auto-save-list-file-prefix (expand-file-name "tmp/auto_saves/sessions/" user-emacs-directory)
-      auto-save-file-transforms `((".*" ,(expand-file-name "tmp/auto_saves/" user-emacs-directory) t)))
-
-(setq scroll-up-aggressively '0.0
-      scroll-down-aggressively '0.0)
-
-(global-auto-revert-mode 1)
-
-(setq fit-window-to-buffer-horizontally t)
+(setopt dired-listing-switches "-alh")
 
 (use-package vertico
   :init
@@ -117,23 +78,10 @@ open URL at point."
   :custom
   (vertico-cycle t))
 
-;; allow one side window per side of frame
-(setq window-sides-slots '(1 1 1 1))
-
-(global-unset-key (kbd "C-x C-z")) ; unbind suspend-frame--terrible spot for binding
-
 ;; dired
 (global-set-key (kbd "C-z d") 'dired-jump)
 
-;; text-scale
-(global-set-key (kbd "C-z =") 'text-scale-increase)
-(global-set-key (kbd "C-z -") 'text-scale-decrease)
-
-(load "/home/bdunahu/.config/emacs/bd-wm.el")
-(load "/home/bdunahu/.config/emacs/bd-mode-and-themes.el")
-
-(setq gc-cons-threshold 800000)
+(load (expand-file-name "$HOME/.config/emacs/bd-wm.el"))
+(load (expand-file-name "$HOME/.config/emacs/bd-mode-and-themes.el"))
 
-;; packages to consider:
-;;; pydocs
-;;; yasnippit
+(setopt gc-cons-threshold 800000)