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