Initial commit
This commit is contained in:
384
init.el.org
Normal file
384
init.el.org
Normal file
@@ -0,0 +1,384 @@
|
||||
#+title: init.el.org
|
||||
#+lastmod: [2025-03-16 Sun 15:55]
|
||||
|
||||
How to tangle: ~M-x org-babel-tangle [C-c C-v t]~
|
||||
|
||||
See also: https://orgmode.org/manual/Extracting-Source-Code.html
|
||||
|
||||
* init.el
|
||||
:PROPERTIES:
|
||||
:header-args: :tangle ~/.emacs.d/init.el
|
||||
:END:
|
||||
|
||||
** About me
|
||||
https://www.gnu.org/software/emacs/manual/html_node/elisp/User-Identification.html
|
||||
|
||||
#+begin_src elisp
|
||||
(setq user-full-name "Anne"
|
||||
user-mail-address "anne@minded.net")
|
||||
#+end_src
|
||||
|
||||
** Use-package
|
||||
https://github.com/jwiegley/use-package
|
||||
|
||||
#+begin_src elisp
|
||||
(require 'package)
|
||||
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/"))
|
||||
(package-initialize)
|
||||
(unless (package-installed-p 'use-package)
|
||||
(package-refresh-contents)
|
||||
(package-install 'use-package))
|
||||
(require 'use-package)
|
||||
(setq use-package-always-ensure 't)
|
||||
#+end_src
|
||||
|
||||
** Reload configuration
|
||||
|
||||
#+begin_src elisp
|
||||
(defun reload-emacs-configuration ()
|
||||
(interactive)
|
||||
(load-file "~/.emacs.d/init-shell.el")
|
||||
(message "Configuarion reloaded!"))
|
||||
#+end_src
|
||||
|
||||
** Customizations file
|
||||
https://www.gnu.org/software/emacs/manual/html_node/emacs/Saving-Customizations.html
|
||||
|
||||
You can choose to save customizations somewhere other than your initialization file.
|
||||
|
||||
#+begin_src elisp
|
||||
(setq custom-file "~/.emacs.d/custom.el")
|
||||
(load custom-file 'noerror 'nomessage)
|
||||
#+end_src
|
||||
|
||||
** DISABLED Lock files
|
||||
https://www.gnu.org/software/emacs/manual/html_node/elisp/File-Locks.html
|
||||
|
||||
If create-lockfiles is nil, Emacs does not lock files.
|
||||
|
||||
#+begin_src elisp :tangle no
|
||||
(setq create-lockfiles nil)
|
||||
#+end_src
|
||||
|
||||
** DISABLED Disable startup screen
|
||||
https://www.gnu.org/software/emacs/manual/html_node/elisp/Startup-Summary.html
|
||||
|
||||
#+begin_src elisp :tangle no
|
||||
(setq inhibit-startup-screen t)
|
||||
#+end_src
|
||||
|
||||
** Diminish
|
||||
https://github.com/myrjola/diminish.el
|
||||
|
||||
Diminish implements hiding or abbreviation of the mode line displays (lighters) of minor-modes.
|
||||
|
||||
#+begin_src elisp
|
||||
(use-package diminish
|
||||
:ensure t)
|
||||
#+end_src
|
||||
|
||||
** Yes-or-no prompts
|
||||
https://www.emacswiki.org/emacs/YesOrNoP
|
||||
|
||||
#+begin_src elispx1
|
||||
(defalias 'yes-or-no-p 'y-or-n-p)
|
||||
#+end_src
|
||||
|
||||
** Column and line numbers
|
||||
https://www.gnu.org/software/emacs/manual/html_node/efaq/Displaying-the-current-line-or-column.html
|
||||
|
||||
#+begin_src elisp
|
||||
(column-number-mode t)
|
||||
#+end_src
|
||||
|
||||
** Suppress dialog boxes
|
||||
https://www.gnu.org/software/emacs/manual/html_node/emacs/Dialog-Boxes.html
|
||||
|
||||
#+begin_src elisp
|
||||
(setq use-dialog-box nil)
|
||||
#+end_src
|
||||
|
||||
** Keeping buffers up-to-date
|
||||
https://www.gnu.org/software/emacs/manual/html_node/emacs/Auto-Revert.html
|
||||
|
||||
#+begin_src elisp
|
||||
(global-auto-revert-mode 1)
|
||||
(setq global-auto-revert-non-file-buffers t)
|
||||
#+end_src
|
||||
|
||||
** Sentences
|
||||
https://www.gnu.org/software/emacs/manual/html_node/efaq/Filling-paragraphs-with-a-single-space.html
|
||||
|
||||
#+begin_src elisp
|
||||
(setq sentence-end-double-space nil)
|
||||
#+end_src
|
||||
|
||||
** Kill-line
|
||||
https://www.gnu.org/software/emacs/manual/html_node/emacs/Killing-by-Lines.html
|
||||
|
||||
If non-nil, 'kill-line' with no arg at start of line kills the whole line.
|
||||
|
||||
#+begin_src elisp
|
||||
(setq kill-whole-line t)
|
||||
#+end_src
|
||||
|
||||
** Indentation
|
||||
https://www.gnu.org/software/emacs/manual/html_node/eintr/Indent-Tabs-Mode.html
|
||||
|
||||
#+begin_src elisp
|
||||
(setq-default indent-tabs-mode nil)
|
||||
#+end_src
|
||||
|
||||
** Rainbow delimiters
|
||||
https://github.com/Fanael/rainbow-delimiters
|
||||
|
||||
#+begin_src elisp
|
||||
(use-package rainbow-delimiters
|
||||
:init)
|
||||
#+end_src
|
||||
|
||||
** org-appear
|
||||
https://github.com/awth13/org-appear
|
||||
|
||||
#+begin_src elisp
|
||||
(use-package org-appear
|
||||
:load-path "~/.emacs.d/etc/elisp/org-appear"
|
||||
:hook (org-mode . org-appear-mode))
|
||||
#+end_src
|
||||
|
||||
#+begin_src elisp
|
||||
(setq org-hide-emphasis-markers t)
|
||||
#+end_src
|
||||
|
||||
** Minibuffer
|
||||
https://www.gnu.org/software/emacs/manual/html_node/emacs/Minibuffer-Edit.html
|
||||
|
||||
The variable ~resize-mini-windows~ controls the resizing of the minibuffer. If the value is t, the minibuffer window will also shrink automatically if you remove some lines of text from the minibuffer, down to a minimum of one screen line.
|
||||
The variable ~max-mini-window-height~ controls the maximum height for resizing the minibuffer window. A floating-point number specifies a fraction of the frame's height; an integer specifies the maximum number of lines; nil means do not resize the minibuffer window automatically. The default value is 0.25.
|
||||
|
||||
#+begin_src elisp
|
||||
(setq resize-mini-windows t)
|
||||
(setq max-mini-window-height 0.5)
|
||||
#+end_src
|
||||
|
||||
** Word wrap
|
||||
https://www.gnu.org/software/emacs/manual/html_node/emacs/Visual-Line-Mode.html
|
||||
|
||||
#+begin_src elisp
|
||||
(add-hook 'text-mode-hook 'visual-line-mode)
|
||||
#+end_src
|
||||
|
||||
** Overwrite highlighted region
|
||||
https://www.gnu.org/software/emacs/manual/html_node/efaq/Replacing-highlighted-text.html
|
||||
|
||||
#+begin_src elisp
|
||||
(delete-selection-mode t)
|
||||
#+end_src
|
||||
|
||||
** Scrolling
|
||||
https://www.gnu.org/software/emacs/manual/html_node/emacs/Scrolling.html
|
||||
|
||||
#+begin_src elisp
|
||||
(setq scroll-error-top-bottom t)
|
||||
#+end_src
|
||||
|
||||
** Cursor
|
||||
https://www.gnu.org/software/emacs/manual/html_node/emacs/Cursor-Display.html
|
||||
|
||||
#+begin_src elisp
|
||||
(global-hl-line-mode t)
|
||||
#+end_src
|
||||
|
||||
** Window handling
|
||||
https://www.gnu.org/software/emacs/manual/html_node/emacs/Window-Convenience.html#index-winner_002dmode
|
||||
|
||||
Winner mode is a global minor mode that records the changes in the window configuration (i.e., how the frames are partitioned into windows), so that you can undo them.
|
||||
|
||||
#+begin_src elisp
|
||||
(winner-mode 1)
|
||||
#+end_src
|
||||
|
||||
The Windmove package defines commands for moving directionally between neighboring windows in a frame.
|
||||
|
||||
#+begin_src elisp
|
||||
(use-package windmove
|
||||
:bind
|
||||
(("<f2> <right>" . windmove-right)
|
||||
("<f2> <left>" . windmove-left)
|
||||
("<f2> <up>" . windmove-up)
|
||||
("<f2> <down>" . windmove-down)))
|
||||
#+end_src
|
||||
|
||||
** Saving files
|
||||
https://www.gnu.org/software/emacs/manual/html_node/emacs/Backup.html
|
||||
|
||||
Automatically backup buffers/files into the ~.emacs.d/backup/ directory.
|
||||
|
||||
#+begin_src elisp
|
||||
(make-directory (expand-file-name "backups/" user-emacs-directory) t)
|
||||
(setq backup-directory-alist `(("." . ,(expand-file-name "backups/" user-emacs-directory)))
|
||||
backup-by-copying t ; Don't delink hardlinks
|
||||
version-control t ; Use version numbers on backups
|
||||
delete-old-versions t ; Automatically delete excess backups
|
||||
kept-new-versions 20 ; how many of the newest versions to keep
|
||||
kept-old-versions 5) ; and how many of the old
|
||||
#+end_src
|
||||
|
||||
https://www.gnu.org/software/emacs/manual/html_node/emacs/Auto-Save-Control.html
|
||||
|
||||
#+begin_src elisp
|
||||
(setq auto-save-timeout 20 ; number of seconds idle time before auto-save (default: 30)
|
||||
auto-save-interval 200) ; number of keystrokes between auto-saves (default: 300)
|
||||
#+end_src
|
||||
|
||||
** Unset C-z
|
||||
Unset C-z which is bound to `suspend-frame' by default.
|
||||
|
||||
#+begin_src elisp
|
||||
(global-unset-key (kbd "C-z"))
|
||||
#+end_src
|
||||
|
||||
** Dired
|
||||
https://lucidmanager.org/productivity/manage-files-with-emacs/
|
||||
|
||||
#+begin_src elisp
|
||||
(put 'dired-find-alternate-file 'disabled nil)
|
||||
(setq dired-listing-switches "-agho --group-directories-first")
|
||||
#+end_src
|
||||
|
||||
** Crux
|
||||
https://github.com/bbatsov/crux
|
||||
|
||||
A Collection of Ridiculously Useful eXtensions for Emacs. crux bundles many useful interactive commands to enhance your overall Emacs experience.
|
||||
|
||||
#+begin_src elisp
|
||||
(use-package crux
|
||||
:bind
|
||||
("C-a" . crux-move-beginning-of-line)
|
||||
("C-c o" . crux-open-with)
|
||||
("C-k" . crux-kill-whole-line)
|
||||
:config
|
||||
(crux-with-region-or-buffer indent-region)
|
||||
(crux-with-region-or-buffer untabify)
|
||||
(crux-with-region-or-line comment-or-uncomment-region)
|
||||
:hook (before-save-hook . crux-cleanup-buffer-or-region))
|
||||
#+end_src
|
||||
|
||||
** Kill buffer
|
||||
|
||||
#+begin_src elisp
|
||||
(global-set-key (kbd "C-x k") 'kill-this-buffer)
|
||||
#+end_src
|
||||
|
||||
** Doom-themes
|
||||
[[https://github.com/doomemacs/themes]]
|
||||
|
||||
#+begin_src elisp
|
||||
(use-package doom-themes
|
||||
:ensure t
|
||||
:config
|
||||
(setq doom-themes-enable-bold t ; if nil, bold is universally disabled
|
||||
doom-themes-enable-italic t ; if nil, italics is universally disabled
|
||||
doom-themes-padded-modeline t)
|
||||
(load-theme 'doom-vibrant t)
|
||||
(setq doom-themes-treemacs-theme "doom-colors") ; use "doom-colors" for less minimal icon theme
|
||||
(doom-themes-treemacs-config)
|
||||
(doom-themes-org-config) ; corrects (and improves) org-mode's native fontification
|
||||
(custom-set-faces
|
||||
'(font-lock-comment-face ((t (:foreground "#6c6f93" :slant normal))))
|
||||
'(org-hide ((t (:foreground "grey15"))))
|
||||
'(org-scheduled-today ((t (:foreground "violet"))))
|
||||
'(org-todo ((t (:foreground "magenta"))))
|
||||
'(org-done ((t (:foreground "#9ca0a4" :bold nil :background "grey15"))))
|
||||
'(org-tag ((t (:foreground "teal"))))
|
||||
'(org-link ((t (:bold nil))))))
|
||||
#+end_src
|
||||
|
||||
** Mood-line
|
||||
https://github.com/jessiehildebrandt/mood-line
|
||||
|
||||
mood-line is a minimal mode-line configuration that aims to replicate some of the features of the doom-modeline package.
|
||||
|
||||
#+begin_src elisp
|
||||
(use-package mood-line
|
||||
:config (mood-line-mode))
|
||||
#+end_src
|
||||
|
||||
** Magit
|
||||
https://magit.vc/
|
||||
https://systemcrafters.net/mastering-git-with-magit/introduction/
|
||||
|
||||
#+begin_src elisp
|
||||
(use-package magit
|
||||
:ensure t)
|
||||
#+end_src
|
||||
|
||||
** Which-key
|
||||
https://github.com/justbur/emacs-which-key
|
||||
|
||||
which-key is a minor mode for Emacs that displays the key bindings following your currently entered incomplete command (a prefix) in a popup.
|
||||
|
||||
#+begin_src elisp
|
||||
(use-package which-key
|
||||
:config
|
||||
(which-key-mode)
|
||||
(setq which-key-idle-delay 0.5
|
||||
which-key-idle-secondary-delay 0.5)
|
||||
(which-key-setup-side-window-bottom))
|
||||
#+end_src
|
||||
|
||||
** Helm
|
||||
[[https://emacs-helm.github.io/helm/]]
|
||||
|
||||
Helm is an Emacs framework for incremental completions and narrowing selections. It helps to rapidly complete file names, buffer names, or any other Emacs interactions requiring selecting an item from a list of possible choices.
|
||||
|
||||
#+begin_src elisp
|
||||
(use-package helm
|
||||
:ensure t
|
||||
:config
|
||||
:init
|
||||
(helm-mode 1)
|
||||
(setq helm-split-window-inside-p t)
|
||||
:diminish helm-mode
|
||||
:bind (("M-x" . helm-M-x) ;; Evaluate functions
|
||||
("C-x C-f" . helm-find-files) ;; Open or create files
|
||||
("C-x b" . helm-mini) ;; Select buffers
|
||||
("C-x C-b" . helm-buffers-list)
|
||||
("C-x C-r" . helm-recentf) ;; Select recently saved files
|
||||
("C-c i" . helm-imenu) ;; Select document heading
|
||||
("M-y" . helm-show-kill-ring) ;; Show the kill ring
|
||||
("C-x c g" . helm-do-grep-ag)
|
||||
:map helm-map
|
||||
("C-z" . helm-select-action)
|
||||
("<tab>" . helm-execute-persistent-action)))
|
||||
#+end_src
|
||||
|
||||
** Helm-org
|
||||
[[https://github.com/emacs-helm/helm-org]]
|
||||
|
||||
#+begin_src elisp :tangle no
|
||||
(use-package helm-org
|
||||
:after helm
|
||||
:config
|
||||
(add-to-list 'helm-completing-read-handlers-alist '(org-capture . helm-org-completing-read-tags))
|
||||
(add-to-list 'helm-completing-read-handlers-alist '(org-set-tags . helm-org-completing-read-tags)))
|
||||
#+end_src
|
||||
|
||||
** Lastmod
|
||||
Update time stamp on save.
|
||||
|
||||
#+begin_src elisp
|
||||
(setq time-stamp-start "\\(^:last_modified: \\\\?[\[<]+\\|^#\\+lastmod: \\\\?[\[<]+\\|^;; lastmod: \\\\?[\[<]+\\)")
|
||||
(setq time-stamp-end "\\\\?[\]>]")
|
||||
(setq time-stamp-format "%Y-%02m-%02d %3a %02H:%02M")
|
||||
(setq time-stamp-limit 12)
|
||||
(add-hook 'before-save-hook 'time-stamp)
|
||||
(setq time-stamp-active t)
|
||||
#+end_src
|
||||
|
||||
** DISABLED Server
|
||||
|
||||
#+begin_src elisp :tangle no
|
||||
(require 'server)
|
||||
(if (not (server-running-p)) (server-start))
|
||||
#+end_src
|
||||
Reference in New Issue
Block a user