fix: transient frame size is incorrect

See yanghaoxie/transient-posframe#7.
seagle0128 · Nov 18, 2024 · 66e2ed1 · 66e2ed1
1 parent 133524c
commit 66e2ed1
Showing 1 changed file with 17 additions and 2 deletions.
diff --git a/lisp/init-vcs.el b/lisp/init-vcs.el
@@ -62,15 +62,16 @@
 (when (childframe-completion-workable-p)
   (use-package transient-posframe
     :diminish
+    :after posframe transient
     :defines posframe-border-width
     :custom-face
     (transient-posframe ((t (:inherit tooltip))))
     (transient-posframe-border ((t (:inherit posframe-border :background unspecified))))
     :hook (after-init . transient-posframe-mode)
     :init
     (setq transient-posframe-border-width posframe-border-width
-          transient-posframe-min-height nil
           transient-posframe-min-width 80
+          transient-posframe-min-height nil
           transient-posframe-poshandler 'posframe-poshandler-frame-center
           transient-posframe-parameters '((left-fringe . 8)
                                           (right-fringe . 8)))
@@ -82,12 +83,12 @@
         (when (posframe-workable-p)
           (let* ((posframe
 	              (posframe-show buffer
-                                 :height (with-current-buffer buffer (1- (count-screen-lines (point-min) (point-max))))
 			                     :font transient-posframe-font
 			                     :position (point)
 			                     :poshandler transient-posframe-poshandler
 			                     :background-color (face-attribute 'transient-posframe :background nil t)
 			                     :foreground-color (face-attribute 'transient-posframe :foreground nil t)
+                                 :initialize #'transient-posframe--initialize
 			                     :min-width transient-posframe-min-width
 			                     :min-height transient-posframe-min-height
 			                     :internal-border-width transient-posframe-border-width
@@ -96,6 +97,20 @@
             (frame-selected-window posframe))))
       (advice-add #'transient-posframe--show-buffer :override #'my-transient-posframe--show-buffer)
 
+      (setq transient-mode-line-format nil) ; without line
+
+      (defun transient-posframe--initialize ()
+        "Initialize transient posframe."
+        (setq window-resize-pixelwise t)
+        (setq window-size-fixed nil))
+
+      (defun transient-posframe--resize (window)
+        "Resize transient posframe."
+        (fit-frame-to-buffer-1 (window-frame window)
+                               nil transient-posframe-min-height
+                               nil transient-posframe-min-width))
+      (advice-add 'transient--fit-window-to-buffer :override #'transient-posframe--resize)
+
       (defun my-transient-posframe--hide ()
         "Hide transient posframe."
         (posframe-hide transient--buffer-name))