83 lines
3.1 KiB
EmacsLisp
83 lines
3.1 KiB
EmacsLisp
;;; treemacs.el --- A tree style file viewer package -*- lexical-binding: t -*-
|
|
|
|
;; Copyright (C) 2020 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
|
|
;; the Free Software Foundation, either version 3 of the License, or
|
|
;; (at your option) any later version.
|
|
|
|
;; This program is distributed in the hope that it will be useful,
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
;; GNU General Public License for more details.
|
|
|
|
;; You should have received a copy of the GNU General Public License
|
|
;; along with this program. If not, see <https://www.gnu.org/licenses/>.
|
|
|
|
;;; Commentary:
|
|
;;; Handling of visuals in general and icons in particular.
|
|
|
|
;;; Code:
|
|
|
|
(require 'dash)
|
|
(require 'treemacs-core-utils)
|
|
(require 'treemacs-scope)
|
|
(require 'treemacs-customization)
|
|
|
|
(eval-when-compile
|
|
(require 'inline)
|
|
(require 'treemacs-macros))
|
|
|
|
(defvar-local treemacs--fringe-indicator-overlay nil)
|
|
|
|
(define-inline treemacs--move-fringe-indicator-to-point ()
|
|
"Move the fringe indicator to the position of point."
|
|
(inline-quote
|
|
(when treemacs--fringe-indicator-overlay
|
|
(-let [pabol (point-at-bol)]
|
|
(move-overlay treemacs--fringe-indicator-overlay pabol (1+ pabol))))))
|
|
|
|
(defun treemacs--enable-fringe-indicator ()
|
|
"Enabled the fringe indicator in the current buffer."
|
|
(unless treemacs--fringe-indicator-overlay
|
|
(setq-local treemacs--fringe-indicator-overlay
|
|
(-let [ov (make-overlay 1 1 (current-buffer))]
|
|
(overlay-put ov 'before-string
|
|
(propertize " " 'display '(left-fringe
|
|
treemacs--fringe-indicator-bitmap
|
|
treemacs-fringe-indicator-face)))
|
|
ov))
|
|
(treemacs--move-fringe-indicator-to-point)))
|
|
|
|
(defun treemacs--disable-fringe-indicator ()
|
|
"Enabled the fringe indicator in the current buffer."
|
|
(when treemacs--fringe-indicator-overlay
|
|
(delete-overlay treemacs--fringe-indicator-overlay)
|
|
(setf treemacs--fringe-indicator-overlay nil)))
|
|
|
|
(defun treemacs--setup-fringe-indicator-mode ()
|
|
"Setup `treemacs-fringe-indicator-mode'."
|
|
(treemacs-run-in-all-derived-buffers (treemacs--enable-fringe-indicator)))
|
|
|
|
(defun treemacs--tear-down-fringe-indicator-mode ()
|
|
"Tear down `treemacs-fringe-indicator-mode'."
|
|
(treemacs-run-in-all-derived-buffers (treemacs--disable-fringe-indicator)))
|
|
|
|
(define-minor-mode treemacs-fringe-indicator-mode
|
|
"Toggle `treemacs-fringe-indicator-mode'.
|
|
When enabled, a visual indicator in the fringe will be displayed to highlight the selected line even more.
|
|
Useful if hl-line-mode doesn't stand out enough with your color theme"
|
|
:init-value nil
|
|
:global t
|
|
:lighter nil
|
|
(if treemacs-fringe-indicator-mode
|
|
(treemacs--setup-fringe-indicator-mode)
|
|
(treemacs--tear-down-fringe-indicator-mode)))
|
|
|
|
(treemacs-only-during-init (treemacs-fringe-indicator-mode))
|
|
|
|
(provide 'treemacs-fringe-indicator)
|
|
|
|
;;; treemacs-fringe-indicator.el ends here
|