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
2025-03-11 21:14:26 +01:00
parent 45d49daef0
commit 14dcaaddde
440 changed files with 13229 additions and 8718 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/treemacs/treemacs-mode.el
View File

@@ -1,6 +1,6 @@
;;; treemacs-mode.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
@@ -140,6 +140,7 @@ Will be set by `treemacs--post-command'.")
(define-key map (kbd "a") 'treemacs-copy-absolute-path-at-point)
(define-key map (kbd "r") 'treemacs-copy-relative-path-at-point)
(define-key map (kbd "p") 'treemacs-copy-project-path-at-point)
(define-key map (kbd "n") 'treemacs-copy-filename-at-point)
(define-key map (kbd "f") 'treemacs-copy-file)
(define-key map (kbd "v") 'treemacs-paste-dir-at-point-to-minibuffer)
map)
@@ -223,8 +224,9 @@ Will be set by `treemacs--post-command'.")
major-mode)
nil)
'("%e" (:eval (spaceline-ml-treemacs))))
((memq 'moody-mode-line-buffer-identification
(default-value 'mode-line-format))
((and (listp (default-value 'mode-line-format))
(member 'moody-mode-line-buffer-identification
(default-value 'mode-line-format)))
'(:eval (moody-tab " Treemacs " 10 'down)))
((featurep 'doom-modeline)
(with-no-warnings
@@ -249,7 +251,7 @@ Also skip hidden buttons (as employed by variadic extensions).
Used as a post command hook."
(let ((newline-char 10)
(point-max (point-max)))
(unless (= newline-char (char-before point-max))
(unless (equal newline-char (char-before point-max))
(treemacs-with-writable-buffer
(save-excursion
(goto-char point-max)
@@ -336,7 +338,7 @@ Will simply return `treemacs--eldoc-msg'."
(setq evil-treemacs-state-cursor
(if treemacs-show-cursor
evil-motion-state-cursor
'(bar . 0)))))
(lambda () (setq cursor-type nil))))))
;; higher fuzz value makes it less likely to start a mouse drag
;; and make a switch to visual state