summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2021-03-01 16:57:55 -0600
committerCase Duckworth2021-03-01 16:57:55 -0600
commitb9d9326595619b2441f0319c82a6a70abffe7e6f (patch)
treeef873d64540872a0efc2e92abe65ec8be2e5edb0
parentAdd mode-line-format (diff)
downloademacs-b9d9326595619b2441f0319c82a6a70abffe7e6f.tar.gz
emacs-b9d9326595619b2441f0319c82a6a70abffe7e6f.zip
Change reading and read-only mode
-rw-r--r--init.el10
1 files changed, 8 insertions, 2 deletions
diff --git a/init.el b/init.el index 53dc088..5e398fb 100644 --- a/init.el +++ b/init.el
@@ -48,20 +48,26 @@
48 :lighter " Read" 48 :lighter " Read"
49 (if acdw/reading-mode 49 (if acdw/reading-mode
50 (progn ;; turn on 50 (progn ;; turn on
51 (text-scale-increase +1) 51 ;; (text-scale-increase +1)
52 (display-fill-column-indicator-mode -1) 52 (display-fill-column-indicator-mode -1)
53 (setq cursor-type 'hbar)
53 (dolist (func '(visual-fill-column-mode 54 (dolist (func '(visual-fill-column-mode
54 iscroll-mode)) 55 iscroll-mode))
55 (when (fboundp func) 56 (when (fboundp func)
56 (funcall func +1)))) 57 (funcall func +1))))
57 (progn ;; turn off 58 (progn ;; turn off
58 (text-scale-increase 0) 59 ;; (text-scale-increase 0)
60 (setq cursor-type 'bar)
59 (display-fill-column-indicator-mode +1) 61 (display-fill-column-indicator-mode +1)
60 (dolist (func '(visual-fill-column-mode 62 (dolist (func '(visual-fill-column-mode
61 iscroll-mode)) 63 iscroll-mode))
62 (when (fboundp func) 64 (when (fboundp func)
63 (funcall func -1)))))) 65 (funcall func -1))))))
64 66
67(defun hook--read-only-cursor ()
68 (setq cursor-type (if buffer-read-only 'hbar 'bar)))
69(add-hook 'read-only-mode-hook #'hook--read-only-cursor)
70
65;; Dialogs & alerts 71;; Dialogs & alerts
66(setq-default use-dialog-box nil) ; Don't use a dialog box 72(setq-default use-dialog-box nil) ; Don't use a dialog box
67(fset 'yes-or-no-p #'y-or-n-p) 73(fset 'yes-or-no-p #'y-or-n-p)