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

Fix missing 'define-fringe-bitmap' function errors

Browse source 
If Emacs wasn't built with X, Cocoa or NS display support (as is the
case for evm emacs-25.1-travis build), the fringe library is missing and
throws errors.
This commit is contained in:
Henrik Lissner 2017-05-14 11:54:18 +02:00
parent aba87b0916
commit 653e80e655
3 changed files with 20 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

4
core/core-ui.el
View file

@ -218,7 +218,9 @@ file."
:init (add-hook 'lisp-mode-hook #'rainbow-delimiters-mode)) :init (add-hook 'lisp-mode-hook #'rainbow-delimiters-mode))
;; indicators for empty lines past EOF ;; indicators for empty lines past EOF
(def-package! vi-tilde-fringe :demand t (def-package! vi-tilde-fringe
:when (display-graphic-p)
:demand t
:config (global-vi-tilde-fringe-mode t)) :config (global-vi-tilde-fringe-mode t))
;; For a distractions-free-like UI, that dynamically resizes margets and can ;; For a distractions-free-like UI, that dynamically resizes margets and can

5
modules/feature/syntax-checker/config.el
View file

@ -22,8 +22,9 @@
:n "k" #'flycheck-error-list-previous-error :n "k" #'flycheck-error-list-previous-error
:n "RET" #'flycheck-error-list-goto-error) :n "RET" #'flycheck-error-list-goto-error)
(define-fringe-bitmap 'flycheck-fringe-bitmap-double-arrow (when (fboundp 'define-fringe-bitmap)
[0 0 0 0 0 4 12 28 60 124 252 124 60 28 12 4 0 0 0 0]) (define-fringe-bitmap 'flycheck-fringe-bitmap-double-arrow
[0 0 0 0 0 4 12 28 60 124 252 124 60 28 12 4 0 0 0 0]))
(after! evil (after! evil
;; Flycheck buffer on ESC in normal mode. ;; Flycheck buffer on ESC in normal mode.

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

@ -124,16 +124,17 @@
;; subtle diff indicators in the fringe ;; subtle diff indicators in the fringe
(after! git-gutter-fringe (when (display-graphic-p)
;; places the git gutter outside the margins. (after! git-gutter-fringe
(setq-default fringes-outside-margins t) ;; places the git gutter outside the margins.
;; thin fringe bitmaps (setq-default fringes-outside-margins t)
(fringe-helper-define 'git-gutter-fr:added '(center repeated) ;; thin fringe bitmaps
"XXX.....") (fringe-helper-define 'git-gutter-fr:added '(center repeated)
(fringe-helper-define 'git-gutter-fr:modified '(center repeated) "XXX.....")
"XXX.....") (fringe-helper-define 'git-gutter-fr:modified '(center repeated)
(fringe-helper-define 'git-gutter-fr:deleted 'bottom "XXX.....")
"X......." (fringe-helper-define 'git-gutter-fr:deleted 'bottom
"XX......" "X......."
"XXX....." "XX......"
"XXXX....")) "XXX....."
"XXXX....")))