rice

personal dot files and scripts for linux and macOS
Log | Files | Refs | README | LICENSE

module-god-mode.el (1293B)

      1 ;;; module-god-mode.el
      2 
      3 ;; Author: Mark Feller <mark.feller@member.fsf.org>
      4 
      5 ;; This file is not part of GNU Emacs.
      6 
      7 ;; This file is free software; you can redistribute it and/or modify
      8 ;; it under the terms of the GNU General Public License as published by
      9 ;; the Free Software Foundation; either version 3, or (at your option)
     10 ;; any later version.
     11 
     12 ;; This file is distributed in the hope that it will be useful,
     13 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
     14 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
     15 ;; GNU General Public License for more details.
     16 
     17 ;; You should have received a copy of the GNU General Public License
     18 ;; along with this file.  If not, see <http://www.gnu.org/licenses/>.
     19 
     20 ;;; Commentary:
     21 
     22 ;;; Code:
     23 
     24 (use-package god-mode
     25   :bind (("<escape>" . god-mode-all)
     26          :map god-local-mode-map
     27          ("z" . repeat)
     28          ("i" . god-mode-all))
     29   :config
     30   (progn (defun my-update-cursor ()
     31            (setq cursor-type (if (or god-local-mode buffer-read-only)
     32                                  'box
     33                                'bar)))
     34 
     35          (add-hook 'god-mode-enabled-hook 'my-update-cursor)
     36          (add-hook 'god-mode-disabled-hook 'my-update-cursor)))
     37 
     38 (provide 'module-god-mode)
     39 
     40 ;;; module-god-mode.el ends here
     41