Commit 7be6b413 authored by Dave Cooper's avatar Dave Cooper
Browse files

added wmd macro to patches.

parent bbd9076e
Loading
Loading
Loading
Loading
Loading
+0 −4
Original line number Diff line number Diff line
@@ -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)

+7 −0
Original line number Diff line number Diff line
@@ -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.