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

Compare commits

base: pdm:57a18de9aacca1aeb26e191336ef2533212abcf1
Branches Tags
pdm:main
..
compare: pdm:7514139d189f7d687d8a1c2b533a52a860c5e1c2
Branches Tags
pdm:main

No commits in common. "57a18de9aacca1aeb26e191336ef2533212abcf1" and "7514139d189f7d687d8a1c2b533a52a860c5e1c2" have entirely different histories.
57a18de9aa ... 7514139d18

1 changed files with 1 additions and 7 deletions
Show Stats Expand all files Collapse all files

8
pip-frame.el
View File

@ -3,7 +3,7 @@
;; Copyright (C) 2022 Milan Zamazal <pdm@zamazal.org>
;; Author: Milan Zamazal <pdm@zamazal.org>
;; Version: 1
;; Package-Version: 1
;; Package-Requires: ((emacs "25.1"))
;; Keywords: frames
;; URL: https://git.zamazal.org/pdm/pip-frame
@ -35,8 +35,6 @@
(require 'cl-lib)
;;; Code:
(defgroup pip-frame ()
"Display PIP frame."
:group 'frames)
@ -196,22 +194,18 @@ If the buffer is not present in the PIP frame, do nothing."
(round (* pip-frame-move-step (nth (if vertical 3 2) workarea))))))
(defun pip-frame-move-left ()
"Move the PIP frame left."
(interactive)
(pip-frame--move (- (pip-frame--move-step nil)) 0))
(defun pip-frame-move-right ()
"Move the PIP frame right."
(interactive)
(pip-frame--move (pip-frame--move-step nil) 0))
(defun pip-frame-move-up ()
"Move the PIP frame up."
(interactive)
(pip-frame--move 0 (- (pip-frame--move-step t))))
(defun pip-frame-move-down ()
"Move the PIP frame down."
(interactive)
(pip-frame--move 0 (pip-frame--move-step t)))