Miroirs/guile-swayer
1
0
Fork 0
mirror of https://github.com/ebeem/guile-swayer.git synced 2024-11-16 07:47:32 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix resizing dispatch command

Browse source
This commit is contained in:
Almarhoon Ibraheem 2024-07-02 20:49:57 +03:00
parent 67e35225b6
commit 4c160d1d70
2 changed files with 15 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
README.org
View file

@ -11,6 +11,8 @@ I had to migrate to =Wayland= at some point. Being a big fan of =StumpWM=, I tri
** Quick Test
Note: refer to the github wiki for more documentation.
After cloning this repository, you can immediately test it using the provided =examples/playground/example.scm= file in the directory, which demonstrates some of the features available in this package.
The =examples/playground/example.scm= file will:

23
swayipc/dispatcher.scm
View file

@ -94,8 +94,9 @@
SWAY-SMART-GAPS-TOGGLE
SWAY-SMART-GAPS-INVERSE-OUTER
SWAY-RESIZE-TYPE-SHRINK
SWAY-RESIZE-TYPE-GROW-WIDTH
SWAY-RESIZE-TYPE-GROW-HEIGHT
SWAY-RESIZE-TYPE-GROW
SWAY-RESIZE-DIRECTION-HEIGHT
SWAY-RESIZE-DIRECTION-WIDTH
SWAY-SIZE-UNIT-PX
SWAY-SIZE-UNIT-PPT
SWAY-SPLIT-VERTICAL
@ -632,34 +633,36 @@ Response:
(string-append "rename workspace to " new-name)))
(define SWAY-RESIZE-TYPE-SHRINK "shrink")
(define SWAY-RESIZE-TYPE-GROW-WIDTH "grow height")
(define SWAY-RESIZE-TYPE-GROW-HEIGHT "grow width")
(define SWAY-RESIZE-TYPE-GROW "grow")
(define SWAY-RESIZE-DIRECTION-HEIGHT "height")
(define SWAY-RESIZE-DIRECTION-WIDTH "width")
(define SWAY-SIZE-UNIT-PX "px")
(define SWAY-SIZE-UNIT-PPT "ppt")
(define* (sway-resize type amount #:key unit)
(define* (sway-resize type direction amount #:key unit)
"Resizes the currently focused container by amount, specified in pixels or percentage points.
If the units are omitted, floating containers are resized in px and tiled containers by ppt.
parameters:
- type: `SWAY-RESIZE-TYPE-SHRINK`, `SWAY-RESIZE-TYPE-GROW-WIDTH`, `SWAY-RESIZE-TYPE-GROW-HEIGHT`
- type: `SWAY-RESIZE-TYPE-SHRINK`, `SWAY-RESIZE-TYPE-GROW`
- direction: `SWAY-RESIZE-DIRECTION-HEIGHT`, `SWAY-RESIZE-DIRECTION-WIDTH`
- amount: number
- unit: `SWAY-SIZE-UNIT-PX`, `SWAY-SIZE-UNIT-PPT`"
(sway-dispatch-command
(string-append "resize " type " "
(number->string amount)
(string-append "resize " type " " direction " "
(if amount (string-append " " (number->string amount)) "")
(if unit (string-append " " unit) ""))))
(define* (sway-resize-height amount #:key unit)
"Sets the height of the container to height, specified in pixels or percentage points."
(sway-dispatch-command
(string-append "resize height " (number->string amount)
(string-append "resize set height " (number->string amount)
(if unit (string-append " " unit) ""))))
(define* (sway-resize-width amount #:key unit)
"Sets the width of the container to width, specified in pixels or percentage points."
(sway-dispatch-command
(string-append "resize width " (number->string amount)
(string-append "resize set width " (number->string amount)
(if unit (string-append " " unit) ""))))
(define (sway-show-scratchpad)