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

Compare commits

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

2 Commits
7514139d18 ... 57a18de9aa

Author SHA1 Message Date
Milan Zamazal
57a18de9aa Use Version instead of Package-Version in package headers 2022-07-04 19:01:55 +02:00
Milan Zamazal
23721d0a55 Add some useless stuff to make checkdoc happier 2022-07-04 18:59:25 +02:00
1 changed files with 7 additions and 1 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> ;; Copyright (C) 2022 Milan Zamazal <pdm@zamazal.org>
;; Author: Milan Zamazal <pdm@zamazal.org> ;; Author: Milan Zamazal <pdm@zamazal.org>
;; Package-Version: 1 ;; Version: 1
;; Package-Requires: ((emacs "25.1")) ;; Package-Requires: ((emacs "25.1"))
;; Keywords: frames ;; Keywords: frames
;; URL: https://git.zamazal.org/pdm/pip-frame ;; URL: https://git.zamazal.org/pdm/pip-frame
@ -35,6 +35,8 @@
(require 'cl-lib) (require 'cl-lib)
;;; Code:
(defgroup pip-frame () (defgroup pip-frame ()
"Display PIP frame." "Display PIP frame."
:group 'frames) :group 'frames)
@ -194,18 +196,22 @@ If the buffer is not present in the PIP frame, do nothing."
(round (* pip-frame-move-step (nth (if vertical 3 2) workarea)))))) (round (* pip-frame-move-step (nth (if vertical 3 2) workarea))))))
(defun pip-frame-move-left () (defun pip-frame-move-left ()
"Move the PIP frame left."
(interactive) (interactive)
(pip-frame--move (- (pip-frame--move-step nil)) 0)) (pip-frame--move (- (pip-frame--move-step nil)) 0))
(defun pip-frame-move-right () (defun pip-frame-move-right ()
"Move the PIP frame right."
(interactive) (interactive)
(pip-frame--move (pip-frame--move-step nil) 0)) (pip-frame--move (pip-frame--move-step nil) 0))
(defun pip-frame-move-up () (defun pip-frame-move-up ()
"Move the PIP frame up."
(interactive) (interactive)
(pip-frame--move 0 (- (pip-frame--move-step t)))) (pip-frame--move 0 (- (pip-frame--move-step t))))
(defun pip-frame-move-down () (defun pip-frame-move-down ()
"Move the PIP frame down."
(interactive) (interactive)
(pip-frame--move 0 (pip-frame--move-step t))) (pip-frame--move 0 (pip-frame--move-step t)))