diff options
Diffstat (limited to '')
| -rw-r--r-- | home/dots/.emacs | 162 |
1 files changed, 81 insertions, 81 deletions
diff --git a/home/dots/.emacs b/home/dots/.emacs index 923d8bc..92920e2 100644 --- a/home/dots/.emacs +++ b/home/dots/.emacs @@ -12,20 +12,19 @@ ;; Package list package-list '(almost-mono-themes avy + company devdocs ednc eldoc-box elfeed elfeed-protocol enwc - embark emms expand-region exwm geiser geiser-guile go-mode - god-mode guix pdf-tools lem @@ -129,7 +128,10 @@ (shell-command "xset r rate 200 60 1> /dev/null") (shell-command "xrdb ~/.Xresources") - (shell-command "dbus-update-activation-environment DISPLAY") + (shell-command "dbus-update-activation-environment DISPLAY") + ;; Sticky keys + ;;(shell-command "xkbset -feedback sticky -twokey latchlock") + ;;(shell-command "xkbset exp 64 '=sticky' '=twokey' '=latchlock'") (push ?\C-\\ exwm-input-prefix-keys) :config (setq @@ -183,6 +185,26 @@ :init (pixel-scroll-precision-mode)) + +(use-package company + :ensure t + :init + (global-company-mode) + :config + ;; Disable auto start behavior + (setq company-idle-delay nil) + :bind + (("M-<tab>" . company-indent-or-complete-common) + ("C-M-i" . company-complete) + :map company-active-map + ("C-n" . nil) + ("C-p" . nil) + ("M-<ret>" . company-complete-selection) + ("M-<tab>" . company-complete-common-or-cycle) + ("M-<backtab>" . (lambda () + (interactive) + (company-complete-common-or-cycle -1))))) + (use-package scroll-bar :init (scroll-bar-mode -1)) @@ -195,47 +217,6 @@ :config (window-divider-mode)) -(defun me/god-mode-update-cursor-type () - (setq cursor-type (if (or god-local-mode buffer-read-only) 'box 'bar))) - -(use-package god-mode - :hook - ((prog-mode . god-local-mode) - (html-mode . god-local-mode) - (css-mode . god-local-mode) - (go-mode . god-local-mode) - (nix-mode . god-local-mode) - (markdown-mode . god-local-mode) - (org-mode . god-local-mode) - (post-command . me/god-mode-update-cursor-type)) - :config - (god-mode) - (define-key god-local-mode-map (kbd "z") #'repeat) - (define-key god-local-mode-map (kbd "M-j") #'minibuffer-keyboard-quit) - (define-key god-local-mode-map (kbd ".") #'er/expand-region) - (define-key god-local-mode-map (kbd "o") #'avy-goto-char-timer) - (define-key god-local-mode-map (kbd ";") #'point-to-register) - (global-set-key (kbd "C-x C-1") #'delete-other-windows) - (global-set-key (kbd "C-x C-2") #'split-window-below) - (global-set-key (kbd "C-x C-3") #'split-window-right) - (global-set-key (kbd "C-x C-0") #'delete-window) - (add-to-list 'god-exempt-major-modes 'mu4e-headers-mode) - (add-to-list 'god-exempt-major-modes 'org-mode) - (custom-set-faces - '(god-mode-lighter ((t (:weight bold :foreground "orange red"))))) - - (setq god-mode-alist - '((nil . "C-") - ("g" . "M-") - ("G" . "C-M-"))) - (require 'god-mode-isearch) - (define-key isearch-mode-map (kbd "<escape>") #'god-mode-isearch-activate) - (define-key god-mode-isearch-map (kbd "<escape>") #'god-mode-isearch-disable) - - (define-key god-local-mode-map (kbd "[") #'backward-paragraph) - (define-key god-local-mode-map (kbd "]") #'forward-paragraph) - (global-set-key (kbd "<escape>") #'god-local-mode)) - (use-package files :config (setq delete-old-versions t @@ -254,13 +235,6 @@ :defer t :ensure t) -(use-package embark - :ensure t - :bind - (("M-RET" . embark-dwim) - ("C-h B" . embark-bindings)) - :ensure t) - (use-package select :config (setq x-select-enable-clipboard t @@ -284,19 +258,6 @@ (cd "/sudo::/") (async-shell-command command))) - -(use-package guix - :ensure t - :bind - (("C-c C-p g" . guix) - ("C-c C-p o" . (lambda () - (interactive) - (sudo-shell-command "guix system reconfigure /home/mccd/system/os/config.scm"))) - ("C-c C-p h" . (lambda () - (interactive) - (async-shell-command "guix home reconfigure ~/system/home/config.scm"))))) - - (use-package nov :defer t :ensure t @@ -347,7 +308,38 @@ (use-package repeat :demand t :bind - ((:repeat-map + (("C-z" . repeat) + :repeat-map + repeat-basic-movement-map + ("n" . next-line) + ("p" . previous-line) + ("f" . forward-char) + ("M-f" . forward-word) + ("M-b" . backward-word) + ("o" . avy-goto-char-timer) + ("b" . backward-char) + ("e" . move-end-of-line) + ("v" . scroll-up-command) + ("M-v" . scroll-down-command) + ("M-e" . forward-sentence) + ("a" . move-beginning-of-line) + :repeat-map + repeat-isearch-map + ("s" . isearch-repeat-forward) + ("r" . isearch-repeat-backward) + :repeat-map + repeat-repeat-map + ("z" . repeat) + :repeat-map + repeat-undo-map + ("/" . undo) + ("?" . undo-redo) + :repeat-map + repeat-kill-map + ("d" . delete-char) + ("M-d" . kill-word) + ("k" . kill-line) + :repeat-map repeat-movement-map ("e" . end-of-defun) ("f" . forward-sexp) @@ -452,16 +444,6 @@ (save-excursion (yank)) t) - (defun avy-action-embark (pt) - (unwind-protect - (save-excursion - (goto-char pt) - (embark-act)) - (select-window - (cdr (ring-ref avy-ring 0)))) - t) - - (setf (alist-get ?. avy-dispatch-alist) 'avy-action-embark) (setf (alist-get ?y avy-dispatch-alist) 'avy-action-yank (alist-get ?w avy-dispatch-alist) 'avy-action-copy @@ -516,7 +498,7 @@ (use-package expand-region :ensure t :bind - ("C-c ." . er/expand-region)) + ("C-." . er/expand-region)) (use-package devdocs :ensure t @@ -524,11 +506,25 @@ (global-set-key (kbd "C-h D") 'devdocs-lookup)) (use-package custom-keymaps + :ensure nil + :config + (keymaps-mode) :bind (:map keymaps-mode-map - ("C-c ." . er/expand-region)) + ("C-." . er/expand-region)) :load-path "elisp") +(use-package guix + :ensure t + :bind + (("C-c C-p g" . guix) + ("C-c C-p o" . (lambda () + (interactive) + (sudo-shell-command "guix system reconfigure /home/mccd/system/os/config.scm"))) + ("C-c C-p h" . (lambda () + (interactive) + (async-shell-command "guix home reconfigure ~/system/home/config.scm"))))) + (use-package sgml-mode :init (add-to-list 'auto-mode-alist '("\\.njk\\'" . html-mode)) @@ -617,8 +613,12 @@ (use-package hyperbole :ensure t :defer t + :bind + (:map hyperbole-mode-map + ("M-o" . nil)) :config - (setq hyperbole-file-list '("~/personal-db/notes/inbox.org"))) + (setq hyperbole-file-list '("~/personal-db/notes/inbox.org")) + (hyperbole-mode 1)) (use-package eglot :config @@ -779,9 +779,9 @@ :init (yas-global-mode 1)) -(use-package register - :bind - (("C-z" . 'point-to-register))) +;(use-package register +; :bind +; (("C-z" . 'point-to-register))) (defun marc/set-msmtp-account () (if (message-mail-p) |