Update emacs init file.
This commit is contained in:
parent
7367c3a08c
commit
846ca6e8e0
53
misc/init.el
53
misc/init.el
|
@ -29,19 +29,36 @@
|
||||||
;; Subsection 1.2
|
;; Subsection 1.2
|
||||||
|
|
||||||
;; Default theme.
|
;; 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.
|
(add-hook 'server-after-make-frame-hook '(lambda () (load-theme 'modus-operandi t))) ;This is a workaround for Solaire Mode.
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
;; Fonts and faces.
|
;; 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
|
;; ’y’ or ’n’ is fine
|
||||||
(fset 'yes-or-no-p 'y-or-n-p)
|
(fset 'yes-or-no-p 'y-or-n-p)
|
||||||
|
|
||||||
|
@ -69,14 +86,15 @@
|
||||||
(setq window-divider-default-places t)
|
(setq window-divider-default-places t)
|
||||||
(window-divider-mode 1)
|
(window-divider-mode 1)
|
||||||
|
|
||||||
|
(hl-line-mode 1)
|
||||||
|
|
||||||
;; Subsection 1.2
|
;; Subsection 1.3
|
||||||
|
|
||||||
;; Set up our environment packages.
|
;; Set up our environment packages.
|
||||||
(defun install-if-not-avail (x) "Check if X installed. if not, install."
|
(defun install-if-not-avail (x) "Check if X installed. if not, install."
|
||||||
(if (package-installed-p x)
|
(if (package-installed-p x)
|
||||||
(print (concat (symbol-name x) " is already installed"))
|
(print (concat (symbol-name x) " is already installed"))
|
||||||
(print (concat (symbol-name x) " is not installed, installing."))))
|
(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."
|
(defun setup-packages (sequence) "Check if the packages in SEQUENCE are available. If not, install them."
|
||||||
(mapc `install-if-not-avail sequence))
|
(mapc `install-if-not-avail sequence))
|
||||||
|
@ -96,9 +114,10 @@
|
||||||
|
|
||||||
;; Allow for multiple Wowsers.
|
;; Allow for multiple Wowsers.
|
||||||
(eval-after-load "eww"
|
(eval-after-load "eww"
|
||||||
(progn `(defun xah-rename-eww-hook () "Rename eww buffers on the fly."
|
(progn `(defun eww-hook () "Reconfigure eww buffers on the fly."
|
||||||
(rename-buffer "eww" t))))
|
(progn (rename-buffer "eww" t)
|
||||||
(add-hook 'eww-mode-hook #' xah-rename-eww-hook)
|
(variable-pitch-mode)))))
|
||||||
|
(add-hook 'eww-mode-hook `eww-hook)
|
||||||
|
|
||||||
;; Kill the current buffer.
|
;; Kill the current buffer.
|
||||||
(global-set-key (kbd "C-x k") 'kill-this-buffer)
|
(global-set-key (kbd "C-x k") 'kill-this-buffer)
|
||||||
|
@ -333,6 +352,7 @@
|
||||||
(rainbow-mode)
|
(rainbow-mode)
|
||||||
(goggles-mode)
|
(goggles-mode)
|
||||||
(focus-mode)
|
(focus-mode)
|
||||||
|
(show-paren-mode)
|
||||||
(mapcar `set-on `(display-line-numbers))))
|
(mapcar `set-on `(display-line-numbers))))
|
||||||
|
|
||||||
(add-hook `prog-mode-hook `proghook)
|
(add-hook `prog-mode-hook `proghook)
|
||||||
|
@ -344,6 +364,7 @@
|
||||||
|
|
||||||
(defun texthook () "Function for ’text-mode’ hook."
|
(defun texthook () "Function for ’text-mode’ hook."
|
||||||
(progn
|
(progn
|
||||||
|
(variable-pitch-mode)
|
||||||
(solaire-mode)
|
(solaire-mode)
|
||||||
(rainbow-mode)
|
(rainbow-mode)
|
||||||
(goggles-mode)
|
(goggles-mode)
|
||||||
|
@ -361,5 +382,7 @@
|
||||||
;; If you edit it by hand, you could mess it up, so be careful.
|
;; If you edit it by hand, you could mess it up, so be careful.
|
||||||
;; Your init file should contain only one such instance.
|
;; Your init file should contain only one such instance.
|
||||||
;; If there is more than one, they won't work right.
|
;; If there is more than one, they won't work right.
|
||||||
|
'(custom-safe-themes
|
||||||
|
'("2f93ebb862a9d50fee9c1b3302d858e2d2c0bba9d4e1be9bb3b08b7373f1710c" default))
|
||||||
'(package-selected-packages
|
'(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)))
|
'(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)))
|
||||||
|
|
Loading…
Reference in New Issue