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

- [gemini] added 'pre-group-id' slot to gemini text preformatted line; 

this  changes fixed  the selection  of a  TOC entry  when reading  a
  gemini text too.
This commit is contained in:
cage 2021-09-03 14:09:16 +02:00
parent c22e427f18
commit e5172b6d95
2 changed files with 27 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -31,13 +31,16 @@
(incf *pre-group-id*)
*pre-group-id*)
(defun-w-lock pre-group-id () *parser-lock*
(defun-w-lock current-pre-group-id () *parser-lock*
*pre-group-id*)
(defun-w-lock next-header-group-id () *parser-lock*
(incf *header-group-id*)
*header-group-id*)
(defun-w-lock header-group-id () *parser-lock*
*header-group-id*)
(defun-w-lock set-pre-alt-text (text) *parser-lock*
(setf *pre-alt-text* text))
@ -398,16 +401,23 @@
:initarg :alt-text
:accessor alt-text)))
(defclass pre-start (with-group-id with-alt-text) ())
(defclass with-pre-group-id ()
((pre-group-id
:initform nil
:initarg :pre-group-id
:accessor pre-group-id)))
(defclass pre-start (with-group-id with-pre-group-id with-alt-text) ())
(defmethod print-object ((object pre-start) stream)
(print-unreadable-object (object stream :type t :identity t)
(format stream "gid: ~a alt ~a" (group-id object) (alt-text object))))
(defun make-pre-start (alt-text group-id fg)
(defun make-pre-start (alt-text group-id pre-group-id fg)
(make-instance 'pre-start
:alt-text (tui:make-tui-string alt-text :fgcolor fg)
:group-id group-id))
:group-id group-id
:pre-group-id pre-group-id))
(defclass pre-end () ())
@ -420,7 +430,7 @@
(make-instance 'quoted-lines
:lines (split-lines text-lines)))
(defclass pre-line (with-group-id with-lines with-alt-text) ())
(defclass pre-line (with-group-id with-pre-group-id with-lines with-alt-text) ())
(defmethod print-object ((object pre-line) stream)
(print-unreadable-object (object stream :type t)
@ -430,10 +440,11 @@
(alt-text object)
(lines object))))
(defun make-pre-line (lines group-id alt-text)
(defun make-pre-line (lines group-id pre-group-id alt-text)
(make-instance 'pre-line
:lines lines
:group-id group-id
:pre-group-id pre-group-id
:alt-text alt-text))
(defclass vertical-space ()
@ -549,7 +560,8 @@
line)
:fgcolor fg)))
(make-pre-line (list line)
(pre-group-id)
(header-group-id)
(current-pre-group-id)
(current-pre-alt-text))))
((html-utils:tag= :text node)
(format nil "~a~%" (text-value node)))
@ -577,9 +589,10 @@
((html-utils:tag= :pre node)
(let ((current-alt-text (pre-alt-text node))
(pre-group-id (next-pre-group-id))
(current-group-id (header-group-id))
(fg (preformatted-fg theme)))
(set-pre-alt-text current-alt-text)
(make-pre-start current-alt-text pre-group-id fg)))
(make-pre-start current-alt-text current-group-id pre-group-id fg)))
((html-utils:tag= :pre-end node)
(make-pre-end))
((html-utils:tag= :a node)

2
src/gemini/package.lisp
View File

@ -70,6 +70,8 @@
:quote-prefix
:bullet-prefix
:with-lines
:with-pre-group-id
:pre-group-id
:pre-start
:value
:pre-line