blob: 85f843801b19d92eea9ddc72bb60928348c4a6c3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
;;; package --- Center the helm buffer to the emacs window
;;; Commentary:
;;; Code:
(defun my-helm-display-frame-center (buffer &optional resume)
"Display `BUFFER' in a separate frame which centered in parent frame.
I don't know what's RESUME."
(if (not (display-graphic-p))
;; Fallback to default when frames are not usable.
(helm-default-display-buffer buffer)
(setq helm--buffer-in-new-frame-p t)
(let* ((parent (selected-frame))
(frame-pos (frame-position parent))
(parent-left (car frame-pos))
(parent-top (cdr frame-pos))
(width (/ (frame-width parent) 2))
(height (/ (frame-height parent) 3))
tab-bar-mode
(default-frame-alist
(if resume
(buffer-local-value 'helm--last-frame-parameters
(get-buffer buffer))
`((parent . ,parent)
(width . ,width)
(height . ,height)
(undecorated . ,helm-use-undecorated-frame-option)
(left-fringe . 0)
(right-fringe . 0)
(tool-bar-lines . 0)
(line-spacing . 0)
(desktop-dont-save . t)
(no-special-glyphs . t)
(inhibit-double-buffering . t)
(tool-bar-lines . 0)
(left . ,(+ parent-left (/ (* (frame-char-width parent) (frame-width parent)) 4)))
(top . ,(+ parent-top (/ (* (frame-char-width parent) (frame-height parent)) 2)))
(title . "Helm")
(vertical-scroll-bars . nil)
(menu-bar-lines . 0)
(fullscreen . nil)
(visible . ,(null helm-display-buffer-reuse-frame))
;; (internal-border-width . ,(if IS-MAC 1 0))
)))
display-buffer-alist)
(set-face-background 'internal-border (face-foreground 'default))
(helm-display-buffer-popup-frame buffer default-frame-alist))
(helm-log-run-hook 'helm-window-configuration-hook)))
(setq helm-display-function 'my-helm-display-frame-center)
(provide 'center-helm-buffer)
;;; center-helm-buffer.el ends here
|
