[elpa] externals/logos 706fd80eec: Add logos-hide-fringe user option

[ELPA Syncer]

branch: externals/logos
commit 706fd80eecd752f3525182e7d6f50c11ebb94952
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Add logos-hide-fringe user option
    
    It "hides" the fringe by making it use the same background as the
    default face.  It does not change fringe-mode.
---
 README.org | 13 +++++++++----
 logos.el   | 35 +++++++++++++++++++++++++++++++----
 2 files changed, 40 insertions(+), 8 deletions(-)

diff --git a/README.org b/README.org
index f06977af01..2d74fbd5e1 100644
--- a/README.org
+++ b/README.org
@@ -106,15 +106,19 @@ to narrow effectively.  Such users may still want to bind 
it to a key.
 #+vindex: logos-indicate-buffer-boundaries
 #+vindex: logos-buffer-read-only
 #+vindex: logos-olivetti
+#+vindex: logos-hide-fringe
 Logos provides some optional aesthetic tweaks which come into effect
 when the buffer-local ~logos-focus-mode~ is enabled.  These will hide
 the mode line (~logos-hide-mode-line~), disable the buffer boundary
 indicators (~indicate-buffer-boundaries~), enable ~scroll-lock-mode~
 (~logos-scroll-lock~), use ~variable-pitch-mode~ in non-programming
 buffers (~logos-variable-pitch~), make the buffer read-only
-(~logos-buffer-read-only~), and center the buffer in its window if the
-=olivetti= package is installed (~logos-olivetti~).  All these variables
-are buffer-local.
+(~logos-buffer-read-only~), center the buffer in its window if the
+=olivetti= package is installed (~logos-olivetti~), and hide the
+~fringe~ face (~logos-hide-fringe~).  All these variables are
+buffer-local.
+
+[ ~logos-hide-fringe~ is part of {{{development-version}}} ]
 
 Logos is the familiar word derived from Greek (watch my presentation on
 philosophy about Cosmos, Logos, and the living universe:
@@ -214,7 +218,8 @@ changes out-of-the-box 
([[#h:2bb57369-352a-43bf-afe3-0bed2fcc7359][Extra tweaks]
               logos-variable-pitch nil
               logos-indicate-buffer-boundaries nil
               logos-buffer-read-only nil
-              logos-olivetti nil)
+              logos-olivetti nil
+              logos-hide-fringe nil)
 
 (let ((map global-map))
   (define-key map [remap narrow-to-region] #'logos-narrow-dwim)
diff --git a/logos.el b/logos.el
index 3a5277f983..eb4ba0588f 100644
--- a/logos.el
+++ b/logos.el
@@ -47,8 +47,8 @@
 ;; The `logos-focus-mode' tweaks the aesthetics of the current buffer.
 ;; When enabled it sets the buffer-local value of these user options:
 ;; `logos-scroll-lock', `logos-variable-pitch',`logos-hide-mode-line',
-;; `logos-indicate-buffer-boundaries', `logos-buffer-read-only', and
-;; `logos-olivetti'.
+;; `logos-indicate-buffer-boundaries', `logos-buffer-read-only',
+;; `logos-olivetti', and `logos-hide-fringe'.
 ;;
 ;; Logos is the familiar word derived from Greek (watch my presentation
 ;; on philosophy about Cosmos, Logos, and the living universe:
@@ -142,6 +142,13 @@ This is only relevant when `logos-focus-mode' is enabled."
   :group 'logos
   :local t)
 
+(defcustom logos-hide-fringe nil
+  "If non-nil make the `fringe' face the same as `default' background.
+This is only relevant when `logos-focus-mode' is enabled."
+  :type 'boolean
+  :group 'logos
+  :local t)
+
 ;;;; General utilities
 
 (defun logos--focus-p ()
@@ -335,11 +342,12 @@ alternate, thus toggling MODE."
 When enabled it sets the buffer-local value of these user
 options: `logos-scroll-lock', `logos-variable-pitch',
 `logos-hide-mode-line', `logos-indicate-buffer-boundaries',
-`logos-buffer-read-only', `logos-olivetti'."
+`logos-buffer-read-only', `logos-olivetti', `logos-hide-fringe'."
   :init-value nil
   :global nil
   :lighter " Λ" ; lambda majuscule
   (mapc #'funcall logos--restore)
+  (logos--remove-fringe-remap)
   (setq logos--restore nil)
   (when logos-focus-mode
     (logos--setup)))
@@ -353,7 +361,9 @@ options: `logos-scroll-lock', `logos-variable-pitch',
   ;; variables
   (logos--hide-mode-line)
   (logos--indicate-buffer-boundaries)
-  (logos--buffer-read-only))
+  (logos--buffer-read-only)
+  ;; faces
+  (logos--hide-fringe))
 
 (defun logos--variable-pitch ()
   "Set `logos-variable-pitch'."
@@ -392,5 +402,22 @@ options: `logos-scroll-lock', `logos-variable-pitch',
   (when (and logos-olivetti (require 'olivetti nil t))
     (logos--mode 'olivetti-mode 1)))
 
+(defvar-local logos--fringe-remap-cookie nil
+  "Cookie of remapped `fringe' face.")
+
+(declare-function face-remap-add-relative "face-remap" (face &rest specs))
+(declare-function face-remap-remove-relative "face-remap" (cookie))
+
+(defun logos--hide-fringe ()
+  "Set buffer-local `fringe' to the same background as `default'."
+  (when logos-hide-fringe
+      (setq logos--fringe-remap-cookie
+            (face-remap-add-relative 'fringe :background (face-background 
'default)))))
+
+(defun logos--remove-fringe-remap ()
+  "Remove effect of `logos--hide-fringe'."
+  (when logos--fringe-remap-cookie
+    (face-remap-remove-relative logos--fringe-remap-cookie)))
+
 (provide 'logos)
 ;;; logos.el ends here