diff options
| author | Case Duckworth | 2021-03-01 16:57:55 -0600 |
|---|---|---|
| committer | Case Duckworth | 2021-03-01 16:57:55 -0600 |
| commit | b9d9326595619b2441f0319c82a6a70abffe7e6f (patch) | |
| tree | ef873d64540872a0efc2e92abe65ec8be2e5edb0 | |
| parent | Add mode-line-format (diff) | |
| download | emacs-b9d9326595619b2441f0319c82a6a70abffe7e6f.tar.gz emacs-b9d9326595619b2441f0319c82a6a70abffe7e6f.zip | |
Change reading and read-only mode
| -rw-r--r-- | init.el | 10 |
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) |