From 4d3623d771a847bfa4e75ef339f4868cbb594c2c Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Sun, 22 Nov 2020 00:00:15 -0600
Subject: Add async and stuff
---
config.org | 146 ++++++++++++++++++++++++++++++++++++++++++++-----------------
1 file changed, 105 insertions(+), 41 deletions(-)
diff --git a/config.org b/config.org
index 01e5ac2..38f3d66 100644
--- a/config.org
+++ b/config.org
@@ -35,22 +35,28 @@
"If the current buffer is `config.org', tangle it, then compile
and load the resulting files."
(when (equal (buffer-file-name)
- (expand-file-name
- (concat user-emacs-directory "config.org")))
- (let ((prog-mode-hook nil))
- (require 'org)
- (org-babel-tangle-file
- (expand-file-name
- (concat user-emacs-directory "config.org"))))))
+ (expand-file-name
+ (concat user-emacs-directory "config.org")))
+ (require 'async)
+ (async-start
+ (lambda ()
+ (let ((prog-mode-hook nil))
+ (require 'org)
+ (org-babel-tangle-file
+ (expand-file-name
+ (concat user-emacs-directory "config.org")))))
+ (lambda (response)
+ (acdw/load-init)
+ (message "Tangled and loaded: %s" response)))))
(add-hook 'after-save-hook #'acdw/tangle-init)
(defun acdw/load-init ()
(interactive)
(load-file (expand-file-name
- (concat user-emacs-directory "early-init.el")))
+ (concat user-emacs-directory "early-init.el")))
(load-file (expand-file-name
- (concat user-emacs-directory "init.el"))))
+ (concat user-emacs-directory "init.el"))))
#+end_src
* Early initiation
@@ -60,28 +66,66 @@
(setq load-prefer-newer t)
+#+end_src
+
+** Add PortableGit to the =exec-path= on Windows
+
+#+begin_src emacs-lisp :tangle early-init.el
(when (eq system-type 'windows-nt)
(add-to-list 'exec-path "~/bin")
(add-to-list 'exec-path "C:/Users/aduckworth/Downloads/PortableGit/bin"))
+#+end_src
+** Bootstrap =straight.el=
+
+#+begin_src emacs-lisp :tangle early-init.el
(defvar bootstrap-version)
(let ((bootstrap-file
- (expand-file-name "straight/repos/straight.el/bootstrap.el"
- user-emacs-directory))
- (bootstrap-version 5))
+ (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)))
+ (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
+
+** Use =use-package=
+#+begin_src emacs-lisp :tangle early-init.el
(setq straight-use-package-by-default t)
(straight-use-package 'use-package)
#+end_src
+** Keep =~/.emacs.d= tidy
+
+#+begin_src emacs-lisp
+ (straight-use-package 'no-littering)
+ (require 'no-littering)
+#+end_src
+
+** Additional =use-package= keywords
+
+*** =:custom-update=
+
+#+begin_src emacs-lisp
+ (use-package use-package-custom-update
+ :straight (use-package-custom-update
+ :host github
+ :repo "a13/use-package-custom-update"))
+#+end_src
+
+** Setup async
+
+#+begin_src emacs-lisp :tangle early-init.el
+ (straight-use-package 'async)
+ (require 'async)
+#+end_src
+
* Macros
** Customizing variables
@@ -176,6 +220,14 @@ I also want to switch themes between night and day.
(rm/whitelist-add "^$"))
#+end_src
+** Show =^L= as a line
+
+#+begin_src emacs-lisp
+ (use-package form-feed
+ :hook
+ ((text-mode prog-mode) . form-feed-mode))
+#+end_src
+
* Fonts
#+begin_src emacs-lisp
@@ -221,27 +273,7 @@ I also want to switch themes between night and day.
(add-hook 'text-mode-hook #'variable-pitch-mode)
#+end_src
-* Emacs configuration [meta]
-
-** Keep =~/.emacs.d= tidy
-
-#+begin_src emacs-lisp
- (straight-use-package 'no-littering)
- (require 'no-littering)
-#+end_src
-
-** Additional =use-package= keywords
-
-*** =:custom-update=
-
-#+begin_src emacs-lisp
- (use-package use-package-custom-update
- :straight (use-package-custom-update
- :host github
- :repo "a13/use-package-custom-update"))
-#+end_src
-
-* TODO Ease of use
+* Ease of use
** Selectrum & Prescient
@@ -279,7 +311,23 @@ I also want to switch themes between night and day.
(cuss initial-scratch-message ";; Hi there!\n")
#+end_src
-** TODO Ignore case
+** Ignore case
+
+#+BEGIN_SRC emacs-lisp
+ (cuss completion-ignore-case t)
+ (cuss read-buffer-completion-ignore-case t)
+ (cuss read-file-name-completion-ignore-case t)
+#+END_SRC
+
+** Which key
+
+#+begin_src emacs-lisp
+ (use-package which-key
+ :custom
+ (which-key-popup-type 'minibuffer)
+ :config
+ (which-key-mode))
+#+end_src
* Persistence
@@ -316,6 +364,19 @@ I also want to switch themes between night and day.
(recentf-mode 1))
#+end_src
+*** Easily navigate recent files
+
+#+begin_src emacs-lisp
+ (defun recentf-find-file ()
+ "Find a recent file using `completing-read'."
+ (interactive)
+ (let ((file (completing-read "Recent file: " recentf-list nil t)))
+ (when file
+ (find-file file))))
+
+ (bind-key "C-x C-r" #'recentf-find-file)
+#+end_src
+
** Save places in visited files
#+begin_src emacs-lisp
@@ -432,11 +493,14 @@ I also want to switch themes between night and day.
(org-src-tab-acts-natively t)
(org-hide-emphasis-markers t)
(org-fontify-done-headline t)
+ (org-fontify-whole-heading-line t)
(org-hide-leading-stars t)
- (org-pretty-entities t))
+ (org-hidden-keywords '(author date title))
+ (org-src-window-setup 'current-window)
+ (org-pretty-entities t))
#+end_src
-* TODO Coding
+* Coding
** Indenting
--
cgit 1.4.1-21-gabe81