X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?p=sheep;a=blobdiff_plain;f=src%2Fmain%2Ffunc.lisp;h=b3926a12be7156be199689ff4c4dad9cbe969313;hp=d3540a6a7f97f4b712cd1a218bc720bc6afa6513;hb=1ba7b00;hpb=e9d1b7da236295700286b7564960d84f9c5f0dbe

diff --git a/src/main/func.lisp b/src/main/func.lisp
index d3540a6..b3926a1 100644
--- a/src/main/func.lisp
+++ b/src/main/func.lisp
@@ -328,3 +328,16 @@
    (format-args-and-values (get-section :arguments-and-values))
    (format-description (get-section :description))
    (format-examples (get-section :examples)))))
+
+(defun ast->category-name (ast)
+ (declare (ignore ast))
+ "function")
+
+(defun ast->short-name (ast)
+ (format nil "~(~A~)" (second (find :function ast :key #'car))))
+
+(defun ast->link (ast)
+ (format nil "function-~(~A~)" (second (find :function ast :key #'car))))
+
+(defun ast->short-desc (ast)
+ (format-text (car (cadr (find :description ast :key #'car)))))