diff --git a/home-environments/radio/files/.config/emacs/init.el b/home-environments/radio/files/.config/emacs/init.el index 812c55a..53763fe 100644 --- a/home-environments/radio/files/.config/emacs/init.el +++ b/home-environments/radio/files/.config/emacs/init.el @@ -108,7 +108,7 @@ (defun config () (interactive) - (let* ((default-directory "~/.config/emacs")) + (let* ((default-directory "~/.config/emacs/")) (call-interactively 'find-file))) (defun radio-manifests () @@ -251,12 +251,12 @@ ;; org (use-package org - :custom ((org-pretty-entities t) - (org-hide-emphasis-markers t)) + :custom ((org-hide-emphasis-markers t)) :hook (org-mode . (lambda () (interactive) (whitespace-mode 0) - (display-fill-column-indicator-mode 0)))) + (display-fill-column-indicator-mode 0) + (add-hook 'completion-at-point-functions #'cape-tex)))) ;; irc (use-package circe @@ -420,7 +420,7 @@ (when (where-is-internal #'completion-at-point (list (current-local-map))) (corfu-mode 1))) - :hook (((prog-mode eshell-mode) . corfu-mode) + :hook (((conf-mode text-mode prog-mode eshell-mode) . corfu-mode) (corfu-mode . corfu-popupinfo-mode) (minibuffer-setup . corfu-enable-in-minibuffer)) :custom @@ -440,12 +440,15 @@ ;; cape (use-package cape :init - (add-hook 'completion-at-point-functions #'cape-file) - (add-hook 'completion-at-point-functions #'cape-tex) - (add-hook 'completion-at-point-functions #'cape-dabbrev) - (add-hook 'completion-at-point-functions #'cape-keyword) - (add-hook 'completion-at-point-functions #'cape-elisp-block) - (add-hook 'completion-at-point-functions #'cape-elisp-symbol)) + (dolist (mode '(text-mode-hook prog-mode-hook conf-mode-hook)) + (add-hook mode + (lambda () + (add-to-list 'completion-at-point-functions #'cape-file) + (add-to-list 'completion-at-point-functions #'cape-tex) + (add-to-list 'completion-at-point-functions #'cape-dabbrev) + (add-to-list 'completion-at-point-functions #'cape-keyword) + (add-to-list 'completion-at-point-functions #'cape-elisp-block) + (add-to-list 'completion-at-point-functions #'cape-elisp-symbol))))) ;; (use-package kakoune ;; ;; Having a non-chord way to escape is important, since key-chords don't work in macros