Emacs Minimal Config

;;; init.el --- Minimal initialization file -*- lexical-binding: t; -*-

;;; Commentary:
;; Minimal initialization to get a well configured Emacs, no packages
;; installed.

;;; Code:

(custom-set-variables
 ;; custom-set-variables was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(Man-notify-method 'aggressive)
 '(after-save-hook '(executable-make-buffer-file-executable-if-script-p))
 '(bidi-paragraph-direction 'left-to-right)
 '(bookmark-save-flag 1)
 '(column-number-mode t)
 '(completion-auto-select 'second-tab)
 '(completion-category-overrides '((file (styles partial-completion))))
 '(completion-cycle-threshold 3)
 '(completion-styles '(basic initials partial-completion emacs22))
 '(completions-detailed t)
 '(completions-format 'vertical)
 '(completions-group t)
 '(completions-group-sort 'alphabetical)
 '(completions-max-height 10)
 '(delete-selection-mode t)
 '(dired-auto-revert-buffer t)
 '(dired-dwim-target t)
 '(dired-listing-switches "-al --group-directories-first")
 '(dynamic-completion-mode t)
 '(ediff-window-setup-function 'ediff-setup-windows-plain)
 '(eglot-autoshutdown t)
 '(electric-pair-mode t)
 '(epg-pinentry-mode 'loopback)
 '(fast-but-imprecise-scrolling t)
 '(font-use-system-font t)
 '(global-auto-revert-mode t)
 '(global-auto-revert-non-file-buffers t)
 '(global-display-line-numbers-mode t)
 '(global-so-long-mode t)
 '(ibuffer-movement-cycle nil)
 '(ibuffer-old-time 24)
 '(indent-tabs-mode nil)
 '(isearch-allow-motion t)
 '(isearch-lazy-count t)
 '(isearch-yank-on-move 'shift)
 '(kill-do-not-save-duplicates t)
 '(load-prefer-newer t)
 '(org-adapt-indentation t t)
 '(org-agenda-files nil)
 '(org-agenda-include-diary t t)
 '(org-duration-format '(("h") (special . h:mm)) t)
 '(org-export-backends '(ascii html icalendar latex md odt) t)
 '(org-outline-path-complete-in-steps nil t)
 '(org-refile-allow-creating-parent-nodes 'confirm t)
 '(org-refile-targets '((nil :maxlevel . 9) (org-agenda-files :maxlevel . 9)) t)
 '(org-refile-use-outline-path 'file t)
 '(package-archive-priorities
   '(("gnu" . 99)
     ("nongnu" . 80)
     ("stable" . 70)
     ("melpa" . 0)))
 '(prog-mode-hook
   '(flyspell-prog-mode abbrev-mode flymake-mode display-line-numbers-mode))
 '(repeat-mode t)
 '(savehist-mode t)
 '(scroll-conservatively 101)
 '(speedbar-update-flag t)
 '(speedbar-use-images nil)
 '(switch-to-buffer-in-dedicated-window 'pop)
 '(switch-to-buffer-obey-display-actions t)
 '(tab-always-indent 'complete)
 '(tab-bar-mode t)
 '(tab-bar-new-tab-choice "*scratch*")
 '(tab-bar-new-tab-to 'rightmost)
 '(tab-bar-select-tab-modifiers '(control meta))
 '(tab-bar-tab-hints t)
 '(tempo-interactive t)
 '(text-mode-hook
   '(turn-on-flyspell turn-on-auto-fill text-mode-hook-identify))
 '(tool-bar-mode nil)
 '(whitespace-action '(cleanup auto-cleanup) t)
 '(whitespace-style '(face empty trailing tab-mark indentation::space) t)
 '(winner-mode t)
 '(xref-show-definitions-function 'xref-show-definitions-completing-read))
(custom-set-faces
 ;; custom-set-faces was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(default ((t (:family "DejaVu Sans Mono" :foundry "PfEd" :slant normal :weight regular :height 158 :width normal))))
 '(fixed-pitch ((t (:inherit (default)))))
 '(fixed-pitch-serif ((t (:inherit (default)))))
 '(tab-bar-tab ((t (:box (:line-width (2 . -2) :color "orange") :foreground "LightSteelBlue" :background "black" :inherit mode-line-active))))
 '(tab-bar-tab-inactive ((t (:foreground "SteelBlue" :background "grey75" :inherit tab-bar-tab)))))

;;;; key bindings
(global-set-key [remap list-buffers] #'ibuffer-list-buffers)
(global-set-key (kbd "C-+") #'text-scale-increase)
(global-set-key (kbd "C--") #'text-scale-decrease)
(global-set-key (kbd "M-#") #'dictionary-lookup-definition)

;;;;; window navigation and control
(define-prefix-command 'minimal-windows-key-map)

(keymap-set 'minimal-windows-key-map "u" 'winner-undo)
(keymap-set 'minimal-windows-key-map "r" 'winner-redo)
(keymap-set 'minimal-windows-key-map "n" 'windmove-down)
(keymap-set 'minimal-windows-key-map "p" 'windmove-up)
(keymap-set 'minimal-windows-key-map "b" 'windmove-left)
(keymap-set 'minimal-windows-key-map "f" 'windmove-right)

(keymap-global-set "C-c w" 'minimal-windows-key-map)


;;;; lists

(add-to-list 'display-buffer-alist
             '("^\\*Dictionary\\*"
               (display-buffer-in-side-window)
               (side . left)
               (window-width . 70)))
(add-to-list 'display-buffer-alist
             '("\\*Help\\*"
               (display-buffer-reuse-window display-buffer-pop-up-window)))



(provide 'init)

;; Local Variables:
;; eval: (eldoc-mode)
;; eval: (outline-minor-mode 1)
;; End:

;;; init.el ends here