diff options
Diffstat (limited to 'emacs/init.org')
| -rw-r--r-- | emacs/init.org | 465 |
1 files changed, 0 insertions, 465 deletions
diff --git a/emacs/init.org b/emacs/init.org deleted file mode 100644 index 4d57bf4..0000000 --- a/emacs/init.org +++ /dev/null @@ -1,465 +0,0 @@ -#+title: =aminb='s Emacs Init file -#+property: header-args :results silent :comments link :tangle ~/dotfiles/emacs/init.el - -* Intro - -This org file is tangled to [[./init.el][init.el]] and constitutes my Emacs -configuration. =straight.el=, =use-package=, =general.el=, =exwm=, -=org-mode=, and =magit= are some of the awesome packages powering my -Emacs setup. - -* Contents :toc_1:noexport: - -- [[#intro][Intro]] -- [[#header][Header]] -- [[#initial-setup][Initial setup]] -- [[#core][Core]] -- [[#footer][Footer]] - -* Header -:PROPERTIES: -:CUSTOM_ID: header -:END: - -** First line - -#+begin_src emacs-lisp :comments none -;;; init.el --- Amin Bandali's Emacs config -*- lexical-binding: t ; eval: (view-mode 1)-*- -#+end_src - -Enable =view-mode=, which both makes the file read-only (as a reminder -that =init.el= is an auto-generated file, not supposed to be edited), -and provides some convenient key bindings for browsing through the -file. - -** License - -#+begin_src emacs-lisp :comments none -;; Copyright (C) 2018 Amin Bandali <amin@aminb.org> - -;; This program is free software: you can redistribute it and/or modify -;; it under the terms of the GNU General Public License as published by -;; the Free Software Foundation, either version 3 of the License, or -;; (at your option) any later version. - -;; This program is distributed in the hope that it will be useful, -;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;; GNU General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with this program. If not, see <https://www.gnu.org/licenses/>. -#+end_src - -** Commentary - -#+begin_src emacs-lisp :comments none -;;; Commentary: - -;; Emacs configuration of Amin Bandali, computer scientist and functional -;; programmer. - -;; THIS FILE IS AUTO-GENERATED FROM `init.org'. -#+end_src - -** Naming conventions - -The conventions below were inspired by [[https://github.com/hlissner/doom-emacs][Doom]]'s conventions, found -[[https://github.com/hlissner/doom-emacs/blob/5dacbb7cb1c6ac246a9ccd15e6c4290def67757c/core/core.el#L3-L17][here]]. Naturally, I use my initials, =ab=, instead of =doom=. - -#+begin_src emacs-lisp :comments none -;; Naming conventions: -;; -;; ab-... public variables or non-interactive functions -;; ab--... private anything (non-interactive), not safe for direct use -;; ab/... an interactive function; safe for M-x or keybinding -;; ab:... an evil operator, motion, or command -;; ab|... a hook function -;; ab*... an advising function -;; ab@... a hydra command -;; ...! a macro -#+end_src - -* Initial setup -:PROPERTIES: -:CUSTOM_ID: initial-setup -:END: - -#+begin_src emacs-lisp :comments none -;;; Code: -#+end_src - -** Startup time - -Measure and display startup time. Also, temporarily increase -~gc-cons-threshhold~ during startup to reduce reduce garbage -collection frequency. Taken from [[https://github.com/dieggsy/dotfiles/tree/3d95bc08033920e077855caf545a975eba52d28d/emacs.d#startup-time][here]]. - -#+begin_src emacs-lisp -(defconst ab--emacs-start-time (current-time)) -(defconst ab--gc-cons-threshold gc-cons-threshold) -(defconst ab--gc-cons-percentage gc-cons-percentage) -(defvar ab--file-name-handler-alist file-name-handler-alist) -(setq gc-cons-threshold 400000000 - gc-cons-percentage 0.6 - file-name-handler-alist nil - ;; sidesteps a bug when profiling with esup - esup-child-profile-require-level 0) -#+end_src - -Reset the variables back to default after init. - -#+begin_src emacs-lisp -(add-hook - 'after-init-hook - `(lambda () - (setq gc-cons-threshold ab--gc-cons-threshold - gc-cons-percentage ab--gc-cons-percentage - file-name-handler-alist ab--file-name-handler-alist) - (let ((elapsed (float-time (time-subtract (current-time) - ab--emacs-start-time)))) - (message "Loading %s...done (%.3fs) [after-init]" - ,load-file-name elapsed)))) -#+end_src - -** Package management - -*** =straight.el= - -#+begin_quote -Next-generation, purely functional package manager for the Emacs -hacker. -#+end_quote - -=straight.el= allows me to have a fully reproducible Emacs setup. - -**** Bootstrap - -#+begin_src emacs-lisp -(let ((bootstrap-file (concat user-emacs-directory "straight/repos/straight.el/bootstrap.el")) - (bootstrap-version 3)) - (unless (file-exists-p bootstrap-file) - (with-current-buffer - (url-retrieve-synchronously - "https://raw.githubusercontent.com/raxod502/straight.el/develop/install.el" - 'silent 'inhibit-cookies) - (goto-char (point-max)) - (eval-print-last-sexp))) - (load bootstrap-file nil 'nomessage)) -#+end_src - -**** Useful helpers - -#+begin_src emacs-lisp -(defun ab/reload-init () - "Reload init.el." - (interactive) - (straight-transaction - (straight-mark-transaction-as-init) - (message "Reloading init.el...") - (load user-init-file nil 'nomessage) - (message "Reloading init.el... done."))) - -(defun ab/eval-buffer () - "Evaluate the current buffer as Elisp code." - (interactive) - (message "Evaluating %s..." (buffer-name)) - (straight-transaction - (if (null buffer-file-name) - (eval-buffer) - (when (string= buffer-file-name user-init-file) - (straight-mark-transaction-as-init)) - (load-file buffer-file-name))) - (message "Evaluating %s... done." (buffer-name))) -#+end_src - -*** =use-package= - -#+begin_quote -A use-package declaration for simplifying your .emacs -#+end_quote - -=use-package= is an awesome utility for managing and configuring -packages in a neatly organized way and without compromising on -performance. So let's install it using =striaght.el= and have it use -=straight.el= for installing packages. - -#+begin_src emacs-lisp -(straight-use-package 'use-package) -(setq straight-use-package-by-default t) -#+end_src - -** No littering in =~/.emacs.d= - -#+begin_quote -Help keeping ~/.emacs.d clean -#+end_quote - -By default, even for Emacs' built-in packages, the configuration files -and persistent data are all over the place. Use =no-littering= to help -contain the mess. - -#+begin_src emacs-lisp -(use-package no-littering - :demand t - :config - (savehist-mode 1) - (add-to-list 'savehist-additional-variables 'kill-ring) - (save-place-mode 1) - (setq auto-save-file-name-transforms - `((".*" ,(no-littering-expand-var-file-name "auto-save/") t)))) -#+end_src - -** Custom file (=custom.el=) - -I'm not planning on using the custom file much, but even so, I -definitely don't want it mixing with =init.el=. So, here, let's give -it it's own file. - -#+begin_src emacs-lisp -(setq custom-file (no-littering-expand-etc-file-name "custom.el")) -(when (file-exists-p custom-file) - (load custom-file)) -#+end_src - -** Better =$PATH= handling - -Let's use [[https://github.com/purcell/exec-path-from-shell][exec-path-from-shell]] to make Emacs use the =$PATH= as set up -in my shell. - -#+begin_src emacs-lisp -(use-package exec-path-from-shell - :defer 1 - :init - (setq exec-path-from-shell-check-startup-files nil) - :config - (exec-path-from-shell-initialize) - ;; while we're at it, let's fix access to our running ssh-agent - (exec-path-from-shell-copy-env "SSH_AGENT_PID") - (exec-path-from-shell-copy-env "SSH_AUTH_SOCK")) -#+end_src - -** Server - -Start server if not already running. Alternatively, can be done by -issuing =emacs --daemon= in the terminal, which can be automated with -a systemd service or using =brew services start emacs= on macOS. I use -Emacs as my window manager (via =exwm=), so I always start Emacs on -login; so starting the server from inside Emacs is good enough for me. - -See [[https://www.gnu.org/software/emacs/manual/html_node/emacs/Emacs-Server.html#Emacs-Server][Using Emacs as a Server]]. - -#+begin_src emacs-lisp -(require 'server) -(unless (server-running-p) - (server-start)) -#+end_src - -* Core -:PROPERTIES: -:CUSTOM_ID: core -:END: - -** Defaults - -*** Disable disabled commands - -Emacs disables some commands by default that could persumably be -confusing for novice users. Let's disable that. - -#+begin_src emacs-lisp -(setq disabled-command-function nil) -#+end_src - -*** Kill-ring - -Save what I copy into clipboard from other applications into Emacs' -kill-ring, which would allow me to still be able to easily access it -in case I kill (cut or copy) something else inside Emacs before -yanking (pasting) what I'd originally intended to. - -#+begin_src emacs-lisp -(setq save-interprogram-paste-before-kill t) -#+end_src - -*** Keep more =*Messages*= - -#+begin_src emacs-lisp -(setq message-log-max 10000) -#+end_src - -*** Minibuffer - -#+begin_src emacs-lisp -(setq enable-recursive-minibuffers t - resize-mini-windows t) -#+end_src - -*** Lazy-person-friendly yes/no prompts - -Lazy people would prefer to type fewer keystrokes, especially for yes -or no questions. I'm lazy. - -#+begin_src emacs-lisp -(defalias 'yes-or-no-p #'y-or-n-p) -#+end_src - -*** =*scratch*= - -Let's customize the =*scratch*= buffer a bit. First off, I don't need -the default hint. - -#+begin_src emacs-lisp -(setq initial-scratch-message "") -#+end_src - -Also, let's use Text mode as the major mode, in case I want to -customize it (=*scratch*='s default major mode, Fundamental mode, -can't really be customized). - -#+begin_src emacs-lisp -(setq initial-major-mode 'text-mode) -#+end_src - -*** More useful frame titles - -Show either the file name or the buffer name (in case the buffer isn't -visiting a file). Borrowed from Emacs Prelude. - -#+begin_src emacs-lisp -(setq frame-title-format - '("" invocation-name " - " - (:eval (if (buffer-file-name) - (abbreviate-file-name (buffer-file-name)) - "%b")))) -#+end_src - -*** Backups - -Emacs' default backup settings aren't that great. Let's use more -sensible options. See documentation for the ~make-backup-file~ -variable. - -#+begin_src emacs-lisp -(setq backup-by-copying t - version-control t) -#+end_src - -** Packages - -The packages in this section are absolutely essential to my everyday -workflow, and they play key roles in how I do my computing. They -immensely enhance the Emacs experience for me; both using Emacs, and -customizing it. - -*** [[https://github.com/noctuid/general.el][general.el]] - -#+begin_quote -More convenient key definitions in emacs -#+end_quote - -More like /the most/ convenient key definitions in Emacs. - -#+begin_src emacs-lisp -(use-package general - :demand t) -#+end_src - -*** [[https://github.com/ch11ng/exwm][exwm]] (window manager) - -#+begin_src emacs-lisp -(use-package exwm - :config - (require 'exwm-config) - (exwm-config-default) - (require 'exwm-systemtray) - (exwm-systemtray-enable) - (require 'exwm-randr) - (exwm-randr-enable)) -#+end_src - -*** [[https://orgmode.org/][Org mode]] - -#+begin_quote -Org mode is for keeping notes, maintaining TODO lists, planning -projects, and authoring documents with a fast and effective plain-text -system. -#+end_quote - -In short, my favourite way of life. - -#+begin_src emacs-lisp -(setq org-src-tab-acts-natively t - org-src-preserve-indentation nil - org-edit-src-content-indentation 0) -#+end_src - -*** [[https://magit.vc/][Magit]] - -#+begin_quote -It's Magit! A Git porcelain inside Emacs. -#+end_quote - -Not just how I do git, but /the/ way to do git. - -#+begin_src emacs-lisp -(use-package magit - :general - ("s-g" 'magit-status)) -#+end_src - -*** [[https://github.com/abo-abo/swiper][Ivy]] (and friends) - -#+begin_quote -Ivy - a generic completion frontend for Emacs, Swiper - isearch with -an overview, and more. Oh, man! -#+end_quote - -There's no way I could top that, so I won't attempt to. - -**** Ivy - -#+begin_src emacs-lisp -(use-package ivy - :general - (ivy-minibuffer-map - [escape] 'keyboard-escape-quit - "C-j" 'ivy-next-line - "C-k" 'ivy-previous-line - [S-up] 'ivy-previous-history-element - [S-down] 'ivy-next-history-element - "DEL" 'ivy-backward-delete-char) - :config - (ivy-mode 1)) -#+end_src - -**** Swiper - -#+begin_src emacs-lisp -(use-package swiper - :general ("C-s" 'swiper)) -#+end_src - -**** Counsel - -#+begin_src emacs-lisp -(use-package counsel - :general - ("M-x" 'counsel-M-x - "C-x C-f" 'counsel-find-file - "s-r" 'counsel-recentf) - (imap minibuffer-local-map - "C-r" 'counsel-minibuffer-history) - :config - (counsel-mode 1) - (defalias 'locate #'counsel-locate)) -#+end_src - -* Footer -:PROPERTIES: -:CUSTOM_ID: footer -:END: - -#+begin_src emacs-lisp :comments none -;;; init.el ends here -#+end_src |