Move command-specific procedures to command language spec, remove

spurious procedure from top of (guile-wm command)

module/guile-wm/command.scm

@@ -1,4 +1,4 @@
->;; This file is part of Guile-WM.
+;; This file is part of Guile-WM.
 
 ;;    Guile-WM is free software: you can redistribute it and/or modify
 ;;    it under the terms of the GNU General Public License as published by

module/guile-wm/shared.scm

@@ -100,14 +100,6 @@ modules."
      ((cdr kv)))
    (hash-map->list cons module-init-thunks)))
 
-(define-public commands (make-hash-table))
-(define-public (get-command key)
-  "Retrieve a window manager command with key KEY. Returns #f is
-none exists."
-  (hashq-ref commands key))
-
-(define-public reparents (make-hash-table))
-
 ;; This procedure is redefined so that we can rewind delimited
 ;; continuations through it
 
@@ -143,4 +135,3 @@ the cdr is the xid of the child."
      ((null? reparented) #f)
      ((xid= (car reparented) win) #t)
      (else (lp (cdr reparented))))))
-

module/language/command/spec.scm

@@ -4,6 +4,11 @@
   #:use-module (guile-wm shared)
   #:export (command))
 
+(define-public commands (make-hash-table))
+
+(define-public (get-command key)
+  (hashq-ref commands key))
+
 (define-public arg-missing (make-parameter #f))
 
 (define (string-convert arg type)