jessieh/adwaita-dark-theme
jessieh/adwaita-dark-theme
1
Fork 0
Code Issues 1 Pull Requests Releases Activity

Overhaul neotree configuration

Browse Source
This commit is contained in:
Jessie Hildebrandt 2022-12-29 23:20:26 -05:00
parent 7a37e14bbf
commit a60e943f36
1 changed files with 75 additions and 43 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

118
adwaita-dark-theme.el
View File

@ -752,13 +752,13 @@
;; neotree ;; neotree
`(neo-root-dir-face ((,class (:foreground ,base-8 :weight bold)))) `(neo-root-dir-face ((,class (:foreground ,base-8 :weight bold))))
`(neo-dir-link-face ((,class (:foreground ,base-7))))
`(neo-file-link-face ((,class (:foreground ,fg)))) `(neo-file-link-face ((,class (:foreground ,fg))))
`(neo-dir-link-face ((,class (:foreground ,fg :foreground ,base-7)))) `(neo-expand-btn-face ((,class (:foreground ,base-4))))
`(neo-expand-btn-face ((,class (:foreground ,blue)))) `(neo-vc-edited-face ((,class (:foreground ,orange))))
`(neo-vc-edited-face ((,class (:foreground ,yellow))))
`(neo-vc-added-face ((,class (:foreground ,green)))) `(neo-vc-added-face ((,class (:foreground ,green))))
`(neo-vc-removed-face ((,class (:foreground ,red :strike-through t)))) `(neo-vc-removed-face ((,class (:foreground ,red :strike-through t))))
`(neo-vc-ignored-face ((,class (:foreground ,base-5)))) `(neo-vc-ignored-face ((,class (:foreground ,base-6))))
;; nlinum ;; nlinum
`(nlinum-current-line ((,class (:inherit line-number-current-line)))) `(nlinum-current-line ((,class (:inherit line-number-current-line))))
@ -856,57 +856,87 @@
;; Internal functions ;; Internal functions
;; ---------------------------------- ;; ;; ---------------------------------- ;;
(defun adwaita-dark-theme--neotree-hidden-dir-p (dirname)
"Return non-nil if DIRNAME should be considered hidden."
(string-prefix-p "." dirname))
(defun adwaita-dark-theme--neotree-hidden-file-p (filename)
"Return non-nil if FILENAME should be considered hidden."
(or (string-prefix-p "." filename)
(and (string-prefix-p "#" filename)
(string-suffix-p "#" filename))))
(defun adwaita-dark-theme--neotree-insert-root (node) (defun adwaita-dark-theme--neotree-insert-root (node)
"Insert root directory NODE at point." "Insert root directory NODE at point."
(insert " " (insert " ")
(propertize (insert-button (concat ""
"🖿" (propertize "🖿"
'face '(:inherit (neo-root-dir-face) :height 1.5)) 'face '(:inherit (neo-root-dir-face) :height 1.5))
(propertize " "
(concat " " (or (neo-path--file-short-name node) "-") " \n") (propertize (or (neo-path--file-short-name node) "-")
'face '(:inherit (neo-root-dir-face) :height 1.0)))) 'face 'neo-root-dir-face)
(propertize " "
'display `((space :align-to (- right 0 1)))))
'face '(nil)
'follow-link t
'neo-full-path (neo-path--updir node)
'keymap (let ((button-keymap (make-sparse-keymap)))
(define-key button-keymap [mouse-2] (lambda ()
(interactive)
(neotree-hidden-file-toggle)))
(define-key button-keymap [mouse-3] (lambda ()
(interactive)
(mouse-set-point last-input-event)
(neotree-change-root)))
button-keymap)
'help-echo "mouse-1: Toggle hidden files\nmouse-3: Move root up one directory")
(neo-buffer--newline-and-begin))
(defun adwaita-dark-theme--neotree-insert-dir (node depth expanded) (defun adwaita-dark-theme--neotree-insert-dir (node depth expanded)
"Insert directory NODE with indentation level DEPTH and state EXPANDED at point." "Insert directory NODE with indentation level DEPTH and state EXPANDED at point."
(let ((short-name (neo-path--file-short-name node)) (let ((short-name (neo-path--file-short-name node))
(face '(:inherit (neo-dir-link-face)))) (is-hidden (neo-filepath-hidden-p node)))
(when (adwaita-dark-theme--neotree-hidden-dir-p short-name) (insert " ")
(setq face '(:inherit (shadow neo-dir-link-face)))) (insert-button (concat (make-string (- (* depth 2) 1) ?\s)
(insert-char ?\s (* (- depth 1) 2)) (propertize (concat "🖿 "
(insert (propertize short-name)
(if expanded " ▾ " " ▸ ") 'face (if is-hidden
'face face)) '(:inherit shadow neo-dir-link-face)
(insert-button (concat "🖿 " short-name) 'neo-dir-link-face))
(propertize " "
'display `((space :align-to (- right 0 3))))
(propertize (if expanded "◢" " ")
'face '(:inherit neo-expand-btn-face :height 1.2))
(propertize " "
'display `((space :align-to (- right 0 1)))))
'face '(nil)
'follow-link t 'follow-link t
'face face
'neo-full-path node 'neo-full-path node
'keymap neotree-dir-button-keymap) 'keymap (let ((button-keymap (make-sparse-keymap)))
(define-key button-keymap [mouse-2] (lambda ()
(interactive)
(let ((neo-click-changes-root nil))
(neo-open-dir node))))
(define-key button-keymap [mouse-3] (lambda ()
(interactive)
(mouse-set-point last-input-event)
(neotree-change-root)))
button-keymap)
'help-echo "mouse-1: Fold/unfold directory\nmouse-3: Change root to directory")
(neo-buffer--node-list-set nil node) (neo-buffer--node-list-set nil node)
(neo-buffer--newline-and-begin))) (neo-buffer--newline-and-begin)))
(defun adwaita-dark-theme--neotree-insert-file (node depth) (defun adwaita-dark-theme--neotree-insert-file (node depth)
"Insert file NODE with indentation level DEPTH at point." "Insert file NODE with indentation level DEPTH at point."
(let ((short-name (neo-path--file-short-name node)) (let* ((short-name (neo-path--file-short-name node))
(face '(:inherit (neo-file-link-face)))) (is-hidden (neo-filepath-hidden-p node)))
(when (adwaita-dark-theme--neotree-hidden-file-p short-name) (insert " ")
(setq face '(:inherit shadow neo-file-link-face))) (insert-button (concat (make-string (- (* depth 2) 1) ?\s)
(insert-char ?\s (* (- depth 1) 2)) short-name
(insert (propertize " " 'face face)) (propertize " "
(insert-button short-name 'display `((space :align-to (- right 0 1)))))
'follow-link t 'follow-link t
'face face 'face (if is-hidden
'(:inherit shadow neo-file-link-face)
'neo-file-link-face)
'neo-full-path node 'neo-full-path node
'keymap neotree-file-button-keymap) 'keymap (let ((button-keymap (make-sparse-keymap)))
(define-key button-keymap [mouse-2] (lambda ()
(interactive)
(neo-open-file node)))
button-keymap)
'help-echo "mouse-1: Open file")
(neo-buffer--node-list-set nil node) (neo-buffer--node-list-set nil node)
(neo-buffer--newline-and-begin))) (neo-buffer--newline-and-begin)))
@ -917,15 +947,17 @@
;;;###autoload ;;;###autoload
(defun adwaita-dark-theme-neotree-configuration-enable () (defun adwaita-dark-theme-neotree-configuration-enable ()
"Enable custom adwaita-dark configuration for use with neotree." "Enable custom adwaita-dark configuration for use with neotree."
(advice-add #'neo-global--select-window :after (lambda () (advice-add #'neo-global--create-window :after (lambda ()
(setq-local cursor-type nil (setq-local cursor-type nil
line-spacing 0.25 line-spacing 0.25
mode-line-format nil mode-line-format nil
auto-hscroll-mode nil auto-hscroll-mode nil
buffer-display-table (make-display-table)) buffer-display-table (make-display-table))
(visual-line-mode -1) (set-display-table-slot buffer-display-table
'truncation
(make-glyph-code 8230 'fringe))
(set-window-fringes neo-global--window 0 0) (set-window-fringes neo-global--window 0 0)
(set-display-table-slot buffer-display-table 'truncation 8230))) (visual-line-mode -1)))
(advice-add #'neo-buffer--insert-root-entry :override #'adwaita-dark-theme--neotree-insert-root) (advice-add #'neo-buffer--insert-root-entry :override #'adwaita-dark-theme--neotree-insert-root)
(advice-add #'neo-buffer--insert-dir-entry :override #'adwaita-dark-theme--neotree-insert-dir) (advice-add #'neo-buffer--insert-dir-entry :override #'adwaita-dark-theme--neotree-insert-dir)
(advice-add #'neo-buffer--insert-file-entry :override #'adwaita-dark-theme--neotree-insert-file)) (advice-add #'neo-buffer--insert-file-entry :override #'adwaita-dark-theme--neotree-insert-file))