Re : Re: Re : Spatial organization of windows in StumpWM

[Roland Everaert]

As you speak about going to the core of StumpWM, I was wondering if this could 
be packaged as a module, but making it core would be even better, indeed.

Roland Everaert
---
Use the F.O.S.S., Luke

Envoyé avec la messagerie sécurisée ProtonMail.

------- Original Message -------

Le mardi 8 mars 2022 à 16:00, Russell Adams <RLAdams@adamsinfoserv.com> a écrit 
:

> On Tue, Mar 08, 2022 at 10:51:28AM +0000, Roland Everaert wrote:
>
> > Really impressive. I hope to find some time to dig into your code
> >
> > and adapt my workflow and my navigation.
>
> Honestly it's short and needs refinement. ;]
>
> > Thanks for the great video, I am also thinking that you should seek
> >
> > to publish it for the greater good.
>
> I think that video qualifies as a draft. If this feature goes core,
>
> I'll try to make a more professional video to help showcase the
>
> feature.
>
> Thanks.
>
> > Regards,
> >
> > Roland Everaert
> >
> > ---
> >
> > Use the F.O.S.S., Luke
> >
> > Envoyé avec la messagerie sécurisée ProtonMail.
> >
> > ------- Original Message -------
> >
> > Le lundi 7 mars 2022 à 20:11, Russell Adams RLAdams@adamsinfoserv.com a 
> > écrit :
> >
> > > I composed a short video about using spatial groups in StumpWM to
> > >
> > > share. I've tried to explain the idea of spatial grouping before on
> > >
> > > IRC, and I felt a demonstration would be clearer.
> > >
> > > http://demosthenes.org/tmp/StumpWMSpatialGroups.mp4
> > >
> > > Please pardon the rough edges. I'm not starting a Youtube channel,
> > >
> > > just trying to have a conversation about how to manage windows and
> > >
> > > groups in Stump.
> > >
> > > Spatial grouping abuses Stump's ability to dynamically create groups
> > >
> > > to create a sparse 3d array of groups, visualized as multiple desktops
> > >
> > > of a 2d grid of screens. Hotkeys use arrows to navigate the grid and
> > >
> > > swap desktops in a way which emulates a larger physical screen
> > >
> > > surface.
> > >
> > > Using this method allows me to group windows by project, adjacent to
> > >
> > > each other. This allows absolute navigation to each window, as opposed
> > >
> > > to relative navigation (ie: alt-tab).
> > >
> > > I'm not grouping related application windows on the same screen, but
> > >
> > > rather organizing patterns of groups to keep related application
> > >
> > > windows cognitively near each other. I still may use splits and tile
> > >
> > > windows within a screen, but not as often.
> > >
> > > I'm hoping to inspire further discussion on the matter. Critically, I
> > >
> > > have not tested multiple monitor support.
> > >
> > > Concepts:
> > >
> > > Spatial groups use a 3d coordinate system: “x,y,z”
> > >
> > > Valid groups are “0,0,0”, “-1,2,0”, etc.
> > >
> > > Z is used as the desktop index
> > >
> > > Keys:
> > >
> > > Control-Shift-{Left,Right}: Change desktop (Z axis)
> > >
> > > Control-Arrows: Navigate virtual screens on current desktop
> > >
> > > Control-Shift-Up: Return to 0,0 on current desktop (Z)
> > >
> > > Shift-Arrows: Navigate splits on current screen group
> > >
> > > Relevant code:
> > >
> > > ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
> > >
> > > (ql:quickload 'cl-ppcre)
> > >
> > > (in-package :stumpwm)
> > >
> > > ;; change the prefix key to something else
> > >
> > > (set-prefix-key (kbd "s-."))
> > >
> > > ;; fix scroll wheel?
> > >
> > > (setf (getenv "GDK_CORE_DEVICE_EVENTS") "1")
> > >
> > > ;; early define global vars
> > >
> > > (defparameter z-cursors '()
> > >
> > > "Association list of groups by Z coordinate for preserving last position 
> > > on that plane.")
> > >
> > > (defparameter last-cursor NIL
> > >
> > > "Previous group for popping back.")
> > >
> > > ;; Change focus
> > >
> > > (set-focus-color "darkblue") ;; Set the border around the current frame
> > >
> > > (setf suppress-frame-indicator t) ;; Stop the popup on the current frame
> > >
> > > ;; Modeline settings
> > >
> > > (enable-mode-line (current-screen) (current-head) t)
> > >
> > > (setf mode-line-timeout 60)
> > >
> > > (setf screen-mode-line-format (list "[^B%n^b] %d |" "| %W"))
> > >
> > > ;; Shift arrows between adjacent windows
> > >
> > > (define-key top-map (kbd "S-Up") "move-focus up")
> > >
> > > (define-key top-map (kbd "S-Down") "move-focus down")
> > >
> > > (define-key top-map (kbd "S-Left") "move-focus left")
> > >
> > > (define-key top-map (kbd "S-Right") "move-focus right")
> > >
> > > ;; Control arrows between groups
> > >
> > > (defcommand coord-left () () (coord-group-change -1 0 0))
> > >
> > > (defcommand coord-right () () (coord-group-change 1 0 0))
> > >
> > > (defcommand coord-up () () (coord-group-change 0 1 0))
> > >
> > > (defcommand coord-down () () (coord-group-change 0 -1 0))
> > >
> > > (defcommand coord-taskleft () () (coord-group-change 0 0 -1))
> > >
> > > (defcommand coord-taskright () () (coord-group-change 0 0 1))
> > >
> > > ;; return to 0,0 on the current taskplane as a shortcut to return to the 
> > > core task
> > >
> > > (defcommand coord-taskorigin () ()
> > >
> > > (gselect
> > >
> > > (group-name
> > >
> > > (my-find-group (current-screen)
> > >
> > > (format nil "~{~a~^,~}" (list 0 0 (parse-integer (third (cl-ppcre:split 
> > > "," (group-name (current-group)))))))))))
> > >
> > > ;; pop back to last location
> > >
> > > (defcommand coord-taskpop () () (when last-cursor (my-gselect 
> > > last-cursor)))
> > >
> > > (define-key top-map (kbd "C-Left") "coord-left")
> > >
> > > (define-key top-map (kbd "C-Right") "coord-right")
> > >
> > > (define-key top-map (kbd "C-Up") "coord-up")
> > >
> > > (define-key top-map (kbd "C-Down") "coord-down")
> > >
> > > (define-key top-map (kbd "C-S-Left") "coord-taskleft")
> > >
> > > (define-key top-map (kbd "C-S-Right") "coord-taskright")
> > >
> > > (define-key top-map (kbd "C-S-Up") "coord-taskorigin")
> > >
> > > (define-key top-map (kbd "C-S-Down") "coord-taskpop")
> > >
> > > (define-key top-map (kbd "s-S-SPC") "fullscreen")
> > >
> > > ;; Groups will manage the coordinate system
> > >
> > > ;; format: 0,0,0 with positive and negative numbers
> > >
> > > ;; create groups on the fly as needed
> > >
> > > ;; only supports one screen atm, would like multimonitor support later
> > >
> > > (gnew "0,0,0") ; create origin on startup
> > >
> > > (defun my-find-group (screen name)
> > >
> > > (find name (screen-groups screen) :key 'group-name :test 'string=))
> > >
> > > (defun my-gselect (name)
> > >
> > > "Preserve prior location for pop, and handle when group is new"
> > >
> > > (banish)
> > >
> > > (setf last-cursor (group-name (current-group)))
> > >
> > > (gselect (group-name
> > >
> > > (or (my-find-group (current-screen) name)
> > >
> > > (gnew name)))))
> > >
> > > (defun coord-group-change (xo yo zo)
> > >
> > > "Navigate a 3d array of groups using x,y,z coordinates by passing the 
> > > offset of the change."
> > >
> > > (let* ((current-coords
> > >
> > > (mapcar #'parse-integer
> > >
> > > (cl-ppcre:split "," (group-name (current-group)))))
> > >
> > > (new-coords (mapcar #'+ current-coords (list xo yo zo)))
> > >
> > > (new-group-name (format nil "~{~a~^,~}" new-coords)) )
> > >
> > > (if (= 0 zo)
> > >
> > > ;; Not changing taskplanes, so just move by coordinates
> > >
> > > (my-gselect new-group-name)
> > >
> > > ;; Changing Z across taskplanes, RESTORE z-cursor for that plane
> > >
> > > (let ((old-z (third current-coords))
> > >
> > > (new-z (third new-coords)))
> > >
> > > (if (assoc old-z z-cursors)
> > >
> > > (setf (cdr (assoc old-z z-cursors)) (current-group))
> > >
> > > (push (cons old-z (current-group)) z-cursors))
> > >
> > > (let ((z-cursor (cdr (or (assoc new-z z-cursors) '(nil . nil)))))
> > >
> > > (if z-cursor
> > >
> > > ;; Restore saved location
> > >
> > > (my-gselect (group-name z-cursor))
> > >
> > > ;; create new taskplane
> > >
> > > (my-gselect new-group-name)))))))
> > >
> > > (defun my-startup () (my-gselect "0,0,0"))
> > >
> > > (when initializing (my-startup))
> > >
> > > ------------------------------------------------------------------
> > >
> > > Russell Adams RLAdams@AdamsInfoServ.com
> > >
> > > PGP Key ID: 0x1160DCB3 http://www.adamsinfoserv.com/
> > >
> > > Fingerprint: 1723 D8CA 4280 1EC9 557F 66E8 1154 E018 1160 DCB3
>
> ------------------------------------------------------------------
>
> Russell Adams RLAdams@AdamsInfoServ.com
>
> PGP Key ID: 0x1160DCB3 http://www.adamsinfoserv.com/
>
> Fingerprint: 1723 D8CA 4280 1EC9 557F 66E8 1154 E018 1160 DCB3