Fix modules to handle being in separate packages.

util/ttf-fonts/package.lisp

@@ -3,3 +3,8 @@
 (defpackage #:ttf-fonts
   (:use #:cl #:stumpwm))
 
+(in-package #:ttf-fonts)
+
+(import '(stumpwm::font-exists-p stumpwm::open-font stumpwm::close-font
+	 stumpwm::font-ascent stumpwm::font-descent stumpwm::text-line-width
+	 stumpwm::draw-image-glyphs stumpwm::font-height))

util/windowtags/package.lisp

@@ -3,3 +3,10 @@
 (defpackage #:windowtags
   (:use #:cl :stumpwm))
 
+(in-package #:windowtags)
+
+(import '(
+  ; string wrappers for tag data storage
+  stumpwm::string-to-utf8
+  stumpwm::utf8-to-string
+  ))

util/windowtags/windowtags.lisp

@@ -11,6 +11,8 @@
 ;; This file is part of stumpwm.
 ;;
 
+(export '(window-tags clear-tags))
+
 ; String parsing for commands
 
 (defun string-split-by-spaces (x)
@@ -106,19 +108,6 @@
 
 ; Window manipulations using tags
 
-; General function
-
-(defun move-windows-to-group (windows &optional (arggroup nil))
-  "Move all windows from the list to the group"
-  (let*
-    ((group 
-       (if (stringp arggroup) 
-	 (or 
-	   (find-group (current-screen) arggroup) 
-	   (add-group (current-screen) arggroup))
-	 (or arggroup (current-group)))))
-    (mapcar (lambda (w) (move-window-to-group w group)) windows)))
-
 ; And convenient instances
 
 (defcommand pull-tag (argtag) ((:rest "Tag(s) to pull: "))