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

- [GUI] fixed highlighting of the selected text.

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

2
tinmop.asd
View File

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