emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] master c048016 14/33: Add posframe-poshandler-frame-top-left/righ


From: Feng Shu
Subject: [elpa] master c048016 14/33: Add posframe-poshandler-frame-top-left/right-corner
Date: Fri, 14 Dec 2018 06:21:15 -0500 (EST)

branch: master
commit c048016c6d36091cdafe30397d5d0d8b276047b4
Author: Feng Shu <address@hidden>
Commit: Feng Shu <address@hidden>

    Add posframe-poshandler-frame-top-left/right-corner
---
 posframe.el | 39 +++++++++++++++++++++++++++++----------
 1 file changed, 29 insertions(+), 10 deletions(-)

diff --git a/posframe.el b/posframe.el
index 9fa4d74..001abe4 100644
--- a/posframe.el
+++ b/posframe.el
@@ -282,16 +282,18 @@ by default, poshandler is auto selected based on
 POSITION's type, but user can *force* set one with
 the help of POSHANDLER argument. the below are buildin
 poshandler functions:
-1. `posframe-poshandler-frame-center'
-2. `posframe-poshandler-frame-bottom-left-corner'
-3. `posframe-poshandler-frame-bottom-right-corner'
-4. `posframe-poshandler-window-center'
-5. `posframe-poshandler-window-top-left-corner'
-6. `posframe-poshandler-window-top-right-corner'
-7. `posframe-poshandler-window-bottom-left-corner'
-8. `posframe-poshandler-window-bottom-right-corner'
-9. `posframe-poshandler-point-top-left-corner'
-9. `posframe-poshandler-point-bottom-left-corner'
+1.  `posframe-poshandler-frame-center'
+2.  `posframe-poshandler-frame-top-left-corner'
+3.  `posframe-poshandler-frame-top-right-corner'
+4.  `posframe-poshandler-frame-bottom-left-corner'
+5.  `posframe-poshandler-frame-bottom-right-corner'
+6.  `posframe-poshandler-window-center'
+7.  `posframe-poshandler-window-top-left-corner'
+8.  `posframe-poshandler-window-top-right-corner'
+9.  `posframe-poshandler-window-bottom-left-corner'
+10. `posframe-poshandler-window-bottom-right-corner'
+11. `posframe-poshandler-point-top-left-corner'
+12. `posframe-poshandler-point-bottom-left-corner'
 
 This posframe's buffer is POSFRAME-BUFFER.
 
@@ -660,6 +662,23 @@ be found in docstring of `posframe-show'."
                 (frame-pixel-height posframe))
              2))))
 
+(defun posframe-poshandler-frame-top-left-corner (_info)
+  "Posframe's position handler.
+
+Get a position which let posframe stay onto its parent-frame's
+top left corner.  The structure of INFO can be found
+in docstring of `posframe-show'."
+  '(0 . 0))
+
+(defun posframe-poshandler-frame-top-right-corner (_info)
+  "Posframe's position handler.
+
+Get a position which let posframe stay onto its parent-frame's
+top right corner.  The structure of INFO can be found
+in docstring of `posframe-show'."
+  '(-1 . 0))
+
+
 (defun posframe-poshandler-frame-bottom-left-corner (_info)
   "Posframe's position handler.
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]