Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

57 lines (46 sloc) 1.425 kB
;;;; packages.lisp
;;;;
;;;; This file is part of the restas-colorize library, released under Lisp-LGPL.
;;;; See file COPYING for details.
;;;;
;;;; Author: Moskvitin Andrey <archimag@gmail.com>
(restas:define-module #:restas.colorize
(:use #:cl #:iter)
(:export #:*storage*
#:*finalize-page*
#:*colorize-user-function*
#:*max-on-page*
;; note
#:note
#:note-id
#:note-title
#:note-author
#:note-code
#:note-date
#:note-lang
;; storage
#:storage-count-notes
#:storage-list-notes
#:storage-get-note
#:storage-add-note
#:storage-remove-note
;;
#:finalize-page
#:render-route-data
#:colorize
#:colorize-langs))
(in-package #:restas.colorize)
;;;; load templates
(defparameter *colorize-template-path*
(merge-pathnames "src/drawer.tmpl"
(asdf:component-pathname (asdf:find-system '#:restas-colorize))))
(closure-template:compile-template :common-lisp-backend
*colorize-template-path*)
;;;; preferences
(defvar *max-on-page* 10)
(defvar *storage* nil)
(defparameter *colorize-user-function*
#'(lambda () "anonymous"))
(defun colorize-user ()
(if *colorize-user-function*
(funcall *colorize-user-function*)))
Jump to Line
Something went wrong with that request. Please try again.