cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

- removed unused argument.

This commit is contained in:
cage 2021-10-25 18:21:18 +02:00
parent 41bf046a29
commit c3c9036427
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/gemini/gemini-parser.lisp
View File

@ -514,7 +514,7 @@
:initform nil
:accessor text-line)))
(defun make-simple-line (text header-group-id raw-text)
(defun make-simple-line (text header-group-id)
(make-instance 'simple-line
:text-line text
:group-id header-group-id))
@ -581,8 +581,7 @@
((html-utils:tag= :text node)
(let ((text (text-value node)))
(make-simple-line (format nil "~a~%" text)
(current-header-group-id)
text)))
(current-header-group-id))))
((html-utils:tag= :h1 node)
(make-header 1
(header-prefix-h1 (text-value node))