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

- [gemini] removed removing of text from TOC entry.

This commit is contained in:
cage 2021-05-16 16:00:20 +02:00
parent d5f5bad33c
commit 50c76209c5
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/message-window.lisp
View File

@ -546,9 +546,7 @@
(loop for i from (- level 2 ) downto 0
when (= (elt toc-number i) 0) do
(setf (elt toc-number i) 1))
(list :header (regex-replace "^\\P{Letter}+"
(first (gemini-parser:lines header))
"")
(list :header (first (gemini-parser:lines header))
:group-id gid
:number (subseq toc-number
0