RailsOnLisp/rol-wiki/app/models/wiki.lisp

Branch - branch -master

• Show log

  Commit

• Hash : f56a33be
  Author :
  Date : 2015-06-27T21:29:20
  

  RailsOnLisp wiki module.
  

Download

• app/models/wiki.lisp

• 
  (defun wiki-article-slug (article)
    (format nil "~{~A~^/~}"
  	  (mapcar #'to-url (cl-ppcre:split "/" (article.name article)))))
  
  (defun wiki-uri (article)
    (uri-for `(/wiki ,(wiki-article-slug article))))
  
  (defun wiki-path (wiki)
    (let ((name (if (typep wiki 'json:fluid-object)
  		  (wiki-article-slug wiki)
  		  wiki)))
      (when (find #\. name)
        (http-error "404 Not found" "Wiki article not found"))
      (pathname (str "data/wiki/" name ".md"))))
  
  (defun wiki-read-article (name)
    (let ((path (the pathname (wiki-path name))))
      (when (probe-file path)
        (when-let ((article (read-article path)))
  	(set-json-attributes article 'name name)))))
  
  (defun wiki-write-article (article)
    (write-article (the pathname (wiki-path article)) article))
  
  (defun wiki-delete-article (article)
    (let ((path (wiki-path article)))
      (when (probe-file path)
        (delete-file path))))
  

Download