Browse Source

fix cl-ppcre import statement in view.lisp and rename articles-make.

I had a typo in the import statement which meant I could not quickload
rails-to-caveman. The articles-make function rename is, also, a typo.
master
Craig Oates 2 years ago
parent
commit
aabc92196b
  1. 4
      src/view.lisp
  2. 2
      src/web.lisp

4
src/view.lisp

@ -47,7 +47,7 @@
(:import-from #:caveman2 (:import-from #:caveman2
#:url-for) #:url-for)
(:import-from #:cl-ppcre (:import-from #:cl-ppcre
#:regexp-replace-all) #:regex-replace-all)
(:export #:title! ; Added in Chapter 3 (Mockup section). (:export #:title! ; Added in Chapter 3 (Mockup section).
#:date-options #:date-options
)) ))
@ -82,7 +82,7 @@
(djula::def-filter :simple-format (it) (djula::def-filter :simple-format (it)
(with-output-to-string (s) (with-output-to-string (s)
(3bmd:parse-string-and-print-to-stream (3bmd:parse-string-and-print-to-stream
(ppcre:regex-replace-all #\newline it "<br>") s))) (cl-ppcre:regex-replace-all #\newline it "<br>") s)))
#| LACK OF 'DJULA' DOES NOT MEAN IT IS NOT PART OF IT (date-options) #| LACK OF 'DJULA' DOES NOT MEAN IT IS NOT PART OF IT (date-options)
==================================================================== ====================================================================

2
src/web.lisp

@ -929,7 +929,7 @@ nil "/users/~D"(mito:object-id user))))))))
time time
:format '((:year 4)"-"(:month 2)"-"(:day 2)))) :format '((:year 4)"-"(:month 2)"-"(:day 2))))
(defun articles (n &key (logged-in-p (hermetic:logged-in-p)) (defun articles-make (n &key (logged-in-p (hermetic:logged-in-p))
(user(and logged-in-p (current-user)))) (user(and logged-in-p (current-user))))
(if logged-in-p (if logged-in-p
(if (rails-to-caveman.model::administrator-of user) (if (rails-to-caveman.model::administrator-of user)

Loading…
Cancel
Save