maciej/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove godmode

Browse source
This commit is contained in:
Maciej 2022-04-18 12:39:22 +03:00
parent 4ff12c9bea
commit bd6518b5a7
Signed by: maciej
GPG key ID: 41D62D42D3B0D765
3 changed files with 1 additions and 33 deletions
Download patch file Download diff file Expand all files Collapse all files

27
pkg/base.el
View file

@ -114,12 +114,6 @@
:defer t :defer t
:straight t) :straight t)
(use-package god-mode
:defer t
:straight t
:after which-key
)
;;;;;;;;;;;;;;;;; Use C-n to create a new line ;;;;;;;;;;;;;;;;; Use C-n to create a new line
(setq next-line-add-newlines t) (setq next-line-add-newlines t)
@ -128,27 +122,6 @@
bidi-inhibit-bpa t) bidi-inhibit-bpa t)
(which-key-mode t) (which-key-mode t)
(which-key-enable-god-mode-support)
(defun +custom-switch-god-mode ()
"Switch god mode on and off."
(interactive)
(if (bound-and-true-p god-local-mode-paused)
(god-local-mode-resume)
(god-local-mode-pause)))
(god-mode)
(define-key +custom-keys-mode-map (kbd "C-c C-c") '+custom-switch-god-mode)
(define-key god-local-mode-map (kbd "i") '+custom-switch-god-mode)
(defun +custom-update-cursor ()
"Update cursor based on god mode setup."
(setq cursor-type (if (or god-local-mode buffer-read-only)
'box
'hbar)))
(add-hook 'god-mode-enabled-hook '+custom-update-cursor)
(add-hook 'god-mode-disabled-hook '+custom-update-cursor)
(provide '+custom-pkg-base) (provide '+custom-pkg-base)
;;; base.el ends here ;;; base.el ends here

5
pkg/hydra.el
View file

@ -188,16 +188,13 @@
("q" nil "cancel")) ("q" nil "cancel"))
:bind ("C-c p" . +hydra-project-menu/body) :bind ("C-c p" . +hydra-project-menu/body)
("C-c C-p" . +hydra-project-menu/body)
("C-c h" . +hydra-of-hydras/body) ("C-c h" . +hydra-of-hydras/body)
("C-c C-h" . +hydra-of-hydras/body)
("C-c c" . +hydra-code-menu/body) ("C-c c" . +hydra-code-menu/body)
("C-c w" . +hydra-window-menu/body) ("C-c w" . +hydra-window-menu/body)
("C-c s" . +hydra-history-menu/body) ("C-c s" . +hydra-history-menu/body)
("C-c f" . +hydra-font-menu/body) ("C-c f" . +hydra-font-menu/body)
("C-c m" . +hydra-move-menu/body) ("C-c m" . +hydra-move-menu/body)
("C-c l" . +hydra-language-context-menu/body) ("C-c l" . +hydra-language-context-menu/body))
("C-c C-l" . +hydra-language-context-menu/body))
(provide '+custom-pkg-hydra) (provide '+custom-pkg-hydra)
;;; hydra.el ends here ;;; hydra.el ends here

2
pkg/keys-mode.el
View file

@ -33,8 +33,6 @@
(define-key +custom-keys-mode-map (kbd "C-c ]") 'windmove-right) (define-key +custom-keys-mode-map (kbd "C-c ]") 'windmove-right)
(define-key +custom-keys-mode-map (kbd "C-c {") 'windmove-up) (define-key +custom-keys-mode-map (kbd "C-c {") 'windmove-up)
(define-key +custom-keys-mode-map (kbd "C-c }") 'windmove-down) (define-key +custom-keys-mode-map (kbd "C-c }") 'windmove-down)
;; (define-key +custom-keys-mode-map (kbd "C-c C-c") 'switch-god-mode)
;; (god-local-mode-pause)
;; Kill current buffer and window ;; Kill current buffer and window
(define-key +custom-keys-mode-map (kbd "C-c q") 'kill-buffer-and-window) (define-key +custom-keys-mode-map (kbd "C-c q") 'kill-buffer-and-window)