update packages
This commit is contained in:
@@ -100,6 +100,7 @@
|
||||
treemacs-dom-node->position)
|
||||
|
||||
(treemacs-import-functions-from "treemacs-workspaces"
|
||||
treemacs--next-project-pos
|
||||
treemacs--find-workspace
|
||||
treemacs-current-workspace
|
||||
treemacs-workspace->projects
|
||||
@@ -204,7 +205,7 @@ PATH: File Path"
|
||||
(file-name-directory)
|
||||
(treemacs--unslash)))))
|
||||
|
||||
(defconst treemacs--buffer-name-prefix " *Treemacs-")
|
||||
(defconst treemacs--buffer-name-prefix " *Treemacs-Buffer-")
|
||||
|
||||
(defconst treemacs-dir
|
||||
;; locally we're in src/elisp, installed from melpa we're at the package root
|
||||
@@ -376,6 +377,16 @@ EXCLUDE-PREFIX: File Path"
|
||||
project (treemacs-button-get node :project)))
|
||||
project))
|
||||
|
||||
(defun treemacs-last-node-of-project (project)
|
||||
"Find the last node in given PROJECT.
|
||||
Returns nil if the project is not expanded."
|
||||
(declare (side-effect-free t))
|
||||
(let ((node (treemacs-project->position project)))
|
||||
(when (treemacs-is-node-expanded? node)
|
||||
(save-excursion
|
||||
(goto-char node)
|
||||
(previous-button (treemacs--next-project-pos))))))
|
||||
|
||||
(define-inline treemacs--prop-at-point (prop)
|
||||
"Grab property PROP of the button at point.
|
||||
Returns nil when there is no button at point."
|
||||
|
||||
Reference in New Issue
Block a user