[STUMP] Rename groups

[Antonis Antoniadis]

Happy new year everybody!!!

I wrote a simple function i thought was missing from stumpwm. The function renames the current group. Here is the code:

(define-stumpwm-command "grename" ((name :string "Groups new Name: "))
  "Rename the current group."
  (let ((group (current-group)))
    (unless (find-group (current-screen) name)
      (setf (group-name group) name))))

Regards,

Antonis Antoniadis (plutonas)