Add symex

emacs-config.org

@@ -37,7 +37,7 @@ To get started, run =C-c C-v t=
 #+end_src
 
 #+RESULTS:
-| (lambda nil (add-hook 'after-save-hook #'dotfiles/org-babel-tangle-config nil t)) | org-appear-mode | org-tempo-setup | yas-minor-mode | (lambda nil evil-org-mode) | #[0 \300\301\302\303\304$\207 [add-hook change-major-mode-hook org-fold-show-all append local] 5] | #[0 \300\301\302\303\304$\207 [add-hook change-major-mode-hook org-babel-show-result-all append local] 5] | org-babel-result-hide-spec | org-babel-hide-all-hashes | #[0 \301\211\207 [imenu-create-index-function org-imenu-get-tree] 2] | (lambda nil (display-line-numbers-mode 0)) |
+| org-appear-mode | org-tempo-setup | yas-minor-mode | #[nil (evil-org-mode) nil] | #[0 \300\301\302\303\304$\207 [add-hook change-major-mode-hook org-fold-show-all append local] 5] | #[0 \300\301\302\303\304$\207 [add-hook change-major-mode-hook org-babel-show-result-all append local] 5] | org-babel-result-hide-spec | org-babel-hide-all-hashes | #[0 \301\211\207 [imenu-create-index-function org-imenu-get-tree] 2] | #[nil ((display-line-numbers-mode 0)) nil] | #[nil ((add-hook 'after-save-hook #'dotfiles/org-babel-tangle-config nil t)) nil] |
 
 ** Package initialization
 =TODO:= savehist mode doesn't seem to save the history correctly
@@ -177,8 +177,13 @@ Setting this in the :init of evil doesn't work for some reason. It has to be ear
     (doom-themes-org-config))
 
   ;; (set-frame-font "DejaVu Sans Mono 16")
-  (add-to-list 'default-frame-alist
+  ;; (add-to-list 'default-frame-alist
-               '(font . "Fira Code Mono 16"))
+  ;;              '(font . "Fira Code Mono 16"))
+
+  (set-face-attribute 'default nil
+                    :family "Fira Code"
+                    :height 160)
+
   ;; (load-theme 'doom-oceanic-next t)
 
   (use-package base16-theme)
@@ -493,7 +498,7 @@ I know these could be bound on a per-package basis, but since this is my primary
 
     (general-create-definer general-definition
       ;; :keymaps '(normal insert visual emacs nov-mode-map nov-button-map dired-mode-map)
-      :states '(normal visual)
+      :states '(normal visual symex)
       :keymaps 'override
       :prefix "SPC"
       :global-prefix "C-SPC")
@@ -1193,12 +1198,69 @@ Idk I think this came from the vertico readme
 ** Lisp
 All lisp-family languages
 #+begin_src emacs-lisp
-(use-package lispy)
+                                            ; Required for some reason
-(use-package lispyville
+    (use-package symex-core
-  :init
+      :straight
-  (general-add-hook '(emacs-lisp-mode-hook lisp-mode-hook) #'lispyville-mode)
+      (symex-core
+       :host github
+       :repo "drym-org/symex.el"
+       :files ("symex-core/symex*.el")))
+
+    (use-package symex
+      :after (symex-core)
+      :straight
+      (symex
+       :host github
+       :repo "drym-org/symex.el"
+       :files ("symex/symex*.el" "symex/doc/*.texi" "symex/doc/figures"))
+      :config
+      (symex-mode 1)
+      (global-set-key (kbd "s-;") #'symex-mode-interface))
+
+    (use-package symex-ide
+      :after (symex)
+      :straight
+      (symex-ide
+       :host github
+       :repo "drym-org/symex.el"
+       :files ("symex-ide/symex*.el"))
+      :config
+      (symex-ide-mode 1))
+
+    (use-package symex-evil
+      :after (symex evil)
+      :straight
+      (symex-evil
+       :host github
+       :repo "drym-org/symex.el"
+       :files ("symex-evil/symex*.el"))
+      :config
+      (symex-evil-mode 1))
+
+  (use-package lithium
+  :straight t
   :config
-  (lispyville-set-key-theme '(operators c-w additional)))
+  (lithium-mode 1))
+
+(use-package rigpa
+  :straight
+  (rigpa
+   :type git
+   :host github
+   :repo "countvajhula/rigpa")
+  :config
+  (rigpa-mode 1))
+
+  (use-package symex-rigpa
+    :after (symex rigpa symex-evil)
+    :straight
+    (symex-rigpa
+     :host github
+     :repo "drym-org/symex.el"
+     :files ("symex-rigpa/symex*.el"))
+    :config
+    (symex-rigpa-mode 1))
+
 #+end_src
 ** Go
 #+begin_src emacs-lisp
@@ -1374,8 +1436,6 @@ Oh, boy. Here we go.
   ;; Set up HTML email rendering
   (setq mm-text-html-renderer 'shr)
 
-  (require 'all-the-icons-gnus)
-  (all-the-icons-gnus-setup)
 #+end_src
 * Emacs Meta
 ** Explain-Pause