123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379 |
- ;;; Main options
- (require 'functions)
- ;;; Minimal UI. Run early to hide it as soon as possible.
- (setq inhibit-startup-screen t)
- (menu-bar-mode -1)
- ;;; `tool-bar-mode' and `scroll-bar-mode' might not be compiled in.
- (when (fboundp 'tool-bar-mode) (tool-bar-mode -1))
- (when (fboundp 'scroll-bar-mode) (scroll-bar-mode -1))
- ;;; In some cases, Emacs can still decide by itself to use graphical boxes.
- ;;; Force on using the minibuffer instead.
- (setq use-dialog-box nil)
- ;;; Timeout before echoing the prefix of an unfinished keystroke.
- (setq echo-keystrokes 0.5)
- ;;; Remember last cursor position.
- (save-place-mode)
- ;;; When the daemon is killed abruptly, places are not saved. Adding this hook
- ;;; allows to save places at a strategic moment.
- (add-hook 'before-save-hook 'save-place-kill-emacs-hook)
- ;;; Recent files.
- (setq recentf-max-saved-items 40)
- ;;; Save M-: history.
- (savehist-mode)
- ;;; Disable autosave features.
- (setq auto-save-default nil)
- (setq auto-save-list-file-prefix nil)
- ;;; Place backup files in specific directory.
- (setq backup-directory-alist
- `(("." . ,(expand-file-name "backups" user-emacs-directory))))
- ;;; Default mode
- (setq-default major-mode 'text-mode)
- ;;; Disable suspend key since it is useless on Emacs server.
- (global-unset-key (kbd "C-z"))
- (global-unset-key (kbd "C-x C-z"))
- ;;; Make questions less annoying.
- (defalias 'yes-or-no-p 'y-or-n-p)
- ;;; Enable all disabled commands.
- (setq disabled-command-function nil)
- ;;; Print buffer size in mode line.
- (size-indication-mode 1)
- ;;; Display defun in mode line.
- ;; (which-function-mode)
- ;;; No need when we have a status bar.
- ;; (display-time)
- ;; (setq display-time-day-and-date t
- ;; display-time-24hr-format t
- ;; display-time-default-load-average nil)
- ;;; Just like time, no need when we have a status bar.
- ;; (display-battery-mode)
- ;;; TODO: Battery status (%b) does not work properly.
- ;; (setq battery-mode-line-format "[%p%%%b %t]")
- ;;; Line numbers
- ;;; Adding to `find-file-hook' ensures it will work for every file, regardless of
- ;;; the mode, but it won't work for buffers without files nor on mode change.
- (dolist (hook '(prog-mode-hook text-mode-hook))
- (add-hook hook 'ambrevar/turn-on-column-number-mode)
- (add-hook hook 'ambrevar/turn-off-line-number-mode)
- (add-hook hook 'display-line-numbers-mode))
- (setq display-line-numbers-type 'visual)
- ;;; Emacs-nox does not display a fringe after the linum: Setting linum-format in
- ;;; linum-before-numbering-hook is not the right approach as it will change the
- ;;; type of linum-format in the middle. See linum-update-window.
- ;;; See http://stackoverflow.com/questions/3626632/right-align-line-numbers-with-linum-mode
- ;;; and http://stackoverflow.com/questions/3626632/right-align-line-numbers-with-linum-mode.
- ;;; The complexity is not worth the benefit.
- ;;; Alternative scrolling
- (setq scroll-error-top-bottom t)
- ;;; Kill whole line including \n.
- (setq kill-whole-line t)
- ;;; Indentation
- (setq-default tab-width 2)
- (defvaralias 'standard-indent 'tab-width)
- (setq-default indent-tabs-mode t)
- ;;; Line by line scrolling
- (setq scroll-step 1)
- (setq
- whitespace-style
- '(face empty indentation space-after-tab space-before-tab tab-mark trailing))
- ;;; REVIEW: `whitespace-report' will mistakenly always report empty lines at
- ;;; beginning and end of buffer as long as there is at least one empty line.
- ;;; `whitespace-cleanup' works properly however.
- ;;; Reported at http://debbugs.gnu.org/cgi/bugreport.cgi?bug=23740.
- ;; (setq whitespace-action '(report-on-bogus))
- ;;; Add formatting functions to the buffer-local `before-save-hook'.
- ;;; WARNING: this can break some configuration files needing whitespaces at the
- ;;; end. This can also slow down saving on big files. Some modes (e.g. lisp) run
- ;;; `ambrevar/prettify' in their local hook, which is redundant with this.
- ;; (add-hook 'find-file-hook 'ambrevar/turn-on-prettify-before-save)
- (add-hook 'find-file-hook 'ambrevar/turn-on-delete-trailing-whitespace)
- ;;; Cycle spacing instead of just-one-space. This frees M-\.
- (global-set-key [remap just-one-space] 'cycle-spacing)
- ;;; Hippie expand
- ;; (global-set-key (kbd "M-/") 'hippie-expand)
- ;;; Abbreviation is like snippets: annoying at times, especially in
- ;;; prog-mode. They are useful in text mode to avoid the sprawling of
- ;;; abbreviations.
- (add-hook 'text-mode-hook 'abbrev-mode)
- ;;; Auto-fill
- (when (getenv "MANWIDTH")
- (setq-default fill-column (string-to-number (getenv "MANWIDTH"))))
- (add-hook 'text-mode-hook 'turn-on-auto-fill)
- ;; (setq sentence-end-double-space nil)
- ;;; Enforce horizontal splitting. 140 means that the window is large enough to
- ;;; hold 2 other windows of 70 columns.
- (setq split-height-threshold nil
- split-width-threshold 140)
- ;;; Windmove mode
- ;;; By default, it allows easy window switching with Shift+arrows. I like to
- ;;; stick to the home-row, but to avoid shadowing other binding I exceptionaly use
- ;;; 'super' (normally reserved to the WM).
- (when (fboundp 'windmove-default-keybindings)
- (ambrevar/global-set-keys
- "s-h" 'windmove-left
- "s-j" 'windmove-down
- "s-k" 'windmove-up
- "s-l" 'windmove-right))
- (ambrevar/global-set-keys
- "s-o" 'delete-other-windows
- ;; "s-w" 'other-window
- "s-c" 'delete-window)
- ;; REVIEW: If xdg-open is not found, set Emacs URL browser to the environment browser,
- ;; or w3m if BROWSER is not set.
- ;; See https://debbugs.gnu.org/cgi/bugreport.cgi?bug=18986.
- (setq browse-url-generic-program (or
- (executable-find (or (getenv "BROWSER") "")) ; TODO: Still need this in Emacs 26?
- (when (executable-find "xdg-mime")
- (let ((desktop-browser (ambrevar/call-process-to-string "xdg-mime" "query" "default" "text/html")))
- (substring desktop-browser 0 (string-match "\\.desktop" desktop-browser))))
- (executable-find browse-url-mozilla-program)
- (executable-find browse-url-firefox-program)
- (executable-find browse-url-chromium-program)
- (executable-find browse-url-kde-program)
- (executable-find browse-url-conkeror-program)
- (executable-find browse-url-chrome-program)))
- (setq shr-external-browser browse-url-browser-function)
- ;; shr
- (setq shr-width (string-to-number (or (getenv "MANWIDTH") "80")))
- ;;; Extend MIME-types support for videos.
- (with-eval-after-load 'mailcap
- (add-to-list 'mailcap-mime-extensions '(".webm" . "video/webm"))
- (add-to-list 'mailcap-mime-extensions '(".mp4" . "video/mp4"))
- (add-to-list 'mailcap-mime-extensions '(".flv" . "video/mp4"))
- (add-to-list 'mailcap-mime-extensions '(".ogv" . "video/ogg"))
- (add-to-list 'mailcap-mime-extensions '(".mkv" . "video/x-matroska")))
- ;;; Default ispell dictionary. If not set, Emacs uses the current locale.
- (setq ispell-dictionary "english")
- (ambrevar/define-keys text-mode-map
- "C-<f6>" 'ispell-change-dictionary
- "<f6>" 'ispell-buffer)
- ;;; Show matching parenthesis
- (show-paren-mode 1)
- ;;; By default, there’s a small delay before showing a matching parenthesis. Set
- ;;; it to 0 to deactivate.
- (setq show-paren-delay 0)
- (setq show-paren-when-point-inside-paren t)
- ;;; Electric Pairs to auto-complete () [] {} "" etc. It works on regions.
- ;; (electric-pair-mode)
- ;;; Spawn terminal shortcut: WM's binding is s+<return>.
- (global-set-key (kbd "C-x M-<return>") 'spawn-terminal)
- ;;; Calendar ISO display.
- (setq calendar-week-start-day 1)
- (setq calendar-date-style 'iso)
- ;;; Compilation bindings and conveniences.
- (setq compilation-ask-about-save nil)
- (setq compilation-scroll-output 'first-error)
- (with-eval-after-load 'compile
- ;; Making `compilation-directory' local only works with `recompile'
- ;; and if `compile' is never used. In such a scenario,
- ;; `compile-command' is not saved by `recompile' itself which adds a
- ;; lot of bookkeeping.
- ;; (make-variable-buffer-local 'compilation-directory)
- ;; (make-variable-buffer-local 'compile-history)
- (make-variable-buffer-local 'compile-command))
- ;;; Some commands ignore that compilation-mode is a "dumb" terminal and still display colors.
- ;;; Thus we render those colors.
- (require 'ansi-color)
- (defun ambrevar/compilation-colorize-buffer ()
- (when (eq major-mode 'compilation-mode)
- (ansi-color-apply-on-region compilation-filter-start (point-max))))
- (add-hook 'compilation-filter-hook 'ambrevar/compilation-colorize-buffer)
- (global-set-key (kbd "<f7>") 'previous-error)
- (global-set-key (kbd "<f8>") 'next-error)
- (defun ambrevar/compile-last-command ()
- (interactive)
- (compile compile-command))
- (ambrevar/define-keys prog-mode-map
- "C-<f6>" 'compile
- ;; Do not use `recompile' since we want to change the compilation folder for the current buffer.
- "<f6>" 'ambrevar/compile-last-command)
- ;;; REVIEW: Bug 26658 reports that cc-modes mistakenly does not make use of prog-mode-map.
- ;;; The following line is a suggested work-around.
- ;;; This should be fixed in Emacs 26.
- (eval-after-load 'cc-mode '(set-keymap-parent c-mode-base-map prog-mode-map))
- ;;; Comint mode
- (setq comint-prompt-read-only t)
- ;;; Desktop-mode
- ;;; REVIEW: `desktop-kill' should not query the user in `kill-emacs-hook'.
- ;;; https://debbugs.gnu.org/cgi/bugreport.cgi?bug=28943
- ;;; TODO: Desktop mode does not save window registers properly.
- ;;; See https://groups.google.com/forum/#!topic/gnu.emacs.help/64aO_O43530
- ;;; and https://www.reddit.com/r/emacs/comments/4q38s1/save_register_between_sessions/?st=j419vc7r&sh=2617ffb4
- ;;; and http://debbugs.gnu.org/cgi/bugreport.cgi?bug=27422
- ;;; and https://stackoverflow.com/questions/5830494/windows-configuration-to-registers#5830928
- ;;; and https://www.reddit.com/r/emacs/comments/7au3hj/how_do_you_manage_your_emacs_windows_and_stay_sane/dpfbg3a/?context=3.
- (when (daemonp)
- ;; Auto-load/save sessions only when running the daemon.
- ;; `server-running-p' is only useful once the daemon is started and cannot be
- ;; used for initialization. Use `daemonp' instead.
- (when (< emacs-major-version 27)
- ;; By default, Emacs<27 prompts for unsafe variable when loading desktop
- ;; which stucks the daemon. Disable this behaviour.
- (defun ambrevar/enable-safe-local-variables ()
- (setq enable-local-variables t))
- (add-hook 'after-init-hook 'ambrevar/enable-safe-local-variables))
- (require 'desktop) ; This adds a hook to `after-init-hook'.
- (when (< emacs-major-version 27)
- (defun ambrevar/enable-all-local-variables ()
- (setq enable-local-variables :all))
- (add-hook 'after-init-hook 'ambrevar/enable-all-local-variables))
- (when (< emacs-major-version 27)
- (load "patch-desktop"))
- (setq history-length 250
- ;; Default timer (30) is way too high: for somebody too frenzy, the timer
- ;; might never be saved. See
- ;; https://debbugs.gnu.org/cgi/bugreport.cgi?bug=28943.
- desktop-auto-save-timeout 5
- ;; desktop-restore-eager 4 ; Can be annoying as you don't have your last-loaded buffers immediately.
- ;; desktop-load-locked-desktop 'ask
- desktop-restore-frames nil
- desktop-save t)
- ;; Before Emacs 27, initialization needs the patch above.
- (if (< emacs-major-version 27)
- (desktop-save-mode)
- (defun ambrevar/desktop-init (_frame)
- (desktop-save-mode)
- (desktop-read)
- (remove-hook 'server-after-make-frame-hook 'ambrevar/desktop-init))
- (add-hook 'server-after-make-frame-hook 'ambrevar/desktop-init))
- ;; Discarding PDFs and images makes it lighter.
- (add-to-list 'desktop-modes-not-to-save 'pdf-view-mode)
- (add-to-list 'desktop-modes-not-to-save 'image-mode)
- ;; TODO: `compile-history' should be buffer local but that does not work.
- ;; http://user42.tuxfamily.org/compile-history-local/index.html
- ;; http://stackoverflow.com/questions/22995203/one-compile-command-per-buffer-not-directory
- ;; (add-to-list 'desktop-locals-to-save 'compile-history)
- (add-to-list 'desktop-locals-to-save 'compile-command)
- (add-to-list 'desktop-locals-to-save 'ispell-local-dictionary))
- ;;; Buffer names.
- (setq uniquify-buffer-name-style 'forward)
- ;;; Skeleton settings
- ;;; Do not expand abbrevs in skeletons.
- (setq-default skeleton-further-elements '((abbrev-mode nil)))
- (ambrevar/turn-on-skeleton-markers)
- (ambrevar/global-set-keys
- "C->" 'skeleton-next-position
- "C-<" 'skeleton-previous-position)
- ;;; Disable prompt (but leave warning) on git symlink.
- (setq vc-follow-symlinks t)
- ;;; Clipboard and primary selection.
- ;; (setq select-enable-clipboard t)
- (setq select-enable-primary t
- save-interprogram-paste-before-kill t)
- ;;; Move mouse away.
- (mouse-avoidance-mode 'banish)
- ;;; That binding is not very useful and gets in the way of C-<mouse-1>.
- (global-unset-key (kbd "C-<down-mouse-1>"))
- ;;; Scroll zooming.
- (ambrevar/global-set-keys
- "C-<wheel-down>" 'text-scale-decrease
- "C-<mouse-5>" 'text-scale-decrease
- "C-<wheel-up>" 'text-scale-increase
- "C-<mouse-4>" 'text-scale-increase)
- (setq text-scale-mode-step 1.1)
- ;;; Sort
- (setq sort-fold-case t)
- ;;; Replace not-so-useful comment-dwim binding.
- (global-set-key (kbd "M-;") 'comment-line)
- ;;; Eldoc: Disable if too distracting.
- ;; (global-eldoc-mode 0)
- ;; (setq eldoc-idle-delay 0.1) ; Could be even more distracting.
- ;;; Replace `kill-buffer' binding by `kill-this-buffer'.
- (global-set-key (kbd "C-x k") 'kill-this-buffer)
- ;;; Ediff
- ;;; TODO: Ediff does not seem to auto-refine. Bug? Compare daemon and no-daemon.
- (setq ediff-window-setup-function 'ediff-setup-windows-plain
- ediff-split-window-function 'split-window-horizontally)
- ;;; Trash
- (setq delete-by-moving-to-trash t)
- ;;; Display Time World
- (setq
- zoneinfo-style-world-list
- '(("UTC" "-")
- ("Europe/Paris" "France Germany Sweden")
- ("Asia/Calcutta" "India")
- ("Indian/Mauritius" "Mauritius")
- ("Africa/Tunis" "Tunisia")
- ("Asia/Ho_Chi_Minh" "Vietnam")
- ("Australia/Melbourne" "Melbourne")
- ("Africa/Nairobi" "Uganda")))
- ;;; Frame title
- (setq frame-title-format (concat "%b" (unless (daemonp) " [serverless]")))
- ;;; Initial scratch buffer message.
- (require 'functions) ; For `ambrevar/fortune-scratch-message'.
- (let ((fortune (ambrevar/fortune-scratch-message)))
- (when fortune
- (setq initial-scratch-message fortune)))
- ;;; Support for Emacs pinentry.
- ;;; Required for eshell/sudo and everything relying on GPG queries.
- (setq epa-pinentry-mode 'loopback) ; This will fail if gpg>=2.1 is not available.
- (when (require 'pinentry nil t)
- (pinentry-start))
- ;;; Edebug
- ;; (setq edebug-trace t)
- ;;; Make windowing more reactive on. This is especially true with Helm on EXWM.
- (when (= emacs-major-version 26)
- (setq x-wait-for-event-timeout nil))
- (setq woman-fill-column fill-column)
- (provide 'main)
|