diff options
Diffstat (limited to 'init.el')
-rw-r--r-- | init.el | 41 |
1 files changed, 24 insertions, 17 deletions
diff --git a/init.el b/init.el index 4b0bd8c..0e621bd 100644 --- a/init.el +++ b/init.el | |||
@@ -66,7 +66,7 @@ | |||
66 | calendar-longitude -91.1) | 66 | calendar-longitude -91.1) |
67 | 67 | ||
68 | ;; Lines | 68 | ;; Lines |
69 | (:option fill-column 80 | 69 | (:option fill-column 79 |
70 | word-wrap t | 70 | word-wrap t |
71 | truncate-lines nil) | 71 | truncate-lines nil) |
72 | 72 | ||
@@ -115,7 +115,7 @@ | |||
115 | ;; Cursor | 115 | ;; Cursor |
116 | (:option cursor-type 'bar | 116 | (:option cursor-type 'bar |
117 | cursor-in-non-selected-windows 'hollow | 117 | cursor-in-non-selected-windows 'hollow |
118 | blink-cursor-blinks 1) | 118 | blink-cursor-blinks 1) |
119 | (blink-cursor-mode +1) | 119 | (blink-cursor-mode +1) |
120 | 120 | ||
121 | ;; Scrolling | 121 | ;; Scrolling |
@@ -306,7 +306,14 @@ | |||
306 | (write-region "" nil ispell-personal-dictionary nil 0)) | 306 | (write-region "" nil ispell-personal-dictionary nil 0)) |
307 | 307 | ||
308 | (add-hook 'text-mode-hook #'flyspell-mode) | 308 | (add-hook 'text-mode-hook #'flyspell-mode) |
309 | (add-hook 'prog-mode-hook #'flyepell-prog-mode)) | 309 | (add-hook 'prog-mode-hook #'flyspell-prog-mode)) |
310 | |||
311 | (setup scratch | ||
312 | (hook-defun immortal-scratch kill-buffer-query-functions | ||
313 | (if (eq (current-buffer (get-buffer "*scratch*"))) | ||
314 | (progn (bury-buffer) | ||
315 | nil) | ||
316 | t))) | ||
310 | 317 | ||
311 | 318 | ||
312 | ;; Applications | 319 | ;; Applications |
@@ -405,17 +412,17 @@ | |||
405 | '("\\.\\(gemini\\|gmi\\)\\'" . gemini-mode))) | 412 | '("\\.\\(gemini\\|gmi\\)\\'" . gemini-mode))) |
406 | 413 | ||
407 | (setup dired | 414 | (setup dired |
408 | (:setq-default dired-recursive-copies 'always | 415 | (:option dired-recursive-copies 'always |
409 | dired-recursive-deletes 'always | 416 | dired-recursive-deletes 'always |
410 | delete-by-moving-to-trash t | 417 | delete-by-moving-to-trash t |
411 | dired-listing-switches "-Al" | 418 | dired-listing-switches "-Al" |
412 | ls-lisp-dirs-first t | 419 | ls-lisp-dirs-first t |
413 | dired-ls-F-marks-symlinks t | 420 | dired-ls-F-marks-symlinks t |
414 | dired-no-confirm '(byte-compile | 421 | dired-no-confirm '(byte-compile |
415 | chgrp chmod chown copy | 422 | chgrp chmod chown copy |
416 | hardlink load move | 423 | hardlink load move |
417 | shell touch symlink) | 424 | shell touch symlink) |
418 | dired-dwim-target t) | 425 | dired-dwim-target t) |
419 | (:also-load dired-x) | 426 | (:also-load dired-x) |
420 | (:hook dired-hide-details-mode | 427 | (:hook dired-hide-details-mode |
421 | hl-line-mode) | 428 | hl-line-mode) |
@@ -435,7 +442,7 @@ | |||
435 | (:option trashed-action-confirmer 'y-or-n-p)))) | 442 | (:option trashed-action-confirmer 'y-or-n-p)))) |
436 | 443 | ||
437 | (setup (:straight magit) | 444 | (setup (:straight magit) |
438 | (:acdw/leader "g" magit-status) | 445 | (:leader "g" magit-status) |
439 | (:option magit-display-buffer-function | 446 | (:option magit-display-buffer-function |
440 | (defun magit-display-buffer-same-window (buffer) | 447 | (defun magit-display-buffer-same-window (buffer) |
441 | "Display BUFFER in the selected window like God intended." | 448 | "Display BUFFER in the selected window like God intended." |
@@ -736,8 +743,8 @@ if ripgrep is installed, otherwise `consult-grep'." | |||
736 | (when (executable-find "fennel") | 743 | (when (executable-find "fennel") |
737 | (setup (:straight fennel-mode) | 744 | (setup (:straight fennel-mode) |
738 | (autoload 'fennel-mode "fennel-mode" nil t) | 745 | (autoload 'fennel-mode "fennel-mode" nil t) |
739 | (:option (append auto-mode-alist) '("\\.fnl\\'" . fennel-mode)) | 746 | (autoload 'fennel-repl "fennel-mode" nil t) |
740 | (:bind "C-c C-c" ))) | 747 | (:option (append auto-mode-alist) '("\\.fnl\\'" . fennel-mode)))) |
741 | 748 | ||
742 | (setup (:straight geiser)) | 749 | (setup (:straight geiser)) |
743 | 750 | ||