Commits

Anonymous committed 7292f39

Fleshing out site more. Login / logout work, home page is
sort of complete enough for now, and navigation to /code works (with
a placeholder code page in place).

  • Participants
  • Parent commits 7994528

Comments (0)

Files changed (1)

 
 (defmacro defhtmltag (name
 		      &key
+		      ((:tag tag) nil)
 		      ((:bases bases) nil) ; other base classes here
 		      ((:attributes attributes) nil)
 		      ((:hasbody hasbody) t)
      ;; for scripts still exists)
 
      (defmethod tag-name ( (*current-tag* ,name) )
-       (quote ,name)
+       ,(if tag
+	    tag	    
+	    `(quote ,name)
+	    )
        )
 
      ,(unless hasbody