let the files be real files
This commit is contained in:
parent
94b178505e
commit
20192715e6
234
README.org
234
README.org
@ -1,5 +1,4 @@
|
||||
#+TITLE: Emacs Configuration
|
||||
#+PROPERTY: header-args:elisp :mkdirp yes
|
||||
* Emacs Configuration
|
||||
Oh boy.
|
||||
|
||||
@ -7,234 +6,5 @@ I don't even know what to say about this. I want to believe in the vim cult, but
|
||||
emacs just has me under its thrall. It's precisely what I've been looking for
|
||||
this whole time.
|
||||
|
||||
** early-init.el
|
||||
#+PROPERTY: header-args:elisp :mkdirp yes :tangle early-init.el
|
||||
*** A pointless header
|
||||
#+begin_src elisp :tangle early-init.el
|
||||
;;; Early-init --- do all these things early in the init process
|
||||
|
||||
;;; Commentary:
|
||||
;; do the first initial beginning things
|
||||
|
||||
;;; Code:
|
||||
#+end_src
|
||||
*** Redefine the startup message
|
||||
#+begin_src elisp :tangle early-init.el
|
||||
(defun display-startup-echo-area-message ()
|
||||
"A re-definition of the function.
|
||||
Tell the Emacs startup time and number of garbage-collections
|
||||
instead of the banal
|
||||
\"For information about GNU Emacs and the GNU system, type \\[about-emacs].\""
|
||||
(message
|
||||
(concat (emacs-init-time) ", gc ran " (number-to-string gcs-done) " times"
|
||||
)))
|
||||
#+end_src
|
||||
*** Redefine the Scratch blurb
|
||||
#+begin_src elisp :tangle early-init.el
|
||||
(setq initial-scratch-message (purecopy "\
|
||||
;; Write some lisp in this buffer and it can be executed, either with
|
||||
;; \\[eval-last-sexp] locally or \\[eval-buffer] globally.
|
||||
|
||||
"))
|
||||
#+end_src
|
||||
*** Un-hinge the garbage collector
|
||||
#+begin_src elisp :tangle early-init.el
|
||||
;; Crash the computer by overloading memory
|
||||
(setq gc-cons-threshold (* 50 1000 1000))
|
||||
#+end_src
|
||||
*** Vanilla is not plain. Pour on the bleach.
|
||||
#+begin_src elisp :tangle early-init.el
|
||||
;; Disable package.el so we can use straight
|
||||
(setq package-enable-at-startup nil)
|
||||
#+end_src
|
||||
*** just give me my file buffer, please
|
||||
#+begin_src elisp :tangle early-init.el
|
||||
;; Hide default dashboard
|
||||
(defvar inhibit-startup-messages t)
|
||||
(setq inhibit-startup-screen t)
|
||||
#+end_src
|
||||
*** Compilers are verbose, but we need not listen
|
||||
#+begin_src elisp :tangle early-init.el
|
||||
;; Don't pop up error window on native-comp emacs
|
||||
(defvar native-comp-async-report-warnings-errors 'silent)
|
||||
#+end_src
|
||||
*** BROKEN: frame hooks. Present later in init.
|
||||
#+begin_src elisp :tangle early-init.el
|
||||
;; Run stuff after opening a new frame
|
||||
;; (setq server-after-make-frame-hook (mitch/graphical-setup))
|
||||
;; (setq before-make-frame-hook (mitch/graphical-setup))
|
||||
;;; early-init.el ends here
|
||||
#+end_src
|
||||
|
||||
** init.el
|
||||
#+PROPERTY: header-args:elisp :mkdirp yes :tangle init.el
|
||||
*** Cool figlet text
|
||||
This file used to get checked by flycheck so that's perhaps worthy of note...
|
||||
#+begin_src elisp :tangle init.el
|
||||
;;; init.el --- basic initial declarations
|
||||
;;; Commentary:
|
||||
;; _ _ _ _
|
||||
;; (_) _ __ (_)| |_ ___ | |
|
||||
;; | || '_ \ | || __| / _ \| |
|
||||
;; | || | | || || |_ _| __/| |
|
||||
;; |_||_| |_||_| \__|(_)\___||_|
|
||||
;;
|
||||
;; '((above text graphic generated with command `figlet -k "init.el"'))
|
||||
#+end_src
|
||||
*** Wrap it all in a Let
|
||||
This is said to speed up loading files because it doesn't search on network
|
||||
locations, which have always been broken for me.
|
||||
#+begin_src elisp :tangle init.el
|
||||
;;; Code:
|
||||
;; Speed up loading/finding files
|
||||
(let
|
||||
((file-name-handler-alist nil))
|
||||
#+end_src
|
||||
TODO make it indent correctly
|
||||
*** BROKEN: explicit shell name
|
||||
#+begin_src elisp :tangle init.el
|
||||
;; Don't set this, fix the actual issue and use a POSIX-ish shell (or CMD):
|
||||
;; (setq shell-file-name "/bin/sh")
|
||||
#+end_src
|
||||
*** Add my personal files to the load-path
|
||||
#+begin_src elisp :tangle init.el
|
||||
;; Load the files that I put my settings in...
|
||||
(defvar mitch-directory
|
||||
(directory-file-name
|
||||
(concat user-emacs-directory
|
||||
(convert-standard-filename "lisp/"))))
|
||||
(setq load-path
|
||||
(cons mitch-directory load-path))
|
||||
(setq custom-theme-directory mitch-directory)
|
||||
#+end_src
|
||||
*** ... and load them
|
||||
#+begin_src elisp :tangle init.el
|
||||
(require 'mitch-defuns)
|
||||
;; (require 'webkit) ; see https://github.com/akirakyle/emacs-webkit
|
||||
(require 'man-plus)
|
||||
#+end_src
|
||||
*** Minify yes/no prompts
|
||||
#+begin_src elisp :tangle init.el
|
||||
;; minify yes/no prompts
|
||||
;; (if (>= (string-to-number emacs-version) 28)
|
||||
;; (defvar use-short-answers t))
|
||||
(defalias 'yes-or-no-p 'y-or-n-p)
|
||||
#+end_src
|
||||
*** When GUI, do GUI things
|
||||
#+begin_src elisp :tangle init.el
|
||||
;; do the things
|
||||
(add-hook 'server-after-make-frame-hook #'mitch/graphical-setup)
|
||||
(if (display-graphic-p) (mitch/graphical-setup))
|
||||
#+end_src
|
||||
*** Hide backup, swap, and lock files
|
||||
#+begin_src elisp :tangle init.el
|
||||
;; Control backups/swapfiles
|
||||
(defvar backup-directory
|
||||
(expand-file-name "emacs-backups"
|
||||
(or (getenv "XDG_CACHE_HOME")
|
||||
(expand-file-name
|
||||
".cache" "~"))))
|
||||
(if (not (file-exists-p backup-directory))
|
||||
(make-directory backup-directory t))
|
||||
(setq backup-directory-alist `(("." . ,backup-directory)))
|
||||
;; auto-save-mode doesn't create the path automatically!
|
||||
(defvar auto-save-directory
|
||||
(expand-file-name "tmp/auto-saves/" backup-directory))
|
||||
(make-directory auto-save-directory t)
|
||||
(setq auto-save-list-file-prefix
|
||||
(expand-file-name "sessions/" auto-save-directory)
|
||||
auto-save-file-name-transforms
|
||||
`((".*" ,auto-save-directory t)))
|
||||
(setq create-lockfiles nil)
|
||||
#+end_src
|
||||
*** Put Custom declarations in their own (ignored) file
|
||||
#+begin_src elisp :tangle init.el
|
||||
;; remove auto-generated bits
|
||||
(setq custom-file (expand-file-name "custom.el" backup-directory))
|
||||
(if (not (file-exists-p custom-file))
|
||||
(make-empty-file custom-file t))
|
||||
(load custom-file)
|
||||
#+end_src
|
||||
*** Invoke/load straight.el, the gud git package manager
|
||||
#+begin_src elisp :tangle init.el
|
||||
;; straight.el: the better package manager?
|
||||
;; minified bootstrap (split lines if you want) (or not)
|
||||
(defvar bootstrap-version) (let ((bootstrap-file (expand-file-name "straight/repos/straight.el/bootstrap.el" user-emacs-directory)) (bootstrap-version 5)) (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)) (straight-use-package 'use-package) (setq straight-use-package-by-default t)
|
||||
#+end_src
|
||||
*** And load my packages
|
||||
#+begin_src elisp :tangle init.el
|
||||
(require 'mitch-packages)
|
||||
#+end_src
|
||||
*** Line numbers
|
||||
#+begin_src elisp :tangle init.el
|
||||
;; Absolute line numbers. Relative ones are an annoyance to set up, sadly.
|
||||
(global-display-line-numbers-mode)
|
||||
(defvar display-line-numbers-width-start t)
|
||||
#+end_src
|
||||
*** Scrolling up and down is weird
|
||||
#+begin_src elisp :tangle init.el
|
||||
;; scroll step stuff
|
||||
(setq scroll-margin 2
|
||||
scroll-conservatively 100
|
||||
scroll-up-aggressively 0.01
|
||||
scroll-down-aggressively 0.01)
|
||||
(global-visual-line-mode t)
|
||||
#+end_src
|
||||
*** BROKEN: run launcher for linux apps
|
||||
#+begin_src emacs-lisp
|
||||
;; run launcher exists. Copy it from
|
||||
;; https://www.reddit.com/r/unixporn/comments/s7p7pr/so_which_run_launcher_do_you_use_rofi_or_dmenu/
|
||||
;; I don't have it here because I don't use it right now.
|
||||
#+end_src
|
||||
*** UTF-8 is love, UTF-8 is life
|
||||
#+begin_src elisp :tangle init.el
|
||||
;; UTF-8 supremacy (Snippet from https://github.com/doomemacs/doomemacs/blob/master/early-init.el)
|
||||
(set-language-environment "UTF-8")
|
||||
#+end_src
|
||||
*** BROKEN: Japanese input
|
||||
you can still use it: ~C-u C-\ japanese RET~
|
||||
#+begin_src elisp :tangle init.el
|
||||
;; Toggle Japanese with `qq'
|
||||
;; Sample text: 進撃 の 巨人
|
||||
;; (shingeki no kyojin (attack on titan))
|
||||
;; (setq default-input-method 'japanese)
|
||||
;; (setq-default current-input-method 'japanese-ascii)
|
||||
;; DISABLED because something broke and I didn't bother figuring out what...
|
||||
#+end_src
|
||||
*** Inspect Element popup, but 40 years old
|
||||
#+begin_src elisp :tangle init.el
|
||||
;; barf out emacs errors as they are encountered
|
||||
(setq debug-on-error t)
|
||||
#+end_src
|
||||
*** Pointless scrolling hack
|
||||
TODO should go in [[Scrolling up and down is weird]]
|
||||
#+begin_src elisp :tangle init.el
|
||||
;; Speed up scrolling down (why is this even a thing?)
|
||||
(setq auto-window-vscroll nil)
|
||||
#+end_src
|
||||
*** Save our place in files, to jump right back into it
|
||||
#+begin_src elisp :tangle init.el
|
||||
;; save place in all files
|
||||
(save-place-mode t)
|
||||
(defvar save-place-file
|
||||
(expand-file-name "file-position-save" backup-directory))
|
||||
#+end_src
|
||||
*** an excuse to write lambda as λ
|
||||
#+begin_src elisp :tangle init.el
|
||||
;; load eshell stuff when we start eshell
|
||||
(add-hook 'eshell-mode-hook #'(lambda () (require 'eshell-settings)))
|
||||
;; Display "labmda" as λ
|
||||
(global-prettify-symbols-mode 1)
|
||||
#+end_src
|
||||
*** Close the 'Let'
|
||||
#+begin_src elisp :tangle init.el
|
||||
)
|
||||
#+end_src
|
||||
*** Re-hinge the garbage collector
|
||||
see early-init.el
|
||||
#+begin_src elisp :tangle init.el
|
||||
;; lower gc threshold again
|
||||
(setq gc-cons-threshold (* 2 1000 1000))
|
||||
|
||||
;;; init.el ends here
|
||||
#+end_src
|
||||
There's a lot of stuff here, but I've decided not to take the literate-config
|
||||
approach just yet. This needs to mostly work on Windows, after all.
|
||||
|
39
early-init.el
Normal file
39
early-init.el
Normal file
@ -0,0 +1,39 @@
|
||||
;;; Early-init --- do all these things early in the init process
|
||||
|
||||
;;; Commentary:
|
||||
;; do the first initial beginning things
|
||||
|
||||
;;; Code:
|
||||
|
||||
(defun display-startup-echo-area-message ()
|
||||
"A re-definition of the function.
|
||||
Tell the Emacs startup time and number of garbage-collections
|
||||
instead of the banal
|
||||
\"For information about GNU Emacs and the GNU system, type \\[about-emacs].\""
|
||||
(message
|
||||
(concat (emacs-init-time) ", gc ran " (number-to-string gcs-done) " times"
|
||||
)))
|
||||
|
||||
(setq initial-scratch-message (purecopy "\
|
||||
;; Write some lisp in this buffer and it can be executed, either with
|
||||
;; \\[eval-last-sexp] locally or \\[eval-buffer] globally.
|
||||
|
||||
"))
|
||||
|
||||
;; Crash the computer by overloading memory
|
||||
(setq gc-cons-threshold (* 50 1000 1000))
|
||||
|
||||
;; Disable package.el so we can use straight
|
||||
(setq package-enable-at-startup nil)
|
||||
|
||||
;; Hide default dashboard
|
||||
(defvar inhibit-startup-messages t)
|
||||
(setq inhibit-startup-screen t)
|
||||
|
||||
;; Don't pop up error window on native-comp emacs
|
||||
(defvar native-comp-async-report-warnings-errors 'silent)
|
||||
|
||||
;; Run stuff after opening a new frame
|
||||
;; (setq server-after-make-frame-hook (mitch/graphical-setup))
|
||||
;; (setq before-make-frame-hook (mitch/graphical-setup))
|
||||
;;; early-init.el ends here
|
114
init.el
Normal file
114
init.el
Normal file
@ -0,0 +1,114 @@
|
||||
;;; init.el --- basic initial declarations
|
||||
;;; Commentary:
|
||||
;; _ _ _ _
|
||||
;; (_) _ __ (_)| |_ ___ | |
|
||||
;; | || '_ \ | || __| / _ \| |
|
||||
;; | || | | || || |_ _| __/| |
|
||||
;; |_||_| |_||_| \__|(_)\___||_|
|
||||
;;
|
||||
;; '((above text graphic generated with command `figlet -k "init.el"'))
|
||||
|
||||
;;; Code:
|
||||
;; Speed up loading/finding files
|
||||
(let
|
||||
((file-name-handler-alist nil))
|
||||
|
||||
;; Don't set this, fix the actual issue and use a POSIX-ish shell (or CMD):
|
||||
;; (setq shell-file-name "/bin/sh")
|
||||
|
||||
;; Load the files that I put my settings in...
|
||||
(defvar mitch-directory
|
||||
(directory-file-name
|
||||
(concat user-emacs-directory
|
||||
(convert-standard-filename "lisp/"))))
|
||||
(setq load-path
|
||||
(cons mitch-directory load-path))
|
||||
(setq custom-theme-directory mitch-directory)
|
||||
|
||||
(require 'mitch-defuns)
|
||||
;; (require 'webkit) ; see https://github.com/akirakyle/emacs-webkit
|
||||
(require 'man-plus)
|
||||
|
||||
;; minify yes/no prompts
|
||||
;; (if (>= (string-to-number emacs-version) 28)
|
||||
;; (defvar use-short-answers t))
|
||||
(defalias 'yes-or-no-p 'y-or-n-p)
|
||||
|
||||
;; do the things
|
||||
(add-hook 'server-after-make-frame-hook #'mitch/graphical-setup)
|
||||
(if (display-graphic-p) (mitch/graphical-setup))
|
||||
|
||||
;; Control backups/swapfiles
|
||||
(defvar backup-directory
|
||||
(expand-file-name "emacs-backups"
|
||||
(or (getenv "XDG_CACHE_HOME")
|
||||
(expand-file-name
|
||||
".cache" "~"))))
|
||||
(if (not (file-exists-p backup-directory))
|
||||
(make-directory backup-directory t))
|
||||
(setq backup-directory-alist `(("." . ,backup-directory)))
|
||||
;; auto-save-mode doesn't create the path automatically!
|
||||
(defvar auto-save-directory
|
||||
(expand-file-name "tmp/auto-saves/" backup-directory))
|
||||
(make-directory auto-save-directory t)
|
||||
(setq auto-save-list-file-prefix
|
||||
(expand-file-name "sessions/" auto-save-directory)
|
||||
auto-save-file-name-transforms
|
||||
`((".*" ,auto-save-directory t)))
|
||||
(setq create-lockfiles nil)
|
||||
|
||||
;; remove auto-generated bits
|
||||
(setq custom-file (expand-file-name "custom.el" backup-directory))
|
||||
(if (not (file-exists-p custom-file))
|
||||
(make-empty-file custom-file t))
|
||||
(load custom-file)
|
||||
|
||||
;; straight.el: the better package manager?
|
||||
;; minified bootstrap (split lines if you want) (or not)
|
||||
(defvar bootstrap-version) (let ((bootstrap-file (expand-file-name "straight/repos/straight.el/bootstrap.el" user-emacs-directory)) (bootstrap-version 5)) (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)) (straight-use-package 'use-package) (setq straight-use-package-by-default t)
|
||||
|
||||
(require 'mitch-packages)
|
||||
|
||||
;; Absolute line numbers. Relative ones are an annoyance to set up, sadly.
|
||||
(global-display-line-numbers-mode)
|
||||
(defvar display-line-numbers-width-start t)
|
||||
|
||||
;; scroll step stuff
|
||||
(setq scroll-margin 2
|
||||
scroll-conservatively 100
|
||||
scroll-up-aggressively 0.01
|
||||
scroll-down-aggressively 0.01)
|
||||
(global-visual-line-mode t)
|
||||
|
||||
;; UTF-8 supremacy (Snippet from https://github.com/doomemacs/doomemacs/blob/master/early-init.el)
|
||||
(set-language-environment "UTF-8")
|
||||
|
||||
;; Toggle Japanese with `qq'
|
||||
;; Sample text: 進撃 の 巨人
|
||||
;; (shingeki no kyojin (attack on titan))
|
||||
;; (setq default-input-method 'japanese)
|
||||
;; (setq-default current-input-method 'japanese-ascii)
|
||||
;; DISABLED because something broke and I didn't bother figuring out what...
|
||||
|
||||
;; barf out emacs errors as they are encountered
|
||||
(setq debug-on-error t)
|
||||
|
||||
;; Speed up scrolling down (why is this even a thing?)
|
||||
(setq auto-window-vscroll nil)
|
||||
|
||||
;; save place in all files
|
||||
(save-place-mode t)
|
||||
(defvar save-place-file
|
||||
(expand-file-name "file-position-save" backup-directory))
|
||||
|
||||
;; load eshell stuff when we start eshell
|
||||
(add-hook 'eshell-mode-hook #'(lambda () (require 'eshell-settings)))
|
||||
;; Display "labmda" as λ
|
||||
(global-prettify-symbols-mode 1)
|
||||
|
||||
)
|
||||
|
||||
;; lower gc threshold again
|
||||
(setq gc-cons-threshold (* 2 1000 1000))
|
||||
|
||||
;;; init.el ends here
|
Loading…
Reference in New Issue
Block a user