Update esy.org

diff --git a/.emacs.d/esy.org b/.emacs.d/esy.org
index 57f579019264f7b62146de5787753c5597b73d9c..fc8396a5d16f14abffc1196775a158929b91418d 100644 (file)
--- a/.emacs.d/esy.org
+++ b/.emacs.d/esy.org
@@ -160,7 +160,16 @@ For further information about Elisp headers, see [[info:elisp#Library
   (add-to-list 'package-archives
                '("elpa-devel" . "https://elpa.gnu.org/devel/"))
 
+  (setq package-archive-column-width 12
+        package-version-column-width 28)
+#+end_src
+
+* Selected packages
+:PROPERTIES:
+:CUSTOM_ID: selected-packages
+:END:
 
+#+begin_src emacs-lisp
   (setq package-selected-packages
         '(
           alert
@@ -168,6 +177,7 @@ For further information about Elisp headers, see [[info:elisp#Library
           all-the-icons-completion
           all-the-icons-dired
           all-the-icons-gnus
+          auctex
           auctex-latexmk
           avy
           bbdb
@@ -215,13 +225,10 @@ For further information about Elisp headers, see [[info:elisp#Library
           vundo
           whitespace-cleanup-mode
           with-editor
-          )
-        package-archive-column-width 12
-        package-version-column-width 28)
+          ))
 
   (package-install-selected-packages)
 #+end_src
-
 * Add local Elisp directory to load-path
 :PROPERTIES:
 :CUSTOM_ID: add-to-load-path
@@ -859,8 +866,6 @@ refiling directly into deeper headings as well.
 :END:
 
 #+begin_src emacs-lisp
-  (with-eval-after-load 'sweeprolog
-      (keymap-global-set "C-c p" sweeprolog-prefix-map))
   (keymap-global-set "C-c w" #'esy/eww)
   (keymap-global-set "C-c c" #'org-capture)
   (keymap-global-set "C-c l" #'org-store-link)
@@ -928,12 +933,18 @@ refiling directly into deeper headings as well.
     (keymap-global-unset "s-g")
     (keymap-global-unset "s-h")
     (keymap-global-unset "s-j")
+    (keymap-global-unset "s-k")
+    (keymap-global-unset "s-l")
     (keymap-global-unset "s-m")
     (keymap-global-unset "s-o")
     (keymap-global-unset "s-q")
     (keymap-global-unset "s-s")
+    (keymap-global-unset "s-t")
     (keymap-global-unset "s-u")
     (keymap-global-unset "s-w")
+    (keymap-global-unset "s-x")
+    (keymap-global-unset "s-y")
+    (keymap-global-unset "s-z")
     (global-set-key [remap kill-region] #'esy/kill-dwim)
     (global-set-key [remap goto-line] #'consult-goto-line)
     (global-set-key [remap suspend-frame] #'zap-up-to-char)
@@ -1053,6 +1064,7 @@ refiling directly into deeper headings as well.
       (all-the-icons-dired-mode)))
 
   (with-eval-after-load 'dired
+    (put 'dired-find-alternate-file 'disabled nil)
     (setq dired-dwim-target t)
     (add-hook 'dired-mode-hook #'esy/local-all-the-icons-dired-mode))
 #+end_src
@@ -1118,7 +1130,6 @@ over ssh for remote connections.
             "https://writer13.neocities.org/rss.xml"
             "https://njoseph.me/shaarli/feed/atom?"
             "https://stephanango.com/feed.xml"
-            "https://hnrss.org/newest?points=50"
             "https://nullprogram.com/feed/"
             "https://planet.emacslife.com/atom.xml")))
 #+end_src
@@ -1700,8 +1711,7 @@ include =emacs-lisp-mode= and =lisp-interaction-mode=.
   (setq use-package-verbose t)
 
   (use-package sweeprolog
-    :mode ("\\.pl\\'"  . sweeprolog-mode)
-    :mode ("\\.plt\\'" . sweeprolog-mode)
+    :mode ("\\.plt?\\'" . sweeprolog-mode)
     :bind-keymap ("C-c p" . sweeprolog-prefix-map)
     :config
     (add-hook 'sweeprolog-mode-hook #'sweeprolog-electric-layout-mode))
@@ -1753,8 +1763,11 @@ without asking each time.
     "Path of the projects directory.")
 
   (add-hook 'kill-emacs-hook
-            (lambda () (project-remember-projects-under
-                        (expand-file-name esy/projects-directory))))
+            (lambda ()
+              (require 'project)
+              (mapcar #'project-remember-projects-under
+                      (directory-files
+                       esy/projects-directory))))
 #+end_src
 
 ** Project switch commands
@@ -1765,11 +1778,12 @@ without asking each time.
 #+begin_src emacs-lisp
   (with-eval-after-load 'project
     (add-to-list 'project-switch-commands '(project-compile "Compile"))
+    (add-to-list 'project-switch-commands '(rg-project "rg"))
+    (add-to-list 'project-switch-commands '(magit-project-status "Magit"))
+    (add-to-list 'project-switch-commands '(project-shell "Shell"))
     (when (boundp 'project-prefix-map)
       (define-key project-prefix-map "R" #'rg-project)
-      (define-key project-prefix-map "m" #'magit-project-status)
-      (add-to-list 'project-switch-commands '(rg-project "rg") t)
-      (add-to-list 'project-switch-commands '(magit-project-status "Magit") t)))
+      (define-key project-prefix-map "m" #'magit-project-status)))
 #+end_src
 
 * Presentation mode