diff options
Diffstat (limited to 'elpa/doom-themes-20220504.1557/doom-themes-ext-neotree.el')
| -rw-r--r-- | elpa/doom-themes-20220504.1557/doom-themes-ext-neotree.el | 384 |
1 files changed, 384 insertions, 0 deletions
diff --git a/elpa/doom-themes-20220504.1557/doom-themes-ext-neotree.el b/elpa/doom-themes-20220504.1557/doom-themes-ext-neotree.el new file mode 100644 index 0000000..7dd3674 --- /dev/null +++ b/elpa/doom-themes-20220504.1557/doom-themes-ext-neotree.el @@ -0,0 +1,384 @@ +;;; doom-themes-ext-neotree.el --- ... -*- lexical-binding: t; no-byte-compile: t -*- +;; +;; Copyright (C) 2016-2022 Henrik Lissner +;; +;; Author: Henrik Lissner <contact@henrik.io> +;; Maintainer: Henrik Lissner <contact@henrik.io> +;; Created: September 10, 2016 +;; +;; This file is not part of GNU Emacs. +;; +;;; Commentary: +;;; Code: + +(defgroup doom-themes-neotree nil + "Options for doom's neotree theme" + :group 'doom-themes) + + +;; +;;; Variables + +(defcustom doom-themes-neotree-project-size 1.4 + "What :height to display the project icon at the top at." + :type 'float + :group 'doom-themes-neotree) + +(defcustom doom-themes-neotree-folder-size 1.05 + "What :height to display the folder icons at." + :type 'float + :group 'doom-themes-neotree) + +(defcustom doom-themes-neotree-chevron-size 0.8 + "What :height to display the chevron icons at." + :type 'float + :group 'doom-themes-neotree) + +(defcustom doom-themes-neotree-line-spacing 2 + "Line-spacing for neotree buffer." + :type 'symbol + :group 'doom-themes-neotree) + +(defcustom doom-themes-neotree-file-icons 'simple + "The style to use for the file icons. Can be nil (disabled), non-nil (for a +diverse iconset), or 'simple, which is closest's to Atom's style as it only +distinguishes text, source, pdfs, images and binary files." + :type '(choice + (const :tag "A diverse array of file icons based on file type" t) + (const :tag "Minimalistic file icons (like Atom's)" 'simple) + (const :tag "Disable file icons" nil)) + :group 'doom-themes-neotree) + +(defcustom doom-themes-neotree-enable-folder-icons t + "If non-nil, display folder icons next to each file. Different icons are used +depending on whether the folder is a repo, symlink or regular folder." + :type 'boolean + :group 'doom-themes-neotree) + +(defcustom doom-themes-neotree-enable-open-chevron-icons t + "If non-nil, display the chevron-down icon next to each expanded folder." + :type 'boolean + :group 'doom-themes-neotree) + +(defcustom doom-themes-neotree-enable-closed-chevron-icons t + "If non-nil, display the chevron-right icon next to each collapsed folder." + :type 'boolean + :group 'doom-themes-neotree) + +(defcustom doom-themes-neotree-enable-variable-pitch nil + "If non-nil, labels will use the `doom-themes-neotree-dir-face' and +`doom-themes-neotree-dir-face' faces, which inherit from the `variable-pitch' face." + :type 'boolean + :group 'doom-themes-neotree) + +(defcustom doom-themes-neotree-enable-type-colors t + "If non-nil, color each file/folder based on the categories determined by +`doom-themes-neotree-file-face-re-alist'." + :type 'boolean + :group 'doom-themes-neotree) + + +(defun doom-themes--neo-is-repo-dir-p (path) + (or (file-exists-p (format "%s/.git" path)) + (all-the-icons-dir-is-submodule path))) + +(defvar doom-themes-neotree-dir-rules + (eval-when-compile + `(("/\\(?:node_modules\\|vendor\\)$" + :face doom-themes-neotree-hidden-file-face) + ("/\\.[^$/#]+$" + :face doom-themes-neotree-hidden-file-face) + (file-symlink-p + :icon (all-the-icons-octicon "file-symlink-directory")) + (doom-themes--neo-is-repo-dir-p + :icon (all-the-icons-octicon "file-submodule")) + (t :icon (all-the-icons-octicon "file-directory")))) + "TODO") + +(defvar doom-themes-neotree-file-rules + (eval-when-compile + `((file-symlink-p + :icon (all-the-icons-octicon "file-symlink-file")) + (file-executable-p + :face doom-themes-neotree-executable-file-face + :icon (all-the-icons-octicon "file-binary")) + ("\\.\\(?:md\\|org\\|rst\\|log\\)\\|/[A-Z_-]+\\(?:\\.[a-z]+\\)?$" + :face doom-themes-neotree-text-file-face + :icon (all-the-icons-octicon "file-text")) + (,(concat "\\." (regexp-opt '("htm" "html" "phtml" "tpl" "erb" "mustache" + "twig" "ejs" "erb" "jsx" "haml" "inky-haml" + "inky-slim" "slim" "pug" "jade")) + "$") + :icon (all-the-icons-octicon "file-code")) + (,(concat "\\(?:/\\(?:Gemfile\\|Vagrantfile\\|Makefile\\|Rakefile\\|Cask\\|\\.[^$]+rc\\|\\)\\|" + "\\." (regexp-opt '("json" "cson" "yaml" "yml" "xml" "toml" + "tpl" "ini" "erb" "mustache" "twig" "ejs" + "mk" "haml" "pug" "jade")) + "\\)$") + :icon (all-the-icons-octicon "file-code")) + (,(concat "\\." + (regexp-opt '("png" "jpg" "jpeg" "gif" "ico" "tif" "tiff" + "svg" "bmp" "psd" "ai" "eps" "indd" ; images + "mov" "avi" "mp4" "webm" "mkv" ; video + "wav" "mp3" "ogg" "midi")) ; audio + "$") + :face doom-themes-neotree-data-file-face + :icon (all-the-icons-octicon "file-media")) + (,(concat "\\.\\(?:[gl]?zip\\|bzip2\\|deb\\|dmg\\|iso\\|7z\\|rpm\\|pkg\\|dat\\|[rjt]ar\\(?:\\.gz\\)?\\)$") + :face doom-themes-neotree-data-file-face + :icon (all-the-icons-octicon "file-zip")) + ("\\.pdf$" + :face doom-themes-neotree-data-file-face + :icon (all-the-icons-octicon "file-pdf")) + ("\\.\\(?:lock\\|resolved\\|dll\\|so\\|pyc\\|elc\\|class\\|css\\.map\\)$" + :face doom-themes-neotree-hidden-file-face + :icon (all-the-icons-octicon "file-binary")) + ("/\\.[^$/#]+$" + :face doom-themes-neotree-hidden-file-face) + (t :icon (all-the-icons-octicon "file-text")))) + "TODO") + + +;; +;;; Faces + +(defface doom-themes-neotree-dir-face '((t (:inherit neo-dir-link-face))) + "Face for directory labels." + :group 'doom-themes-neotree) + +(defface doom-themes-neotree-file-face '((t (:inherit neo-file-link-face))) + "Face for file name labels." + :group 'doom-themes-neotree) + +;; file type faces +(defface doom-themes-neotree-hidden-file-face '((t (:inherit font-lock-comment-face))) + "Face for labels of hidden files. See `doom-themes-neotree-file-face-re-alist'." + :group 'doom-themes-neotree) + +(defface doom-themes-neotree-text-file-face '((t (:inherit neo-file-link-face))) + "Face for labels of text/documentation files (readmes, org files, etc). See +`doom-themes-neotree-file-face-re-alist'." + :group 'doom-themes-neotree) + +(defface doom-themes-neotree-media-file-face '((t (:inherit neo-file-link-face))) + "Face for labels of media files. See `doom-themes-neotree-file-face-re-alist'." + :group 'doom-themes-neotree) + +(defface doom-themes-neotree-data-file-face '((t (:inherit neo-file-link-face))) + "Face for labels of data files (json, yaml, xml, etc). See +`doom-themes-neotree-file-face-re-alist'." + :group 'doom-themes-neotree) + +(defface doom-themes-neotree-executable-file-face '((t (:inherit neo-file-link-face))) + "TODO" + :group 'doom-themes-neotree) + + +;; +;;; Helpers + +(defun doom-themes--neotree-no-fringes () + "Remove fringes in neotree. +They are reset each time you select the neotree pane and highlighted +incorrectly, so remove them." + (set-window-fringes neo-global--window 0 0)) + +(defun doom-themes--neotree-setup (&rest _) + (setq line-spacing doom-themes-neotree-line-spacing + tab-width 1) + (when (featurep 'hl-line) + (set (make-local-variable 'hl-line-sticky-flag) t) + (hl-line-mode +1))) + +(defun doom-themes-neotree-spec (node rules) + (let (case-fold-search) + (cl-loop for spec in rules + for pred = (car spec) + for plist = (cdr spec) + when + (cond ((eq pred 't)) + ((symbolp pred) (funcall pred node)) + ((stringp pred) (string-match-p pred node))) + return plist))) + +(defun doom--neotree-insert-file-icon (node icon &optional faces) + (if node + (cond ((eq doom-themes-neotree-file-icons 'simple) + (propertize + (if icon + (apply (car icon) (cdr icon)) + (all-the-icons-octicon "file-text")) + 'face `(:inherit ,faces + :family ,(all-the-icons-octicon-family) + :height 1.3) + 'display '(raise 0))) + (t (all-the-icons-icon-for-file node))) + (all-the-icons-fileicon "default"))) + +(defun doom--neotree-insert-dir-icon (node type &optional faces) + (concat (if type + (all-the-icons-octicon + (format "chevron-%s" (if (eq type 'open) "down" "right")) + :v-adjust 0.1 + :height doom-themes-neotree-chevron-size + :face `(:inherit ,faces + :family ,(all-the-icons-octicon-family) + :height ,doom-themes-neotree-chevron-size)) + "\t") + "\t" + (when doom-themes-neotree-enable-folder-icons + (all-the-icons-octicon + (cond ((file-symlink-p node) "file-symlink-directory") + ((file-exists-p (format "%s/.git" node)) "file-submodule") + ((all-the-icons-dir-is-submodule node) "file-submodule") + ("file-directory")) + :v-adjust 0 + :height doom-themes-neotree-folder-size + :face `(:inherit ,faces + :family ,(all-the-icons-octicon-family) + :height ,doom-themes-neotree-folder-size))))) + +(defun doom--neotree-insert-icon (type node &optional icon faces) + "Custom hybrid unicode theme with leading whitespace." + (let ((spc "\t") + (vspc (propertize " " 'face 'variable-pitch))) + (cond ((eq type 'open) + (insert + (concat spc + (doom--neotree-insert-dir-icon + node (if doom-themes-neotree-enable-open-chevron-icons type) + faces) + vspc))) + ((eq type 'close) + (insert + (concat spc + (doom--neotree-insert-dir-icon + node (if doom-themes-neotree-enable-closed-chevron-icons type) + faces) + vspc))) + ((eq type 'leaf) + (insert + (concat (when (or doom-themes-neotree-enable-open-chevron-icons + doom-themes-neotree-enable-closed-chevron-icons) + spc) + (when doom-themes-neotree-enable-folder-icons spc) + (when doom-themes-neotree-file-icons + (concat spc (doom--neotree-insert-file-icon node icon faces))) + vspc)))))) + + +;; +;;; Public library + +(defun doom-themes-neotree-insert-root (node) + ;; insert icon + (when (display-graphic-p) + (insert + (concat (propertize "\t" 'face 'neo-root-dir-face) + (all-the-icons-octicon + "repo" + :height doom-themes-neotree-project-size + :face 'neo-root-dir-face + :v-adjust -0.1) + (propertize " " 'face 'neo-root-dir-face)))) + ;; insert project name + (insert + (propertize + (concat (or (neo-path--file-short-name node) "-") + "\n") + 'face `(:inherit ,(append (if doom-themes-neotree-enable-variable-pitch '(variable-pitch)) + '(neo-root-dir-face)))))) + +(defun doom-themes-neotree-insert-dir (node depth expanded) + (let ((short-name (neo-path--file-short-name node)) + (faces '(doom-themes-neotree-dir-face)) + icon-text) + ;; insert indentation + (insert-char ?\s (* (- depth 1) 2)) + ;; vcs integration + (let ((vc (if neo-vc-integration (neo-vc-for-node node)))) + (when (memq 'char neo-vc-integration) + (insert-char (car vc)) + (insert-char ?\s)) + (unless (and (memq 'face neo-vc-integration) + (not (eq (cdr vc) 'neo-vc-up-to-date-face)) + (setq faces (list (cdr vc)))) + (cl-destructuring-bind (&key face icon) + (doom-themes-neotree-spec node doom-themes-neotree-dir-rules) + (if face (push face faces)) + (if icon (setq icon-text icon))))) + ;; insert icon + (let ((type (if expanded 'open 'close))) + (if (display-graphic-p) + (doom--neotree-insert-icon type node icon-text faces) + (neo-buffer--insert-fold-symbol type node))) + ;; insert label button + (when doom-themes-neotree-enable-variable-pitch + (push 'variable-pitch faces)) + (insert-button short-name + 'follow-link t + 'face `(:inherit (,@faces)) + 'neo-full-path node + 'keymap neotree-dir-button-keymap) + ;; metadata + newline + (neo-buffer--node-list-set nil node) + (neo-buffer--newline-and-begin))) + +(defun doom-themes-neotree-insert-file (node depth) + (let ((short-name (neo-path--file-short-name node)) + (vc (if neo-vc-integration (neo-vc-for-node node))) + (faces '(doom-themes-neotree-file-face)) + icon-text) + ;; insert indentation + (insert-char ?\s (* (- depth 1) 2)) + ;; vcs integration + (unless (and (memq 'face neo-vc-integration) + (not (eq (cdr vc) 'neo-vc-up-to-date-face)) + (setq faces (list (cdr vc)))) + (cl-destructuring-bind (&key face icon) + (doom-themes-neotree-spec node doom-themes-neotree-file-rules) + (if face (push face faces)) + (if icon (setq icon-text icon)))) + ;; insert icon + (if (display-graphic-p) + (doom--neotree-insert-icon 'leaf node icon-text faces) + (neo-buffer--insert-fold-symbol 'leaf node)) + ;; insert label button + (when doom-themes-neotree-enable-variable-pitch + (push 'variable-pitch faces)) + (insert-button short-name + 'follow-link t + 'face `(:inherit (,@faces)) + 'neo-full-path node + 'keymap neotree-file-button-keymap) + ;; metadata + newline + (neo-buffer--node-list-set nil node) + (neo-buffer--newline-and-begin))) + + +;;; Bootstrap + +(with-eval-after-load 'neotree + (unless (require 'all-the-icons nil t) + (error "all-the-icons isn't installed")) + + ;; Incompatible with this theme + (setq neo-vc-integration nil) + ;; Enable buffer-local hl-line and adjust line-spacing + (add-hook 'neo-after-create-hook #'doom-themes--neotree-setup) + ;; Remove fringes in Neotree pane + (advice-add #'neo-global--select-window :after #'doom-themes--neotree-no-fringes) + ;; Patch neotree to use `doom--neotree-insert-icon' + (advice-add #'neo-buffer--insert-file-entry :override #'doom-themes-neotree-insert-file) + (advice-add #'neo-buffer--insert-dir-entry :override #'doom-themes-neotree-insert-dir) + ;; Shorter pwd in neotree override + (advice-add #'neo-buffer--insert-root-entry :override #'doom-themes-neotree-insert-root)) + +;;;###autoload +(defun doom-themes-neotree-config () + "Install doom-themes' neotree configuration. + +Includes an Atom-esque icon theme and highlighting based on filetype.") + +(provide 'doom-themes-ext-neotree) +;;; doom-themes-neotree.el ends here |