# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1483894061 0
# Node ID 1a47adb89b934a4e242ff485bcdd4031d3a99c91
# Parent  694cf6c40aacfd1d18319a75e09d65f52f7579ea
Final tweaks again

diff -r 694cf6c40aac -r 1a47adb89b93 src/entities/clothing.lisp
--- a/src/entities/clothing.lisp	Sun Jan 08 16:42:11 2017 +0000
+++ b/src/entities/clothing.lisp	Sun Jan 08 16:47:41 2017 +0000
@@ -14,6 +14,8 @@
     "sock"
     "bra"
     "scarf"
+    "hat"
+    "sweatshirt"
     "jacket"
     "vest"
     "blouse"
@@ -22,9 +24,12 @@
 
 (defparameter *plural-clothes*
   #("pants"
+    "slacks"
     "socks"
     "briefs"
+    "pajamas"
     "gloves"
+    "long johns"
     "tights"
     "shorts"
     "boxers"
@@ -35,7 +40,7 @@
 (defun random-clothing-description ()
   (destructuring-bind (article fabric)
       (random-elt *fabrics*)
-    (if (randomp)
+    (if (randomp 0.7)
       (format nil "~A ~A ~A"
               article
               fabric