daniel/emacs
1
2
Fork 0
Code Issues 7 Pull Requests Projects Releases Wiki Activity

update packages

Browse Source
This commit is contained in:
Daniel Weschke
2025-03-11 21:14:26 +01:00
parent 45d49daef0
commit 14dcaaddde
440 changed files with 13229 additions and 8718 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/posframe/posframe-pkg.el
View File

@@ -1,6 +1,6 @@
(define-package "posframe" "20230714.227" "Pop a posframe (just a frame) at point"
(define-package "posframe" "20250211.110" "Pop a posframe (just a frame) at point"
'((emacs "26.1"))
:commit "017deece88360c7297265680d78a0bb316470716" :authors
:commit "12f540c9ad5da09673b2bca1132b41f94c134e82" :authors
'(("Feng Shu" . "tumashu@163.com"))
:maintainers
'(("Feng Shu" . "tumashu@163.com"))

50
lisp/posframe/posframe.el
View File

@@ -5,11 +5,11 @@
;; Author: Feng Shu <tumashu@163.com>
;; Maintainer: Feng Shu <tumashu@163.com>
;; URL: https://github.com/tumashu/posframe
;; Version: 1.4.2
;; Version: 1.4.4
;; Keywords: convenience, tooltip
;; Package-Requires: ((emacs "26.1"))
;; This file is part of GNU Emacs.
;; 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
@@ -123,9 +123,11 @@ effect.")
(defun posframe-workable-p ()
"Test posframe workable status."
(and (>= emacs-major-version 26)
(not (or noninteractive
emacs-basic-display
(not (display-graphic-p))))))
(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
@@ -150,6 +152,7 @@ effect.")
internal-border-color
font
cursor
tty-non-selected-cursor
window-point
foreground-color
background-color
@@ -284,11 +287,15 @@ derived from the current frame by default, but can be overridden
using the FONT, FOREGROUND-COLOR and BACKGROUND-COLOR arguments,
respectively.
(10) CURSOR and WINDOW-POINT
(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.
@@ -403,7 +410,9 @@ You can use `posframe-delete-all' to delete all posframes."
(font-width (default-font-width))
(font-height (with-current-buffer (window-buffer parent-window)
(posframe--get-font-height position)))
(mode-line-height (window-mode-line-height))
(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)
@@ -429,6 +438,7 @@ You can use `posframe-delete-all' to delete all posframes."
:position position
:font font
:cursor cursor
:tty-non-selected-cursor tty-non-selected-cursor
:parent-frame
(unless ref-position
parent-frame)
@@ -574,6 +584,7 @@ You can use `posframe-delete-all' to delete all posframes."
internal-border-color
font
cursor
tty-non-selected-cursor
keep-ratio
lines-truncate
override-parameters
@@ -599,6 +610,7 @@ ACCEPT-FOCUS."
(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
@@ -690,10 +702,14 @@ ACCEPT-FOCUS."
(line-spacing . 0)
(unsplittable . t)
(no-other-frame . t)
(undecorated . 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 . nil)
(minibuffer . 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)
@@ -709,7 +725,7 @@ ACCEPT-FOCUS."
(or font (face-attribute 'default :font parent-frame)))
(when border-color
(if parent-frame
(set-face-background
(set-face-background
(if (facep 'child-frame-border)
'child-frame-border
'internal-border)
@@ -1285,13 +1301,13 @@ The structure of INFO can be found in docstring of
(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)
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'."
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)))