2025-03-19 21:10:56 +01:00
|
|
|
;;; 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)
|
2025-03-19 21:31:56 +01:00
|
|
|
|
|
|
|
|
(provide 'init-god)
|
|
|
|
|
;;; end of file init-god.el
|
