14 lines
414 B
EmacsLisp
14 lines
414 B
EmacsLisp
;;; init-god.el --- make emacs usable -*- lexical-binding: t -*-
|
|
;;; Commentary:
|
|
;;; Code:
|
|
|
|
(require-package 'god-mode)
|
|
(god-mode)
|
|
(global-set-key (kbd "<escape>") #'god-local-mode)
|
|
|
|
(defun my-god-mode-update-cursor-type ()
|
|
(setq cursor-type (if (or god-local-mode buffer-read-only) 'box 'bar)))
|
|
|
|
(add-hook 'post-command-hook #'my-god-mode-update-cursor-type)
|
|
|
|
(define-key god-local-mode-map (kbd ".") #'repeat)
|