summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--init.el34
-rw-r--r--lisp/km-god.el36
2 files changed, 0 insertions, 70 deletions
diff --git a/init.el b/init.el
index 834f942..9609d38 100644
--- a/init.el
+++ b/init.el
@@ -1232,40 +1232,6 @@
(use-package setkey
:bind ("C-c v" . setkey-call))
-(use-package god-mode
- :bind (("C-c d" . god-local-mode)
- ("C-x C-1" . delete-other-windows)
- ("C-x C-2" . split-window-below)
- ("C-x C-3" . split-window-right))
- :config
- (add-hook 'view-mode-hook
- (lambda ()
- (if view-mode (god-local-mode-pause) (god-local-mode-resume))))
- (add-hook 'org-capture-mode-hook
- (lambda () (god-local-mode -1)))
-
- (add-hook 'god-mode-enabled-hook
- (lambda ()
- (when view-mode
- (view-mode -1))
- (when (derived-mode-p 'emacs-lisp-mode)
- (lispy-mode -1))))
- (add-hook 'god-mode-disabled-hook
- (lambda ()
- (when (derived-mode-p 'emacs-lisp-mode)
- (lispy-mode 1))))
- (bind-keys :map god-local-mode-map
- ("." . repeat)
- ("i" . god-local-mode))
-
- (require 'km-god))
-
-(use-package km-god
- :config
- (add-to-list 'god-exempt-predicates #'km/god-gnus-p)
- (add-hook 'god-mode-enabled-hook #'km/god-update-cursor)
- (add-hook 'god-mode-disabled-hook #'km/god-update-cursor))
-
(use-package km-hydra
:bind (("C-c n" . km/hydra-outline-mode)
("C-c w" . hydra-window-map/body))
diff --git a/lisp/km-god.el b/lisp/km-god.el
deleted file mode 100644
index 4d741b4..0000000
--- a/lisp/km-god.el
+++ /dev/null
@@ -1,36 +0,0 @@
-;;; km-god.el --- God mode extensions
-
-;; Copyright Kyle Meyer <kyle@kyleam.com>
-
-;; Author: Kyle Meyer <kyle@kyleam.com>
-;; URL: https://git.kyleam.com/emacs.d
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-
-;;; Code:
-
-(require 'god-mode)
-
-(defun km/god-update-cursor ()
- (setq cursor-type (if god-local-mode 'bar 'box)))
-
-(defun km/god-gnus-p ()
- "Return non-nil if a Gnus-related mode is enabled."
- (derived-mode-p 'gnus-group-mode
- 'gnus-summary-mode
- 'gnus-article-mode
- 'message-mode))
-
-(provide 'km-god)
-;;; km-god.el ends here