git.shemshak.org - ~bandali/configs/blob - emacs/init.org

   1 #+title: =aminb='s Emacs Init file
   2 #+property: header-args :results silent :comments link :tangle ~/dotfiles/emacs/init.el
   3
   4 * Intro
   5
   6 TODO: description
   7
   8 TODO: toc
   9
  10 * Header
  11
  12 ** First line
  13
  14 #+begin_src emacs-lisp :comments none
  15 ;;; init.el --- Amin Bandali's Emacs config -*- lexical-binding: t ; eval: (view-mode 1)-*-
  16 #+end_src
  17
  18 Enable =view-mode=, which both makes the file read-only (as a reminder
  19 that =init.el= is an auto-generated file, not supposed to be edited),
  20 and provides some convenient key bindings for browsing through the
  21 file.
  22
  23 ** License
  24
  25 #+begin_src emacs-lisp :comments none
  26 ;; Copyright (C) 2018  Amin Bandali <amin@aminb.org>
  27
  28 ;; This program is free software: you can redistribute it and/or modify
  29 ;; it under the terms of the GNU General Public License as published by
  30 ;; the Free Software Foundation, either version 3 of the License, or
  31 ;; (at your option) any later version.
  32
  33 ;; This program is distributed in the hope that it will be useful,
  34 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  35 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  36 ;; GNU General Public License for more details.
  37
  38 ;; You should have received a copy of the GNU General Public License
  39 ;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
  40 #+end_src
  41
  42 ** Commentary
  43
  44 #+begin_src emacs-lisp :comments none
  45 ;;; Commentary:
  46
  47 ;; Emacs configuration of Amin Bandali, computer scientist and functional
  48 ;; programmer.
  49
  50 ;; THIS FILE IS AUTO-GENERATED FROM `init.org'.
  51 #+end_src
  52
  53 * Config
  54
  55 #+begin_src emacs-lisp :comments none
  56 ;;; Code:
  57 #+end_src
  58
  59 ** Org
  60
  61 #+begin_src emacs-lisp
  62 (setq org-src-tab-acts-natively t
  63       org-src-preserve-indentation nil
  64       org-edit-src-content-indentation 0)
  65 #+end_src
  66
  67 ** Startup time
  68
  69 Measure and display startup time. Also, temporarily increase
  70 ~gc-cons-threshhold~ during startup to reduce reduce garbage
  71 collection frequency. Taken from [[https://github.com/dieggsy/dotfiles/tree/3d95bc08033920e077855caf545a975eba52d28d/emacs.d#startup-time][here]].
  72
  73 #+begin_src emacs-lisp
  74 (defconst aminb/emacs-start-time (current-time))
  75 (defconst aminb/gc-cons-threshold gc-cons-threshold)
  76 (defconst aminb/gc-cons-percentage gc-cons-percentage)
  77 (defvar aminb/file-name-handler-alist file-name-handler-alist)
  78 (setq gc-cons-threshold 400000000
  79       gc-cons-percentage 0.6
  80       file-name-handler-alist nil
  81       ;; sidesteps a bug when profiling with esup
  82       esup-child-profile-require-level 0)
  83 #+end_src
  84
  85 Reset the variables back to default after init.
  86
  87 #+begin_src emacs-lisp
  88 (add-hook
  89  'after-init-hook
  90  `(lambda ()
  91     (setq gc-cons-threshold aminb/gc-cons-threshold
  92           gc-cons-percentage aminb/gc-cons-percentage
  93           file-name-handler-alist aminb/file-name-handler-alist)
  94     (let ((elapsed (float-time (time-subtract (current-time)
  95                                               aminb/emacs-start-time))))
  96       (message "Loading %s...done (%.3fs) [after-init]"
  97                ,load-file-name elapsed))))
  98 #+end_src
  99
 100 * Footer
 101
 102 #+begin_src emacs-lisp :comments none
 103 ;;; init.el ends here
 104 #+end_src