pax_global_header 0000666 0000000 0000000 00000000064 15111266362 0014515 g ustar 00root root 0000000 0000000 52 comment=d93828bf6c36383c365bd564ad3bab5a4403804c
tumashu-posframe-d93828b/ 0000775 0000000 0000000 00000000000 15111266362 0015362 5 ustar 00root root 0000000 0000000 tumashu-posframe-d93828b/.gitignore 0000664 0000000 0000000 00000000200 15111266362 0017342 0 ustar 00root root 0000000 0000000 ChangeLog
## Auto generated by package-vc-install
/posframe-autoloads.el
/posframe-benchmark.elc
/posframe-pkg.el
/posframe.elc
tumashu-posframe-d93828b/README.org 0000664 0000000 0000000 00000005616 15111266362 0017040 0 ustar 00root root 0000000 0000000 # Created 2021-06-01 Tue 10:41
#+TITLE: Pop a posframe (just a frame) at point
#+AUTHOR: Feng Shu
#+html: 
#+html: 
#+html: 
* What is posframe?
Posframe can pop up a frame at point, this *posframe* is a
child-frame connected to its root window's buffer.
The main advantages are:
1. It is fast enough for daily usage :-)
2. It works well with CJK languages.
NOTE:
1. For MacOS users, posframe needs Emacs version >= 26.0.91
2. GNOME users with GTK3 builds need Emacs 27 or later.
See variable `posframe-gtk-resize-child-frames'
which auto-detects this configuration.
More details:
1. [[https://git.savannah.gnu.org/cgit/emacs.git/commit/?h=emacs-27&id=c49d379f17bcb0ce82604def2eaa04bda00bd5ec][Fix some problems with moving and resizing child frames]]
2. [[https://lists.gnu.org/archive/html/emacs-devel/2020-01/msg00343.html][Emacs's set-frame-size can not work well with gnome-shell?]]
[[file:./snapshots/posframe-1.png]]
* Installation
#+begin_example
(require 'posframe)
#+end_example
* Usage
** Create a posframe
*** Simple way
#+begin_example
(when (posframe-workable-p)
(posframe-show " *my-posframe-buffer*"
:string "This is a test"
:position (point)))
#+end_example
*** Advanced way
#+begin_example
(defvar my-posframe-buffer " *my-posframe-buffer*")
(with-current-buffer (get-buffer-create my-posframe-buffer)
(erase-buffer)
(insert "Hello world"))
(when (posframe-workable-p)
(posframe-show my-posframe-buffer
:position (point)))
#+end_example
*** Arguments
#+begin_example
C-h f posframe-show
#+end_example
** Hide a posframe
#+begin_example
(posframe-hide " *my-posframe-buffer*")
#+end_example
** Hide all posframes
#+begin_example
M-x posframe-hide-all
#+end_example
** Delete a posframe
1. Delete posframe and its buffer
#+begin_example
(posframe-delete " *my-posframe-buffer*")
#+end_example
2. Only delete the frame
#+begin_example
(posframe-delete-frame " *my-posframe-buffer*")
#+end_example
** Delete all posframes
#+begin_example
M-x posframe-delete-all
#+end_example
Note: this command will delete all posframe buffers.
You probably shouldn't use it if you are sharing a buffer
between posframe and other packages.
** posframe-arghandler
posframe-arghandler feature has been removed from posframe-1.1,
user can use advice feature instead.
** Mouse banish
Default setting will work well in most case, but for EXWM user,
suggest use the below config.
#+begin_src emacs-lisp
(setq posframe-mouse-banish-function #'posframe-mouse-banish-simple)
#+end_src
tumashu-posframe-d93828b/posframe-benchmark.el 0000664 0000000 0000000 00000005030 15111266362 0021446 0 ustar 00root root 0000000 0000000 ;;; posframe-benchmark.el --- Benchmark tool for posframe -*- lexical-binding:t -*-
;; Copyright (C) 2018-2020 Free Software Foundation, Inc.
;; Author: Feng Shu
;; Maintainer: Feng Shu
;; URL: https://github.com/tumashu/posframe
;; Version: 1.0.3
;; Keywords: convenience, tooltip
;; Package-Requires: ((emacs "26"))
;; This file is part of GNU Emacs.
;; GNU Emacs is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs. If not, see .
;;; Commentary:
;;; Code:
(require 'cl-lib)
(require 'posframe)
(defvar posframe-benchmark-alist
(let ((str (with-temp-buffer
(insert-file-contents (locate-library "posframe.el"))
(buffer-string))))
`((font-at
(font-at (point-min)))
(redraw-display
(redraw-display))
(redraw-frame
(redraw-frame (window-frame)))
(remove-text-properties
(let ((string ,str))
(remove-text-properties
0 (length string) '(read-only t)
string)))
(mouse-position
(mouse-position))
(default-font-width
(default-font-width))
(posframe--get-font-height
(posframe--get-font-height (point-min)))
(frame-parameter
(frame-parameter (window-frame) 'no-accept-focus))
(set-mouse-position
(set-mouse-position (window-frame) 0 0))
(posn-at-point
(posn-at-point))
(posn-x-y
(posn-x-y (posn-at-point)))
(posn-object-x-y
(posn-object-x-y (posn-at-point)))
(set-frame-parameter
(set-frame-parameter (window-frame) 'test 1))
(raise-frame
(raise-frame (window-frame))))))
;;;###autoload
(defun posframe-benchmark ()
"Benchmark tool for posframe."
(interactive)
(let ((n 1000))
(message "\n* Posframe Benchmark")
(dolist (x posframe-benchmark-alist)
(message "\n** Benchmark `%S' %s times ..." (car x) n)
(benchmark n (car (cdr x))))
(message "\n* Finished.")))
(provide 'posframe-benchmark)
;;; posframe.el ends here
tumashu-posframe-d93828b/posframe.el 0000664 0000000 0000000 00000166615 15111266362 0017537 0 ustar 00root root 0000000 0000000 ;;; posframe.el --- Pop a posframe (just a frame) at point -*- lexical-binding:t -*-
;; Copyright (C) 2018-2020 Free Software Foundation, Inc.
;; Author: Feng Shu
;; Maintainer: Feng Shu
;; URL: https://github.com/tumashu/posframe
;; Version: 1.5.0
;; Keywords: convenience, tooltip
;; Package-Requires: ((emacs "26.1"))
;; This file is not part of GNU Emacs.
;; GNU Emacs is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs. If not, see .
;;; Commentary:
;; * Posframe README :README:
;; Posframe can pop up a frame at point, this *posframe* is a
;; child-frame connected to its root window's buffer.
;; The main advantages are:
;; 1. It is fast enough for daily usage :-)
;; 2. It works well with CJK languages.
;; More info please see: README.org
;;; Code:
;; * posframe's code :CODE:
(require 'cl-lib)
(defgroup posframe nil
"Pop a posframe (just a frame) at point."
:group 'lisp
:prefix "posframe-")
(defcustom posframe-inhibit-double-buffering nil
"Set the posframe's frame-parameter: inhibit-double-buffering."
:group 'posframe
:type 'boolean)
(defcustom posframe-mouse-banish-function #'posframe-mouse-banish-default
"The function used to banish mouse.
Function `posframe-mouse-banish-default' will work well in most
case, but suggest use function `posframe-mouse-banish-simple' or
custom function for EXWM users."
:type 'function)
(defcustom posframe-text-scale-factor-function #'posframe-text-scale-factor-default
"The function to adjust value of text-scale of posframe buffer.
Accepts single argument which is the value of parent buffer
`text-scale-mode-amount' or nil if the `text-scale-mode' is disabled in
the parent buffer."
:group 'posframe
:type 'function)
(defvar-local posframe--frame nil
"Record posframe's frame.")
(defvar-local posframe--last-posframe-pixel-position nil
"Record the last pixel position of posframe's frame.")
(defvar-local posframe--last-posframe-size nil
"Record the last size of posframe's frame.")
(defvar-local posframe--last-posframe-displayed-size nil
"Record the last displayed size of posframe's frame.")
(defvar-local posframe--last-parent-frame-size nil
"Record the last size of posframe's parent-frame.")
(defvar-local posframe--last-poshandler-info nil
"Record the last poshandler info.")
(defvar-local posframe--last-font-height-info nil
"Record the last font height info.")
(defvar-local posframe--last-args nil
"Record the last arguments of `posframe--create-posframe'.
If these args have changed, posframe will recreate its
frame.")
(defvar-local posframe--timeout-timer nil
"Record the timer to deal with timeout argument of `posframe-show'.")
(defvar-local posframe--refresh-timer nil
"Record the timer to deal with refresh argument of `posframe-show'.")
(defvar-local posframe--initialized-p nil
"Record initialize status of `posframe-show'.")
(defvar-local posframe--accept-focus nil
"Record accept focus status of `posframe-show'.")
(defvar posframe-hidehandler-timer nil
"Timer used by hidehandler function.")
;; Avoid compilation warnings on Emacs < 27.
(defvar x-gtk-resize-child-frames)
(defvar posframe-gtk-resize-child-frames
(when (and
(> emacs-major-version 26)
(string-match-p "GTK3" system-configuration-features)
(let ((value (or (getenv "XDG_CURRENT_DESKTOP") (getenv "DESKTOP_SESSION"))))
(and (stringp value)
;; It can be "ubuntu:GNOME".
(string-match-p "GNOME" value))))
;; Not future-proof, but we can use it now.
'resize-mode)
"Value to bind `x-gtk-resize-child-frames' to.
The value `resize-mode' only has effect on new child frames, so
if you change it, call `posframe-delete-all' for it to take
effect.")
;;;###autoload
(defun posframe-workable-p ()
"Test posframe workable status."
(and (>= emacs-major-version 26)
(not noninteractive)
(not emacs-basic-display)
(or (display-graphic-p)
(featurep 'tty-child-frames))
(eq (frame-parameter (selected-frame) 'minibuffer) 't)))
;;;###autoload
(cl-defun posframe-show (buffer-or-name
&key
string
position
poshandler
poshandler-extra-info
width
height
max-width
max-height
min-width
min-height
x-pixel-offset
y-pixel-offset
left-fringe
right-fringe
border-width
border-color
internal-border-width
internal-border-color
font
cursor
tty-non-selected-cursor
window-point
foreground-color
background-color
respect-header-line
respect-mode-line
initialize
no-properties
keep-ratio
lines-truncate
override-parameters
timeout
refresh
accept-focus
hidehandler
refposhandler
&allow-other-keys)
"Pop up a posframe to show STRING at POSITION.
(1) POSITION
POSITION can be:
1. An integer, meaning point position.
2. A cons of two integers, meaning absolute X and Y coordinates.
3. Other type, in which case the corresponding POSHANDLER should be
provided.
(2) POSHANDLER
POSHANDLER is a function of one argument returning an actual
position. Its argument is a plist of the following form:
(:position xxx
:poshandler xxx
:font-height xxx
:font-width xxx
:posframe xxx
:posframe-width xxx
:posframe-height xxx
:posframe-buffer xxx
:parent-frame xxx
:parent-window-start xxx
:parent-window-end xxx
:parent-window-left xxx
:parent-window-top xxx
:parent-frame-width xxx
:parent-frame-height xxx
:parent-window xxx
:parent-window-width xxx
:parent-window-height xxx
:mouse-x xxx
;mouse-y xxx
:minibuffer-height xxx
:mode-line-height xxx
:header-line-height xxx
:tab-line-height xxx
:x-pixel-offset xxx
:y-pixel-offset xxx
:parent-text-scale-mode-amount xxx)
By default, poshandler is auto-selected based on the type of POSITION,
but the selection can be overridden using the POSHANDLER argument.
The builtin poshandler functions are listed below:
1. `posframe-poshandler-frame-center'
2. `posframe-poshandler-frame-top-center'
3. `posframe-poshandler-frame-top-left-corner'
4. `posframe-poshandler-frame-top-right-corner'
5. `posframe-poshandler-frame-top-left-or-right-other-corner'
6. `posframe-poshandler-frame-bottom-center'
7. `posframe-poshandler-frame-bottom-left-corner'
8. `posframe-poshandler-frame-bottom-right-corner'
9. `posframe-poshandler-window-center'
10. `posframe-poshandler-window-top-center'
11. `posframe-poshandler-window-top-left-corner'
12. `posframe-poshandler-window-top-right-corner'
13. `posframe-poshandler-window-bottom-center'
14. `posframe-poshandler-window-bottom-left-corner'
15. `posframe-poshandler-window-bottom-right-corner'
16. `posframe-poshandler-point-top-left-corner'
17. `posframe-poshandler-point-bottom-left-corner'
18. `posframe-poshandler-point-bottom-left-corner-upward'
19. `posframe-poshandler-point-window-center'
20. `posframe-poshandler-point-frame-center'
(3) POSHANDLER-EXTRA-INFO
POSHANDLER-EXTRA-INFO is a plist, which will prepend to the
argument of poshandler function: `info', it will *OVERRIDE* the
exist key in `info'.
(4) BUFFER-OR-NAME
This posframe's buffer is BUFFER-OR-NAME, which can be a buffer
or a name of a (possibly nonexistent) buffer.
buffer name can prefix with space, for example \" *mybuffer*\", so
the buffer name will hide for ibuffer and `list-buffers'.
(5) NO-PROPERTIES
If NO-PROPERTIES is non-nil, The STRING's properties will
be removed before being shown in posframe.
(6) HEIGHT, MAX-HEIGHT, MIN-HEIGHT, WIDTH, MAX-WIDTH and MIN-WIDTH
These arguments are specified in the canonical character width
and height of posframe, more details can be found in docstring of
function `fit-frame-to-buffer',
(7) LEFT-FRINGE and RIGHT-FRINGE
If LEFT-FRINGE or RIGHT-FRINGE is a number, left fringe or
right fringe with be shown with the specified width.
(8) BORDER-WIDTH, BORDER-COLOR, INTERNAL-BORDER-WIDTH and INTERNAL-BORDER-COLOR
By default, posframe shows no borders, but users can specify
borders by setting BORDER-WIDTH to a positive number. Border
color can be specified by BORDER-COLOR.
INTERNAL-BORDER-WIDTH and INTERNAL-BORDER-COLOR are same as
BORDER-WIDTH and BORDER-COLOR, but do not suggest to use for the
reason:
Add distinct controls for child frames' borders (Bug#45620)
http://git.savannah.gnu.org/cgit/emacs.git/commit/?id=ff7b1a133bfa7f2614650f8551824ffaef13fadc
(9) FONT, FOREGROUND-COLOR and BACKGROUND-COLOR
Posframe's font as well as foreground and background colors are
derived from the current frame by default, but can be overridden
using the FONT, FOREGROUND-COLOR and BACKGROUND-COLOR arguments,
respectively.
(10) CURSOR, TTY-NON-SELECTED-CURSOR and WINDOW-POINT
By default, cursor is not showed in posframe, user can let cursor
showed with this argument help by set its value to a `cursor-type'.
TTY-NON-SELECTED-CURSOR will let redisplay put the terminal
cursor in a non-selected frame, which is useful when use
vertico-posframe like package in tty.
When cursor need to be showed in posframe, user may need to set
WINDOW-POINT to the point of BUFFER, which can let cursor showed
at this point.
(11) RESPECT-HEADER-LINE and RESPECT-MODE-LINE
By default, posframe will display no header-line, mode-line and
tab-line. In case a header-line, mode-line or tab-line is
desired, users can set RESPECT-HEADER-LINE and RESPECT-MODE-LINE
to t.
(12) INITIALIZE
INITIALIZE is a function with no argument. It will run when
posframe buffer is first selected with `with-current-buffer'
in `posframe-show', and only run once (for performance reasons).
(13) LINES-TRUNCATE
If LINES-TRUNCATE is non-nil, then lines will truncate in the
posframe instead of wrap.
(14) OVERRIDE-PARAMETERS
OVERRIDE-PARAMETERS is very powful, *all* the valid frame parameters
used by posframe's frame can be overridden by it.
NOTE: some `posframe-show' arguments are not frame parameters, so they
can not be overrided by this argument.
(15) TIMEOUT
TIMEOUT can specify the number of seconds after which the posframe
will auto-hide.
(15) REFRESH
If REFRESH is a number, posframe's frame-size will be re-adjusted
every REFRESH seconds.
(17) ACCEPT-FOCUS
When ACCEPT-FOCUS is non-nil, posframe will accept focus.
be careful, you may face some bugs when set it to non-nil.
(18) HIDEHANDLER
HIDEHANDLER is a function, when it return t, posframe will be
hide, this function has a plist argument:
(:posframe-buffer xxx
:posframe-parent-buffer xxx)
The builtin hidehandler functions are listed below:
1. `posframe-hidehandler-when-buffer-switch'
(19) REFPOSHANDLER
REFPOSHANDLER is a function, a reference position (most is
top-left of current frame) will be returned when call this
function.
when it is nil or it return nil, child-frame feature will be used
and reference position will be deal with in Emacs.
The user case I know at the moment is let ivy-posframe work well
in EXWM environment (let posframe show on the other application
window).
DO NOT USE UNLESS NECESSARY!!!
An example parent frame poshandler function is:
1. `posframe-refposhandler-xwininfo'
(19) Others
You can use `posframe-delete-all' to delete all posframes."
(let* ((position (or position (point)))
(max-width (if (numberp max-width)
(min max-width (frame-width))
(frame-width)))
(max-height (if (numberp max-height)
(min max-height (frame-height))
(frame-height)))
(min-width (min (or min-width 1) max-width))
(min-height (min (or min-height 1) max-height))
(width (when width
(min (max width min-width) max-width)))
(height (when height
(min (max height min-height) max-height)))
(x-pixel-offset (or x-pixel-offset 0))
(y-pixel-offset (or y-pixel-offset 0))
(window-point (or window-point 0))
;;-----------------------------------------------------
(buffer (get-buffer-create buffer-or-name))
(parent-window (selected-window))
(parent-window-start (window-start parent-window))
(parent-window-end (window-end parent-window))
(parent-window-top (window-pixel-top parent-window))
(parent-window-left (window-pixel-left parent-window))
(parent-window-width (window-pixel-width parent-window))
(parent-window-height (window-pixel-height parent-window))
(parent-frame (window-frame parent-window))
(parent-frame-width (frame-pixel-width parent-frame))
(parent-frame-height (frame-pixel-height parent-frame))
(ref-position
(when (functionp refposhandler)
(ignore-errors
(funcall refposhandler parent-frame))))
(font-width (default-font-width))
(font-height (with-current-buffer (window-buffer parent-window)
(posframe--get-font-height position)))
(parent-text-scale-mode-amount (with-current-buffer (window-buffer parent-window)
(and (bound-and-true-p text-scale-mode) text-scale-mode-amount)))
(mode-line-height (window-mode-line-height
(and (window-minibuffer-p)
(ignore-errors (window-in-direction 'above)))))
(minibuffer-height (window-pixel-height (minibuffer-window)))
(header-line-height (window-header-line-height parent-window))
(tab-line-height (if (functionp 'window-tab-line-height)
(window-tab-line-height)
0))
(mouse-position (cdr (mouse-pixel-position)))
(frame-resize-pixelwise t)
posframe)
(with-current-buffer buffer
;; Initialize
(unless posframe--initialized-p
(let ((func initialize))
(when (functionp func)
(funcall func)
(setq posframe--initialized-p t))))
;; Create posframe
(setq posframe
(posframe--create-posframe
buffer
:position position
:font font
:cursor cursor
:tty-non-selected-cursor tty-non-selected-cursor
:parent-frame
(unless ref-position
parent-frame)
:left-fringe left-fringe
:right-fringe right-fringe
:border-width border-width
:border-color border-color
:internal-border-width internal-border-width
:internal-border-color internal-border-color
:foreground-color foreground-color
:background-color background-color
:keep-ratio keep-ratio
:lines-truncate lines-truncate
:respect-header-line respect-header-line
:respect-mode-line respect-mode-line
:override-parameters override-parameters
:accept-focus accept-focus
:parent-text-scale-mode-amount parent-text-scale-mode-amount))
;; Insert string into the posframe buffer
(posframe--insert-string string no-properties)
(let ((size-info
(list :posframe posframe
:width width
:height height
:max-width max-width
:max-height max-height
:min-width min-width
:min-height min-height)))
;; Set posframe's size
(posframe--set-frame-size size-info)
;; Re-adjust posframe's size when buffer's content has changed.
(posframe--run-refresh-timer refresh size-info))
;; Get new position of posframe.
(setq position
(posframe-run-poshandler
;; All poshandlers will get info from this plist.
`(,@poshandler-extra-info
,@(list :position position
:poshandler poshandler
:font-height font-height
:font-width font-width
:posframe posframe
:posframe-width (frame-pixel-width posframe)
:posframe-height (frame-pixel-height posframe)
:posframe-buffer buffer
:parent-frame parent-frame
:parent-frame-width parent-frame-width
:parent-frame-height parent-frame-height
:ref-position ref-position
:parent-window parent-window
:parent-window-start parent-window-start
:parent-window-end parent-window-end
:parent-window-top parent-window-top
:parent-window-left parent-window-left
:parent-window-width parent-window-width
:parent-window-height parent-window-height
:mouse-x (car mouse-position)
:mouse-y (cdr mouse-position)
:mode-line-height mode-line-height
:minibuffer-height minibuffer-height
:header-line-height header-line-height
:tab-line-height tab-line-height
:x-pixel-offset x-pixel-offset
:y-pixel-offset y-pixel-offset
:parent-text-scale-mode-amount parent-text-scale-mode-amount))))
;; Move posframe
(posframe--set-frame-position
posframe position parent-frame-width parent-frame-height)
;; Delay hide posframe when timeout is a number.
(posframe--run-timeout-timer posframe timeout)
;; Make sure not hide buffer's content for scroll down.
(let ((window (frame-root-window posframe--frame)))
(when (window-live-p window)
(set-window-point window window-point)))
;; Hide posframe when switch buffer
(let* ((parent-buffer (window-buffer parent-window))
(parent-buffer-name (buffer-name parent-buffer)))
(set-frame-parameter posframe--frame 'posframe-hidehandler hidehandler)
(set-frame-parameter posframe--frame 'posframe-parent-buffer
(cons parent-buffer-name parent-buffer)))
;; Mouse banish
(funcall
posframe-mouse-banish-function
(list :parent-frame parent-frame
:mouse-x (when (car mouse-position)
(+ (or (car ref-position) 0)
(car mouse-position)))
:mouse-y (when (cdr mouse-position)
(+ (or (cdr ref-position) 0)
(cdr mouse-position)))
:posframe-x
(if (>= (car position) 0)
(car position)
(- (frame-pixel-width parent-frame)
(frame-pixel-width posframe)))
:posframe-y
(if (>= (cdr position) 0)
(cdr position)
(- (frame-pixel-height parent-frame)
(frame-pixel-height posframe)))
:posframe-width (frame-pixel-width posframe)
:posframe-height (frame-pixel-height posframe)
:parent-frame-width parent-frame-width
:parent-frame-height parent-frame-height))
;; Return posframe
posframe)))
(defun posframe--get-font-height (position)
"Get the font's height at POSITION."
(if (eq position (car posframe--last-font-height-info))
(cdr posframe--last-font-height-info)
(let* ((font (when (and (integerp position)
(not (= position 1)))
(font-at (if (>= position (point-max))
(- (point-max) 1)
position))))
(height (when (integerp position)
(if (or (= position 1) (not (fontp font)))
(default-line-height)
(aref (font-info font) 3)))))
(setq posframe--last-font-height-info
(cons position height))
height)))
(cl-defun posframe--create-posframe (buffer-or-name
&key
position
parent-frame
foreground-color
background-color
left-fringe
right-fringe
border-width
border-color
internal-border-width
internal-border-color
font
cursor
tty-non-selected-cursor
keep-ratio
lines-truncate
override-parameters
respect-header-line
respect-mode-line
accept-focus
parent-text-scale-mode-amount)
"Create and return a posframe child frame.
This posframe's buffer is BUFFER-OR-NAME.
The below optional arguments are similar to `posframe-show''s:
PARENT-FRAME, FOREGROUND-COLOR, BACKGROUND-COLOR, LEFT-FRINGE,
RIGHT-FRINGE, BORDER-WIDTH, BORDER-COLOR, INTERNAL-BORDER-WIDTH,
INTERNAL-BORDER-COLOR, FONT, KEEP-RATIO, LINES-TRUNCATE,
OVERRIDE-PARAMETERS, RESPECT-HEADER-LINE, RESPECT-MODE-LINE,
ACCEPT-FOCUS."
(let ((left-fringe (or left-fringe 0))
(right-fringe (or right-fringe 0))
;; See emacs.git: Add distinct controls for child frames' borders (Bug#45620)
;; http://git.savannah.gnu.org/cgit/emacs.git/commit/?id=ff7b1a133bfa7f2614650f8551824ffaef13fadc
(border-width (or border-width internal-border-width 0))
(border-color (or border-color internal-border-color))
(buffer (get-buffer-create buffer-or-name))
(after-make-frame-functions nil)
(x-gtk-resize-child-frames posframe-gtk-resize-child-frames)
(args (list "args"
(display-graphic-p)
foreground-color
background-color
right-fringe
left-fringe
border-width
border-color
internal-border-width
internal-border-color
font
keep-ratio
override-parameters
respect-header-line
respect-mode-line
accept-focus)))
(with-current-buffer buffer
;; Many variables take effect after call `set-window-buffer'
(setq-local display-line-numbers nil)
(setq-local frame-title-format "")
(setq-local left-margin-width nil)
(setq-local right-margin-width nil)
(setq-local left-fringe-width nil)
(setq-local right-fringe-width nil)
(setq-local fringes-outside-margins 0)
(setq-local fringe-indicator-alist nil)
;; Need to use `lines-truncate' as our keyword variable instead
;; of `truncate-lines' so we don't shadow the variable that we
;; are trying to set.
(setq-local truncate-lines lines-truncate)
(setq-local show-trailing-whitespace nil)
(setq-local posframe--accept-focus accept-focus)
(unless respect-mode-line
(setq-local mode-line-format nil))
(unless respect-header-line
(setq-local header-line-format nil))
(if cursor
(progn
(setq-local cursor-type cursor)
(setq-local cursor-in-non-selected-windows cursor))
(setq-local cursor-type nil)
(setq-local cursor-in-non-selected-windows nil))
;; Find existing posframe: buffer-local variables used by
;; posframe can be cleaned by other packages, so we should find
;; existing posframe first if possible.
(unless (or posframe--frame posframe--last-args)
(setq-local posframe--frame
(posframe--find-existing-posframe buffer args))
(setq-local posframe--last-args args))
;; Create child-frame
(unless (and posframe--frame
(frame-live-p posframe--frame)
;; For speed reason, posframe will reuse
;; existing frame at possible, but when
;; user change args, recreating frame
;; is needed.
(equal posframe--last-args args))
(posframe-delete-frame buffer)
(setq-local posframe--last-args args)
(setq-local posframe--last-posframe-pixel-position nil)
(setq-local posframe--last-posframe-size nil)
(setq-local posframe--frame
(make-frame
`(,@override-parameters
,(when foreground-color
(cons 'foreground-color foreground-color))
,(when background-color
(cons 'background-color background-color))
(title . "posframe")
(parent-frame . ,parent-frame)
(keep-ratio ,keep-ratio)
(posframe-buffer . ,(cons (buffer-name buffer)
buffer))
(fullscreen . nil)
(no-accept-focus . ,(not accept-focus))
(min-width . 0)
(min-height . 0)
(border-width . 0)
(internal-border-width . ,border-width)
(child-frame-border-width . ,border-width)
(vertical-scroll-bars . nil)
(horizontal-scroll-bars . nil)
(left-fringe . ,left-fringe)
(right-fringe . ,right-fringe)
(menu-bar-lines . 0)
(tool-bar-lines . 0)
(tab-bar-lines . 0)
(line-spacing . 0)
(unsplittable . t)
(no-other-frame . t)
;; NOTE: TTY child frame use undecorated to control border.
(undecorated . ,(or (display-graphic-p)
(not (and (> border-width 0)
(featurep 'tty-child-frames)))))
(visibility . nil)
(cursor-type . ,cursor)
(tty-non-selected-cursor . ,tty-non-selected-cursor)
(minibuffer . ,(minibuffer-window parent-frame))
(left . ,(if (consp position) (car position) 0))
(top . ,(if (consp position) (cdr position) 0))
(width . 1)
(height . 1)
(no-special-glyphs . t)
(skip-taskbar . t)
(inhibit-double-buffering . ,posframe-inhibit-double-buffering)
;; Do not save child-frame when use desktop.el
(desktop-dont-save . t))))
(set-frame-parameter posframe--frame 'last-args args)
(set-frame-parameter
posframe--frame 'font
(or font (face-attribute 'default :font parent-frame)))
(when border-color
(if parent-frame
(set-face-background
(if (facep 'child-frame-border)
'child-frame-border
'internal-border)
border-color posframe--frame)
;; NOTE: when use refposhander feature, parent-frame will be
;; nil, we should use internal-border instead.
(set-face-background
'internal-border
border-color posframe--frame))
;; HACK: Set face background after border color, otherwise the
;; border is not updated (BUG!).
(when (version< emacs-version "28.0")
(set-frame-parameter
posframe--frame 'background-color
(or background-color (face-attribute 'default :background)))))
(let ((posframe-window (frame-root-window posframe--frame)))
;; This method is more stable than 'setq mode/header-line-format nil'
(unless respect-mode-line
(set-window-parameter posframe-window 'mode-line-format 'none))
(unless respect-header-line
(set-window-parameter posframe-window 'header-line-format 'none))
(set-window-buffer posframe-window buffer)
;; When the buffer of posframe is killed, the child-frame of
;; this posframe will be deleted too.
(set-window-dedicated-p posframe-window t)))
;; Remove tab-bar always.
;; NOTE: if we do not test the value of frame parameter
;; 'tab-bar-lines before set it, posframe will flicker when
;; scroll.
(unless (equal (frame-parameter posframe--frame 'tab-bar-lines) 0)
(set-frame-parameter posframe--frame 'tab-bar-lines 0))
(when (version< "27.0" emacs-version)
(setq-local tab-line-format nil))
;; If user set 'parent-frame to nil after run posframe-show.
;; for cache reason, next call to posframe-show will be affected.
;; so we should force set parent-frame again in this place.
(set-frame-parameter posframe--frame 'parent-frame parent-frame)
;; Set text scale based on the parent frame text scale.
(text-scale-set
(funcall posframe-text-scale-factor-function parent-text-scale-mode-amount))
posframe--frame)))
(defun posframe--find-existing-posframe (buffer &optional last-args)
"Find existing posframe with BUFFER and LAST-ARGS."
(let ((posframe
(cl-find-if
(lambda (frame)
(let* ((buffer-info (frame-parameter frame 'posframe-buffer))
(buffer-equal-p
(or (equal (buffer-name buffer) (car buffer-info))
(equal buffer (cdr buffer-info)))))
(if last-args
(and buffer-equal-p
(equal last-args (frame-parameter frame 'last-args)))
buffer-equal-p)))
(frame-list))))
(when posframe
(set-frame-parameter posframe 'existing-posframe t))
posframe))
(defun posframe-delete-frame (buffer-or-name)
"Delete posframe pertaining to BUFFER-OR-NAME.
BUFFER-OR-NAME can be a buffer or a buffer name."
(let* ((buffer (get-buffer buffer-or-name))
(posframe (when buffer
(posframe--find-existing-posframe buffer)))
;; NOTE: `delete-frame' runs ‘delete-frame-functions’ before
;; actually deleting the frame, unless the frame is a
;; tooltip, posframe is a child-frame, but its function like
;; a tooltip.
(delete-frame-functions nil))
(when posframe
(when (buffer-live-p buffer)
(with-current-buffer buffer
(dolist (timer '(posframe--refresh-timer
posframe--timeout-timer))
(when (timerp timer)
(cancel-timer timer)))))
(delete-frame posframe))))
(defun posframe--insert-string (string no-properties)
"Insert STRING to current buffer.
If NO-PROPERTIES is non-nil, all properties of STRING
will be removed."
(when (and string (stringp string))
(remove-text-properties
0 (length string) '(read-only t) string)
(let ((str (if no-properties
(substring-no-properties string)
string)))
(erase-buffer)
(insert str))))
(defun posframe--set-frame-size (size-info)
"Set POSFRAME's size based on SIZE-INFO."
(let ((posframe (plist-get size-info :posframe))
(width (plist-get size-info :width))
(height (plist-get size-info :height))
(max-width (plist-get size-info :max-width))
(max-height (plist-get size-info :max-height))
(min-width (plist-get size-info :min-width))
(min-height (plist-get size-info :min-height)))
(when height (set-frame-height posframe height))
(when width (set-frame-width posframe width))
(unless (and height width)
(posframe--fit-frame-to-buffer
posframe max-height min-height max-width min-width
(cond (width 'vertically)
(height 'horizontally))))
(setq-local posframe--last-posframe-size size-info)))
(defun posframe--fit-frame-to-buffer (posframe max-height min-height max-width min-width only)
"POSFRAME version of function `fit-frame-to-buffer'.
Arguments HEIGHT, MAX-HEIGHT, MIN-HEIGHT, WIDTH, MAX-WIDTH,
MIN-WIDTH and ONLY are similar function `fit-frame-to-buffer''s."
;; This only has effect if the user set the latter var to `hide'.
(let ((x-gtk-resize-child-frames posframe-gtk-resize-child-frames))
;; More info: Don't skip empty lines when fitting mini frame to buffer (Bug#44080)
;; http://git.savannah.gnu.org/cgit/emacs.git/commit/?id=e0de9f3295b4c46cb7198ec0b9634809d7b7a36d
(if (functionp 'fit-frame-to-buffer-1)
(fit-frame-to-buffer-1
posframe max-height min-height max-width min-width only nil nil)
(fit-frame-to-buffer
posframe max-height min-height max-width min-width only))))
(defun posframe--run-refresh-timer (repeat size-info)
"Refresh POSFRAME every REPEAT seconds.
It will set POSFRAME's size by SIZE-INFO."
(let ((posframe (plist-get size-info :posframe))
(width (plist-get size-info :width))
(height (plist-get size-info :height)))
(when (and (numberp repeat) (> repeat 0))
(unless (and width height)
(when (timerp posframe--refresh-timer)
(cancel-timer posframe--refresh-timer))
(setq-local posframe--refresh-timer
(run-with-timer
nil repeat
(lambda (size-info)
(let ((frame-resize-pixelwise t))
(when (and posframe (frame-live-p posframe))
(posframe--set-frame-size size-info))))
size-info))))))
;; Posframe's position handler
(defun posframe-run-poshandler (info)
"Run posframe's position handler.
the structure of INFO can be found in docstring
of `posframe-show'."
(if (equal info posframe--last-poshandler-info)
posframe--last-posframe-pixel-position
(setq posframe--last-poshandler-info info)
(let* ((ref-position (plist-get info :ref-position))
(poshandler (posframe--get-valid-poshandler info))
(position (funcall poshandler info)))
(if (not ref-position)
position
(posframe--calculate-new-position
info position ref-position)))))
(defun posframe--get-valid-poshandler (info)
"Get valid poshandler function with the help of INFO."
(or (plist-get info :poshandler)
(let ((position (plist-get info :position)))
(cond ((integerp position)
#'posframe-poshandler-point-bottom-left-corner)
((and (consp position)
(integerp (car position))
(integerp (cdr position)))
#'posframe-poshandler-absolute-x-y)
(t (error "Posframe: have no valid poshandler"))))))
(defun posframe--calculate-new-position (info position ref-position)
"Calculate new position according to INFO, POSITION and REF-POSITION."
(let* ((parent-frame-width (plist-get info :parent-frame-width))
(parent-frame-height (plist-get info :parent-frame-height))
(posframe-width (plist-get info :posframe-width))
(posframe-height (plist-get info :posframe-height))
(ref-x (or (car ref-position) 0))
(ref-y (or (cdr ref-position) 0))
(x (car position))
(y (cdr position)))
(when (< x 0)
(setq x (- (+ x parent-frame-width) posframe-width)))
(when (< y 0)
(setq y (- (+ y parent-frame-height) posframe-height)))
(cons (+ ref-x x)
(+ ref-y y))))
(defun posframe--set-frame-position (posframe position
parent-frame-width
parent-frame-height)
"Move POSFRAME to POSITION.
This need PARENT-FRAME-WIDTH and PARENT-FRAME-HEIGHT"
(unless (and (equal position posframe--last-posframe-pixel-position)
;; When working frame's size change, re-posit
;; the posframe.
(equal posframe--last-parent-frame-size
(cons parent-frame-width parent-frame-height))
(equal posframe--last-posframe-displayed-size
(cons (frame-pixel-width posframe)
(frame-pixel-height posframe))))
(set-frame-position posframe (car position) (cdr position))
(setq-local posframe--last-posframe-pixel-position position)
(setq-local posframe--last-parent-frame-size
(cons parent-frame-width parent-frame-height))
(setq-local posframe--last-posframe-displayed-size
(cons (frame-pixel-width posframe)
(frame-pixel-height posframe))))
(posframe--make-frame-visible posframe))
(defun posframe--make-frame-visible (posframe)
"Let POSFRAME visible and redraw it when needed."
(unless (frame-visible-p posframe)
(make-frame-visible posframe)
(when (posframe--posframe-need-redraw-p posframe)
(redraw-frame posframe))))
(defun posframe--posframe-need-redraw-p (posframe)
"Test POSFRAME need to redraw or not."
;; When posframe is found by `posframe--find-existing-posframe',
;; it need to redraw, more info:
;; 1. https://github.com/tumashu/ivy-posframe/pull/30
;; 2. https://github.com/tumashu/posframe/pull/118
(frame-parameter posframe 'existing-posframe))
(defun posframe--run-timeout-timer (posframe secs)
"Hide POSFRAME after a delay of SECS seconds."
(when (and (numberp secs) (> secs 0))
(when (timerp posframe--timeout-timer)
(cancel-timer posframe--timeout-timer))
(setq-local posframe--timeout-timer
(run-with-timer
secs nil #'posframe--make-frame-invisible posframe))))
(defun posframe--make-frame-invisible (frame)
"`make-frame-invisible' replacement to hide FRAME safely."
(when (and (frame-live-p frame)
(frame-visible-p frame))
(make-frame-invisible frame)))
(defun posframe-mouse-banish-simple (info)
"Banish mouse to (0, 0) of posframe base on INFO."
(let ((parent-frame (plist-get info :parent-frame))
(x (plist-get info :posframe-x))
(y (plist-get info :posframe-y))
(w (plist-get info :posframe-width))
(h (plist-get info :posframe-height))
(p-w (plist-get info :parent-frame-width))
(p-h (plist-get info :parent-frame-height)))
(set-mouse-pixel-position
parent-frame
(if (= x 0)
(min p-w (+ w 5))
(max 0 (- x 5)))
(if (= y 0)
(min p-h (+ h 10))
(max 0 (- y 10))))))
(defun posframe-mouse-banish-default (info)
"Banish mouse base on INFO.
FIXME: This is a hacky fix for the mouse focus problem, which like:
https://github.com/tumashu/posframe/issues/4#issuecomment-357514918"
(let* ((parent-frame (plist-get info :parent-frame))
(m-x (plist-get info :mouse-x))
(m-y (plist-get info :mouse-y))
(x (plist-get info :posframe-x))
(y (plist-get info :posframe-y))
(w (plist-get info :posframe-width))
(h (plist-get info :posframe-height))
(p-w (plist-get info :parent-frame-width))
(p-h (plist-get info :parent-frame-height)))
(when (and m-x m-y
(>= m-x x)
(<= m-x (+ x w))
(>= m-y y)
(<= m-y (+ y h)))
(set-mouse-pixel-position
parent-frame
(if (= x 0)
(min p-w (+ w 5))
(max 0 (- x 5)))
(if (= y 0)
(min p-h (+ h 10))
(max 0 (- y 10)))))))
(defun posframe-refresh (buffer-or-name)
"Refresh posframe pertaining to BUFFER-OR-NAME.
For example:
(defvar buf \" *test*\")
(posframe-show buf)
(with-current-buffer buf
(erase-buffer)
(insert \"ffffffffffffff\")
(posframe-refresh buf))
User can use posframe-show's :refresh argument,
to do similar job:
(defvar buf \" *test*\")
(posframe-show buf :refresh 0.25)
(with-current-buffer buf
(erase-buffer)
(insert \"ffffffffffffff\"))"
(dolist (frame (frame-list))
(let ((buffer-info (frame-parameter frame 'posframe-buffer))
(frame-resize-pixelwise t))
(when (or (equal buffer-or-name (car buffer-info))
(equal buffer-or-name (cdr buffer-info)))
(with-current-buffer buffer-or-name
(posframe--set-frame-size posframe--last-posframe-size))))))
;;;###autoload
(defun posframe-hide-all ()
"Hide all posframe frames."
(interactive)
(dolist (frame (frame-list))
(when (frame-parameter frame 'posframe-buffer)
(posframe--make-frame-invisible frame))))
(defun posframe-hide (buffer-or-name)
"Hide posframe pertaining to BUFFER-OR-NAME.
BUFFER-OR-NAME can be a buffer or a buffer name."
;; Make sure buffer-list-update-hook is nil when posframe-hide is
;; called, otherwise:
;; (add-hook 'buffer-list-update-hook #'posframe-hide)
;; will lead to infinite recursion.
(when buffer-or-name
(let ((buffer-list-update-hook nil))
(dolist (frame (frame-list))
(let ((buffer-info (frame-parameter frame 'posframe-buffer)))
(when (or (equal buffer-or-name (car buffer-info))
(equal buffer-or-name (cdr buffer-info)))
(posframe--make-frame-invisible frame)))))))
(defun posframe-hidehandler-daemon ()
"Run posframe hidehandler daemon."
(when (timerp posframe-hidehandler-timer)
(cancel-timer posframe-hidehandler-timer))
(setq posframe-hidehandler-timer
(run-with-idle-timer 0.5 t #'posframe-hidehandler-daemon-function)))
(defun posframe-hidehandler-daemon-function ()
"Posframe hidehandler daemon function."
(ignore-errors
(dolist (frame (frame-list))
(let ((hidehandler (frame-parameter frame 'posframe-hidehandler))
(buffer (frame-parameter frame 'posframe-buffer))
(parent-buffer (frame-parameter frame 'posframe-parent-buffer)))
(when (and hidehandler
(funcall hidehandler
(list
:posframe-buffer buffer
:posframe-parent-buffer parent-buffer)))
(posframe--make-frame-invisible frame))))))
(posframe-hidehandler-daemon)
(defun posframe-hidehandler-when-buffer-switch (info)
"Posframe hidehandler function.
This function let posframe hide when user switch buffer.
Note: This function is called in `post-command-hook'.
Argument INFO ."
(let ((parent-buffer (cdr (plist-get info :posframe-parent-buffer))))
(and (buffer-live-p parent-buffer)
(not (equal parent-buffer (current-buffer))))))
;;;###autoload
(defun posframe-delete-all ()
"Delete all posframe frames and buffers."
(interactive)
(dolist (frame (frame-list))
(when (frame-parameter frame 'posframe-buffer)
(let ((delete-frame-functions nil))
(delete-frame frame))))
(dolist (buffer (buffer-list))
(with-current-buffer buffer
(when posframe--frame
(posframe--kill-buffer buffer)))))
(defun posframe--kill-buffer (buffer-or-name)
"Kill posframe's buffer: BUFFER-OR-NAME.
BUFFER-OR-NAME can be a buffer or a buffer name."
(when (buffer-live-p (get-buffer buffer-or-name))
(kill-buffer buffer-or-name)))
(defun posframe-delete (buffer-or-name)
"Delete posframe pertaining to BUFFER-OR-NAME and kill the buffer.
BUFFER-OR-NAME can be a buffer or a buffer name.
This function is not commonly used, for delete and recreate
posframe is very very slowly, `posframe-hide' is more useful."
(posframe-delete-frame buffer-or-name)
(posframe--kill-buffer buffer-or-name))
(defun posframe-funcall (buffer-or-name function &rest arguments)
"Select posframe of BUFFER-OR-NAME and call FUNCTION with ARGUMENTS.
BUFFER-OR-NAME can be a buffer or a buffer name."
(when (functionp function)
(when (get-buffer buffer-or-name)
(with-current-buffer buffer-or-name
(when (framep posframe--frame)
(with-selected-frame posframe--frame
(apply function arguments)))))))
(defun posframe-poshandler-absolute-x-y (info)
"Posframe's position handler.
This poshandler function deal with (integer . integer) style
position.
The structure of INFO can be found in docstring of
`posframe-show'."
(let ((position (plist-get info :position))
(x-pixel-offset (plist-get info :x-pixel-offset))
(y-pixel-offset (plist-get info :y-pixel-offset)))
(cons (+ (car position) x-pixel-offset)
(+ (cdr position) y-pixel-offset))))
(defun posframe-poshandler-point-1 (info &optional font-height upward)
"The internal function used to deal with point-poshandler.
Argument INFO .
Optional arguments: FONT-HEIGHT and UPWARD."
(let* ((x-pixel-offset (plist-get info :x-pixel-offset))
(y-pixel-offset (plist-get info :y-pixel-offset))
(posframe-width (plist-get info :posframe-width))
(posframe-height (plist-get info :posframe-height))
(window (plist-get info :parent-window))
(xmax (plist-get info :parent-frame-width))
(ymax (plist-get info :parent-frame-height))
(position-info (plist-get info :position))
(position-info
(if (integerp position-info)
(posn-at-point position-info window)
position-info))
(header-line-height (plist-get info :header-line-height))
(tab-line-height (plist-get info :tab-line-height))
(x (+ (car (window-inside-pixel-edges window))
(- (or (car (posn-x-y position-info)) 0)
(or (car (posn-object-x-y position-info)) 0))
x-pixel-offset))
(y-top (+ (cadr (window-pixel-edges window))
tab-line-height
header-line-height
(- (or (cdr (posn-x-y position-info)) 0)
;; Fix the conflict with flycheck
;; http://lists.gnu.org/archive/html/emacs-devel/2018-01/msg00537.html
(or (cdr (posn-object-x-y position-info)) 0))
y-pixel-offset))
(font-height (or font-height (plist-get info :font-height)))
(y-bottom (+ y-top font-height)))
(cons (max 0 (min x (- xmax (or posframe-width 0))))
(max 0 (if (if upward
(> (- y-bottom (or posframe-height 0)) 0)
(> (+ y-bottom (or posframe-height 0)) ymax))
(- y-top (or posframe-height 0))
y-bottom)))))
(defun posframe-poshandler-point-bottom-left-corner (info)
"Posframe's position handler.
This poshandler function let top left corner of posframe align to
bottom left corner of point.
The structure of INFO can be found in docstring of
`posframe-show'."
(posframe-poshandler-point-1 info))
(defun posframe-poshandler-point-window-center (info)
"Posframe's position handler.
This poshandler function let center of posframe vertical align to
center of window and top edge of posframe horizontal align to
buttom edge of current point.
The structure of INFO can be found in docstring of
`posframe-show'."
(let ((x (car (posframe-poshandler-window-top-center info)))
(y (cdr (posframe-poshandler-point-bottom-left-corner info))))
(cons x y)))
(defun posframe-poshandler-point-frame-center (info)
"Posframe's position handler.
This poshandler function let center of posframe vertical align to
center of frame and top edge of posframe horizontal align to
buttom edge of current point.
The structure of INFO can be found in docstring of
`posframe-show'."
(let ((x (car (posframe-poshandler-frame-top-center info)))
(y (cdr (posframe-poshandler-point-bottom-left-corner info))))
(cons x y)))
(defun posframe-poshandler-point-bottom-left-corner-upward (info)
"Posframe's position handler.
This poshandler function let bottom left corner of posframe align
to bottom left corner of point.
The structure of INFO can be found in docstring of
`posframe-show'."
(posframe-poshandler-point-1 info nil t))
(defun posframe-poshandler-point-top-left-corner (info)
"Posframe's position handler.
This poshandler function let top left corner of posframe align to
top left corner of point.
The structure of INFO can be found in docstring of
`posframe-show'."
(let ((font-height 0))
(posframe-poshandler-point-1 info font-height)))
(defun posframe-poshandler-frame-center (info)
"Posframe's position handler.
This poshandler function let center of posframe align to center
of frame.
The structure of INFO can be found in docstring of
`posframe-show'."
(cons (/ (- (plist-get info :parent-frame-width)
(plist-get info :posframe-width))
2)
(/ (- (plist-get info :parent-frame-height)
(plist-get info :posframe-height))
2)))
(defun posframe-poshandler-frame-top-center (info)
"Posframe's position handler.
This poshandler function let top edge center of posframe align
to top edge center of frame.
The structure of INFO can be found in docstring of
`posframe-show'."
(cons (/ (- (plist-get info :parent-frame-width)
(plist-get info :posframe-width))
2)
0))
(defun posframe-poshandler-frame-top-left-corner (_info)
"Posframe's position handler.
This poshandler function let top left corner of posframe align to
top left corner of frame.
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.
This poshandler function let top right corner of posframe align to
top right corner of frame.
The structure of INFO can be found in docstring of
`posframe-show'."
'(-1 . 0))
(defun posframe-poshandler-frame-top-left-or-right-other-corner (info)
"Posframe's position handler.
This poshandler function let posframe align to top left or top right
corner of frame, based on whether current window is relatively at left
or right in the current frame. If window is at left, place posframe on
right, and vice versa. (This is calculated by whether current window
center is left or right to frame center.)
The structure of INFO can be found in docstring of `posframe-show'."
(let ((window-left (plist-get info :parent-window-left))
(window-width (plist-get info :parent-window-width))
(frame-width (plist-get info :parent-frame-width)))
;; when equal, put posframe on right because content in window tend to be on left
(if (<= (+ window-left (/ window-width 2))
(/ frame-width 2))
'(-1 . 0)
'(0 . 0))))
(defun posframe-poshandler-frame-bottom-left-corner (info)
"Posframe's position handler.
This poshandler function let bottom left corner of posframe align
to buttom left corner of frame.
The structure of INFO can be found in docstring of
`posframe-show'."
(cons 0 (- 0
(plist-get info :mode-line-height)
(plist-get info :minibuffer-height))))
(defun posframe-poshandler-frame-bottom-right-corner (info)
"Posframe's position handler.
This poshandler function let bottom right corner of posframe
align to buttom right corner of frame.
The structure of INFO can be found in docstring of
`posframe-show'."
(cons -1 (- 0
(plist-get info :mode-line-height)
(plist-get info :minibuffer-height))))
(defun posframe-poshandler-frame-bottom-center (info)
"Posframe's position handler.
This poshandler function let bottom edge center of posframe align
to buttom edge center of frame.
The structure of INFO can be found in docstring of
`posframe-show'."
(cons (/ (- (plist-get info :parent-frame-width)
(plist-get info :posframe-width))
2)
(- (plist-get info :parent-frame-height)
(plist-get info :posframe-height)
(plist-get info :mode-line-height)
(plist-get info :minibuffer-height))))
(defun posframe-poshandler-window-center (info)
"Posframe's position handler.
This poshandler function let center of posframe align to center
of window.
The structure of INFO can be found in docstring of
`posframe-show'."
(let* ((window-left (plist-get info :parent-window-left))
(window-top (plist-get info :parent-window-top))
(window-width (plist-get info :parent-window-width))
(window-height (plist-get info :parent-window-height))
(posframe-width (plist-get info :posframe-width))
(posframe-height (plist-get info :posframe-height)))
(cons (max 0 (+ window-left (/ (- window-width posframe-width) 2)))
(max 0 (+ window-top (/ (- window-height posframe-height) 2))))))
(defun posframe-poshandler-window-top-left-corner (info)
"Posframe's position handler.
This poshandler function let top left corner of posframe align to
top left corner of window.
The structure of INFO can be found in docstring of
`posframe-show'."
(let* ((window-left (plist-get info :parent-window-left))
(window-top (plist-get info :parent-window-top)))
(cons window-left
window-top)))
(defun posframe-poshandler-window-top-right-corner (info)
"Posframe's position handler.
This poshandler function let top right corner of posframe align to
top left right of window.
The structure of INFO can be found in docstring of
`posframe-show'."
(let* ((window-left (plist-get info :parent-window-left))
(window-top (plist-get info :parent-window-top))
(window-width (plist-get info :parent-window-width))
(posframe-width (plist-get info :posframe-width)))
(cons (+ window-left window-width
(- 0 posframe-width))
window-top)))
(defun posframe-poshandler-window-top-center (info)
"Posframe's position handler.
This poshandler function let top edge center of posframe align to
top edge center of window.
The structure of INFO can be found in docstring of
`posframe-show'."
(let* ((window-left (plist-get info :parent-window-left))
(window-top (plist-get info :parent-window-top))
(window-width (plist-get info :parent-window-width))
(posframe-width (plist-get info :posframe-width)))
(cons (max 0 (+ window-left (/ (- window-width posframe-width) 2)))
window-top)))
(defun posframe-poshandler-window-bottom-left-corner (info)
"Posframe's position handler.
This poshandler function let bottom left corner of posframe align to
bottom left corner of window.
The structure of INFO can be found in docstring of
`posframe-show'."
(let* ((window-left (plist-get info :parent-window-left))
(window-top (plist-get info :parent-window-top))
(window-height (plist-get info :parent-window-height))
(posframe-height (plist-get info :posframe-height))
(mode-line-height (plist-get info :mode-line-height)))
(cons window-left
(+ window-top window-height
(- 0 mode-line-height posframe-height)))))
(defun posframe-poshandler-window-bottom-right-corner (info)
"Posframe's position handler.
This poshandler function let bottom right corner of posframe
align to bottom right corner of window.
The structure of INFO can be found in docstring of
`posframe-show'."
(let* ((window-left (plist-get info :parent-window-left))
(window-top (plist-get info :parent-window-top))
(window-width (plist-get info :parent-window-width))
(window-height (plist-get info :parent-window-height))
(posframe-width (plist-get info :posframe-width))
(posframe-height (plist-get info :posframe-height))
(mode-line-height (plist-get info :mode-line-height)))
(cons (+ window-left window-width
(- 0 posframe-width))
(+ window-top window-height
(- 0 mode-line-height posframe-height)))))
(defun posframe-poshandler-window-bottom-center (info)
"Posframe's position handler.
This poshandler function let bottom edge center of posframe align
to bottom edge center of window.
The structure of INFO can be found in docstring of
`posframe-show'."
(let* ((window-left (plist-get info :parent-window-left))
(window-top (plist-get info :parent-window-top))
(window-width (plist-get info :parent-window-width))
(window-height (plist-get info :parent-window-height))
(posframe-width (plist-get info :posframe-width))
(posframe-height (plist-get info :posframe-height))
(mode-line-height (plist-get info :mode-line-height)))
(cons (max 0 (+ window-left (/ (- window-width posframe-width) 2)))
(+ window-top window-height
(- 0 mode-line-height posframe-height)))))
(defun posframe-refposhandler-xwininfo (&optional frame)
"Parent FRAME poshander function.
Get the position of parent frame (current frame) with the help of
xwininfo."
(when (executable-find "xwininfo")
(with-temp-buffer
(let ((case-fold-search nil))
(call-process "xwininfo" nil t nil
"-display" (frame-parameter frame 'display)
"-id" (frame-parameter frame 'window-id))
(goto-char (point-min))
(search-forward "Absolute upper-left")
(let ((x (string-to-number
(buffer-substring-no-properties
(search-forward "X: ")
(line-end-position))))
(y (string-to-number
(buffer-substring-no-properties
(search-forward "Y: ")
(line-end-position)))))
(cons x y))))))
(if (version< emacs-version "27.1")
(with-no-warnings
(add-hook 'focus-in-hook #'posframe--redirect-posframe-focus))
(add-function :after after-focus-change-function #'posframe--redirect-posframe-focus))
(defun posframe--redirect-posframe-focus ()
"Redirect focus from the posframe to the parent frame.
This prevents the posframe from catching keyboard input if the
window manager selects it."
(when (and (eq (selected-frame) posframe--frame)
;; Do not redirect focus when posframe can accept focus.
;; See posframe-show's accept-focus argument.
(not posframe--accept-focus))
(redirect-frame-focus posframe--frame (frame-parent))))
(defun posframe-text-scale-factor-default (parent-text-scale-mode-amount)
"Return PARENT-TEXT-SCALE-MODE-AMOUNT or 0 if it is nil.
This ensures text scale factor is always a number for posframe display."
(or parent-text-scale-mode-amount 0))
(provide 'posframe)
;;; posframe.el ends here
tumashu-posframe-d93828b/snapshots/ 0000775 0000000 0000000 00000000000 15111266362 0017404 5 ustar 00root root 0000000 0000000 tumashu-posframe-d93828b/snapshots/posframe-1.png 0000664 0000000 0000000 00000210046 15111266362 0022067 0 ustar 00root root 0000000 0000000 PNG
IHDR h l IDATx ^Uu/Lv͋cDSCU|Ћ^hjjzOh
z
֪WiRPPT Rƣ!< ~~ ?Xs=oޙs=טc s7zV^Z VdžG(1 -.(ڐ k ޑXPkCAƂf" ;z{{{3;Pq
CU0JT ZNSJ:;;:;;: K!p|L1R6$-TS$4NhC5g5$<ӒcyER,Y aGW ;mQ[lOMF=SXvVki͡Fry eN6HF|Df A}Rj
תUFx!t<!'pPbF ڨ3]Ì,
#kSv( hxptxxxhppp ŁG ,8:z:pht;I* `"v c#H2Z mhZt82pf M9@
=B'TC
E DL^V"b*
9x? b1&8Q5e* Zt8J$
ٱ5_KQj P>Gܫ')@V'$
9/aTEH NI@VkD/CL1`S95C ]8IrNbGH`q( TyZ* U8;:pP>D CZ#Kc*40+Y|L
4NSkx$x-#˨.1XFThh>+7!&/$rmY.=!aRdH؇H MOM$ 8qM~?uuu`_S]nlmE%r[]Sɍ1@"IՎ[0ӑ+)=&傃;q&x VN"B戅!Hx .*V9K1= ,$Jhc{e/W]n4?*I^jN9.wMtmT&^ < fD "L5LHS59C;MKJ@Z QIgT<źӬ$Ed%K4XB"FZĹ ; D^:XGjA(ʐJѲKz;߅4Q,\HM&!E3t:wׅ
3% G2?YѱD1p 3:6:2&?0dqR!kT m?ON<ıPkb{2N䰔_Bn !% :QA$\ʿpηY{O>m~o瞯U"F.cP!jVK?Uw=wuI4,6z/ŽU@\SSE3=T
Cf:I՝;ɨ.XB$:@Tj/;M@Ѯ60 > "K%"/ *{R4PȯZd'"daܗqIꜷ`+ lK.9-Y|ؒE=\
Ah>Ece h4:Z nQP^uTN;:{vizۣLd"$ņb٥El5"f2 %%1R$cEyamH J'UvP`+SHԣp 1g[
n̳SS) #~Ų6SN{ءqA^kR* p~Dc[2 ?F9QU1E @'bdANv'/च^
ʧp ( 4EѳgygO.Mr|"(v̈B)ȍm'
drC{рF<ۈ>/ ƝL
1U #`_" 9s/Ό!Q@G2 !N5tU:$j ڋ HYMZ NX \+qmm 2K"&W$sFk@1F͊}* dRe*2 .%6K$Ip"
):n5TrD:q&5 dzbx)+T*L3b DPG/'
t9̏L~錡I0YTz 26zaT p fCRd bATvMb$C
x6K40nâq_W}
=(g\O j0R#+L52:ՐjaاN],aU m`nV+9[ֳD3ԱjSNCT snw1VpKvjC^ w-_uO 9SUk<"ENX.Լ DI19qQܞK 7P Q%2%If=~"}$& &X%G
q 7zPU w Cv i=!F
֣8RdB(EM^pZ < lQbҸHoJUbIA }QV6Z
md2J ŕӹ7ES\|"{"gâfxʴl>Cp:>#
PZ6L}70
&^)P).aWHVCA,(%K7|mR]Q$hM9B`H.V"A 8a!7@ {Cs;8 >}/P˄,Wx8ca,W]kM95 U]mc}hpKAU侊hT#{WkZLR
}iԺq-'#` 7#nԋώ8Q" p d8e?TFGJԁ
r1q ,9ɂN!SnK%
̈ d;BNDY' zR aW4ggIJW΄F&n4qsH
`)!?JZ(0H9Q
Tf?GGq" }k.AJhiI(" Z%}\IY~L) PٷF|m^.Ge
swYX
U;.) -d tx|셱Α9u _ƺѮy'$@RO)E /" Jғ"R6,C9͖.)y b
d8N(`b @gWrF Ĉ1%hil99 F|= JN!
fǃ#`[jSXVǓD_2,+y =%̈́ ` Ǐ?1M i' }2,Ld@qLXU $rFU6@#|ޢ2$` 65%^jI.=A9cJkgzer
WG N=`gzfek5khRlj{ҧIE1!FR+:l\i v >phev8. WR С-V8]1Sz6
]<^"#اM(E%FS'$ABV,Z 1
Z (;:漬XN!Cq*Y $^߶Z+`A6dν-> 0? +-FjԈz?dt$O[)-PF5?ը*-g,ΕS"\c.M E"qQ*ZN [H("$j!$v]E
Ü 24@v
IIIscv 1qs a."N n:X2F'/We -|#fh
c \2$: L.'xwW uGqvvArp=Ny2},K?RZyGV X_Y:Z=0$Τ,Bb ˘ _i5&pgx` fQ[3O>vDHm8>wDQW7>:wvHsBɎrWC7J˃bWY#ۻ:};KW bG/w70VdZN7"~(Id
KMk<&Õ&p'RRl7520%cz!"Dy{i%.#z X_DXa %*k) 2+],$.p;%uv͛;wnOO^;COGR7%hjfp(
) )8dp .+8p>N~8%GVj z#K2fFF=D6]kUoU8+Dj5X@t$BF餽W01g.n;o1cɄST,zfB`w ( 8aFI^t_tj !$Ҳ@8S= EԤ
yY^" 2Rj ?szT .9l7i SC Z A^^FS&*'-a .\2$ϢYy-VV< 4G&֨E Kjڄ} D(h+~qO)~o?]G [,"bO#]20 \DXƚcϜ9v_gwjـt ) IR*E]x'On+Gg|+ߺ_{蓿tDK~_?
=+t6ԟMG{/"1t &ډq9.}D1X,S
NL`CfD:,wƶcS>0 nW;s SY3.k~`Ody G 8UO6 N&"&\0 RDV\1K-ޓ$Xb"AN c ]=ʆWb0W@ E3 Α Rj숑'78>䜉o#ݽ]sGYc>8C!x xUj8G #t
$ ;N |]RL5VOTJ8D礜5quʳ~¬ #B\D= H .T
8 KhNFib}Kni϶]bC8ۧ˜ .+ /)oqEб{G/tTqGN|
~ Q\W;DΞ]^H8 WaԈ7
#$g~\ãSojىgy :%j7?hsɪPCBeB Qoo6ٰJ$jя`)O EL)ŎFXǛ(˘:C71&>yB"aZ}ߺȓO?=z E|
mQS?q{5R%5jnzvUpԓ8u u<>}j@tUo8љ(߮}\'^Vo㜄hmg-}
` -֠
Nψ3+|ބ`H
$& ;O XZlǼY*#H`\B߿a_ ʣV$vvn{'
qk+W䜇ģ~ `ZO6;8iC ʧE|`O$ѻU^{OP|vƶ>5""j^ "/K; 'ǍK{
`(zynݷҍ]zoEʓqu'_Y.<{jkTgycO!nCy rL) nyR\Z%ԫޱ۞+@r#(-=ҶK^ {CediPr d4ke( WCHgp#7-"妢y*@D:9vRbP6 A
OE&1bބ+l^xTl_ xK N?z e͋{|yD~Y 69nV`Re/s(jʘtTaP+(mhyn1iwLKT Zw>-gF7 BX^k9o,杂.tqjl>pUy]H@ |܄ @6dTa400u 2@:}S,kͱQDX2&9ĶCɇZNptwG8˧EJ- 23c\L_Da| `4.SM86JGe+yV|h3{Shuű KVҟ{j
s weY~ꋥ>~UoroLeْz47bO˼!?iS?}e醋z$A곞8KI(yZf6n֧`rr}% ǵ)naYGYĜN=_( w\[ 7v?[ BbXȆkQ̧*6{ADE5W j V뾤 O|ɻ=a}M38K,_쑇 :c2gb' d
37Ì0f@ cU- 'vZbB4 aim /Yvܽ{+梸%K.}P|j.=[~Nw =QqjIV n 4&8|J co?E2Gi'_}RWҨ9-oH$ V3Ō9![1[-V̋kV U>B ֙ə)YӐ n
`sX@Hm-J5dYӢАi#w;6:ի] :j~uH1gY9Z7jq] x ¼҇;+_x! <_~ß ?+zx5RSčSuֽD%d;Cy T Hb
n I4)|]gk>VL ] ~Es&J LOb|`3f ?>g$X\(`dB 6ޙ L eGgќ;}6vr Rar.
\x ߵko9@sW)> Y֎{o``MϏ~ AZ[Tλ +Xd_joI4 4n@$Tk y߭[*kqrOŃ Gj
h% (l@0Bz:Z>e.trg r [L+6LT!jN5 Ŕ MS'ln2 $F
$#g"Ay3P6Mw&3HGh V9noD yzϭu@ ~ l>aPc1Y\@V0)گjOQM03p!{!o#јoQ c,%xc1_&'<EńaO4o -zdddNL9jgΚq0_ LTő V9% /r&ϳgvGXoJ
M^C/yt9k@ܫ~Gj. m;̼
,L
!Zoo+%.StR1 70/$% [U ʞLlm0F:"iL6PQČ)7.XWlE$ !AcB
Y,v42fĚ]I+pD m[d/xd[f`ffLpAԨ$ű?rY_ 3^.k2z_$ȱeGX:x|^Zϧ"[5+Sna >-
K<HD #MASI:1 *ȫrż) E娎Mȧ959h` źTN] >`$_,qT7t1 )Jf4ܯR*3 - ̓h? ] r{z A " `VjdN MRdmȚn :TQ-eːɄExB-1 ^9@%İLXuTͷʇ'gdN]HjZkh1]Hc nWC^7?h
3>ۄL /=Xl'rrE w%tcXB;f0YL9Lm5䐣B,A! Ϗ`bFΚaJ]TCoX|Un,USE@" / y^V6h@Xq,iQ# *npc?( )$#F~9 Ď#0 1"io@M;Lh`)a6L̯
d*#3A ޗ8kȋ" B|afD$$[ Qh r K< O H~B4>L_5XlӍBm0.Qvy9Z j &P>چqd}$&"G" 4w$/AF Vl2k#ilBl3
p;
e./vDLW7`|$``D\{h e5PihqH4Vk\\`āh Wr2S+:`{(Dz{l.%`EZjeT~˥ e,0.'YƩ"q&V!QAxLT%ȸ!$ EB> j 0u1`vR)O& HL^VY#i-̇A` arz\d1O`1c `C`ʤ|p eR,s_θ0bh*`vF Śc
"eLur$q
ڑ({#$İiBiFLdG؆" cA0./jz YE ̇}A` 6l6Rȁ$O`6$6Mr693EQ1wj7 T <])š` q9%3\FzY}%!#IcK*S &E ydse`CE $դ@5"tӨqt&~2Ո;< ɓO$;:|=ʵ)lРGT!Q{j8:ر^T5Rlw] 7y*<ޭ ?1e4šQȱG8\A2"fWRQC qP8B8\Ōc\BðTj @N{h#!@"9)9hrJ2#+X)!JэXK6 ZjM"3`'/ Z T B L>3UBHfFͧ'T "S
cQ)ra-)i-m4B H.k:'UH_
R>=/1.J`n\ (樥pD64=x/xlCy?8(bq~5$X[E>ژGI-Tܵ1 KtJH35cX#:4̓U p#0Ml-%plUE & U6!ܴp c*T<.cɫ!% ZކqA1N pf1ۥM)J(ɻqB^bXG\=y2м
X 4gƆp TGy0E Xj !GDI%0B58́
h6ڀ*ܦtQTZ*xd#|"; [v}Y-@2TC6I-
.0-'@&PG| $=MJLl
͇O0#(/
%#6 fqM ¼k4VUf' r6 Mr(dJ]銪 w o%voMVpD*w-.3`!`gf$ʧ+Fz2691+y TmaʴH~0L:H7G 3wuG! Cu`a&#,Z<1@&
e¦ 0ȈAn@YDùI/3.pnk,^<e>$=^PBL>kF, C $'g*".̰"Ɉ`M&!cUhj) nF,K%:4*eOGwtl Ca`~R\0%j IMab
+RqE؋SpV5D *@5!L+ 8sN
o^Ji68Eھhmx:TnUeZ]k @ XȈ&6hXC-scCf,l ERZ*24PHf qQ d F ّ'b2d(RP7 bYh!`[& &aC 0LD9P$dR# 9P0ɠLy Iufk`<\Y LO!Q禿L*VոKS. 5
qݒۊ )Iͱr`4VA%
*s kDf
F-RIƜ
9YS5"! &e#lba| I *ˡJ^_%d [ E}@R8sL$x}|[!bӘ{V_ QoBY#>APf_z"1 ~N7L`t q.W{d< 'x[a6!\!D 8XW]:(O7Y;:;:CA娒KPz`٘ZՆZ{
˖yvZ#cA'ZsP*"2:g~J44nΊ ~|f!ǔ.?$ ]31&
HH닪#1L Gs0کìYKgbbR 0Q3Frȓ
"1s ӡ 6 KJbĔ'#`KMEl l 9 _H@<
& O
xBD,iẑG o1 BNR"GmHJEJ B \dt)3zV*Â"MbӮ%bd )h- H$L^>dKBx -1 p Scj)1oE+բ1e2S0DC RRo]JD2$ 59ƝD<}.`@ 9Ff4v%` k6cID@@*2z(+f |a-0vptu3%dLy C$X{rf5)9u#b3 = tOd9 q\j5SYxl4v:y!Kx5XB1UcPHg]ZW 3zp$0s F;~|W H&~eRzs@rļ_[[GgWggĎ){ b/4#Ӝ+x +2)PE gMJ&#AtqtEgdC2 |gwź
[1xEVbB 2FGcb⁘XmTn8#Z.vnl6yG)r1#L/
H@JwGqHՁekq,
D[0)!1@'5'b0yUo #O'&O! md M4^HAnQ
VrI %-ƀ ,lNitlz
|܍=m_ 'O`R2Hh; ⱃ1)ZGէ:L iLvyz֕ n|9A"j)L]r<]Gjjsk6G2i.HC
[5Q!lK_voa ՐTN ~N.B Y
<7Em LxBQ4`1v7 aF:jt`ЙeM
k3FS|Ft3WusmWߘ{)M0rbHx)fp#w&9O`1ejZ\ⳁ/b;N{;Uw+geV 5-C12 o>}v灵kڌwC'SyT'u wƑB
9QLmc2dErCɝc;$HՆB@@@@@@@N.ꍘx<Q0GV;"Y82Zw'~ıY1 #cxoaO1Z
bG |3zطyxC8Y'
YFbx4R)t=jZdKZ ͊N~Λ L#|<<<<<<2'mĔ"6[*82l-p%kl5W ǗИ~Wb'湫{!o_o ?Gu= o ї 퓤&5D>s1VLx x x x x x`{< o#cGC#], W\5p zW '; ꫶"ʼnk?~* .ў[_uxJX$w|o|8@ϔ29y?7ŧaD7ވ3'D8>ոOafj NvA54KM@DQrocj2!!O8)WMM_bNqƢ>x x x x x x`V{ !CF`T Km D"$Ɖ<,;-XF %i#^s*xV|&yQ dZ#{ѝm@sGs
( F7PSQ Ć)Fl GRea n4Z.u;vxeO=1-e>r6ٸr}k[X[ ]˘Wo[JT0F^DW#B<<<<<<0=`cw7c S&3o~tǏݼܼ q"/6UW>=~lj+ | oG$>~"0p)e|`G7 +sy'dw| n\j~0k9UFuNE<Z0pg>͒Ѫ
ӷw4P2'0_`:w缾wWvnzyUi4^ giw,׃폩'gn}*ů,Y#$v|X_S?:SU7=e\}FydI߸YC23e
;Y弌%y+ڛ
zI?3V6Gl=9G] u=1I ^QO'
Gͺk U@ "Z ҇;+_2BJzK/oG}v L /; %mo uAd@@@@@Aڵk 5n|/1 Qr|dJ3uGg
H.orOxpF4ђ`d@@@@@tz&q*8RX/pwޛӊZmfx~s+ΰF79݇yͦ,jxWKSqT]׳.7c;obzVũAcw4݆ #]&OW e 6;Oi}po(?Z/'#_^zLKߒ`A@@@@@@@tyk&Ӑ8{z ^)#fG7:#*rCC
6~Epx`56]7{3[b&^=x x x@EĎ#6ExQ809C%~ikz0Z")=Y#"hݪuL+# zX! :%WLu)[7G<<<<0v]\LS_,x(z' 5N%L/d0F^wrH>皁ƺBM@@@@@30\fNd2ZT5`Jmmmh^oJ5yz抻Mo}C-LIÓ%21kW4!?}ò{8d.}b_3cӱ
6GO/܁c1e{'?;Lz0I;>%fzٺhk &x x x x cDBD FY T*u|L Y!ߴ8_9b ? mo۲le'Z,5 B_F&Nߚ
_K
;H, =oPܚ;b
](o$ @SQjmdh1X훃hpvEI mz!ܦs53@
{=EwmzȎ=nò N:NS_[St$٧/|W$YntS WG^e)C9x x x x x 4CS )WkZV1Ta\UM[ZZ6nL1:d%{6gW>4c 1F= C߲⯑ \!8qK>[~ g6^I? sIѢG2(w𱱣BM@@@:YHndDبcOWTXFB,"GIzVc>PH{4VPZh~S>œ= z͂(>#S ] t[B dmGleǞpnPEED7;Xv)Z|4>}2@"c?M4پx' :J9E8z"8%VJ3c#iL7"o`[@/5FJ iș .79rD'w9g(> Q4 _t_
U#NcQϯ:/x#Έv7k&bh9G; EQcF;V3C:
Vbk =<f;Lᘸ?'T><<<<kFO@뵣hϣH]ZҢD{Ժ};'=@@p7
4M/w:M> $`x !" wÊx1je,R#wa
@=Q )_xExYW: / zl@ +4-FtDD
iV1=}15=5>Kܨ T죫*C!x x x x x` 4DĈO08loGx(k5D,jǺVa:֭z|؋a#|;꽀i\_̶Nۗ P2L{_ uú;BbuC{X)ώly%:kpOB OzInkFz=!}xv
F=s?vwp{"
iaQ3})z a%}?j*ιg-o:gkӺI([Ǎ[w}1mbfTjh#dTA3厎rD= =(
l IDATnĆm6Ĕ%l=Xbp $p
g0>TKԚZUX_}wߺctݩLmO kƹgXjlm}"NB++oO Y!,G> i1tn6bǶ]RHM3߳3O<36N6G.{ @V#
7]#g] ^r (G=sј(QWl=Q7Hl!q ;Kn4ɜމ
v_oP 3dQpqDsUj'k[',:> Q%rOɚ /fN ۾Kc!FSd4s>[s:g5 ttF QWO uuEݺqc%Ȥ#KPQS ;ocL1 y)xK,Jn :eo
=ă& }
;S1 φoXv>=QLO´|,o/jyēm- fgu+wV푎w=!j0`(6/}PVH~:K @T[+19G<4
$Pg(OVk|HŻHNifVW}_8a#I LRi"u8aQ=PTAVמj_Z +[jv KpO2GLt uQ$0^nܼ kI{Ǘ (fbbR-"66.'8( ?.,p~ ?\)7DTMC_Ć Ax
~wx|/wr=Pu@X3k9(5ڌ) : @ xBAƎy}_ z\B숗:^r71.߾ --kŧwݗ]vYU "G>RF!p C 3H>_j$Mç"| 3h|wM7^%|_ݺvM4םT|n9 4h$aRP-xLηZ6q܊qM@pwV-N`eit 8US@@@@qum6l8-} u/Z;<5 1Ϊ=z.Ϧ%qNy ~-7(rg{DBovx^Wn(Z~Ny]<3֮ F>h'N7'u'D& @=0 wKzB8x x x x x z`
3-7_7mXmsB잠}'\ \*j|YXvz *+ ׀iu;R\WyߺV < E⋗-؏JoѪU'm>&Qmߵgޜ+`5yڣF0=) e"L䗁)8j[?v[;_x(9 /^v[qp>sŎo? ioBˣs)Tm kS}?\<:5"-G*3[v(xIQrsp]5o>攇|߉{6]pnL a_`j'ٛ#| txN/
oZGŮ'A6'iVu3 8B!ѣCSd@@@@@ j(*nnaSʞ:g-x|q-8;;Y a =f۳~CgD;p
Qeg
v گ
r-Qa&~yM;>v߂Yy$Ti@b]TyMvzfZ+҈CqMtiPyCC7~,\Dl>>D6L.ptx
iXxuk7L+k)j2&d)F 5ozl~p|>m] Nt #We3iL=;l|f;h:[stΆ4y+p)&2ߺa}JZ@wU C"Of-rA .]w_Y)gN~&®H@6Bt:8 ٣?zc.y`rc#i*kOߌxNNf>v_?>-!Zxn ~Y|9U,g a%Ӎ_+z"lCkW&}OEgwCr=9L^n[yzLX}l'qi8$;=ɘ'mf`GөD7>lԽ?}_>s;<<<< 垼
r4XTܔ ^^h PjƚU%dZs
ϟJtr5xwE<4
]ř]3o6 b hqn
4,M-XKlƒ-dE@v) )k";W1Ɉ ,d$V%ge9vèiXw_ LSU9u= 1uT=U}:Yk7x[] >Jۼ*sÊkͼK\A m
DUۑ*LM|NͰJ#),j>_ :uozjo )B`7zVc>^W# " ( _t Y &PpL[ ζKg09p7&7&ը "Qkn$a0FY ¥ND!Batgv}W? c*v,e-GhD7dFE(tDPIo=vPu
uc?z7;G5 ;d8?rox/߫ݎH9ll>sch0VUUf )KիO/+Lc[_s$~pt \,T_w'{覸Q}}h2}q&u^DdB @Lќ>xKbG$kl;oUϿ5P:n+{N<I2ńQ[{^]@G*
P; e~\ʞ^jb z9ƴ+Msvwْ߿zt-:z?ƷS __zlncA^ 0 Q8j ^Uݩ hNI*8%*;GR`[,9=zx"w2ݱ+mcw)c}<^t :zZ)W92@gi;RJg3ѰD =JMIj =Kޘ
fIyKu}F &Dwݣ4&P! 4 Gw(}lvtUcϿLw1xrT--
E'x1+ ~PےΝkWI֙rMV<[.[LsDgꉽH#o9q漷^e&&
POdùNxtf{ ?'@ ~uRa J hǹ_mGkuŜoڵDj&eŮ`{r\!z_TE\o\iGsB6MՅEu: ĨD:>p6͑Go N}蜲=l
B^/k A.Ѿ
/@ Z ? }
y]ΝZ싏4w|rf-`U%6ᑕ9:^>*WצLLv+8JluM> K/degfpKIԾ2`{c>K D)<4@ @p Eot.>sTG1U])%ڞ砓 wte{ ䷽ f3 op(؇'JlM9S9 GO
&B(Wgˢs+. _,IO߾W6 y9 X
GLƲgإÆ|+D(3(`};ߦ1 K֯4OZ,: J 4cOqäݯ:7Ͷ8t O;lӼE RzDSBf;(t5%/j\9tc9B< @M1[l`
QkOd^?՚v}9ɑk<}LbᆛۣL_.3SP=ĒqJ,Z`B߆?JלvBG<w+GWi;6f7
N,m8銧n3<:C @@.jkv! (%b٩Zs ӱYJ/'8&艼N&Gu'EJEZ F,=p9{fW;ҟ#s:Rri5}f%{9ZyZHw$n!DPK/uK>y i k-w'6e3 ߔl4 YB*ƍٓ~:c9@S8]T3Fg! 4 @ O sD! @ @C@864 @ ?G 4cCL @ O sD! @ @C@864 @ ?G 4cCL @ O sD! @ TQ^I-=@8N4 @ hR&8
@ q @ hkcL @ L 8@ @Y e' @ Qx5qz&V! @ @@86ݔa@ 0=ÝV! @ @@86ݔa@ 0=ÝV! @ @@86ݔa@ 0=ÝV! @ @@86ݔa@ 0=ÝV! @ @*z<'k\^< @ h:x n0 @ N @ n0 @ ' W ^gbwcçMզ4Z_SSӃV! @ L`$̋yis݇Zf @ H^m|RϩV
XcR}-wG;QMVD3[^ f ˯~4 +! @VulT}WHǯl {Jw=~`t0"Z74]bkܴ @
Ov()WsvO
?j- ?[hdC`2 hߧzvF;N&hlC @9 mJ,Y~cǣ ? TiݷwۜĵowG6c![s j̈@P:uE[fJw=S ؊
% i'樭#O; lG̵]IIW*[F :u6,z*
%Pr34Z
@zn{^RoTOZAfv~" (Zu~a<ϥ @m ϔȿ7-t 6Lk\F6k`Y;"A5J]&oZ7 &.-g"A-' M
^b؉v@xwYloT< wF
;:E z gֶ~7 ,(UnN HPnmMHLVX(PhoTg~7[j呀 L'cJdV
_N;-Y z. CZz䜮ma뾿҅Z}R-_VR%OyrwaH蒈beEb+?AЋk⮻ "S]'PP ҽ>85mD+f$k&YxnSuso22*-اbh - *dv) fXF3:Wv -8-
+AEwoTTF'Bhf)@ tE8sPYg;C^Wtȿg\h]dd'R|S]
u n0exedƬ@QnAt[3+ĭ54v8nJZ,TJuҽ)f *4, 7ovx+s@ :x u/?YzMY{nQ_n;owO/ꩿbjf.,臭( %"*:+\
M=XkZ[ 92f2+Ց(/f㐘)o>LPi @
R㶾7'Qumlk IkOxjDN#$M̲lr;Y,_\^c5-r8pgbǛ^uw f;wcAx{E7קnvӊ7w8 pP ۩,k(j9'+`PcAF}ȳC> @`r q?vo9ӯ_t y:ޚAf߹aIU[2K+zUdfZ\ eG*2U ν6'%sFo%z)#fc^^ m 9MʶhZJ88cd~ 4H5@ A8~n 99}QG>]c<' =C}_g] SzчV d4B ŕgv^ %wJ' /+orcE[-/ Ga;n]ݢ͆O ŻOM8Ӡ*Dd 8 GG&IW͉8( 2`)` )!PR >{/e:OwuRCGmW q}vcܸ5E H슜;Lolh IDATX
B[#O<Tdnt`qk'nR Iw!lT8#o:{s@Nſ
b!l"TVeD;*/QWًrLf1
t"FtcHO@ 2-q/WTaUܐ갘9Юp1Y]9I'S`݀z7
~ED'RG'%M69Dawm5f
,GYz$}xqa2iOq+XN@LPI{F9Or>WV hOמn_@i y`TCa @_ҼR gcݐb 욺~]bL}v] u@ǟ~K"M8"km隠tq&9&9ɘ @1 \+WG7ݼWT# s0~=Aݘ
JG>$,
~
A. @&~2~O{7/ @ 3tlJ˄4 @ >W>dx cw^x gwC ?z@ xk/q Iǟ3)C |B 0K \v~A^\" %k lxlR @`fe߿qxNiZ&bSuKs%{<-=Q@ 0I_gע_Ac.Ib#fW|V-L8^1yȱ @ @ $ӟa݂ ~ ְ4 @ &ԟ&&&?c _8nzaTc (NJ%Z<ύPQNmJd;t8a$i_*δב>GS>tɴݧNL$hs&6S> Q @ h?)- eӽT Fw8iVD;} ])) j۱fO5Jh~;loT wF
;:Ez gmY mߨYd@ L>˗}2iF &w;+$bEXqYѩ=ka-/I݁$ ^\w儽7 ek9f$/1PW vH
ִtձ@+;t[0E[7 *7̀%n4ɑQnh JNFG @`fuϒ]^hu-Q\#yigc(AdxZFB+ʼn_:6ZLi/ަ^Qa
?K3ht@VBҔ
IZa)@ @VhKEGTy@y\@ )-
dkG7nG5/ZWjiן ,G]eX~)@ !U8
{*'
.J@Y?Jb~V1&L)Z7 92fYHu @` LTuN5\Nnuw=#A.Z?=QR
CN+sS6.9 DD,EҸ [oƦr_{M+Fo
N &0 G\ZbI;NNWN_e@*O?Tc,猢tV1̜>8${m jkv!8 K @ 3
GX|>n XT7(R[07PAXA6c$IҺ E7V9v\xVɁ @`fޥjQ,ܙgm\V#O<|mY{O6tokw1oO*u\.Tb) EƑ7eڇ!"hÎd8 e @ 3z #_saؘ b],BGc(Eҧ!ƻ
Sg:2xVō^6U
5
Jm ,GҜ%z)q8
@ 3@Koo/N3kQzhh(Jמ9!A6& @ f=N/??Op?ٺu4{ C *^E! @ Gוּg4 :@ h(} N.vMw>! @ FUEC @
qa @-@ 0 g24@ PO
. o5l e^ɹ }}l5E'3T@ 0 4p4S3zBOQSt1C@ @3' RTMOGe@ 0\8^$zSL*hNV1.@ ߿u^
hN61:@ @h.aT Eq]W#qO~k7k }=zv9\(1eK#S!aDer(ɨK$ @ @hpᨆt8`|؆T;Lm8kn:~fչ >wxDNL7= @ hH. K@o~9G GG~Ӆ^vvI^ oz훝KV =* Lf}=GvсZ&rm </ eZ/; 9ѼpqZsͦ'c %_[& %^o*&2Eɀ @ 3 Xb5 #z^ :u}H;#wpa'zf|T뉯&2 @ ' G 7T] LG'&qSOu#!c ̓MIA M`x 8nNl^̜
#cϒMW @ )fq @
M C @ @@86\@
==t 4c= @
M C @ @@86\@ u=l-P"%x)?D! A Р'fޝѥU4% F{mc>&@ ,_)?5]ȳ_¦rW ӕ~U" @ E`rprmsmbX?̺%ce G`x gޤ1"@ 0 8vݵo5ģ쏊Eet7DlPO , ?9Z˱N:x62/VԮuq,9
9ǂ{FV|7pjw:] pdEdKYJ<}jTF6g&a
(T*F`"3(o1Od @>(N5OZ sۖjsy>(\(qqGJ5JE&a4_gĥR=3-R{w"[7d x~6pn=fBLy"babX|Q,b]`=^f vO@ L #ӴZ! @ 7&8+O_U~1.6iG^CѪ^W5V߲Inm3 #:>o>G{HkUMe=Pڶԁ @jM "moXsYvWQ knZ &ϥvF֣FZ9=FwJ s♟nٽ(:2 pe.)*
B ff1R`t
譐O`c:=F4iI)G_Ž @&}o*atSqT @J s]L{Z;W$)*)/V gF|OQ CGtdϢ
n?{WR T6S A<F.{vCzddNɴmn?mL9 L
>玛Tމei2`su/sKoMW*}
=:`A Y6?z鶪}*Տuoy*֍:SM5䑧ӕJgm`ךlt[< @{ #cb&rb,CcR#gn%=)Zl ]^ E#$\Wb(7>yxd;iˎWǣ0 QLB'z @ *ӟ&:sڌmG __dr ,WǕ705x 4< y~x_-ϚKvPvCNZyX6 [&銝%G(ex)3^F, HMDZˬ;#?ݾ1̨S汗LCW4U }0tw0, @<%Ǥw4˵3o)s2vP]%2 U ۆ(
@ $DZ4}tp̐A$^:&J @K 3 3`|3c3`" D=i|qh3ڛs8m8zt}Z
9
z
@ Q \$za4 Lg(> 0 gұ_~j4O~np$13F$& z{ '4u]6x- sy\z~GkԽۢ>zuQ36&5DOF- cnRЖDݠȵl?ʀJ$9ve-$FTK0nĢL%nfW]ž߄fؘ m( ԑ@3P+xĐ*E& Y_8TbGݜ *Tb.oTPn{TMͰr!ЯV:OۗN,sp :LpX0&81ΙھrMT6P
;mg8#MpP,SH5ӥ;/Metl7^ϼ&Lyˁk Y'\ڒׇc'
+ִEOyug=%ؼ/Ѫ1v 9vG >ej< L&8n wQgUݱo kƶM߸X?׳C^$SQ"ݕn+j]g /?M E0z%Z{=6^v +, DH6X~Fq쁽[x_.>ț{K!q A-#'Ux
@ dMqT)ai"гcc[ s,?#gQSNiM $uj˧{k Q(1ѿ, Ni"Q^nU0U@4Q(jZ_ {5VYž>B5>$! @ EcelN_g[/X\1`e_Bw(
]PB (+ixbBd=5+u6+__ _w;&%枑LX'
M怱
@ % Qa3!2 Cq-6 {_V-Oq;f j#&gÙ؍d9J&m"ׂlЁA0;WfkIa fڌ& QIj_<Lۢ{q )|S~o%v%3w m/$Z ]>,s [_-T
@ $ L&XB Ⱦ=]~r\=G˝o[g[I Cݝ-n(KCyV]hѭ {g|sSu NhJܱ]@9K%&!JVTD(B6b>U?+n!4Ynwi8xlLo/ J ҺnkH?~;7lye'5D;%oۣn L
&8Z_H cp4D .1U]-䕻4w̞:d_2Pz=:RPi4,`?GKfe**DzaD&FZȵ%{Q輣GKL!}FOj!OHk0Y;@ h}[ZZv'&&vuA73J
EiY p@l r @ tvÏ>;ܧ/On G
-z
(^(ztuA j4 j5eu={{(KrOYh ԗ xJp~{ef< @ qqK]eC "DZ7< IDAT@ %plةc @ k>
@ hX3e #/0=&akS1j7n1Lݢ2
g/{D/sNU9wkt^>>؛zKU54G 3(vUL]uҳd f%F_x%l 8vuv{yvĝBniicsϴ|lc&o0 HbY?Q45+4Do9yBU,f3N
} _867z?
.5jkcdQd~@ x:9DE"nfldXHnЋ.|ĚxP%Ydc֍F+k"IS7 mzIaZ7Q_K%mA7)ѓ(JYuEP11M^è9▻F2 ?^zM6{mYU37w5Dׇc'#>*5̰
>! @ hj ,6R;m_;:qN^ HfҜ:&gJ5z$5QL?̳E&.Ll->ljqv ..ui{S(B5 VOS779S7nW[ԫ ~m ݼ8o>m´:5~uL5GG~/3nZ8JK ӱL P&mE} W;Rja חU? W;fU)j:ñ2ۖܮ-+7z˭SK -Q4(iaRxuWN\/eOŜ&Q$kݴ+Qdz]Kz#ڵ`Z,Ӯ .U&S '{bU'lz;gtIY
" @`
KՍ 8=*Q YLK͑lB 7_zbqCGLۄ}Mwr+bdIra
gM'A"l"a g$9/
tG[-Mɳ'WoɊ xuj).ݹfӓӢ_̹9jn _"+6UwNMFvy!8!ez :$' LRhǖIkJ6bW*)oF<$C Ƅl?gW=ݳl~Nܱ=Ӈ|'ar
goݱVNI +c&G6d#f\;[BK9 fUcuW}]Z86u&O+6ntZcƃ~<e{ZYR" @ C 8Z
w(^A7 JاO /9[Ma~k9J80j_R9E$Gz-ve*$]#z<ԢA3kPl̵NGS.<3hK;&pt9zИq1OHjdz
L<0]g'$ @ f^clj˹տPYbDkt^WUB f<5NfskL)&W4@ htx } @ h@ ±gA !{ @ y&vu>1l~m9Z7FyѢ}KliS7"^
5E6[d#1EQ &@x p ~#ˢ}eLlwj8*<}(4-F )#гccRZfsS2}-yYP qz ;Wc'eEi`qgReGWtbπ5aˆXK 1@ 6Mq66Sp=q5*͜xU@َy,S˨ _;o)*'a^jwNYXo @FqqV?Kok^ lȳT7QTQi#*Y *XHdaZVgE]ZoRөޖ Enz>ո{-XO Z cf3ޥWtCdn; a EZasa:y qUc7,OGG߮
;¸kH
5~T # ±q<(9PpD Wt ?Ђ һ=ɱrgQsOZ
F0t:B G&Eg!ՓӾ]i5,VwHHTWy$N9) hʛOֱJT I$K6U$q0Vou MiDp|B}H>X˵/RЭM?{k"B6a&OrNpP8@^Ђ> rC$GRy#˴̈́T ;;`@_gU&W|^--SXN @x H{#r+dT$}sv>>[B ݷkDq~ Jl,K
3d\ěҊ*uɑ-q쑖 [
*a}NҸe(<\"ʎ&K[YEJC &@Koo/mh] KА7L@ f! } 'wO_lݺ <셻mʿ xlr;~fޣoj-NC 4@ $hz; /3NIdiLM4B J 0^8~ݼOo*щr-UVjC?j9K7082Mv렮SZQe-AG @ G5Mf:u}p]\$tq'u1Y}XcݪuK^7~qW_B @h~|1ը'
QCD>xf][^۽ۯ l3snSj` 1E[@ MKyc
2q3qc5Y <ؿ~okI;G>*DP,Yq 9numz`=~Pm1/ب0u}F]ο&Te$ 3Y
J7iY 9`sQus w]e{ |t缔n H< /G>ΠJ>(%q:/l:}}F˯
rMwHA @sh={&VU: Nfgц=ш
YkN'}*AJ_`tg>_8[7)D\owG! &$:9eIQ7RjK~$ ӹIt{& akOdaU>[(}ȳ ~|؆ ;||1o=%js 棯-[ank,,Ӈ؉g~`ݎy+s џ)yXO@ hZMql=#nUǣet(Ð0xl9];*5l$X\u_j뗲mWnw)Or: ۟ }u=`EU+(V ssL3BXQ ׇddГ]e%~}<[ !lTNa Rk8
J] N8z훝KV _I;PXHթda^;TڇYo9>pϐSWU Oi~ f 0s<7- YzNZ;[,G| >3rxpT 3.KX-:E1t}y{Os? -T=*~X1?^-ۊ;] Uܒ
3y¹4"G'
L\'3?g
zt& @ h&$F$p|\/7
IR[ '2Mb`cL݄ @ M t C`V1+A7\M0IE<ӊ! @ @@86\S@ 0ӊ! @ @@86\S@ 0ӊ! J:oن\4ی߆&pls({Ĕ}gՕE|gdؗR;zT|esʭVI}zB+X 252J У L?=%`WbХ?;"fP-oQJR8{7*ծ~1enXUI^+1>+_oN=BF6s*gAJC 8sAO 0?꫟K;C.F_mU" Oz2}uuZz:
$4"Dc? 9eE e*r2w{l*&r IDAT N*S
ܦסּ=bѳ\u mP&Q):!j^31U^7"plɠ+uΎ` gLW۲5̅Kj"%ͪWaO
A@v}*Q~ȵ_8P E 8Yd & ov鍏p"5h1\ۗue}f ݵȑm$$3$tɺ̅Ea}}k}zҵӸ B3 q$!Ph (CkI1bedo_+%~JF#ϫ0(D'] w.U]UzzWv }O jn.0(%#2GgȚ3wn@H"BntrK b4JȖt],E鴫ٽ%qd߫!1zv:ח*j jZ{CݪT;Yvr=zq:r!0±E~ rA h F/]eNYww9{@+?w]Y%A bgT
#i~eFJUw"5~A٘a 8OQjtT47!}^[B|uQW`g!H/gb]2pJn]i* Xx9h~x f6M0uhy;*uhm{ԪC95wV6vZNvϓYx.DΊ[UiD]-|~Z" 7@ 1 @`\'"%oC maTkxm1x0Ҫ*mR;UJKW0J *mTA!TJ'V=JE;_]u{5y')
n 0 QVYS̘ L.@KNq$ԕՎ7> p-Jm C`,߯Z,yvfE~@zކT`Quyu.Uǔ?Jխx.R |W<@ K@NւoD==Ӑ($ytKd]GѾgv4g#~?sN/Ůʊ{5ƾN&5) Zvgy 0 3уD]"|
OpJV:5,Y5:(*GHwh&f-
I@_GJ:ެ\Yce,t(+v1WzZxX 5,#þ0&ئiKSx%dYt.sJ%֟ (\d-cT"Eꘞ
e cuI:ٷgHF l3F!0DO^x맞ck)zp:QRK(jZ}u=Ds(G;3"U~JSb ]SLT,.,m(1%# Ed Dt>0
'Ay.:ED n)kۯj ó
")L,Z'J%ғSǞgMAz)̫_Q7lW{K( 1pC3]
U giϻj%ϖ.=˞^T0^lm~c8t";gg<59>:\ݞ^t2Qպ?3D]wB`@8μ9eDhTxҪQr"(sjY'[=صTsѭK Kq.:PiNV ղ緧3@«I, ZY.} 0:brXil
MwtmU; f݄%F/vț}sӻdtۙr\1dwhܺ\!R$ +*chF5iX{xu`?΄ jrYFNmfM
I ؐB 0
JQK "f|湨TuVd`35 ԗ K5@ 0c g20@ P_ @ 3vj @ /c}yb
X; ԗ ±<@ f,㌝Z@ K X_X *#{X MV1/ 9Y*u'o TRg&ғ>*Ր~v̉ya-;rla^UrS٬eDn먴}e$qZq 05FU7cb(NKQ=K*"ֺ/miػSigDCl2s^Yѻ16))OJ};U/%ҹKu{g4bߣBT2UMD4k>~42[72[AOzU4 ~{=?H)TD X.
C u%`y8O뎊 -__E^NBm]
k?H$oޞy-< 4>kڂh iC '\tT떫~
8zZ6J4ᑹ*u*Z
0eS ?jLw%nD]mkW^&ժe]ypO\[Md}~D6^Ι\?hǝښg_K^F
wporj52WH r6Ép['ŖO+L1v@+F̷BQZDž`&FTNV̴hsJYf̓Z k%H}@uSVX _9ρJuF;,=
jVf<ܦդV}P},/+V<۷Z&d@1KthVvGfqzT 2z:.AȓP/4f4!k AB 0%tBr/dI-o2ramvJ>nי]SI}0[{ ^ n~I@.u@`ؽh|rZ]ٍ3|[u#Z.nvg֣)-RD܍jg݁|]3-rs- :Stτє(u b^e$Xm֑v9WD <@Q1Ƀ;@`Ȟs7r{/- :اJ m;k-,x4%W^ó Wldm9i-+|[ aVK:yKCv]#ߥkV ۩0 ڝ7CIo @*"S Ǫ@R 4zgۈ`D+fx\V>b۳[+Qg&.Je҉7R~PtEѲq4%*>t̽ Ox5Ufu˥ xf鯢iG
C5569,I~ { * wO YKu:" g׀C ؓM02'Ñ @Uo| aVPȢaP pĽ ֱ맑}~M Q/JTHb6c+w8SWbEvf?G +}]ovD86ɌM4*uړzDޙб mt+ #8Z]IGf:-%ƍz&e< Q>.쳔LG'!Ql]tL}ee^8$݀CC">U2{+1<М^/l+@8cqV &8 ECqיxvt{U?F3MWK)Gm&kBшB.̔.ڲM:UH9giҼu&B oЙԱJg3e!#Ojq/־2܀kf{ͫiyrWh&3m iԅu:" #@Д JԎw8VhYǝ֬3Ovd&cYб4 WZנ:Dņ's); ~N}Ż*sbWhU"Y۩z^T8ivsd~<%Esv$Dpmȋ|"rY@C@86t^mxT 鮘;&Z KwRg/RTGY|qc`Poheˎi _ׯ/ygU䣪t6SpQvkꑽ/4/s OLM`#
@2)6 x_`7F4nSNNvV@8ΪfhPv9}d{ mF,A ^?ve99%;hgEhǔ 0 lJ}`WJ4-kٌ
-m4*]
%+^cwqP5o!Ox#mײf7F& bf*{] O맮OT&.zR.Q\ǝ0 K|CcK,*:w,1.I즅oE5dioHD[lJSi[·.H;`첵~\;kv>B# l'p i$ ˠсPE!)61A v'eJX Q}@JDZ $ f [$tWZIt8I3Rͺ=HTq6 J4* ?A9]FQL Bx&D r p-_E( Y@q g. f m`HOj2p<%SΑ}u9<^'
U^ښc/7ٌ|ؠ_։@;RFN-BP+jE;n eBVB.;E*MRHO|FA K`V5C{ZY+"/+~v
bDӗE&HR=!tr8Zru? DofbV:2ʵxrwɯۂAoB< P ±&
A ' nJ[Jmih*Pl5B KLv\.69?9J7.Ey:J Kճy; @ ±X @ Kճy;ĴL P=<ճ& @ U8Ϊf~E |8@ !p ! @G B @ @ 1 @
y @ 2 @ |>*A d 3HȀ @ @8@ !p ! @G B @ @ 1 @
y @ 2 @ |>*A d 3HȀ @ @8@ !p ! @G B @ @ 1 @
y @ 2 @ |>*A d 3HȀ @ @8@ !p ! @G B @ @ 1 @
y @ 2 @ |>*A d 3HȀ @ @8@ !p ! @G B @ @ 1 @
y @ 2 @ |>*A d 3HȀ @ @8@ !p ! @G B @ @ 1 @
y @ 2 @ |>*A d 3HȀ @ @8@ !p ! @G B @ @ 1 @
y @ 2 @ |>*A d 3HȀ @ @8@ !p ! @G B @ @ 1 @
y @ 2 @ |>*A d 3HȀ @ @8@ !p ! @G B @ @ 1 @
y @ 2 @ |>*A d 3HȀ @ @8@ !p ! @G B @ @ 1 @
y @ 2 @ |>*A d 3HȀ @ @8@ !p ! @G B @ @ 1 @
y @ 2 @ |>*A d 3HȀ @ @8@ !p ! @G BHr繪{gwfWP@feV\SQ xs 0r@ /xA Ĉ %c"&a _Є
CWL" Kv\#=?=UyTuUuUw5էN眪wNUH8(@D@D@D@DcH8(@D@D@D@DcH8(@D@D@D@DcH8(@D@D@D@DcH8(@D@D@D@DcH8(@D@D@D@DcH8(@D@D@D@DcH8(@D@.H IDATD@D@DcH8(@D@D@D@DcH8(@D@D@D@DcH8(@D@D@D@DcH8(@D@D@D@DcH8(@D@D@D@DcH8(@D@D@D@DcH8(@D@D@D@DcH8(@D@D@D@DcH8(@D@D@D@DcH8(@D@D@D@DcH8(@D@D@D@DcH8(@D@D@D@DcH8(@D@D@D@DcH8(@D@D@D@Dc4K!
8|Ò <mi'4bP Xo" " " " |elQ 3 )" " " "p, ߽я'K8ǿT{\_;%h=G\y1wu9q.ګKYѻo8۞!_[(#אxɴ_4ݡp-< vʭ2u;`xc {r
P]*|#zUfq@#1j *?^~:9+m' YW booh' G2,GJϷ8ȋ`A7B; g퇾ʙ8͵>|v=NmSx=ɠw7 gjGjEǁw~A QvZXvM_p)p6"vJ:ƚ^i$I/`+ x9F˪hs֙3gB07 49 pt8Vx"Z= O̽wk*#w /bNg'p
9mp>A1NK_}NJ3O Ɋfu8xU8/_e},g.bfq4 3" M 2˹εZg6 XrtdZ *&v1~g/]xzau#p7r_uϦFpu=+mNחe
JpsW
nfqⵟnhu |*ۆ40FY mdOʫW, z/b 3nn{O/]#5NhxkY t!/WrȕۋXX]y=GpnLZuZrcDvX3a&ڐ(\ƅ>>eKoiy,Fs/p.$g%!]i'"n$/X琤= ] K< Y ($byw>W]vL%)D?eKNLZ vi±qcsa/² @2Y(8^zL]..Gɹp%Ѽ 2 "fCco}˜7+ϚIj.>ǚ$yRujaaR_~.>dAALM83 dnjySWݪPw-yd˿ Sl(nߘc@m I ˠ <|{3^+ c'Wk=m2"gy%; ߹36!cԣ RNj^ J/b+ ƙ /vd
Ň9Ez}Q5RYPe9MF_jɫ}FRYT#" ȉjԅ K1%ȃad`f!s# T#&8;y 1Z XY(E:Y~Vv9֡y[xB )܀.}} =^W_Hj{:iJ3y'6ʗ Q翙H L=ԵЬ}a7.^j/>xw1\|ڐZ7&Ԁ4 ɎpH2:?ZǭFoDc[KටPIcXe̿/L[\7.Я_1qiCcB洹0v>^$|7u6)e5B<&zZ{XtWv:e2S9L,,6Kq>trN7?9]]Rh (
o Ĵ"9xs A/<^ /RmCw
u?k/_|o111c-f"BN[ZZ9fS9'KU]']vfoU1ysno GDiI5NNX0R|Q0E 9\ʎvwmNs]nVNAN.YIN MG}ۛl%b6Χrp;̢~]L5XYeK}-֫ R4r O|m5.Wfg+j0{m0%X|#O79r;EGbFWS^ rL.}՜>l_x`K{ח:*i|jrݷ_X./-_ t(N2a%PwƭN:W'LNi76( iSa f﨔qI)?s^ua7Ko \]eC)*[)R0=O" lg)$ Uhkٚɕ;hf&LpP2dQSvD?
"쪲
M2 P_
f";#1 (
؞tɎ($7
⹄ь^II ^ F1Wbg&FKJNPmq
u3+Em3[w oj yTw,.JF`:/窱gjHd^pJ.~ .Al()>PޟP1~Yfŭ,iU"pX
=MnFT\p"Y|WԸbxØӟnƿ#sұd2;y;_O%Ts2ؽ]k+8EM),qT{]NoǕ/2K?L]'x>Eoޭ6KRGYOv|=)jF=8S8ԭ TZrU]]j0Ǵ0|;݈~+Qc#^33Hgԗ5$p/3"oj>i M$Xz&w^K<_x+x@ I9 }MZ|:1/
I3 _e$_s l~we7WB7? 9/NaWD6}HmElqp8u:9aRqnE'CG=|i0RM[;{gdxpR 3jk5**Ɋ0t{EAơfeM6`bm+qƨ# 7ΙLĂA>f:nmp@R8ƞ3ϼKك֖
|_;^7Ǹ&'ҏ@IT8.*ۏFs? U4a͊:X#kuJ l]nq7PX og0DZ1õ^]?L c qO0%%"p\ q{*F~77TP8 V^k6^0v{űz7VN5o-Q" GQ Ih2jțӏ'!4aL2ܚ2Tm8-~{WI}<JB?O*(" " " "p\|3`* AjFopgB%" " " "p OU
/?x (E@D@D@D@f@ FhlfӇt U" " " "prpT1b5
8 s#$;>/*" " " "p 9Қk g> XKOƨr< RD@D@D@D`n. gg6!"]w/͢o~}}[D@D@D@D@@QiL $TckP ~PʬLE@D@D@D@vAVc\1Z=,61`=q#49GlPsn=xY~{ݹ]Y|m 5ЋsssP UvjD wO 5GD@D@D@D`foe<\BקHL?KO>cѳ/CD@D@D@DZ5Nmk7o<4[co~[x_Kp " " " Dž@ {\8Cg' =/}0qm 70 zQ ǻ}8!" " " " uaa?W`cpPqD@D@D@DQ7Xp=xV& 38_S#LN_{E@D@D@D@fB pw8T mos=`_A _,<>35L(:A
OcS { KO_٧poj:ET YC0H} _xut 7; Ӓˤ#H43(E|MLm~ ]? o|Te4iDW|xӟoj|"9ƞWJ\D@D@D@BLS/i.P8 .GjG cV2WD@D@D@@h gq "1S }-)Lml6p4ZjFh V8bF?q6ܸqcܮcbj_oy xݭh5,zgkku? r+7%Kx~Ĥ
|vp>_aW;W;.|xzD 3l+Ⴘƾ?xaσPzKA Yn Ӊ㰏̈㐙z-EŴȍF4FG|k1;#vAӶf+̶[ɖ=CM{%).AD|v 2Y Or \hI{ozfAH?U ix,vM h|*+/^,F a ^.MV &:ei
*Vxg" bg0gF < ZlX~<`8&YZiX)`;$jJGN,5BACgg fa3~%!,
2b
Ԁ"vdb"׀A &D 0M]"#iE{4L`xW}W >OIjPWկ|+LD\EΫ|ȁm2w: 7;ݭ- =ׄU! L :9c|wamG8hݧׂpd A#qqۆDE
@)A$<"jT:Ϟ҉)0D!;iQ@'L`QchfwQf,z&qL1Y@/ {;dI4q ScIh1YChmr*{ 8r!Md#1}h.gDtg6qȰ 1 &$l=p=)p(-ߝlnf= _jR6}l-r-4znl}jE {%r.issWԙXwOگFР\BLy!
яRC@@0iY_A5%ڌ Jnf\"nD/$SУcuk#:~(%hxBR(< Qo k'@y¨T& !) ㈢ƮL:ı%ow#r gFgN 87&bt7PYMTV)XL͠WGFR0Xv4%8@faQ7XϷg[ggG{bN ?|5tnZx[3ggPMÚkh6[Z)Km҅j9O1ƭA`hxjY
Ϫ[P\r a5Ɖ]lfe%.k\X8j5JG-҈3Ucȭ, DjLΚfمnz'h>"p < s=6{rɳ1H|,5 µ-PR=> *^/o! Ë<֦cW虇_ELk} a 4c C qrN$m JvB.CIQC# 9HIf sn<
M@8ÖfdJ G7T!"ǜ W)[(4Anq@27,HL(a[`l@NC IR`2"TszCN954h̓gr@3#6'U[\%7? :n7
tC6bex=4MA'DzԀO/IpA ꡥ,
vd6'D -i 1N
{A uFD9,$?fk[(, f
gD1~ Q AF88 ͠to.V$ 8`#a}]\w旿~V9Z8ےQ^2Ob]GJ?vX[E #hqRZ/
Z8 J& e]cW F [C(;mL>b|C@ǩOу\1̆.!R92>qB O42H*U: xBWw MNE"C`>h9ɬYb5 dP<لADCfA&2Q
\H
m辅` LSZ
,4K6T 5YChD8nGh(R ibYFB=bib
(xqYKƽDmH8D8 pz;oO"A֒p0 +*e͚#Ni;wtvZjI&Ý'*d_Z_99މ{Z>u)ѝa+L0Љ o5(ѻ5"DD9GDA@%lR(xxy/Fɔ|tѠg'jha^srT98ԭeP` D3A0Y 8n CpD8|7|I*4\ӼH
NP5U#uF0rV\hF~N(tQ% fd]TP
Bk8fc* n{8p
'MAJ3D^ ? Ŋ+x
Vxf2 ZZ@W
FB zЄ :m&04HB+4 4w2% ia
A#9%HȪ 9c !v#AQZ`uMϪБ{ dMx( mI-~XDȗLX1pkùq;YXءYz in4 xm Q?=IJf ^'."yG y_iG@4,\"`rz]0:T=>au=e((EǣwDh&AO{p 3ThÑ E=w9.ҡ)5{o MXs3[)ۂ,$esGj"N;2D}z&1z!f!u8>@Cy+;Sp#m` yM>:t#LXaHK(miTHإ0Ԡ!"*BO@U YT |o#of8آjk *
3\^L4
9 ɒN@f{ 7! Mr9 M4, $'E*bFf]h+<D3P1tӟ t@mzhVtx/n`"N43~Ԁ6
#Yb4-;ߋ g6 $qIWͅw5 Tl05Bʋ"c "(Z/o* ʡ,av&ә('W+pnooG?z7k_?ONBA}Aa^dzFG]dcNaam
' Vn¨#ັ {9!{^c=&-[C-@_{1CMpؿUÁX,!>`lSsѴ3ԎdP(l.T,' DlT, hڹ0sԕ%D # .L
A`1-A^UIҰP%?+<49K#(RA `(+Z2L27ch5jYѬP_6;[sҹ̐y@c/̽P[ l$Fah61tgB5[K*fl%Mm a7?vfvV. ȳU lBflVA.MW[3} Ð |ݻw]Y dV Sz \E@@rm13U#w'CQ }!4C ItfcGO`7iǰoN3>'NJ ?;$iJX7K+WPV4ܰ|kmaf38`"ÏYh(X|[p4SH_X.Mw%aVq &@'@L3i1Cꄋۏ1H5UUhb-&&9V,0!EN\ف
L +d\f 碱 X; Vڌ݁@j!Y'9WIruFr?/|