Arrange packages by module

Packages no longer need to cross-reference each other, so split the
package file so that each module has its own package file.

lisp/interfaces/view-interface.lisp

@@ -1,3 +1,8 @@
+(defpackage #:mahogany/wm-interface
+  (:use :cl)
+  (:export #:set-position
+	   #:set-dimensions))
+
 (in-package #:mahogany/wm-interface)
 
 (defclass view ()

lisp/keyboard/package.lisp

@@ -0,0 +1,24 @@
+(defpackage #:mahogany/keyboard
+  (:use :cl
+	#:alexandria
+	#:mahogany/log
+	#:mahogany/util)
+  (:export #:key
+	   #:make-key
+	   #:print-key
+	   #:key-keysym
+	   #:key-modifier-mask
+	   #:key-modifier-key-p
+	   #:parse-key
+	   #:kbd
+	   #:kbd-parse-error
+	   #:define-kmap
+	   #:define-key
+	   #:kmap-p
+	   #:kmap
+	   #:kmap-lookup
+	   #:key-state
+	   #:make-key-state
+	   #:key-state-sequence
+	   #:key-state-advance
+	   #:key-state-active-p))

lisp/package.lisp

@@ -1,78 +1,3 @@
-(defpackage #:mahogany/wm-interface
-  (:use :cl)
-  (:export #:view ; view interface
-	   #:view-x
-	   #:view-y
-	   #:view-opacity
-	   #:set-dimensions))
-
-(defpackage #:mahogany/tree
-  (:use :cl
-	#:alexandria
-	#:iterate
-	#:mahogany/log
-	#:mahogany/util
-	#:mahogany/wm-interface)
-  (:export #:*split-frame-hook*
-	   #:*new-frame-hook*
-	   #:*remove-split-hook*
-	   #:*new-split-type*
-	   #:frame
-	   #:frame-at
-	   #:frame-x
-	   #:frame-y
-	   #:frame-width
-	   #:frame-height
-	   #:frame-parent
-	   #:tree-container
-	   #:make-basic-tree
-	   #:root-tree
-	   #:tree-frame
-	   #:tree-children
-	   #:tree-split-direction
-	   #:binary-tree-frame
-	   #:poly-tree-frame
-	   #:split-frame-v
-	   #:split-frame-h
-	   #:remove-frame
-	   #:swap-positions
-	   #:find-empty-frame
-	   #:get-empty-frames
-	   #:get-populated-frames
-	   #:root-frame-p
-	   #:view-frame
-	   #:frame-view
-	   #:frame-modes
-	   #:fit-view-into-frame
-	   #:leafs-in
-	   #:set-dimensions
-	   #:set-position))
-
-(defpackage #:mahogany/keyboard
-  (:use :cl
-	#:alexandria
-	#:mahogany/log
-	#:mahogany/util)
-  (:export #:key
-	   #:make-key
-	   #:print-key
-	   #:key-keysym
-	   #:key-modifier-mask
-	   #:key-modifier-key-p
-	   #:parse-key
-	   #:kbd
-	   #:kbd-parse-error
-	   #:define-kmap
-	   #:define-key
-	   #:kmap-p
-	   #:kmap
-	   #:kmap-lookup
-	   #:key-state
-	   #:make-key-state
-	   #:key-state-sequence
-	   #:key-state-advance
-	   #:key-state-active-p))
-
 (defpackage #:mahogany
   (:use :cl
 	#:alexandria

lisp/tree/package.lisp

@@ -0,0 +1,41 @@
+(defpackage #:mahogany/tree
+  (:use :cl
+	#:alexandria
+	#:iterate
+	#:mahogany/log
+	#:mahogany/util
+	#:mahogany/wm-interface)
+  (:export #:*split-frame-hook*
+	   #:*new-frame-hook*
+	   #:*remove-split-hook*
+	   #:*new-split-type*
+	   #:frame
+	   #:frame-at
+	   #:frame-x
+	   #:frame-y
+	   #:frame-width
+	   #:frame-height
+	   #:frame-parent
+	   #:tree-container
+	   #:make-basic-tree
+	   #:root-tree
+	   #:tree-frame
+	   #:tree-children
+	   #:tree-split-direction
+	   #:binary-tree-frame
+	   #:poly-tree-frame
+	   #:split-frame-v
+	   #:split-frame-h
+	   #:remove-frame
+	   #:swap-positions
+	   #:find-empty-frame
+	   #:get-empty-frames
+	   #:get-populated-frames
+	   #:root-frame-p
+	   #:view-frame
+	   #:frame-view
+	   #:frame-modes
+	   #:fit-view-into-frame
+	   #:leafs-in
+	   #:set-dimensions
+	   #:set-position))

mahogany.asd

@@ -19,27 +19,28 @@
   :components ((:file "log")
 	       (:file "util")
 	       (:file "system")
+	       (:module interfaces
+			:components ((:file "view-interface")))
 	       (:module bindings
-			:serial t
+		        :serial t
+			:depends-on ("interfaces")
 			:components ((:file "package")
 				     (:file "hrt-libs")
 				     (:file "hrt-bindings")
 				     (:file "wrappers")))
-	       (:file "package")
-	       (:module interfaces
-			:depends-on ("package")
-			:components ((:file "view-interface")
-				     ))
 	       (:module keyboard
-			:depends-on ("package" "util")
-			:components ((:file "keytrans")
+			:depends-on ("util")
+		        :components ((:file "package")
+				     (:file "keytrans")
 				     (:file "key")
 				     (:file "kmap")))
 	       (:module tree
-			:depends-on ("package" "log" "util" "interfaces")
-	       		:components ((:file "tree-interface")
+			:depends-on ("log" "util" "interfaces")
+	       	        :components ((:file "package")
+				     (:file "tree-interface")
 	       			     (:file "frame" :depends-on ("tree-interface"))
 				     (:file "view" :depends-on ("tree-interface"))))
+	       (:file "package")
 	       (:file "objects" :depends-on ("package"))
 	       (:file "group" :depends-on ("objects" "bindings"))
 	       (:file "state" :depends-on ("objects" "keyboard"))