pdm/pip-frame
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Don’t prefix lambdas with #'

Browse Source
This commit is contained in:
Milan Zamazal 2022-06-28 21:41:32 +02:00
parent 05fe647254
commit 63c390d76b
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
pip-frame.el
View File

@ -73,7 +73,7 @@ custom option but it can be overriden here."
(defun pip-frame--get-frame (&optional no-error) (defun pip-frame--get-frame (&optional no-error)
(let ((frame (cl-find pip-frame--name (frame-list) (let ((frame (cl-find pip-frame--name (frame-list)
:key #'(lambda (f) (frame-parameter f 'name))))) :key (lambda (f) (frame-parameter f 'name)))))
(or frame (or frame
(unless no-error (unless no-error
(error "No PIP frame"))))) (error "No PIP frame")))))
@ -87,7 +87,7 @@ custom option but it can be overriden here."
(frame-inhibit-implied-resize t) (frame-inhibit-implied-resize t)
(face-height (round (/ (face-attribute 'default :height) pip-frame-font-scale)))) (face-height (round (/ (face-attribute 'default :height) pip-frame-font-scale))))
(set-face-attribute 'default frame :height face-height) (set-face-attribute 'default frame :height face-height)
(mapc #'(lambda (p) (set-face-attribute 'default frame (car p) (cdr p))) (mapc (lambda (p) (set-face-attribute 'default frame (car p) (cdr p)))
pip-frame-face-attributes) pip-frame-face-attributes)
(set-window-buffer (car (window-list frame)) buffer) (set-window-buffer (car (window-list frame)) buffer)
frame)) frame))
@ -104,11 +104,11 @@ custom option but it can be overriden here."
(let ((windows (window-list (pip-frame--get-frame)))) (let ((windows (window-list (pip-frame--get-frame))))
(unless (and temporary (unless (and temporary
(cl-find buffer windows :key #'window-buffer :test #'eq)) (cl-find buffer windows :key #'window-buffer :test #'eq))
(let* ((sizes (mapcar #'(lambda (w) (let* ((sizes (mapcar (lambda (w)
(let ((width (window-body-width w t)) (let ((width (window-body-width w t))
(height (window-body-height w t))) (height (window-body-height w t)))
(cons (+ (* width width) (* height height)) (cons (+ (* width width) (* height height))
w))) w)))
windows)) windows))
(largest (cdr (cl-first (cl-sort sizes #'> :key #'car)))) (largest (cdr (cl-first (cl-sort sizes #'> :key #'car))))
(side (if (> (window-body-width largest t) (side (if (> (window-body-width largest t)