(text-item)
(cond
((not (stringp text-item)) (list text-item))
- ((not (cl-ppcre:scan (car remaining-keywords) text-item)) (list text-item))
+ ((not (cl-ppcre:scan (cl-ppcre:quote-meta-chars (car remaining-keywords)) text-item)) (list text-item))
(t
(let
- ((split-text (cl-ppcre:split (car remaining-keywords) text-item :limit 1000)))
+ ((split-text (cl-ppcre:split (cl-ppcre:quote-meta-chars (car remaining-keywords)) text-item :limit 1000)))
(apply #'append
(list (car split-text))
(mapcar (lambda (ti) (list (list :keyword (car remaining-keywords)) ti)) (cdr split-text)))))))
(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)))))