emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Remove fringe-helper package

Browse source
This commit is contained in:
Henrik Lissner 2018-05-08 19:42:19 +02:00
parent 3488821b2e
commit 0afae2eacf
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
3 changed files with 17 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

16
core/core-ui.el
View file

@ -77,6 +77,15 @@ shorter major mode name in the mode-line. See `doom|set-mode-name'.")
(fset #'yes-or-no-p #'y-or-n-p) ; y/n instead of yes/no (fset #'yes-or-no-p #'y-or-n-p) ; y/n instead of yes/no
;;
;; Shims
;;
(unless (fboundp 'define-fringe-bitmap)
;; doesn't exist in terminal Emacs; define it to prevent errors
(defun define-fringe-bitmap (&rest _)))
;; ;;
;; Modeline library ;; Modeline library
;; ;;
@ -162,13 +171,6 @@ DEFAULT is non-nil, set the default mode-line for all buffers."
all-the-icons-wicon all-the-icons-alltheicon)) all-the-icons-wicon all-the-icons-alltheicon))
(advice-add fn :around #'doom*disable-all-the-icons-in-tty))) (advice-add fn :around #'doom*disable-all-the-icons-in-tty)))
(def-package! fringe-helper
:commands (fringe-helper-define fringe-helper-convert)
:init
(unless (fboundp 'define-fringe-bitmap)
;; doesn't exist in terminal Emacs; define it to prevent errors
(defun define-fringe-bitmap (&rest _))))
(def-package! hideshow ; built-in (def-package! hideshow ; built-in
:commands (hs-minor-mode hs-toggle-hiding hs-already-hidden-p) :commands (hs-minor-mode hs-toggle-hiding hs-already-hidden-p)
:config (setq hs-hide-comments-when-hiding-all nil)) :config (setq hs-hide-comments-when-hiding-all nil))

1
core/packages.el
View file

@ -7,7 +7,6 @@
;; core-ui.el ;; core-ui.el
(package! all-the-icons) (package! all-the-icons)
(package! fringe-helper)
(package! hide-mode-line) (package! hide-mode-line)
(package! highlight-indentation) (package! highlight-indentation)
(package! highlight-numbers) (package! highlight-numbers)

25
modules/ui/doom/config.el
View file

@ -90,26 +90,17 @@
;; because git-gutter is in the left fringe ;; because git-gutter is in the left fringe
(setq flycheck-indication-mode 'right-fringe) (setq flycheck-indication-mode 'right-fringe)
;; A non-descript, left-pointing arrow ;; A non-descript, left-pointing arrow
(fringe-helper-define 'flycheck-fringe-bitmap-double-arrow 'center (define-fringe-bitmap 'flycheck-fringe-bitmap-double-arrow
"...X...." [16 48 112 240 112 48 16] nil nil 'center))
"..XX...."
".XXX...."
"XXXX...."
".XXX...."
"..XX...."
"...X...."))
;; subtle diff indicators in the fringe ;; subtle diff indicators in the fringe
(after! git-gutter-fringe (after! git-gutter-fringe
;; places the git gutter outside the margins. ;; places the git gutter outside the margins.
(setq-default fringes-outside-margins t) (setq-default fringes-outside-margins t)
;; thin fringe bitmaps ;; thin fringe bitmaps
(fringe-helper-define 'git-gutter-fr:added '(center repeated) (define-fringe-bitmap 'git-gutter-fr:added [224]
"XXX.....") nil nil '(center repeated))
(fringe-helper-define 'git-gutter-fr:modified '(center repeated) (define-fringe-bitmap 'git-gutter-fr:modified [224]
"XXX.....") nil nil '(center repeated))
(fringe-helper-define 'git-gutter-fr:deleted 'bottom (define-fringe-bitmap 'git-gutter-fr:deleted [128 192 224 240]
"X......." nil nil 'bottom))
"XX......"
"XXX....."
"XXXX...."))