Update init.el

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index 0e9f50050e88766eea558b50039671d6428c6e02..52f4f1e2ce17996196ab4c3ca5780428598cfe7a 100644 (file)
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -350,7 +350,7 @@
                 "https://matklad.github.io/feed.xml"
                 ("https://matt-rickard.com/rss" tech)
                 "https://njoseph.me/shaarli/feed/atom?"
-                "https://node2.feed43.com/7487052648530856.xml"
+                "http://node2.feed43.com/7487052648530856.xml"
                 "https://nullprogram.com/feed/"
                 "https://olddeuteronomy.github.io/index.xml"
                 "https://parasurv.neocities.org/rss.xml"
@@ -555,6 +555,7 @@
 (keymap-global-set "C-c M" #'mastodon)
 (keymap-global-set "C-c V" #'vertalen-at-point)
 (keymap-global-set "C-c F" #'esy/find-init-file)
+(keymap-global-set "C-c P" #'list-packages)
 (keymap-global-set "C-c SPC" #'consult-mark)
 (keymap-global-set "<remap> <kill-region>" #'esy/kill-dwim)
 (keymap-global-set "<remap> <goto-line>" #'consult-goto-line)
@@ -660,6 +661,7 @@
                                   (sql-password ,(funcall (plist-get i :secret)))
                                   (sql-server ,(cadr (split-string (plist-get i :host)  (rx "^"))))
                                   (sql-database ,(car (split-string (plist-get i :host) (rx "^"))))))))
+  (add-hook 'sql-interactive-mode-hook #'toggle-truncate-lines)
   (define-key sql-mode-map (kbd "C-c C-f") #'sqlformat)
   (define-advice sql-comint-postgres (:around (fun &rest args) use-sql-password)
     (let ((process-environment
@@ -693,8 +695,13 @@
   (put 'dired-find-alternate-file 'disabled nil)
   (add-hook 'dired-mode-hook #'esy/local-all-the-icons-dired-mode))
 
+;;;; workaround for Bug#62329
+(with-eval-after-load 'compile
+  (require 'tramp-sh))
+
 (with-eval-after-load 'tramp
-  (tramp-set-completion-function "ssh" '((tramp-parse-netrc "~/.authinfo.gpg"))))
+  (tramp-set-completion-function "ssh" '((tramp-parse-netrc "~/.authinfo.gpg")))
+  (add-to-list 'backup-directory-alist (cons tramp-file-name-regexp nil)))
 
 (with-eval-after-load 'proced
   (add-hook 'proced-mode-hook #'proced-toggle-auto-update))