Update Emacs configuration

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index bd140aafdd75422058491044ce868e7ac483e144..bccdb974f41872343b50702be3cdbb3eaab3b408 100644 (file)
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -116,9 +116,12 @@
          :pre-build (("./autogen.sh")
                      ("./configure")
                      ("make"))))
-(elpaca (breadcrumb :repo "https://github.com/joaotavora/breadcrumb"))
 (elpaca (corfu
-         :pre-build (("mv" "extensions/corfu-indexed.el" "corfu-indexed.el")
+         :pre-build (("mv"
+                      "extensions/corfu-indexed.el"
+                      "extensions/corfu-info.el"
+                      "extensions/corfu-popupinfo.el"
+                      ".")
                      ("rm" "-r" "extensions")
                      ("emacs" "--batch" "-l" "ox-texinfo" "README.org"
                       "--eval" "(setq org-babel-confirm-evaluate-answer-no t)"
@@ -139,7 +142,6 @@
          :pre-build (("pandoc" "-o" "elfeed.texi" "README.md"))))
 (elpaca embark-consult)
 (elpaca emms)
-(elpaca gnu-elpa-keyring-update)
 (elpaca htmlize)
 (elpaca keycast)
 (elpaca kubernetes)
@@ -189,8 +191,8 @@
                       "-f" "org-texinfo-export-to-texinfo")
                      ("mv" "README.texi"  "pdf-tools.texi"))))
 (elpaca ob-prolog)
-(elpaca cape)
-
+(elpaca (query-replace-parallel
+         :repo "https://github.com/hokomo/query-replace-parallel.git"))
 (elpaca-wait)
 
 (defvar-keymap esy/elpaca-prefix-map
@@ -642,18 +644,21 @@ DEADLINE: %(format-time-string \"<%Y-%m-%d %H:%M>\" (org-read-date t t))
 (defun esy/access-log-summary ()
   "Display a summary of my website's access log."
   (interactive)
-  (let ((default-directory "/ssh:root@direct.eshelyaron.com:/var/log/apache2/"))
-    (async-shell-command (string-join  '("zcat access.log.*.gz"
-                                         "cat - access.log access.log.1"
-                                         "grep -E '\"GET.+\" 2'"
-                                         "tr -d '\"'"
-                                         "tr -d \"'\""
-                                         "cut -f 7,11,12 -d ' '"
-                                         "sort"
-                                         "uniq -c"
-                                         "sort -n")
-                                       " | ")
-                         "*Access Log Summary*")))
+  (async-shell-command (string-join (list "ssh"
+                                          "root@direct.eshelyaron.com"
+                                          (shell-quote-argument
+                                           (string-join '("zcat /var/log/apache2/access.log.*.gz"
+                                                          "cat - /var/log/apache2/access.log /var/log/apache2/access.log.1"
+                                                          "grep -E '\"GET.+\" 2'"
+                                                          "tr -d '\"'"
+                                                          "tr -d \"'\""
+                                                          "cut -f 7,11,12 -d ' '"
+                                                          "sort"
+                                                          "uniq -c"
+                                                          "sort -n")
+                                                        " | ")))
+                                    " ")
+                       "*Access Log Summary*"))
 
 (defvar esy/clone-history nil)
 
@@ -1224,7 +1229,7 @@ as the initial input for completion, and return that directory."
   "P" #'emms-previous
   "S" #'emms-stop
   "b" #'emms-seek-backward
-  "f" #'emms-seek-fofrward
+  "f" #'emms-seek-forward
   "k" #'emms-seek
   "m" #'emms-show
   "p" #'emms-pause