[elpa] externals/ivy-posframe 556c9a9 161/195: Check (display-graphic-p) dynamically in advices

[Feng Shu]

branch: externals/ivy-posframe
commit 556c9a960c902164ef4fe059dfa6f3b19d9154dc
Author: Gerry Agbobada <10496163+gagbo@users.noreply.github.com>
Commit: Gerry Agbobada <gerry.agbobada@external.engie.com>

    Check (display-graphic-p) dynamically in advices
    
    Add an advice for all ivy-posframe-advices
    
    With this advice, we can wrap all ivy-posframe-advice with a function
    which will bypass ivy-posframe for any predicate we would like.
    
    (display-graphic-p) is hardcoded for now, but it's unlikely to change.
---
 ivy-posframe.el | 22 ++++++++++++++++++++--
 1 file changed, 20 insertions(+), 2 deletions(-)

diff --git a/ivy-posframe.el b/ivy-posframe.el
index 5392f6e..63c5906 100644
--- a/ivy-posframe.el
+++ b/ivy-posframe.el
@@ -467,6 +467,20 @@ selection, non-nil otherwise."
 
 ;;; Advice
 
+(defun ivy-posframe--posframe-p-advice (advice-fn &rest args)
+  "Advice function of ADVICE-FN, used to bypass the advice from
+`ivy-posframe-advice-alist' if the posframe cannot be displayed.
+
+ADVICE-FN should be a value from `ivy-posframe-advice-alist', but
+the function only errors if ARGS is empty. There should at least be
+the advised function there (a key from `ivy-posframe-advice-alist')."
+  (unless (< 0 (length args))
+    (error "This function should advise an advice, so args should be at least 
a key from ivy-posframe-advice-alist"))
+  (if (display-graphic-p)
+      (apply advice-fn args)
+    (apply (car args) (cdr args)))
+  )
+
 (defun ivy-posframe--minibuffer-setup (fn &rest args)
   "Advice function of FN, `ivy--minibuffer-setup' with ARGS."
   (let ((ivy-fixed-height-minibuffer nil))
@@ -532,10 +546,14 @@ selection, non-nil otherwise."
   (let ((advices ivy-posframe-advice-alist))
     (if ivy-posframe-mode
         (mapcar (lambda (elm)
-                  (advice-add (car elm) :around (cdr elm)))
+                  (progn
+                    (advice-add (cdr elm) :around 
'ivy-posframe--posframe-p-advice)
+                    (advice-add (car elm) :around (cdr elm))))
                 advices)
       (mapcar (lambda (elm)
-                (advice-remove (car elm) (cdr elm)))
+                (progn
+                  (advice-remove (cdr elm) 'ivy-posframe--posframe-p-advice)
+                  (advice-remove (car elm) (cdr elm))))
               advices))))
 
 ;;;###autoload