diff --git a/apps/emacs/.gitignore b/apps/emacs/.gitignore index 4a60648..6efb982 100644 --- a/apps/emacs/.gitignore +++ b/apps/emacs/.gitignore @@ -1,3 +1,6 @@ /auto-save-list /elpa +/backup + +# This is quite silly. Setup a *~ diff --git a/apps/emacs/config.el b/apps/emacs/config.el deleted file mode 100644 index 51b17b9..0000000 --- a/apps/emacs/config.el +++ /dev/null @@ -1,103 +0,0 @@ -(require 'use-package-ensure) -(setq use-package-always-ensure t) - -(use-package auto-compile :config (auto-compile-on-load-mode)) -(setq load-prefer-newer t) - -(setq evil-want-abbrev-expand-on-insert-exit nil) - -(use-package evil - :config - (evil-mode 1)) - -(use-package evil-collection - :after evil) - -(use-package evil-surround - :config - (global-evil-surround-mode 1)) - -(use-package evil-org - :after org - :config - (add-hook 'org-mode-hook 'evil-org-mode) - (add-hook 'evil-org-mode-hook - (lambda () (evil-org-set-key-theme))) - (require 'evil-org-agenda) - (evil-org-agenda-set-keys)) - -(use-package key-chord :after evil) -(key-chord-mode 1) -(key-chord-define evil-insert-state-map "jk" 'evil-normal-state) - -(defun lytedev/reload-config () - (interactive) - (load-file "~/.emacs")) -(global-set-key (kbd "C-x M-r") 'lytedev/reload-config) - -(tool-bar-mode 0) -(menu-bar-mode 1) ;; Keep the menu while I'm a newb. -(scroll-bar-mode -1) - -(set-window-scroll-bars (minibuffer-window) nil nil) - -(use-package monokai-theme) -(let ((line (face-attribute 'mode-line :underline))) - (set-face-attribute 'mode-line nil :overline line) - (set-face-attribute 'mode-line-inactive nil :overline line) - (set-face-attribute 'mode-line-inactive nil :underline nil) - (set-face-attribute 'mode-line nil :box nil) - (set-face-attribute 'mode-line-inactive nil :box nil) - (set-face-attribute 'mode-line-inactive nil :background "#f9f2d9")) - -(defun lytedev/apply-theme () - (interactive) - (load-theme 'monokai t)) - -;; (if (daemonp) -;; (add-hook 'after-make-frame-functions (lambda (frame) (with-selected-frame frame - -(use-package moody - :config - (setq x-underline-at-descent-line t) - (moody-replace-mode-line-buffer-identification) - (moody-replace-vc-mode)) - -(setq lytedev/default-font "Iosevka Type") -(setq lytedev/default-font-size 10) -(setq lytedev/min-font-size 4) -(setq lytedev/current-font-size lytedev/default-font-size) - -(setq lytedev/font-change-increment 1.1) - -(defun lytedev/font-code () - (concat lytedev/default-font "-" (number-to-string lytedev/current-font-size))) - -(defun lytedev/set-font-size () - (let ((font-code (lytedev/font-code))) - (if (assoc 'font default-frame-alist) - (setcdr (assoc 'font default-frame-alist) font-code) - (add-to-list 'default-frame-alist (cons 'font font-code))) - (set-frame-font font-code))) - -(defun lytedev/reset-font-size () - (interactive) - (setq lytedev/current-font-size lytedev/default-font-size) - (lytedev/set-font-size)) - -(defun lytedev/increase-font-size () - (interactive) - (setq lytedev/current-font-size (ceiling (* lytedev/current-font-size lytedev/font-change-increment))) - (lytedev/set-font-size)) - -(defun lytedev/decrease-font-size () - (interactive) - (setq lytedev/current-font-size (max lytedev/min-font-size (floor (/ lytedev/current-font-size lytedev/font-change-increment)))) - (lytedev/set-font-size)) - -(define-key global-map (kbd "C-+") 'lytedev/increase-font-size) -(define-key global-map (kbd "C--") 'lytedev/decrease-font-size) -(define-key global-map (kbd "C-0") 'lytedev/reset-font-size) - -;; NOTE: I have no clue what this does... yet. -(global-prettify-symbols-mode t) diff --git a/apps/emacs/config.org b/apps/emacs/config.org index 23099b8..cfe867e 100644 --- a/apps/emacs/config.org +++ b/apps/emacs/config.org @@ -36,6 +36,7 @@ Get vimmy with it. #+begin_src emacs-lisp (setq evil-want-abbrev-expand-on-insert-exit nil) +(setq evil-want-keybinding nil) (use-package evil :config @@ -71,7 +72,7 @@ And so that I can iterate quickly while writing this, setup the chord `r` #+begin_src emacs-lisp (defun lytedev/reload-config () (interactive) - (load-file "~/.emacs")) + (load-file "~/.emacs.d/init.el")) (global-set-key (kbd "C-x M-r") 'lytedev/reload-config) #+end_src diff --git a/apps/emacs/config~ b/apps/emacs/config~ deleted file mode 100644 index ae24e3d..0000000 --- a/apps/emacs/config~ +++ /dev/null @@ -1,17 +0,0 @@ -;; Configure package.el to include MELPA. -(require 'package) -(add-to-list 'package-archives '("gnu" . "https://elpa.gnu.org/packages/") t) -(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t) -(add-to-list 'package-archives '("org" . "https://orgmode.org/elpa/") t) -(package-initialize) - -;; Ensure that use-package is installed. -;; -;; If use-package isn't already installed, it's extremely likely that this is a -;; fresh installation! So we'll want to update the package repository and -;; install use-package before loading the literate configuration. -(when (not (package-installed-p 'use-package)) - (package-refresh-contents) - (package-install 'use-package)) - -(org-babel-load-file "~/.emacs.d/config.org")