midfavila
/
Configuration_Files
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Update emacs init file.

This commit is contained in:
Mid Favila 2021-11-17 01:24:13 -04:00
parent 7367c3a08c
commit 846ca6e8e0
1 changed files with 38 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

53
misc/init.el
View File

@ -29,19 +29,36 @@
;; Subsection 1.2
;; Default theme.
;;(load-theme `modus-operandi t)
(use-package modus-themes
:ensure
:init
;; Add all your customizations prior to loading the themes
(setq modus-themes-success-deuteranopia t
modus-themes-bold-constructs t
modus-themes-syntax `(faint yellow-comments green-strings)
;; modus-themes-mixed-fonts t ; available for 1.7
modus-themes-links `(faint bold italic)
modus-themes-prompts `(gray intense)
modus-themes-mode-line `(3d accented)
modus-themes-completions `opinionated
modus-themes-fringes `intense
modus-themes-lang-checkers `(text-also background intense)
modus-themes-hl-line `(accented)
modus-themes-paren-match `(bold intense)
modus-themes-variable-pitch-ui t)
(modus-themes-load-themes)
:config
(modus-themes-load-operandi))
(add-hook 'server-after-make-frame-hook '(lambda () (load-theme 'modus-operandi t))) ;This is a workaround for Solaire Mode.
;; Fonts and faces.
(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-face-attribute 'default nil :family "Iosevka Light" :height 125)
(set-face-attribute 'variable-pitch nil :family "Clear Sans" :height 1.0)
(set-face-attribute 'fixed-pitch nil :family "Iosevka Light" :height 1.5)
;; ’y’ or ’n’ is fine
(fset 'yes-or-no-p 'y-or-n-p)
@ -69,14 +86,15 @@
(setq window-divider-default-places t)
(window-divider-mode 1)
(hl-line-mode 1)
;; Subsection 1.2
;; Subsection 1.3
;; 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."))))
(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))
@ -96,9 +114,10 @@
;; Allow for multiple Wowsers.
(eval-after-load "eww"
(progn `(defun xah-rename-eww-hook () "Rename eww buffers on the fly."
(rename-buffer "eww" t))))
(add-hook 'eww-mode-hook #' xah-rename-eww-hook)
(progn `(defun eww-hook () "Reconfigure eww buffers on the fly."
(progn (rename-buffer "eww" t)
(variable-pitch-mode)))))
(add-hook 'eww-mode-hook `eww-hook)
;; Kill the current buffer.
(global-set-key (kbd "C-x k") 'kill-this-buffer)
@ -333,6 +352,7 @@
(rainbow-mode)
(goggles-mode)
(focus-mode)
(show-paren-mode)
(mapcar `set-on `(display-line-numbers))))
(add-hook `prog-mode-hook `proghook)
@ -344,6 +364,7 @@
(defun texthook () "Function for ’text-mode’ hook."
(progn
(variable-pitch-mode)
(solaire-mode)
(rainbow-mode)
(goggles-mode)
@ -361,5 +382,7 @@
;; 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-mode xpm ws-butler web-completion-data use-package stripes srfi speed-type solarized-theme solaire-mode smooth-scroll sly rainbow-mode rainbow-blocks powerline popwin paren-face parchment-theme names helm-slime helm-mode-manager helm-flycheck helm-eww good-scroll golden-ratio goggles gnuplot focus flyspell-correct-helm flymake-haskell-multi flymake flycheck-haskell flycheck-aspell eww-lnum electric-operator dimmer context-coloring clean-buffers clean-aindent-mode auto-compile aggressive-indent ace-window ace-link ace-jump-mode ac-slime ac-html ac-haskell-process ac-etags)))