Loading source/index-page.gdl +0 −4 Original line number Diff line number Diff line Loading @@ -4,10 +4,6 @@ ;; FLAG -- promote to core GDL/GWL. ;; (defmacro wmd (string) `(str (with-output-to-string (ss) (markdown:markdown ,string :stream ss)))) (define-object index-page (base-page) Loading source/patches.lisp +7 −0 Original line number Diff line number Diff line Loading @@ -24,6 +24,13 @@ ;;#+allegro ;;(setf (net.html.parser::tag-no-end :button) nil) (defmacro wmd (string) `(str (with-output-to-string (ss) (markdown:markdown ,string :stream ss)))) (export 'wmd) (defun crawl (&key part url-path ;; to give explicit url instead of part type. Loading Loading
source/index-page.gdl +0 −4 Original line number Diff line number Diff line Loading @@ -4,10 +4,6 @@ ;; FLAG -- promote to core GDL/GWL. ;; (defmacro wmd (string) `(str (with-output-to-string (ss) (markdown:markdown ,string :stream ss)))) (define-object index-page (base-page) Loading
source/patches.lisp +7 −0 Original line number Diff line number Diff line Loading @@ -24,6 +24,13 @@ ;;#+allegro ;;(setf (net.html.parser::tag-no-end :button) nil) (defmacro wmd (string) `(str (with-output-to-string (ss) (markdown:markdown ,string :stream ss)))) (export 'wmd) (defun crawl (&key part url-path ;; to give explicit url instead of part type. Loading