License updates

COPYING

@@ -0,0 +1,2 @@
+All modules are copyright of their respective authors. Please refer to
+the license specified in the asd file associated with each module.

minor-mode/mpd/mpd.asd

@@ -4,7 +4,7 @@
   :serial t
   :description "Describe mpd here"
   :author "Morgan Veyret, Ivy Foster"
-  :license "Specify license here"
+  :license "GPLv2"
   :depends-on ("stumpwm")
   :components ((:file "package")
                (:file "mpd")))

util/numpad-layouts/numpad-layouts.asd

@@ -2,9 +2,9 @@
 
 (asdf:defsystem #:numpad-layouts
   :serial t
-  :description "Describe numpad-layouts here"
-  :author "Your Name <your.name@example.com>"
-  :license "Specify license here"
+  :description "A module for handling different keyboards numpad layouts"
+  :author "David Bjergaard"
+  :license "GPLv3"
   :depends-on (#:stumpwm)
   :components ((:file "package")
                (:file "numpad-layouts")))

util/ttf-fonts/ttf-fonts.lisp

@@ -1,7 +1,13 @@
 ;;;; ttf-fonts.lisp
 
 (in-package #:ttf-fonts)
-(export '(font-exists-p open-font close-font font-ascent font-descent text-line-width draw-image-glyphs))
+(export '(font-exists-p 
+	  open-font
+	  close-font
+	  font-ascent
+	  font-descent
+	  text-line-width
+	  draw-image-glyphs))
 ;;; "ttf-fonts" goes here. Hacks and glory await!
 ;;;; TTF fonts
 (defmethod font-exists-p ((font xft:font))
@@ -32,7 +38,8 @@
                               gcontext
                               (font xft:font)
                               x y
-                              sequence &rest keys &key (start 0) end translate width size)
+                              sequence &rest keys
+			      &key (start 0) end translate width size)
   (declare (ignorable start end translate width size))
   (apply 'xft:draw-text-line 
          drawable