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

update of packages

Browse Source
This commit is contained in:
Daniel Weschke
2023-11-04 19:26:41 +01:00
parent e162a12b58
commit 3b54a3236d
726 changed files with 297673 additions and 34585 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
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) 2022 Alexander Miller
;; Copyright (C) 2023 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
@@ -141,6 +141,7 @@ Will be set by `treemacs--post-command'.")
(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 "f") 'treemacs-copy-file)
(define-key map (kbd "v") 'treemacs-paste-dir-at-point-to-minibuffer)
map)
"Keymap for copy commands in `treemacs-mode'.")
@@ -225,10 +226,17 @@ Will be set by `treemacs--post-command'.")
((memq 'moody-mode-line-buffer-identification
(default-value 'mode-line-format))
'(:eval (moody-tab " Treemacs " 10 'down)))
((and (fboundp 'doom-modeline)
(fboundp 'doom-modeline-def-modeline))
(doom-modeline-def-modeline 'treemacs '(bar " " major-mode))
(doom-modeline 'treemacs))
((featurep 'doom-modeline)
(with-no-warnings
(eval
'(progn
(require 'doom-modeline)
(doom-modeline-def-segment treemacs-workspace-name
"Display treemacs."
(propertize (format " %s " (treemacs-workspace->name (treemacs-current-workspace)))
'face (doom-modeline-face 'doom-modeline-buffer-minor-mode)))
(doom-modeline-def-modeline 'treemacs '(bar " " major-mode) '(treemacs-workspace-name))
(doom-modeline 'treemacs)))))
(t
'(:eval (format " Treemacs: %s"
(treemacs-workspace->name (treemacs-current-workspace))))))))
@@ -338,6 +346,9 @@ Will simply return `treemacs--eldoc-msg'."
(setq-local eldoc-documentation-function #'treemacs--eldoc-function)
(setq-local eldoc-message-commands treemacs--eldoc-obarray)
(setq-local imenu-create-index-function #'treemacs--create-imenu-index-function)
(when (boundp 'context-menu-functions)
(setq-local context-menu-functions nil))
;; integrate with bookmark.el
(setq-local bookmark-make-record-function #'treemacs--make-bookmark-record)
(electric-indent-local-mode -1)
@@ -363,10 +374,9 @@ Will simply return `treemacs--eldoc-msg'."
;; alongside other window layout chaning commands that might delete it again
(set-window-parameter (selected-window) 'no-delete-other-windows treemacs-no-delete-other-windows)
(when treemacs-window-background-color
(face-remap-add-relative 'default :background (car treemacs-window-background-color))
(face-remap-add-relative 'fringe :background (car treemacs-window-background-color))
(face-remap-add-relative 'hl-line :background (cdr treemacs-window-background-color)))
(face-remap-add-relative 'default 'treemacs-window-background-face)
(face-remap-add-relative 'fringe 'treemacs-window-background-face)
(face-remap-add-relative 'hl-line 'treemacs-hl-line-face)
(when treemacs-text-scale
(text-scale-increase treemacs-text-scale))
@@ -377,8 +387,6 @@ Will simply return `treemacs--eldoc-msg'."
(treemacs--build-indentation-cache 6)
(treemacs--select-icon-set)
(treemacs--setup-icon-highlight)
(treemacs--setup-icon-background-colors)
(treemacs--setup-mode-line)
(treemacs--reset-dom))