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

insert double quotes in in criteria values

Browse source
This commit is contained in:
Almarhoon Ibraheem 2024-07-09 12:53:16 +03:00
parent c49ba1f650
commit 58f2453c14
1 changed files with 14 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
swayipc/dispatcher.scm
View file

@ -1616,19 +1616,19 @@ windows and then jump to them at a later time.
(string-join
(filter (lambda (x) (and x (> (string-length x) 0)))
(list
(if class (string-append "class=" class) "")
(if con-id (string-append "con_id=" (number->string con-id)) "")
(if con-mark (string-append "con_mark=" con-mark) "")
(if floating (string-append "floating=" floating) "")
(if id (string-append "id=" (number->string id)) "")
(if instance (string-append "instance=" instance) "")
(if pid (string-append "pid=" (number->string pid)) "")
(if shell (string-append "shell=" shell) "")
(if tiling (string-append "tiling=" tiling) "")
(if title (string-append "title=" title) "")
(if urgent (string-append "urgent=" urgent) "")
(if window-role (string-append "window_role=" window-role) "")
(if window-type (string-append "window_type=" window-type) "")
(if workspace (string-append "workspace=" workspace) "")))
(if class (format #f "class=\"~a\"" class) "")
(if con-id (format #f "con_id=~a" con-id) "")
(if con-mark (format #f "con_mark=\"~a\"" con-mark) "")
(if floating (format #f "floating=\"~a\"" floating) "")
(if id (format #f "id=~a" id) "")
(if instance (format #f "instance=\"~a\"" instance) "")
(if pid (format #f "pid=~a" pid) "")
(if shell (format #f "shell=\"~a\"" shell) "")
(if tiling (format #f "tiling=\"~a\"" tiling) "")
(if title (format #f "title=\"~a\"" title) "")
(if urgent (format #f "urgent=\"~a\"" urgent) "")
(if window-role (format #f "window_role=\"~a\"" window-role) "")
(if window-type (format #f "window_type=\"~a\"" window-type) "")
(if workspace (format #f "workspace=\"~a\"" workspace) "")))
" ")
"]"))