7 files changed, 202 insertions, 200 deletions
diff --git a/.gitattributes b/.gitattributes
index a5516e5..13a682e 100644
--- a/.gitattributes
+++ b/.gitattributes

@@ -1,3 +1,5 @@
-*.lisp diff=lisp
+* text=eol=lf
-*.el diff=lisp
-*.org diff=org
+*.lisp diff=lisp
+*.el diff=lisp
+*.org diff=org
diff --git a/.gitignore b/.gitignore
index d273700..7014eed 100644
--- a/.gitignore
+++ b/.gitignore

@@ -1,25 +1,25 @@
-# ignore everything
+# ignore everything
-*
+*
-# except ...
+# except ...
-!config.org
+!config.org
-!init.el
+!init.el
-!early-init.el
+!early-init.el
-!.gitignore
+!.gitignore
-!.gitattributes
+!.gitattributes
-!README.*
+!README.*
-# and ...
+# and ...
-!var/
+!var/
-var/*
+var/*
-!var/elpher-bookmarks.el
+!var/elpher-bookmarks.el
-!var/elfeed/
+!var/elfeed/
-var/elfeed/*
+var/elfeed/*
-!var/elfeed/db
+!var/elfeed/db
-!etc/
+!etc/
-etc/*
+etc/*
-!etc/eshell
+!etc/eshell
-!etc/eshell/*
+!etc/eshell/*
-!elfeed.org
+!elfeed.org
diff --git a/LICENSE b/LICENSE
index de537e6..767282c 100644
--- a/LICENSE
+++ b/LICENSE

@@ -1,14 +1,14 @@
-DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
+DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
-Version 2, December 2004
+Version 2, December 2004
-Copyright (C) 2004 Sam Hocevar <sam@hocevar.net>
+Copyright (C) 2004 Sam Hocevar <sam@hocevar.net>
-Everyone is permitted to copy and distribute verbatim or modified copies of
+Everyone is permitted to copy and distribute verbatim or modified copies of
-this license document, and changing it is allowed as long as the name is changed.
+this license document, and changing it is allowed as long as the name is changed.
-DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
+DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
-TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
+TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
-0. You just DO WHAT THE FUCK YOU WANT TO.
+0. You just DO WHAT THE FUCK YOU WANT TO.
diff --git a/early-init.el b/early-init.el
index 0738ca2..b8a6c6c 100644
--- a/early-init.el
+++ b/early-init.el

@@ -1,89 +1,89 @@
-;;; early-init.el -*- no-byte-compile: t; coding: utf-8 -*-
+;;; early-init.el -*- no-byte-compile: t; coding: utf-8 -*-
-;; Copyright (C) 2020 Case Duckworth
+;; Copyright (C) 2020 Case Duckworth
-;; Author: Case Duckworth <acdw@acdw.net>
+;; Author: Case Duckworth <acdw@acdw.net>
-;; Created: Sometime during the Covid-19 lockdown, 2019
+;; Created: Sometime during the Covid-19 lockdown, 2019
-;; Keywords: configuration
+;; Keywords: configuration
-;; URL: https://tildegit.org/acdw/emacs
+;; URL: https://tildegit.org/acdw/emacs
-;; This file is not part of GNU Emacs.
+;; This file is not part of GNU Emacs.
-;;; Commentary:
+;;; Commentary:
-;; This file is automatically tangled from config.org.
+;; This file is automatically tangled from config.org.
-;; Hand edits will be overwritten!
+;; Hand edits will be overwritten!
-;;; Code:
+;;; Code:
-;; BOOTSTRAP PACKAGE MANAGEMENT
+;; BOOTSTRAP PACKAGE MANAGEMENT
-(let ((win-app-dir "~/Applications"))
+(let ((win-app-dir "~/Applications"))
-  (dolist (path (list
+  (dolist (path (list
-                 ;; Windows
+                 ;; Windows
-                 (expand-file-name "exe" win-app-dir)
+                 (expand-file-name "exe" win-app-dir)
-                 (expand-file-name "exe/bin" win-app-dir)
+                 (expand-file-name "exe/bin" win-app-dir)
-                 (expand-file-name "Git/bin" win-app-dir)
+                 (expand-file-name "Git/bin" win-app-dir)
-                 (expand-file-name "Git/usr/bin" win-app-dir)
+                 (expand-file-name "Git/usr/bin" win-app-dir)
-                 (expand-file-name "Git/mingw64/bin" win-app-dir)
+                 (expand-file-name "Git/mingw64/bin" win-app-dir)
-                 (expand-file-name "Everything" win-app-dir)
+                 (expand-file-name "Everything" win-app-dir)
-                 (expand-file-name "Win-builds/bin" win-app-dir)
+                 (expand-file-name "Win-builds/bin" win-app-dir)
-                 (expand-file-name "Z/bin" win-app-dir)
+                 (expand-file-name "Z/bin" win-app-dir)
-                 ;; Linux
+                 ;; Linux
-                 (expand-file-name "bin" user-emacs-directory)
+                 (expand-file-name "bin" user-emacs-directory)
-                 (expand-file-name "~/bin")
+                 (expand-file-name "~/bin")
-                 (expand-file-name "~/.local/bin")
+                 (expand-file-name "~/.local/bin")
-                 (expand-file-name "~/Scripts")
+                 (expand-file-name "~/Scripts")
-                 ))
+                 ))
-    (when (file-exists-p path)
+    (when (file-exists-p path)
-      (add-to-list 'exec-path path :append))))
+      (add-to-list 'exec-path path :append))))
-;; Set $PATH
+;; Set $PATH
-(setenv "PATH" (mapconcat #'identity exec-path path-separator))
+(setenv "PATH" (mapconcat #'identity exec-path path-separator))
-(setq package-enable-at-startup nil)
+(setq package-enable-at-startup nil)
-(defun acdw/bootstrap-straight ()
+(defun acdw/bootstrap-straight ()
-  "Bootstrap straight.el."
+  "Bootstrap straight.el."
-  (defvar bootstrap-version)
+  (defvar bootstrap-version)
-  (let ((bootstrap-file
+  (let ((bootstrap-file
-         (expand-file-name
+         (expand-file-name
-          "straight/repos/straight.el/bootstrap.el"
+          "straight/repos/straight.el/bootstrap.el"
-          user-emacs-directory))
+          user-emacs-directory))
-        (bootstrap-version 5))
+        (bootstrap-version 5))
-    (unless (file-exists-p bootstrap-file)
+    (unless (file-exists-p bootstrap-file)
-      (with-current-buffer
+      (with-current-buffer
-          (url-retrieve-synchronously
+          (url-retrieve-synchronously
-           (concat
+           (concat
-            "https://raw.githubusercontent.com/"
+            "https://raw.githubusercontent.com/"
-            "raxod502/straight.el/develop/install.el")
+            "raxod502/straight.el/develop/install.el")
-           'silent 'inhibit-cookies)
+           'silent 'inhibit-cookies)
-        (goto-char (point-max))
+        (goto-char (point-max))
-        (eval-print-last-sexp)))
+        (eval-print-last-sexp)))
-    (load bootstrap-file nil 'nomessage)))
+    (load bootstrap-file nil 'nomessage)))
-(when (executable-find "git")
+(when (executable-find "git")
-  (unless (ignore-errors (acdw/bootstrap-straight))
+  (unless (ignore-errors (acdw/bootstrap-straight))
-    (let ((msg "Straight.el didn't bootstrap correctly.  Cloning directly"))
+    (let ((msg "Straight.el didn't bootstrap correctly.  Cloning directly"))
-      (message "%s..." msg)
+      (message "%s..." msg)
-      (call-process "git" nil
+      (call-process "git" nil
-                    (get-buffer-create "*bootstrap-straight-messages*") nil
+                    (get-buffer-create "*bootstrap-straight-messages*") nil
-                    "clone"
+                    "clone"
-                    "https://github.com/raxod502/straight.el"
+                    "https://github.com/raxod502/straight.el"
-                    (expand-file-name "straight/repos/straight.el"
+                    (expand-file-name "straight/repos/straight.el"
-                                      user-emacs-directory))
+                                      user-emacs-directory))
-      (message "%s...Done." msg)
+      (message "%s...Done." msg)
-      (acdw/bootstrap-straight))))
+      (acdw/bootstrap-straight))))
-;; SETUP FRAME
+;; SETUP FRAME
-(add-to-list 'default-frame-alist
+(add-to-list 'default-frame-alist
-             '(tool-bar-lines . 0))
+             '(tool-bar-lines . 0))
-(tool-bar-mode -1)
+(tool-bar-mode -1)
-(add-to-list 'default-frame-alist
+(add-to-list 'default-frame-alist
-             '(menu-bar-lines . 0))
+             '(menu-bar-lines . 0))
-(menu-bar-mode -1)
+(menu-bar-mode -1)
-(add-to-list 'default-frame-alist
+(add-to-list 'default-frame-alist
-             '(vertical-scroll-bars . nil)
+             '(vertical-scroll-bars . nil)
-             '(horizontal-scroll-bars . nil))
+             '(horizontal-scroll-bars . nil))
-(scroll-bar-mode -1)
+(scroll-bar-mode -1)
-(horizontal-scroll-bar-mode -1)
+(horizontal-scroll-bar-mode -1)
-(setq-default frame-inhibit-implied-resize t
+(setq-default frame-inhibit-implied-resize t
-              frame-resize-pixelwise t)
+              frame-resize-pixelwise t)
-;;; early-init.el ends here
+;;; early-init.el ends here
diff --git a/etc/eshell/aliases b/etc/eshell/aliases
index 621749d..24a7efc 100644
--- a/etc/eshell/aliases
+++ b/etc/eshell/aliases

@@ -1 +1 @@
-alias e find-file $1
+alias e find-file $1
diff --git a/init.el b/init.el
index 2fdd1c9..0d48e0d 100644
--- a/init.el
+++ b/init.el

@@ -1,50 +1,50 @@
-;;; init.el -*- lexical-binding: t; coding: utf-8 -*-
+;;; init.el -*- lexical-binding: t; coding: utf-8 -*-
-;; Copyright (C) 2020 Case Duckworth
+;; Copyright (C) 2020 Case Duckworth
-;; Author: Case Duckworth <acdw@acdw.net>
+;; Author: Case Duckworth <acdw@acdw.net>
-;; Created: Sometime during the Covid-19 lockdown, 2019
+;; Created: Sometime during the Covid-19 lockdown, 2019
-;; Keywords: configuration
+;; Keywords: configuration
-;; URL: https://tildegit.org/acdw/emacs
+;; URL: https://tildegit.org/acdw/emacs
-;; This file is not part of GNU Emacs.
+;; This file is not part of GNU Emacs.
-;;; Commentary:
+;;; Commentary:
-;; This file is automatically tangled from config.org.
+;; This file is automatically tangled from config.org.
-;; Hand edits will be overwritten!
+;; Hand edits will be overwritten!
-;;; Code:
+;;; Code:
-(setq-default load-prefer-newer t)
+(setq-default load-prefer-newer t)
-(let* (;; Speed up init
+(let* (;; Speed up init
-       (gc-cons-threshold most-positive-fixnum)
+       (gc-cons-threshold most-positive-fixnum)
-       ;; (gc-cons-percentage 0.6)
+       ;; (gc-cons-percentage 0.6)
-       (file-name-handler-alist nil)
+       (file-name-handler-alist nil)
-       ;; Config file names
+       ;; Config file names
-       (config (expand-file-name "config"
+       (config (expand-file-name "config"
-                                 user-emacs-directory))
+                                 user-emacs-directory))
-       (config.el (concat config ".el"))
+       (config.el (concat config ".el"))
-       (config.org (concat config ".org"))
+       (config.org (concat config ".org"))
-       (straight-org-dir (locate-user-emacs-file "straight/build/org")))
+       (straight-org-dir (locate-user-emacs-file "straight/build/org")))
-  ;; Okay, let's figure this out.
+  ;; Okay, let's figure this out.
-  ;; `and' evaluates each form, and returns nil on the first that
+  ;; `and' evaluates each form, and returns nil on the first that
-  ;; returns nil.  `unless' only executes its body if the test
+  ;; returns nil.  `unless' only executes its body if the test
-  ;; returns nil.  So.
+  ;; returns nil.  So.
-  ;; 1. Test if config.org is newer than config.el.  If it is (t), we
+  ;; 1. Test if config.org is newer than config.el.  If it is (t), we
-  ;;    *want* to evaluate the body, so we need to negate that test.
+  ;;    *want* to evaluate the body, so we need to negate that test.
-  ;; 2. Try to load the config.  If it errors (nil), it'll bubble that
+  ;; 2. Try to load the config.  If it errors (nil), it'll bubble that
-  ;;    to the `and' and the body will be evaluated.
+  ;;    to the `and' and the body will be evaluated.
-  (unless (and (not (file-newer-than-file-p config.org config.el))
+  (unless (and (not (file-newer-than-file-p config.org config.el))
-               (load config :noerror))
+               (load config :noerror))
-    ;; A plain require here just loads the older `org'
+    ;; A plain require here just loads the older `org'
-    ;; in Emacs' install dir.  We need to add the newer
+    ;; in Emacs' install dir.  We need to add the newer
-    ;; one to the `load-path', hopefully that's all.
+    ;; one to the `load-path', hopefully that's all.
-    (when (file-exists-p straight-org-dir)
+    (when (file-exists-p straight-org-dir)
-      (add-to-list 'load-path straight-org-dir))
+      (add-to-list 'load-path straight-org-dir))
-    ;; Load config.org
+    ;; Load config.org
-    (message "%s..." "Loading config.org")
+    (message "%s..." "Loading config.org")
-    (require 'org)
+    (require 'org)
-    (org-babel-load-file config.org)
+    (org-babel-load-file config.org)
-    (message "%s... Done" "Loading config.org")))
+    (message "%s... Done" "Loading config.org")))
-;;; init.el ends here
+;;; init.el ends here
diff --git a/var/elpher-bookmarks.el b/var/elpher-bookmarks.el
index c1dd228..311d980 100644
--- a/var/elpher-bookmarks.el
+++ b/var/elpher-bookmarks.el

@@ -1,18 +1,18 @@
-; Elpher bookmarks file
+; Elpher bookmarks file
-; Bookmarks are stored as a list of (label URL) items.
+; Bookmarks are stored as a list of (label URL) items.
-; Feel free to edit by hand, but take care to ensure
+; Feel free to edit by hand, but take care to ensure
-; the list structure remains intact.
+; the list structure remains intact.
-(("MEDUSAE directory" "gemini://medusae.space/")
+(("MEDUSAE directory" "gemini://medusae.space/")
- ("Will Lewis" "gemini://wflewis.com/")
+ ("Will Lewis" "gemini://wflewis.com/")
- ("Cornbread Recipe" "gemini://perplexing.space/2021/cornbread-recipe.gmi")
+ ("Cornbread Recipe" "gemini://perplexing.space/2021/cornbread-recipe.gmi")
- ("SMOG" "gemini://gemini.trans-neptunian.space/~smog/")
+ ("SMOG" "gemini://gemini.trans-neptunian.space/~smog/")
- ("Caolan - Vermont Sourdough" "gemini://caolan.uk/baking/2020-11-26_vermont_sourdough.gmi")
+ ("Caolan - Vermont Sourdough" "gemini://caolan.uk/baking/2020-11-26_vermont_sourdough.gmi")
- ("BREADPUNK!" "gemini://breadpunk.club/")
+ ("BREADPUNK!" "gemini://breadpunk.club/")
- ("ACDW" "gemini://gem.acdw.net/")
+ ("ACDW" "gemini://gem.acdw.net/")
- ("Spacewalk" "gemini://rawtext.club/~sloum/spacewalk.gmi")
+ ("Spacewalk" "gemini://rawtext.club/~sloum/spacewalk.gmi")
- ("CAPCOM" "gemini://gemini.circumlunar.space/capcom/")
+ ("CAPCOM" "gemini://gemini.circumlunar.space/capcom/")
- ("cosmic voyage" "gemini://cosmic.voyage/")
+ ("cosmic voyage" "gemini://cosmic.voyage/")
- ("kayw" "gemini://salejandro.me/")
+ ("kayw" "gemini://salejandro.me/")
- ("low-key: weechat relay" "gemini://low-key.me/guides/weechat_irc_relay.gmi"))
+ ("low-key: weechat relay" "gemini://low-key.me/guides/weechat_irc_relay.gmi"))

diff --git a/.gitattributes b/.gitattributes index a5516e5..13a682e 100644 --- a/.gitattributes +++ b/.gitattributes
@@ -1,3 +1,5 @@
1	*.lisp diff=lisp	1	* text=eol=lf
2	*.el diff=lisp	2
3	*.org diff=org	3	*.lisp diff=lisp
		4	*.el diff=lisp
		5	*.org diff=org


diff --git a/.gitignore b/.gitignore index d273700..7014eed 100644 --- a/.gitignore +++ b/.gitignore
@@ -1,25 +1,25 @@
1	# ignore everything	1	# ignore everything
2	*	2	*
3		3
4	# except ...	4	# except ...
5	!config.org	5	!config.org
6	!init.el	6	!init.el
7	!early-init.el	7	!early-init.el
8	!.gitignore	8	!.gitignore
9	!.gitattributes	9	!.gitattributes
10	!README.*	10	!README.*
11		11
12	# and ...	12	# and ...
13	!var/	13	!var/
14	var/*	14	var/*
15	!var/elpher-bookmarks.el	15	!var/elpher-bookmarks.el
16	!var/elfeed/	16	!var/elfeed/
17	var/elfeed/*	17	var/elfeed/*
18	!var/elfeed/db	18	!var/elfeed/db
19		19
20	!etc/	20	!etc/
21	etc/*	21	etc/*
22	!etc/eshell	22	!etc/eshell
23	!etc/eshell/*	23	!etc/eshell/*
24		24
25	!elfeed.org	25	!elfeed.org


diff --git a/LICENSE b/LICENSE index de537e6..767282c 100644 --- a/LICENSE +++ b/LICENSE
@@ -1,14 +1,14 @@
1	DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE	1	DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
2		2
3	Version 2, December 2004	3	Version 2, December 2004
4		4
5	Copyright (C) 2004 Sam Hocevar <sam@hocevar.net>	5	Copyright (C) 2004 Sam Hocevar <sam@hocevar.net>
6		6
7	Everyone is permitted to copy and distribute verbatim or modified copies of	7	Everyone is permitted to copy and distribute verbatim or modified copies of
8	this license document, and changing it is allowed as long as the name is changed.	8	this license document, and changing it is allowed as long as the name is changed.
9		9
10	DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE	10	DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
11		11
12	TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION	12	TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
13		13
14	0. You just DO WHAT THE FUCK YOU WANT TO.	14	0. You just DO WHAT THE FUCK YOU WANT TO.


diff --git a/early-init.el b/early-init.el index 0738ca2..b8a6c6c 100644 --- a/early-init.el +++ b/early-init.el
@@ -1,89 +1,89 @@
1	;;; early-init.el -- no-byte-compile: t; coding: utf-8 --	1	;;; early-init.el -- no-byte-compile: t; coding: utf-8 --
2	;; Copyright (C) 2020 Case Duckworth	2	;; Copyright (C) 2020 Case Duckworth
3		3
4	;; Author: Case Duckworth <acdw@acdw.net>	4	;; Author: Case Duckworth <acdw@acdw.net>
5	;; Created: Sometime during the Covid-19 lockdown, 2019	5	;; Created: Sometime during the Covid-19 lockdown, 2019
6	;; Keywords: configuration	6	;; Keywords: configuration
7	;; URL: https://tildegit.org/acdw/emacs	7	;; URL: https://tildegit.org/acdw/emacs
8		8
9	;; This file is not part of GNU Emacs.	9	;; This file is not part of GNU Emacs.
10		10
11	;;; Commentary:	11	;;; Commentary:
12	;; This file is automatically tangled from config.org.	12	;; This file is automatically tangled from config.org.
13	;; Hand edits will be overwritten!	13	;; Hand edits will be overwritten!
14		14
15	;;; Code:	15	;;; Code:
16		16
17	;; BOOTSTRAP PACKAGE MANAGEMENT	17	;; BOOTSTRAP PACKAGE MANAGEMENT
18	(let ((win-app-dir "~/Applications"))	18	(let ((win-app-dir "~/Applications"))
19	(dolist (path (list	19	(dolist (path (list
20	;; Windows	20	;; Windows
21	(expand-file-name "exe" win-app-dir)	21	(expand-file-name "exe" win-app-dir)
22	(expand-file-name "exe/bin" win-app-dir)	22	(expand-file-name "exe/bin" win-app-dir)
23	(expand-file-name "Git/bin" win-app-dir)	23	(expand-file-name "Git/bin" win-app-dir)
24	(expand-file-name "Git/usr/bin" win-app-dir)	24	(expand-file-name "Git/usr/bin" win-app-dir)
25	(expand-file-name "Git/mingw64/bin" win-app-dir)	25	(expand-file-name "Git/mingw64/bin" win-app-dir)
26	(expand-file-name "Everything" win-app-dir)	26	(expand-file-name "Everything" win-app-dir)
27	(expand-file-name "Win-builds/bin" win-app-dir)	27	(expand-file-name "Win-builds/bin" win-app-dir)
28	(expand-file-name "Z/bin" win-app-dir)	28	(expand-file-name "Z/bin" win-app-dir)
29	;; Linux	29	;; Linux
30	(expand-file-name "bin" user-emacs-directory)	30	(expand-file-name "bin" user-emacs-directory)
31	(expand-file-name "~/bin")	31	(expand-file-name "~/bin")
32	(expand-file-name "~/.local/bin")	32	(expand-file-name "~/.local/bin")
33	(expand-file-name "~/Scripts")	33	(expand-file-name "~/Scripts")
34	))	34	))
35	(when (file-exists-p path)	35	(when (file-exists-p path)
36	(add-to-list 'exec-path path :append))))	36	(add-to-list 'exec-path path :append))))
37		37
38	;; Set $PATH	38	;; Set $PATH
39	(setenv "PATH" (mapconcat #'identity exec-path path-separator))	39	(setenv "PATH" (mapconcat #'identity exec-path path-separator))
40	(setq package-enable-at-startup nil)	40	(setq package-enable-at-startup nil)
41	(defun acdw/bootstrap-straight ()	41	(defun acdw/bootstrap-straight ()
42	"Bootstrap straight.el."	42	"Bootstrap straight.el."
43	(defvar bootstrap-version)	43	(defvar bootstrap-version)
44	(let ((bootstrap-file	44	(let ((bootstrap-file
45	(expand-file-name	45	(expand-file-name
46	"straight/repos/straight.el/bootstrap.el"	46	"straight/repos/straight.el/bootstrap.el"
47	user-emacs-directory))	47	user-emacs-directory))
48	(bootstrap-version 5))	48	(bootstrap-version 5))
49	(unless (file-exists-p bootstrap-file)	49	(unless (file-exists-p bootstrap-file)
50	(with-current-buffer	50	(with-current-buffer
51	(url-retrieve-synchronously	51	(url-retrieve-synchronously
52	(concat	52	(concat
53	"https://raw.githubusercontent.com/"	53	"https://raw.githubusercontent.com/"
54	"raxod502/straight.el/develop/install.el")	54	"raxod502/straight.el/develop/install.el")
55	'silent 'inhibit-cookies)	55	'silent 'inhibit-cookies)
56	(goto-char (point-max))	56	(goto-char (point-max))
57	(eval-print-last-sexp)))	57	(eval-print-last-sexp)))
58	(load bootstrap-file nil 'nomessage)))	58	(load bootstrap-file nil 'nomessage)))
59	(when (executable-find "git")	59	(when (executable-find "git")
60	(unless (ignore-errors (acdw/bootstrap-straight))	60	(unless (ignore-errors (acdw/bootstrap-straight))
61	(let ((msg "Straight.el didn't bootstrap correctly. Cloning directly"))	61	(let ((msg "Straight.el didn't bootstrap correctly. Cloning directly"))
62	(message "%s..." msg)	62	(message "%s..." msg)
63	(call-process "git" nil	63	(call-process "git" nil
64	(get-buffer-create "bootstrap-straight-messages") nil	64	(get-buffer-create "bootstrap-straight-messages") nil
65	"clone"	65	"clone"
66	"https://github.com/raxod502/straight.el"	66	"https://github.com/raxod502/straight.el"
67	(expand-file-name "straight/repos/straight.el"	67	(expand-file-name "straight/repos/straight.el"
68	user-emacs-directory))	68	user-emacs-directory))
69	(message "%s...Done." msg)	69	(message "%s...Done." msg)
70	(acdw/bootstrap-straight))))	70	(acdw/bootstrap-straight))))
71	;; SETUP FRAME	71	;; SETUP FRAME
72	(add-to-list 'default-frame-alist	72	(add-to-list 'default-frame-alist
73	'(tool-bar-lines . 0))	73	'(tool-bar-lines . 0))
74		74
75	(tool-bar-mode -1)	75	(tool-bar-mode -1)
76	(add-to-list 'default-frame-alist	76	(add-to-list 'default-frame-alist
77	'(menu-bar-lines . 0))	77	'(menu-bar-lines . 0))
78		78
79	(menu-bar-mode -1)	79	(menu-bar-mode -1)
80	(add-to-list 'default-frame-alist	80	(add-to-list 'default-frame-alist
81	'(vertical-scroll-bars . nil)	81	'(vertical-scroll-bars . nil)
82	'(horizontal-scroll-bars . nil))	82	'(horizontal-scroll-bars . nil))
83		83
84	(scroll-bar-mode -1)	84	(scroll-bar-mode -1)
85	(horizontal-scroll-bar-mode -1)	85	(horizontal-scroll-bar-mode -1)
86	(setq-default frame-inhibit-implied-resize t	86	(setq-default frame-inhibit-implied-resize t
87	frame-resize-pixelwise t)	87	frame-resize-pixelwise t)
88		88
89	;;; early-init.el ends here	89	;;; early-init.el ends here


diff --git a/etc/eshell/aliases b/etc/eshell/aliases index 621749d..24a7efc 100644 --- a/etc/eshell/aliases +++ b/etc/eshell/aliases
@@ -1 +1 @@
	alias e find-file $1		alias e find-file $1


diff --git a/init.el b/init.el index 2fdd1c9..0d48e0d 100644 --- a/init.el +++ b/init.el
@@ -1,50 +1,50 @@
1	;;; init.el -- lexical-binding: t; coding: utf-8 --	1	;;; init.el -- lexical-binding: t; coding: utf-8 --
2	;; Copyright (C) 2020 Case Duckworth	2	;; Copyright (C) 2020 Case Duckworth
3		3
4	;; Author: Case Duckworth <acdw@acdw.net>	4	;; Author: Case Duckworth <acdw@acdw.net>
5	;; Created: Sometime during the Covid-19 lockdown, 2019	5	;; Created: Sometime during the Covid-19 lockdown, 2019
6	;; Keywords: configuration	6	;; Keywords: configuration
7	;; URL: https://tildegit.org/acdw/emacs	7	;; URL: https://tildegit.org/acdw/emacs
8		8
9	;; This file is not part of GNU Emacs.	9	;; This file is not part of GNU Emacs.
10		10
11	;;; Commentary:	11	;;; Commentary:
12	;; This file is automatically tangled from config.org.	12	;; This file is automatically tangled from config.org.
13	;; Hand edits will be overwritten!	13	;; Hand edits will be overwritten!
14		14
15	;;; Code:	15	;;; Code:
16		16
17	(setq-default load-prefer-newer t)	17	(setq-default load-prefer-newer t)
18		18
19	(let* (;; Speed up init	19	(let* (;; Speed up init
20	(gc-cons-threshold most-positive-fixnum)	20	(gc-cons-threshold most-positive-fixnum)
21	;; (gc-cons-percentage 0.6)	21	;; (gc-cons-percentage 0.6)
22	(file-name-handler-alist nil)	22	(file-name-handler-alist nil)
23	;; Config file names	23	;; Config file names
24	(config (expand-file-name "config"	24	(config (expand-file-name "config"
25	user-emacs-directory))	25	user-emacs-directory))
26	(config.el (concat config ".el"))	26	(config.el (concat config ".el"))
27	(config.org (concat config ".org"))	27	(config.org (concat config ".org"))
28	(straight-org-dir (locate-user-emacs-file "straight/build/org")))	28	(straight-org-dir (locate-user-emacs-file "straight/build/org")))
29	;; Okay, let's figure this out.	29	;; Okay, let's figure this out.
30	;; `and' evaluates each form, and returns nil on the first that	30	;; `and' evaluates each form, and returns nil on the first that
31	;; returns nil. `unless' only executes its body if the test	31	;; returns nil. `unless' only executes its body if the test
32	;; returns nil. So.	32	;; returns nil. So.
33	;; 1. Test if config.org is newer than config.el. If it is (t), we	33	;; 1. Test if config.org is newer than config.el. If it is (t), we
34	;; want to evaluate the body, so we need to negate that test.	34	;; want to evaluate the body, so we need to negate that test.
35	;; 2. Try to load the config. If it errors (nil), it'll bubble that	35	;; 2. Try to load the config. If it errors (nil), it'll bubble that
36	;; to the `and' and the body will be evaluated.	36	;; to the `and' and the body will be evaluated.
37	(unless (and (not (file-newer-than-file-p config.org config.el))	37	(unless (and (not (file-newer-than-file-p config.org config.el))
38	(load config :noerror))	38	(load config :noerror))
39	;; A plain require here just loads the older `org'	39	;; A plain require here just loads the older `org'
40	;; in Emacs' install dir. We need to add the newer	40	;; in Emacs' install dir. We need to add the newer
41	;; one to the `load-path', hopefully that's all.	41	;; one to the `load-path', hopefully that's all.
42	(when (file-exists-p straight-org-dir)	42	(when (file-exists-p straight-org-dir)
43	(add-to-list 'load-path straight-org-dir))	43	(add-to-list 'load-path straight-org-dir))
44	;; Load config.org	44	;; Load config.org
45	(message "%s..." "Loading config.org")	45	(message "%s..." "Loading config.org")
46	(require 'org)	46	(require 'org)
47	(org-babel-load-file config.org)	47	(org-babel-load-file config.org)
48	(message "%s... Done" "Loading config.org")))	48	(message "%s... Done" "Loading config.org")))
49		49
50	;;; init.el ends here	50	;;; init.el ends here


diff --git a/var/elpher-bookmarks.el b/var/elpher-bookmarks.el index c1dd228..311d980 100644 --- a/var/elpher-bookmarks.el +++ b/var/elpher-bookmarks.el
@@ -1,18 +1,18 @@
1	; Elpher bookmarks file	1	; Elpher bookmarks file
2		2
3	; Bookmarks are stored as a list of (label URL) items.	3	; Bookmarks are stored as a list of (label URL) items.
4	; Feel free to edit by hand, but take care to ensure	4	; Feel free to edit by hand, but take care to ensure
5	; the list structure remains intact.	5	; the list structure remains intact.
6		6
7	(("MEDUSAE directory" "gemini://medusae.space/")	7	(("MEDUSAE directory" "gemini://medusae.space/")
8	("Will Lewis" "gemini://wflewis.com/")	8	("Will Lewis" "gemini://wflewis.com/")
9	("Cornbread Recipe" "gemini://perplexing.space/2021/cornbread-recipe.gmi")	9	("Cornbread Recipe" "gemini://perplexing.space/2021/cornbread-recipe.gmi")
10	("SMOG" "gemini://gemini.trans-neptunian.space/~smog/")	10	("SMOG" "gemini://gemini.trans-neptunian.space/~smog/")
11	("Caolan - Vermont Sourdough" "gemini://caolan.uk/baking/2020-11-26_vermont_sourdough.gmi")	11	("Caolan - Vermont Sourdough" "gemini://caolan.uk/baking/2020-11-26_vermont_sourdough.gmi")
12	("BREADPUNK!" "gemini://breadpunk.club/")	12	("BREADPUNK!" "gemini://breadpunk.club/")
13	("ACDW" "gemini://gem.acdw.net/")	13	("ACDW" "gemini://gem.acdw.net/")
14	("Spacewalk" "gemini://rawtext.club/~sloum/spacewalk.gmi")	14	("Spacewalk" "gemini://rawtext.club/~sloum/spacewalk.gmi")
15	("CAPCOM" "gemini://gemini.circumlunar.space/capcom/")	15	("CAPCOM" "gemini://gemini.circumlunar.space/capcom/")
16	("cosmic voyage" "gemini://cosmic.voyage/")	16	("cosmic voyage" "gemini://cosmic.voyage/")
17	("kayw" "gemini://salejandro.me/")	17	("kayw" "gemini://salejandro.me/")
18	("low-key: weechat relay" "gemini://low-key.me/guides/weechat_irc_relay.gmi"))	18	("low-key: weechat relay" "gemini://low-key.me/guides/weechat_irc_relay.gmi"))