;;; crafted-defaults.el --- Crafted Emacs Defaults -*- lexical-binding: t; -*-

;; Copyright (C) 2024

;; SPDX-License-Identifier: MIT

;; Author: System Crafters Community

;;; Commentary:

;; General Crafted Emacs endorsed defaults

;;

;; Some of these settings were inspired by the following:

;; - Charles Choi: "Surprise and Emacs Defaults"

;; http://yummymelon.com/devnull/surprise-and-emacs-defaults.html

;; - Mickey Petersen: "Mastering Emacs",

;; especially "Demystifying Emacs’s Window Manager"

;; https://www.masteringemacs.org/article/demystifying-emacs-window-manager

;;; Code:

;;; Customization Variables - See `M-x customize-group RET crafted-defaults'

(defgroup crafted-defaults '()

"Customizations for Crafted Emacs - Defaults."

:tag "Crafted Defaults"

:group 'crafted)

(defcustom crafted-windows-prefix-key "C-c w"

"Configure the prefix key for window movement bindings.

Movement commands provided by `windmove' package, `winner-mode'

also enables undo functionality if the window layout changes."

:group 'crafted-defaults

:type 'string)



;;; Buffers

;; Revert Dired and other buffers

(customize-set-variable 'global-auto-revert-non-file-buffers t)

;; Revert buffers when the underlying file has changed

(global-auto-revert-mode 1)

;; Make dired do something intelligent when two directories are shown

;; in separate dired buffers. Makes copying or moving files between

;; directories easier. The value `t' means to guess the default

;; target directory.

(customize-set-variable 'dired-dwim-target t)

;; automatically update dired buffers on revisiting their directory

(customize-set-variable 'dired-auto-revert-buffer t)

;; scroll eshell buffer to the bottom on input, but only in "this"

;; window.

(customize-set-variable 'eshell-scroll-to-bottom-on-input 'this)

;; pop up dedicated buffers in a different window.

(customize-set-variable 'switch-to-buffer-in-dedicated-window 'pop)

;; treat manual buffer switching (C-x b for example) the same as

;; programmatic buffer switching.

(customize-set-variable 'switch-to-buffer-obey-display-actions t)

;; prefer the more full-featured built-in ibuffer for managing

;; buffers.

(keymap-global-set "<remap> <list-buffers>" #'ibuffer-list-buffers)

;; turn off forward and backward movement cycling

(customize-set-variable 'ibuffer-movement-cycle nil)

;; the number of hours before a buffer is considered "old" by

;; ibuffer.

(customize-set-variable 'ibuffer-old-time 24)



;;; Completion settings

;; Turn on the best completion-mode available:

;; - in version 28 or later, turn on `fido-vertical-mode'

;; - in earlier versions, if the additional package `icomplete-vertical' is

;; present, turn it on.

;; - otherwise turn on `icomplete-mode'

;;

;; Note: If you also use `crafted-completion-config' and have `vertico'

;; installed, all of these modes will be turned off in favour of

;; `vertico'.

(if (version< emacs-version "28")

(if (locate-library "icomplete-vertical")

(icomplete-vertical-mode 1)

(icomplete-mode 1))

(fido-vertical-mode 1))

;; Emacs version 30.1 introduced `global-completion-preview-mode'

;; which provides completion previews in the editing buffer rather

;; than in the minibuffer similar to other packages like `corfu'.

(when (version< "30" emacs-version)

(global-completion-preview-mode 1)

;; also bind M-n/M-p to next/previous completion

;; by default C-i is bound to #'completion-preview-insert and

;; M-i is bound to #'completion-preview-complete

(keymap-set completion-preview-active-mode-map "M-n" #'completion-preview-next-candidate)

(keymap-set completion-preview-active-mode-map "M-p" #'completion-preview-prev-candidate))

;; No matter which completion mode is used:

(customize-set-variable 'tab-always-indent 'complete)

(customize-set-variable 'completion-cycle-threshold 3)

(customize-set-variable 'completion-category-overrides

'((file (styles . (partial-completion)))))

(customize-set-variable 'completions-detailed t)

;; use completion system instead of popup window

(customize-set-variable 'xref-show-definitions-function

#'xref-show-definitions-completing-read)



;;; Editing

;; Typed text replaces the selection if the selection is active,

;; pressing delete or backspace deletes the selection.

(delete-selection-mode)

;; Use spaces instead of tabs

(setq-default indent-tabs-mode nil)

;; Do not save duplicates in kill-ring

(customize-set-variable 'kill-do-not-save-duplicates t)

;; Better support for files with long lines

(setq-default bidi-paragraph-direction 'left-to-right)

(setq-default bidi-inhibit-bpa t)

(global-so-long-mode 1)

;; define a key to define the word at point.

(keymap-set global-map "M-#" #'dictionary-lookup-definition)

;; Show dictionary definition on the left

(add-to-list 'display-buffer-alist

'("^\\*Dictionary\\*"

(display-buffer-in-side-window)

(side . left)

(window-width . 70)))

;; turn on spell checking, if available.

(with-eval-after-load 'ispell

(when (executable-find ispell-program-name)

(add-hook 'text-mode-hook #'flyspell-mode)

(add-hook 'prog-mode-hook #'flyspell-prog-mode)))



;;; Navigation

;; add hydra to facilitate remembering the keys and actions for dumb-jump

(when (and (require 'hydra nil :noerror)

(require 'dumb-jump nil :noerror))

(defhydra dumb-jump-hydra (:color blue :columns 3)

"Dumb Jump"

("j" dumb-jump-go "Go")

("o" dumb-jump-go-other-window "Other window")

("e" dumb-jump-go-prefer-external "Go external")

("x" dumb-jump-go-prefer-external-other-window "Go external other window")

("i" dumb-jump-go-prompt "Prompt")

("l" dumb-jump-quick-look "Quick look")

("b" dumb-jump-back "Back"))

;; not a great key as a mnemonic, but easy to press quickly

(keymap-set dumb-jump-mode-map "C-M-y" #'dumb-jump-hydra/body))

;; use xref

(with-eval-after-load 'dumb-jump

(add-hook 'xref-backend-functions #'dumb-jump-xref-activate))



;;; Persistence between sessions

;; Turn on recentf mode

(add-hook 'after-init-hook #'recentf-mode)

;; Enable savehist-mode for command history

(savehist-mode 1)

;; save the bookmarks file every time a bookmark is made or deleted

;; rather than waiting for Emacs to be killed. Useful especially when

;; Emacs is a long running process.

(customize-set-variable 'bookmark-save-flag 1)



;;; Window management

;; Turning on `winner-mode' provides an "undo" function for resetting

;; your window layout. We bind this to `C-c w u' for winner-undo and

;; `C-c w r' for winner-redo (see below).

(winner-mode 1)

(define-prefix-command 'crafted-windows-key-map)

(keymap-set 'crafted-windows-key-map "u" 'winner-undo)

(keymap-set 'crafted-windows-key-map "r" 'winner-redo)

(keymap-set 'crafted-windows-key-map "n" 'windmove-down)

(keymap-set 'crafted-windows-key-map "p" 'windmove-up)

(keymap-set 'crafted-windows-key-map "b" 'windmove-left)

(keymap-set 'crafted-windows-key-map "f" 'windmove-right)

(keymap-global-set crafted-windows-prefix-key 'crafted-windows-key-map)

;; Make scrolling less stuttered

(setq auto-window-vscroll nil)

(customize-set-variable 'fast-but-imprecise-scrolling t)

(customize-set-variable 'scroll-conservatively 101)

(customize-set-variable 'scroll-margin 0)

(customize-set-variable 'scroll-preserve-screen-position t)

;; open man pages in their own window, and switch to that window to

;; facilitate reading and closing the man page.

(customize-set-variable 'Man-notify-method 'aggressive)

;; keep the Ediff control panel in the same frame

(customize-set-variable 'ediff-window-setup-function

'ediff-setup-windows-plain)

;; Window configuration for special windows.

(add-to-list 'display-buffer-alist

'("\\*Help\\*"

(display-buffer-reuse-window display-buffer-pop-up-window)))

(add-to-list 'display-buffer-alist

'("\\*Completions\\*"

(display-buffer-reuse-window display-buffer-pop-up-window)

(inhibit-same-window . t)

(window-height . 10)))



;;; Miscellaneous

;; Load source (.el) or the compiled (.elc or .eln) file whichever is

;; newest

(customize-set-variable 'load-prefer-newer t)

;; Make shebang (#!) file executable when saved

(add-hook 'after-save-hook

#'executable-make-buffer-file-executable-if-script-p)

;; Turn on repeat mode to allow certain keys to repeat on the last

;; keystroke. For example, C-x [ to page backward, after pressing this

;; keystroke once, pressing repeated [ keys will continue paging

;; backward. `repeat-mode' is exited with the normal C-g, by movement

;; keys, typing, or pressing ESC three times.

(unless (version< emacs-version "28")

(repeat-mode 1))

(provide 'crafted-defaults-config)

;;; crafted-defaults-config.el ends here