2 files changed, 41 insertions, 11 deletions

@@ -1266,6 +1266,12 @@ contents of the files the represent on-disk.  Thus, we have
   (setq-default fill-column 80)
 #+end_src
 
+I also want to display the fill-column:
+
+#+begin_src emacs-lisp :noweb-ref modes
+  (global-display-fill-column-indicator-mode +1)
+#+end_src
+
 By default, Emacs uses =C-x f= to set the =fill-column=.  I think it's
 pretty dumb that such an easy-to-reach binding (for Emacs) is set to a function
 that I /literally/ never use.  So I'm going to bind it to =find-file= ... since
@@ -2869,22 +2875,46 @@ Emacs (or the [[https://chrome.google.com/webstore/detail/edit-with-emacs/ljobjl
   (add-hook 'after-init-hook #'edit-server-start)
 #+end_src
 
-*** =git-sync= ~/org
+*** =git-sync= stuff
 
-I don't know where else to put this, but it's just a little command to
-run =git-sync= in =org-directory=.
+This function require [[https://github.com/simonthum/git-sync][git-sync]].
 
 #+begin_src emacs-lisp :noweb-ref functions
-  (defun acdw/org-sync ()
-    "Run git-sync in `org-directory'.
+  (defun acdw/git-sync (directory)
+    "Run git-sync in DIRECTORY."
+    (interactive)
+    (message "Git-Syncing %s..." directory)
+    (let ((proc (start-process "git-sync"
+                               (get-buffer-create (format "*git-sync:%s*" directory))
+                               "git" "-C" (expand-file-name directory) "sync")))
+      (add-function :after (process-sentinel proc)
+                    (lambda (proc ev)
+                      (cond
+                        ((string-match "finished\n\\'" ev)
+                         (message "Git-Syncing %s...Done." directory)))))))
+#+end_src
+
+**** ~/org
 
-  Requires git-sync."
+#+begin_src emacs-lisp :noweb-ref bindings
+  (defun acdw/git-sync-org ()
+    "Run `acdw/git-sync' on `org-directory'."
+    (interactive)
+    (acdw/git-sync org-directory))
+
+  (define-key acdw/leader (kbd "C-M-o") #'acdw/git-sync-org)
+#+end_src
+
+**** ~/.cache/elfeed/db
+
+#+begin_src emacs-lisp :noweb-ref bindings
+  (defun acdw/git-sync-elfeed-db ()
+    "Run `acdw/git-sync' on `elfeed-db-directory'."
     (interactive)
     (save-some-buffers :no-query nil)
-    (async-shell-command
-     (format "git -C %s sync" (expand-file-name org-directory))))
+    (acdw/git-sync elfeed-db-directory))
 
-  (define-key acdw/leader (kbd "C-M-o") #'acdw/org-sync)
+  (define-key acdw/leader (kbd "C-M-f") #'acdw/git-sync-elfeed-db)
 #+end_src
 
 ** Linux (home)
@@ -3196,7 +3226,7 @@ the needed boolean expression to tangle config.org.  Booleans, yall!
 #+begin_src emacs-lisp
   (let* (;; Speed up init
          (gc-cons-threshold most-positive-fixnum)
-         (gc-cons-percentage 0.6)
+         ;; (gc-cons-percentage 0.6)
          (file-name-handler-alist nil)
          ;; Config file names
          (config (expand-file-name "config"
@@ -18,7 +18,7 @@
 
 (let* (;; Speed up init
        (gc-cons-threshold most-positive-fixnum)
-       (gc-cons-percentage 0.6)
+       ;; (gc-cons-percentage 0.6)
        (file-name-handler-alist nil)
        ;; Config file names
        (config (expand-file-name "config"