Merge branch 'main' of https://tildegit.org/acdw/emacs into main

2 files changed, 96 insertions, 17 deletions

@@ -1338,7 +1338,7 @@ the user is looking at something else.
 
 ** Garbage collection
 
-*** Garbage Collection Magic Hack                                     :package:
+*** COMMENT Garbage Collection Magic Hack                             :package:
 
 Look, I'm not going to look too deeply into this.  It's /magic/ afer
 all.
@@ -1352,6 +1352,31 @@ all.
   (blackout 'gcmh-mode)
 #+end_src
 
+*** Simple GC munging about
+
+From [[https://bling.github.io/blog/2016/01/18/why-are-you-changing-gc-cons-threshold/][bling]], from ... 2016?  Maybe this isn't great, but it's one less package so
+I'm going to try it for now.
+
+#+begin_src emacs-lisp :noweb-ref hooks
+  (defconst gc-cons-basis (* 800 1000)
+    "The basis value to which to return after a max jump.
+
+  800,000 (800 KB) is Emacs' default.")
+
+  (defun hook--gc-cons-maximize ()
+    "Set `gc-cons-threshold' to the highest possible.
+  For memory-intensive features."
+    (setq gc-cons-threshold most-positive-fixnum))
+
+  (defun hook--gc-cons-baseline ()
+    "Return `gc-cons-threshold' to `gc-cons-basis'.
+  For after memory intensive operations."
+    (setq gc-cons-threshold gc-cons-basis))
+
+  (add-hook 'minibuffer-setup-hook #'hook--gc-cons-maximize)
+  (add-hook 'minibuffer-exit-hook #'hook--gc-cons-baseline)
+#+end_src
+
 *** Garbage Collect when out of focus
 
 #+begin_src emacs-lisp :noweb-ref hooks
@@ -1728,6 +1753,17 @@ look like.  =anzu= does /most/ of this, except the wrapping around part --
 the two packages to play nice together.  Until then, I'll just use
 =anzu= and =isearch=, which is honestly a pretty good search package.
 
+*** Isearch
+
+I want to search by regexp by default.
+
+#+begin_src emacs-lisp :noweb-ref bindings
+  (define-key acdw/map (kbd "C-s") #'isearch-forward-regexp)
+  (define-key acdw/map (kbd "C-r") #'isearch-backward-regexp)
+  (define-key acdw/map (kbd "C-M-s") #'isearch-forward)
+  (define-key acdw/map (kbd "C-M-r") #'isearch-backward)
+#+end_src
+
 *** Anzu setup
 
 #+begin_src emacs-lisp :noweb-ref packages
@@ -1781,6 +1817,14 @@ already commented.  That's it.
   (acdw/bind "M-;" #'comment-or-uncomment-region)
 #+end_src
 
+** Goto address mode
+
+"Buttonize URLs and Email addresses."
+
+#+begin_src emacs-lisp :noweb-ref modes
+  (global-goto-address-mode +1)
+#+end_src
+
 * Writing
 
 ** Word count
@@ -2189,20 +2233,6 @@ that one item is.
   (acdw/bind "g" #'magit-status :map acdw/leader)
 #+end_src
 
-**** Use =~/.authinfo= for passwords
-
-The =auth-info= line should look like this:
-
-#+begin_example
-machine git.example.com user acdw password hahayeahrightyamoroniwouldn'tgiveyouthat
-#+end_example
-
-#+begin_src emacs-lisp :noweb-ref hooks
-  (autoload 'magit-process-password-auth-source "magit")
-  (add-hook 'magit-process-find-password-functions
-            #'magit-process-password-auth-source)
-#+end_src
-
 **** Windows setup
 
 Following the [[https://github.com/magit/magit/wiki/Pushing-with-Magit-from-Windows][wiki page located here]].  Also make sure to run the
@@ -3214,6 +3244,51 @@ This function require [[https://github.com/simonthum/git-sync][git-sync]].
   (define-key acdw/leader (kbd "C-M-f") #'acdw/git-sync-elfeed-db)
 #+end_src
 
+*** Passwords
+
+**** Password cache
+
+#+begin_src emacs-lisp :noweb-ref settings
+  (setq-default password-cache-expiry nil)
+#+end_src
+
+**** Use =~/.authinfo= for passwords
+
+The =auth-info= line should look like this:
+
+#+begin_example
+machine git.example.com user acdw password hahayeahrightyamoroniwouldn'tgiveyouthat
+#+end_example
+
+#+begin_src emacs-lisp :noweb-ref hooks
+  (autoload 'magit-process-password-auth-source "magit")
+  (add-hook 'magit-process-find-password-functions
+            #'magit-process-password-auth-source)
+#+end_src
+
+*** TRAMP
+
+It stands for ... something kind of stupid, I don't remember.  I'm pulling this
+from [[https://github.com/grandfoobah/spartan-emacs/blob/master/spartan-layers/spartan-settings.el][Spartan Emacs]].  It recommends the following in =~/.ssh/config=:
+
+#+begin_example
+  Host *
+  ForwardAgent yes
+  AddKeysToAgent yes
+  ControlMaster auto
+  ControlPath ~/.ssh/master-%r@%h:%p
+  ControlPersist yes
+  ServerAliveInterval 10
+  ServerAliveCountMax 10
+#+end_example
+
+#+begin_src emacs-lisp :noweb-ref settings
+  (setq-default tramp-default-method "ssh"
+                tramp-copy-size-limit nil
+                tramp-use-ssh-controlmaster-options nil
+                tramp-default-remote-shell "/bin/bash")
+#+end_src
+
 ** Linux (home)
 :PROPERTIES:
 :header-args: :noweb-ref linux-specific
@@ -3554,8 +3629,10 @@ the needed boolean expression to tangle config.org.  Booleans, yall!
       (when (file-exists-p straight-org-dir)
         (add-to-list 'load-path straight-org-dir))
       ;; Load config.org
+      (message "%s..." "Loading config.org")
       (require 'org)
-      (org-babel-load-file config.org)))
+      (org-babel-load-file config.org)
+      (message "%s... Done" "Loading config.org")))
 
   ;;; init.el ends here
 #+end_src
@@ -42,7 +42,9 @@
     (when (file-exists-p straight-org-dir)
       (add-to-list 'load-path straight-org-dir))
     ;; Load config.org
+    (message "%s..." "Loading config.org")
     (require 'org)
-    (org-babel-load-file config.org)))
+    (org-babel-load-file config.org)
+    (message "%s... Done" "Loading config.org")))
 
 ;;; init.el ends here