diff --git a/COPYING b/COPYING
new file mode 100644
index 0000000..ca9c814
--- /dev/null
+++ b/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.
\ No newline at end of file
diff --git a/minor-mode/mpd/mpd.asd b/minor-mode/mpd/mpd.asd
index 401d532..f3cb087 100644
--- a/minor-mode/mpd/mpd.asd
+++ b/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")))
diff --git a/util/numpad-layouts/numpad-layouts.asd b/util/numpad-layouts/numpad-layouts.asd
index b6c904e..77c0665 100644
--- a/util/numpad-layouts/numpad-layouts.asd
+++ b/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")))
diff --git a/util/ttf-fonts/ttf-fonts.lisp b/util/ttf-fonts/ttf-fonts.lisp
index f2b569c..82ca585 100644
--- a/util/ttf-fonts/ttf-fonts.lisp
+++ b/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