update packages

lisp/treemacs/treemacs-persistence.el

@@ -1,6 +1,6 @@
 ;;; treemacs.el --- A tree style file viewer package -*- lexical-binding: t -*-
 
-;; Copyright (C) 2023 Alexander Miller
+;; Copyright (C) 2024 Alexander Miller
 
 ;; This program is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
@@ -62,6 +62,10 @@
                (:constructor treemacs-iter->create!))
   list)
 
+(defvar treemacs--no-abbr-on-persist-prefixes nil
+  "Prefixes for paths to be saved as is, without using `abbreviate-file-name'.
+Will be set to all the `tramp-methods', after tramp has been loaded.")
+
 (define-inline treemacs-iter->next! (self)
   "Get the next element of iterator SELF.
 
@@ -144,7 +148,8 @@ ITER: Treemacs-Iter Struct"
                         (treemacs--get-path-status)))
               (setq action
                     (cond
-                     ((not (treemacs-project->is-unreadable? project))
+                     ((or (treemacs-project->is-disabled? project)
+                          (not (treemacs-project->is-unreadable? project)))
                       'keep)
                      ((eq treemacs-missing-project-action 'ask)
                       (let ((completions
@@ -200,7 +205,7 @@ ITER: Treemacs-Iter Struct"
                 (push (format
                        " - path :: %s\n"
                        (-let [path (treemacs-project->path pr)]
-                         (if (string-prefix-p "/ssh:" path)
+                         (if (--any? (string-prefix-p it path) treemacs--no-abbr-on-persist-prefixes)
                              path
                            (abbreviate-file-name path))))
                       txt)))
@@ -300,6 +305,7 @@ PROJ-COUNT: Int"
             ;; `treemacs-missing-project-action'. Remote files are skipped to avoid opening
             ;; Tramp connections.
             (treemacs-return-if (and (string= treemacs--org-edit-buffer-name (buffer-name))
+                                     (not (s-starts-with? "** COMMENT" prev))
                                      (not (file-remote-p path))
                                      (not (file-exists-p path)))
               `(error ,line ,(format (as-warning "File '%s' does not exist") (propertize path 'face 'font-lock-string-face))))