Updated init.el

misc/init.el

@@ -5,9 +5,10 @@
 ;;;; Index:
 
 ;;; Section One - Packageless Configurations
-;;; Subsection 1.1 - GUI
+;;; Subsection 1.1 - Basic includes
-;;; Subsection 1.2 - Functions and Bindings
+;;; Subsection 1.2 - GUI
-;;; Subsection 1.3 - Backend
+;;; Subsection 1.3 - Functions and Bindings
+;;; Subsection 1.4 - Backend
 ;;;
 ;;; Section Two - Package-required Configurations
 ;;; Subsection 2.1 - GUI
@@ -20,19 +21,33 @@
 
 ;; Subsection 1.1
 
+(use-package eww)
+(use-package help-mode)
+(use-package woman)
+(use-package org)
+
+;; Subsection 1.2
+
 ;; Default theme.
-;(load-theme `solarized-light t)
+;;(load-theme `modus-operandi t)
+(add-hook 'server-after-make-frame-hook '(lambda () (load-theme 'modus-operandi t)))					;This is a workaround for Solaire Mode.
+
+
 
 ;; Fonts and faces.
-;;(set-frame-font "Iosevka-13")
 (custom-set-faces
+ ;; custom-set-faces was added by Custom.
+ ;; If you edit it by hand, you could mess it up, so be careful.
+ ;; Your init file should contain only one such instance.
+ ;; If there is more than one, they won't work right.
  '(default ((t (:family "Iosevka" :foundry "UKWN" :slant normal :weight normal :height 120 :width normal)))))
 
-;(set-frame-font "Iosevka Regular-13" nil t)
-
 ;; ’y’ or ’n’ is fine
 (fset 'yes-or-no-p 'y-or-n-p)
 
+;; Override x-popup-menu
+(fset `x-popup-menu `ace-popup-menu)
+
 ;; Inhibit the GNU information startup dialog.
 (setq inhibit-startup-message t)
 
@@ -57,10 +72,32 @@
 
 ;; Subsection 1.2
 
+;; Set up our environment packages.
+(defun install-if-not-avail (x) "Check if X installed.  if not, install."
+       (if (package-installed-p x)
+    (print (concat (symbol-name x) " is already installed"))
+  (print (concat (symbol-name x) " is not installed, installing."))))
+
+(defun setup-packages (sequence) "Check if the packages in SEQUENCE are available.  If not, install them."
+       (mapc `install-if-not-avail sequence))
+
+(setup-packages `())
+
+;; Simple functions to control modes."
+(defun set-on (mode) "Set MODE to on if it's off."
+       (if (not (eval mode))
+	   (set mode 1)
+	 ()))
+
+(defun toggle (x) "If X is disabled, enable it.  Otherwise disable it."
+  (if (not (eval x))
+      (set x 1)
+    (set x nil)))
+
 ;; Allow for multiple Wowsers.
-(defun xah-rename-eww-hook ()
+(eval-after-load "eww"
-  "Rename eww buffers on the fly."
+  (progn `(defun xah-rename-eww-hook () "Rename eww buffers on the fly."
-  (rename-buffer "eww" t))
+	    (rename-buffer "eww" t))))
 (add-hook 'eww-mode-hook #' xah-rename-eww-hook)
 
 ;; Kill the current buffer.
@@ -69,14 +106,17 @@
 
 ;; Subsection 1.3
 
+;; Disable TLS 1.3.
+(eval-after-load "gnutls" (setq gnutls-algorithm-priority "NORMAL:-VERS-TLS1.3"))
+
 ;; Set the Web Wowser as the default in-Emacs browser.
 (eval-after-load "eww"
   `(setq
-   browse-url-browser-function 'eww-browse-url
+    browse-url-browser-function 'eww-browse-url
-   shr-use-fonts nil
+    shr-use-fonts nil
-   shr-use-colors nil
+    shr-use-colors nil
-   shr-indentation 2
+    shr-indentation 2
-   eww-search-prefix "https://duckduckgo.com/lite"))
+    eww-search-prefix "https://duckduckgo.com/lite"))
 
 
 ;; Byte-compile ELisp when saving.
@@ -87,13 +127,14 @@
 (setq large-file-warning-threshold 1000000000)
 
 ;; Store temporary files in a backup directory.
-(setq temporary-file-directory "~/.config/emacs/.backup/temp/")
+(eval-after-load "tramp.el" (progn
-(progn (defvar auto-save-directory) (setq auto-save-directory "~/.config/emacs/.backup/autosave/"))
+			   (setq temporary-file-directory "~/.config/emacs/.backup/temp/")
-(setq tramp-auto-save-directory "~/.config/emacs/.backup/autosave/")
+			   (progn (defvar auto-save-directory) (setq auto-save-directory "~/.config/emacs/.backup/autosave/"))
-(make-directory temporary-file-directory t)
+			   (setq tramp-auto-save-directory "~/.config/emacs/.backup/autosave/")
-(make-directory auto-save-directory t)
+			   (make-directory temporary-file-directory t)
-(setq auto-save-file-name-transforms
+			   (make-directory auto-save-directory t)
-      `(("\\(?:[^/]*/\\)*\\(.*\\)" ,(concat auto-save-directory "\\1") t)))
+			   (setq auto-save-file-name-transforms
+				 `(("\\(?:[^/]*/\\)*\\(.*\\)" ,(concat auto-save-directory "\\1") t)))))
 
 
 ;; Automatically reload files as needed.
@@ -105,71 +146,117 @@
 
 ;; Subsection 2.1
 
+;; Good-scroll improves Emacs’ scrolling abilities.
+(good-scroll-mode 1)
+
 ;; Golden Ratio resizes the current buffer according to the golden ratio.
 (use-package golden-ratio
+  :ensure t
+  :demand
   :config
   (golden-ratio-mode 1))
 
+
+;; Dim inactive buffers.
+(use-package dimmer
+  :ensure t
+  :demand
+  :config
+  (dimmer-mode 1))
+
+;; Goggles adds pulsing effects to region edits.
+(use-package goggles
+  :ensure t
+  :demand
+  :config
+  (setq-default goggles-pulse t))
+
+;; Focus dims non-relevant text.
+(use-package focus
+  :ensure t
+  :demand
+  :config
+  '((prog-mode . defun) (text-mode . sentence)))
+
+;; Solaire alters background colors to indicate "real" versus "unreal" buffers.
+(use-package solaire-mode
+  :ensure t
+  :demand
+  :config
+  (dolist (face `(mode-line mode-line-inactive))))
+
+
 ;; Powerline allows for modeline tweaks.
 (use-package powerline
+  :ensure t
   :demand
   :config
   (powerline-nano-theme))
 
 ;; Popwin forces informational, educational, fantasticational buffers into a temporary window. Thank god.
 (use-package popwin
+  :ensure t
   :demand
   :config
   ;; Meta commands
-  (setq anything-samewindow nil)
+  (eval-after-load "popwin"
-  (push `("*anything*" :height 20) popwin:special-display-config)
+    `(progn (setq anything-samewindow nil)
-  (push `("*Completions*" :height 20) popwin:special-display-config)
+	    (push `("*anything*" :height 20) popwin:special-display-config)
-  (push `("*Messages*" :height 20) popwin:special-display-config)
+	    (push `("*Completions*" :height 20) popwin:special-display-config)
-  (push `("*compilation*" :height 20) popwin:special-display-config)
+	    (push `("*Messages*" :height 20) popwin:special-display-config)
-  (push `("*Help*" :height 20) popwin:special-display-config)
+	    (push `("*compilation*" :height 20) popwin:special-display-config)
-  (push `("*Warnings*" :height 20) popwin:special-display-config)
+	    (push `("*Help*" :height 20) popwin:special-display-config)
-  (push `("*Backtrace*" :height 20) popwin:special-display-config)
+	    (push `("*Warnings*" :height 20) popwin:special-display-config)
-  (push `("*Buffer List*" :height 20) popwin:special-display-config)
+	    (push `("*Backtrace*" :height 20) popwin:special-display-config)
-  ; SLIME commands
+	    (push `("*Buffer List*" :height 20) popwin:special-display-config)
-  (push "*slime-apropos*" popwin:special-display-config)
+	    (push "*slime-apropos*" popwin:special-display-config)      ; SLIME commands
-  (push "*slime-macroexpansion*" popwin:special-display-config)
+	    (push "*slime-macroexpansion*" popwin:special-display-config)
-  (push "*slime-description*" popwin:special-display-config)
+	    (push "*slime-description*" popwin:special-display-config)
-  (push '("*slime-compilation*" :noselect t)
+	    (push '("*slime-compilation*" :noselect t)
-	popwin:special-display-config)
+		  popwin:special-display-config)
-  (push "*slime-xref*" popwin:special-display-config)
+	    (push "*slime-xref*" popwin:special-display-config)
-  (push '(sldb-mode :stick t) popwin:special-display-config)
+	    (push '(sldb-mode :stick t) popwin:special-display-config)
-  (push 'slime-repl-mode popwin:special-display-config)
+	    (push 'slime-repl-mode popwin:special-display-config)
-  (push 'slime-connection-list-mode popwin:special-display-config)
+	    (push 'slime-connection-list-mode popwin:special-display-config)
-  (popwin-mode 1))
+	    (popwin-mode 1))))
 
 ;; Subsection 2.2
 
+
 ;; Allow us to easily get around using the Ace packages.
 (use-package ace-window
+  :ensure t
   :demand
   :config
   (global-set-key (kbd "M-o") `ace-window))
 
 (use-package ace-jump-mode
+  :ensure t
   :demand
   :config
-  (global-set-key (kbd "C-c SPC") 'ace-jump-mode))
+  (eval-after-load "ace-jump-mode" `(global-set-key (kbd "C-c SPC") 'ace-jump-mode)))
 
 (use-package ace-link
+  :ensure t
   :demand
   :config
-  (eval-after-load "eww"
+  (define-key eww-mode-map (kbd "C-c f") 'ace-link)
-  `(define-key eww-mode-map (kbd "f") 'ace-link)))
+  (define-key Info-mode-map (kbd "C-c f") 'ace-link)
+  (define-key org-mode-map (kbd "C-c f") 'ace-link)
+  (define-key help-mode-map (kbd "C-c f") 'ace-link)
+  (define-key woman-mode-map (kbd "C-c f") 'ace-link))
 
 ;; Add SLY, a Lisp REPL.
 (use-package sly
+  :ensure t
+  :defer
   :config
   (setq inferior-lisp-program "sbcl"))
 
 ;; Configure the fuzzy-pattern matching engine, Helm
 (use-package helm
-  :demand
   :ensure t
+  :demand
   :bind
   :config
   (require 'helm-config)
@@ -185,52 +272,82 @@
     'helm-execute-persistent-action)
   (define-key helm-map (kbd "C-z")
     `helm-select-action)
-(global-set-key (kbd "M-x") 'helm-M-x)
+  (global-set-key (kbd "M-x") 'helm-M-x)
-(global-set-key (kbd "M-y") 'helm-show-kill-ring)
+  (global-set-key (kbd "M-y") 'helm-show-kill-ring)
-(global-set-key (kbd "C-x b") 'helm-mini)
+  (global-set-key (kbd "C-x b") 'helm-mini)
-(setq helm-buffers-fuzzy-matching t
+  (setq helm-buffers-fuzzy-matching t
-      helm-recentf-fuzzy-match t)
+	helm-recentf-fuzzy-match t)
-(global-set-key (kbd "C-x C-f") 'helm-find-files) ; Set Helm up to provide meta-x suggestions and others.
+  (global-set-key (kbd "C-x C-f") 'helm-find-files) ; Set Helm up to provide meta-x suggestions and others.
-(defun pl/helm-alive-p () "Prevent golden-ratio from interefering with Helm."
+  (defun pl/helm-alive-p () "Prevent golden-ratio from interefering with Helm."
-  (if (boundp 'helm-alive-p)
+	 (if (boundp 'helm-alive-p)
-      (symbol-value 'helm-alive-p)))
+	     (symbol-value 'helm-alive-p)))
-(add-to-list 'golden-ratio-inhibit-functions 'pl/helm-alive-p))
+  (add-to-list 'golden-ratio-inhibit-functions 'pl/helm-alive-p))
 
 ;; Add Helm support to the web wowser
-(use-package helm-eww)
+(use-package helm-eww
+  :ensure t)
 
 ;; Add on-the-fly syntax linting
 (use-package flycheck
-  :demand
+  :ensure t)
-  :config
-  (add-hook 'after-init-hook #'global-flycheck-mode))
 
 ;; Integrate Helm recommendations and Flycheck linting
 (use-package helm-flycheck
+  :ensure t
   :demand
   :config
-  (eval-after-load 'flycheck
+  (define-key flycheck-mode-map (kbd "C-c ! h") 'helm-flycheck))
-    '(define-key flycheck-mode-map (kbd "C-c ! h") 'helm-flycheck)))
 
 ;; Add an SRFI browser.
-(use-package srfi)
+(use-package srfi
+  :ensure t)
 
 ;; Enable development features in certain modes.
-
 (defvar proghook-active 0)
 (defun proghook () "Function for ’prog-mode’ hook."
-       (display-line-numbers-mode 'toggle)
+       (progn
-       (semantic-mode 'toggle)
+	 (clean-aindent-mode)
-       (flycheck-mode 'toggle)
+	 (aggressive-indent-mode)
-       (electric-pair-mode 'toggle)
+	 (global-ede-mode)
-       (electric-quote-mode 'toggle)
+	 (semantic-mode)
-       (electric-indent-mode 'toggle)
+	 (flycheck-mode)
-       (ws-butler-mode 'toggle)
+	 (electric-pair-mode)
-       (context-coloring-mode 'toggle))
+	 (electric-quote-mode)
+	 (electric-indent-mode)
+	 (solaire-mode)
+	 (rainbow-blocks-mode)
+	 (rainbow-mode)
+	 (goggles-mode)
+	 (focus-mode)
+	 (mapcar `set-on `(display-line-numbers))))
 
-(add-hook 'prog-mode-hook 'proghook)
+(add-hook `prog-mode-hook `proghook)
 
+;; Add cwarn-mode to cc-mode later on
+
+(defvar texthook-active 0)
+(add-hook 'text-mode-hook 'texthook)
+
+(defun texthook () "Function for ’text-mode’ hook."
+       (progn
+	 (solaire-mode)
+	 (rainbow-mode)
+	 (goggles-mode)
+	 (focus-mode)
+	 (mapcar `set-on `(display-line-numbers))))
+
+(add-hook `text-mode-hook `texthook)
 
 
 (provide 'init)
 ;;; init.el ends here
+
+(custom-set-variables
+ ;; custom-set-variables was added by Custom.
+ ;; If you edit it by hand, you could mess it up, so be careful.
+ ;; Your init file should contain only one such instance.
+ ;; If there is more than one, they won't work right.
+ '(custom-safe-themes
+   '("2f93ebb862a9d50fee9c1b3302d858e2d2c0bba9d4e1be9bb3b08b7373f1710c" default))
+ '(package-selected-packages
+   '(aggressive-indent muse auctex beacon ac-ispell ac-rtags dimmer rainbow-blocks rainbow-identifiers rainbow-mode solaire-mode modus-themes xpm ws-butler use-package stripes srfi speed-type sly-asdf sed-mode schrute powerline popwin pcache paren-face macrostep link jammer helm-sly helm-mode-manager helm-flycheck helm-eww guru-mode good-scroll golden-ratio goggles gnuplot focus flyspell-lazy flyspell-correct-ivy electric-operator company-c-headers comment-tags clean-aindent-mode cframe auto-compile ace-window ace-popup-menu ace-link ace-jump-helm-line ace-flyspell ac-sly ac-html ac-helm ac-haskell-process ac-etags ac-c-headers)))