cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-01 04:26:47 +01:00
Code Issues

- [GUI] fixed highlighting of the selected text.

Browse Source
This commit is contained in:
cage 2023-06-11 13:54:41 +02:00
parent cbb80e1516
commit 0c091b299f
3 changed files with 22 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
etc/gui.conf
View File

@ -6,9 +6,9 @@
gemini.favicon = "🌍"
gemini.main-window.select.background = #ff00ff
gemini.main-window.select.background = #f2d8f4
gemini.main-window.select.foreground = #ffffff
gemini.main-window.select.foreground = #5b4636
gemini.main-window.foreground = #5b4636

37
src/gui/client/main-window.lisp
View File

@ -636,23 +636,24 @@
(new-text-line-start `(:line ,line-number :char 0)))
(vector-push-extend link-rendered-label ir-rendered-lines)
(gui:append-text gemtext-widget (a:last-elt ir-rendered-lines))
(gui:make-link-button gemtext-widget
new-text-line-start
`(- :end 1 :chars)
link-font
link-fg
link-bg
(link-click-mouse-1-callback-clsr target-iri
main-window)
:button-3-callback
(contextual-menu-link-clrs link-name
target-iri
main-window)
:over-callback
(lambda () (print-info-message target-iri))
:leave-callback
(lambda () (print-info-message "")))
(gui:append-line gemtext-widget ""))))))
(let ((tag-link (gui:make-link-button gemtext-widget
new-text-line-start
`(- :end 1 :chars)
link-font
link-fg
link-bg
(link-click-mouse-1-callback-clsr target-iri
main-window)
:button-3-callback
(contextual-menu-link-clrs link-name
target-iri
main-window)
:over-callback
(lambda () (print-info-message target-iri))
:leave-callback
(lambda () (print-info-message "")))))
(gui:tag-lower gemtext-widget tag-link)
(gui:append-line gemtext-widget "")))))))
(render-line (key text line-number &key (wrap :word))
(let ((font (key->font key))
(justification (key->justification key))
@ -674,7 +675,7 @@
:justify justification)
;; does not works because of a TK bug
;;(colorize-emoji main-window (1- line-number))
tag)))))
(gui:tag-lower gemtext-widget tag))))))
(loop with render-line-count = 0
with starting-pre-block-line = -1
with ending-pre-block-line = -1

2
tinmop.asd
View File

@ -18,7 +18,7 @@
(defsystem :tinmop
:author "cage"
:license "GPLv3"
:version "0.9.9.1414"
:version "0.9.9.14142.RC1"
:pathname "src"
:serial t
:bug-tracker "https://notabug.org/cage/tinmop/issues"