Switched to google fonts.

sirherrbatka · Apr 7, 2015 · aa53949 · aa53949
1 parent 0542013
commit aa53949
Show file tree

Hide file tree

Showing 4 changed files with 9 additions and 6 deletions.
diff --git a/src/html/constants.lisp b/src/html/constants.lisp
@@ -7,9 +7,9 @@
 (defvar *default-menu-items* '(("blog" "Main Page")
                                ("posts" "All Posts")))
 
-(defvar *default-html* "html { font-family: 'Clear Sans'; background: #eee; }")
+(defvar *default-html* "html { font-family: 'Oxygen', sans-serif; background: #eee; }")
 
-(defvar *default-source* "code { font-family: monospace; border-style: solid; border-width: medium;}")
+(defvar *default-source* "code { font-family: monospace; border-style: solid; border-width: medium; padding: 0.250em;}")
 
 (defvar *default-body* "body {overflow: auto; background: #fff; padding: 1.250em; box-shadow: 0 0.125em 0.188em #ccc; max-width: 750em; margin: 1.875em;}")
 

diff --git a/src/html/templates.lisp b/src/html/templates.lisp
@@ -15,8 +15,9 @@
 
 
 (defmacro standard-page (style menu title &body body)
-  `(html5 (:html5 (:head
-                   (:title ,title)
+  `(html5 (:html5
+           (:link :href "http://fonts.googleapis.com/css?family=Oxygen" :rel "stylesheet" :type "text/css")
+           (:head (:title ,title)
                    (:meta :charset "utf-8")
                    (:style (raw ,style)))
                   (:body

diff --git a/src/model/post-parser.lisp b/src/model/post-parser.lisp
@@ -49,5 +49,5 @@
 (defvar *default-expansion-map* (make-expand-map (list :paragraph (lambda (x) (cons :p x)))
                                                  (list :points (lambda (x) (cons :ul (mapcar (lambda (y) (list :li y)) x))))
                                                  (list :enumeration (lambda (x) (cons :ol (mapcar (lambda (y) (list :li y)) x))))
-                                                 (list :quote (lambda (x) (if (> 80 (length x)) (list :blockqoute x) (list :q x))))
-                                                 (list :src (lambda (x) (list :pre (list :code x))))))
+                                                 (list :quote (lambda (x) (if (> 80 (length x)) (cons :blockqoute x) (cons :q x))))
+                                                 (list :src (lambda (x) (list :pre (cons :code x))))))
diff --git a/src/model/post.lisp b/src/model/post.lisp
@@ -26,12 +26,14 @@
    (m-following
     :accessor access-following)))
 
+
 (defmethod initialize-instance ((object post) &key title id tags-list)
   (setf (slot-value object 'm-title) title
         (slot-value object 'm-id) id
         (slot-value object 'm-tags-list) tags-list)
   (call-next-method))
 
+
 (defclass post-comment (object-with-timestamp
                         object-with-creation-timestamp)
   ((m-content