git.fiddlerwoaroof.com
Browse code

Save work on new mvc system

fiddlerwoaroof authored on 23/05/2016 22:49:46
Showing 2 changed files
... ...
@@ -123,7 +123,7 @@
123 123
 
124 124
 (define-view headlines (columns) ;#p"static/headlines.mustache.html"
125 125
   (let ((sub-len (length columns))
126
-        (columns (mapcar #'submission-alist columns)))
126
+        (columns (mapcar #'inangulis.links::submission-alist columns)))
127 127
     (render-mustache #p"static/headlines.mustache.html"
128 128
                      `((:columns . (((:rows .  ,(subseq columns 0 (floor sub-len 3))))
129 129
                                     ((:rows .  ,(subseq columns (floor sub-len 3) (* 2 (floor sub-len 3)) )))