daniel/emacs
1
2
Fork 0
Code Issues 7 Pull Requests Projects Releases Wiki Activity

update packages

Browse Source
This commit is contained in:
Daniel Weschke
2021-01-08 19:32:30 +01:00
parent ce8f24d28a
commit f5649dceab
467 changed files with 26642 additions and 22487 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
lisp/treemacs/treemacs-dom.el
View File

@@ -1,6 +1,6 @@
;;; treemacs.el --- A tree style file viewer package -*- lexical-binding: t -*-
;; Copyright (C) 2020 Alexander Miller
;; Copyright (C) 2021 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
@@ -29,7 +29,8 @@
(require 'inline)
(require 'treemacs-macros))
(cl-declaim (optimize (speed 3) (safety 0)))
(eval-when-compile
(cl-declaim (optimize (speed 3) (safety 0))))
(defvar-local treemacs-dom nil)
@@ -90,6 +91,9 @@ SELF: Dom Node Struct"
(inline-quote
(progn
(ht-remove! treemacs-dom (treemacs-dom-node->key ,self))
(let ((parent (treemacs-dom-node->parent ,self)))
(setf (treemacs-dom-node->children parent)
(delete ,self (treemacs-dom-node->children parent))))
(dolist (key (treemacs-dom-node->collapse-keys ,self))
(ht-remove! treemacs-dom key))))))
@@ -201,7 +205,7 @@ DOM-NODE: Dom Node Struct"
(defun treemacs--on-rename (old-name new-name dont-rename-initial)
"Renames dom entries after a file was renamed from OLD-NAME to NEW-NAME.
Renames the initial dom entry (the one backing the file that was acutally
Renames the initial dom entry (the one backing the file that was actually
renamed) only if DONT-RENAME-INITIAL is nil in case the entry is required for
filewatch-mode to work.
@@ -239,9 +243,9 @@ levels the one currently visiting.
NODE: Dom Node Struct
FN: (Dom Node) -> Any"
(declare (indent 1))
(funcall fn node)
(dolist (it (treemacs-dom-node->children node))
(treemacs-walk-dom it fn))
(funcall fn node))
(treemacs-walk-dom it fn)))
(defun treemacs-walk-dom-exclusive (node fn)
"Same as `treemacs-walk-dom', but start NODE will not be passed to FN.
@@ -263,9 +267,9 @@ levels the one currently visiting.
NODE: Dom Node Struct
FN: (Dom Node) -> Any"
(declare (indent 1))
(funcall fn node)
(dolist (it (treemacs-dom-node->reentry-nodes node))
(treemacs-walk-reentry-dom it fn))
(funcall fn node))
(treemacs-walk-reentry-dom it fn)))
(defun treemacs-walk-reentry-dom-exclusive (node fn)
"Same as `treemacs-walk-reentry-dom', but start NODE will not be passed to FN.