From 1da16a2fe1c304094056b1056a03e28a2b517e57 Mon Sep 17 00:00:00 2001 From: cage Date: Fri, 2 Aug 2024 16:25:04 +0200 Subject: [PATCH] - [GUI] fixed URI printed on address bar when opening an URI from the command line (switch '-o'); - [GUI] changed selection colors in gemtext widget. --- etc/shared-gui.conf | 4 ++-- src/gui/client/main-window.lisp | 10 ++++++---- 2 files changed, 8 insertions(+), 6 deletions(-) diff --git a/etc/shared-gui.conf b/etc/shared-gui.conf index ae2f8ab..e91b695 100644 --- a/etc/shared-gui.conf +++ b/etc/shared-gui.conf @@ -16,9 +16,9 @@ gemini.image.inline.relative.scaling = 1/3 gemini.favicon = "🌍" -gemini.main-window.select.background = #f2d8f4 +gemini.main-window.select.background = #ff00ff -gemini.main-window.select.foreground = #5b4636 +gemini.main-window.select.foreground = #ffffff gemini.main-window.foreground = #5b4636 diff --git a/src/gui/client/main-window.lisp b/src/gui/client/main-window.lisp index a1e7500..0c12988 100644 --- a/src/gui/client/main-window.lisp +++ b/src/gui/client/main-window.lisp @@ -2035,10 +2035,12 @@ local file paths." (set-certificate-button-inactive main-frame) (gui:wait-complete-redraw) (when (string-not-empty-p starting-iri) - (handler-case - (set-address-bar-text main-frame (fs:relative-file-path->absolute starting-iri)) - (error () - (set-address-bar-text main-frame starting-iri))) + (if (iri:absolute-url-p starting-iri) + (set-address-bar-text main-frame starting-iri) + (handler-case + (set-address-bar-text main-frame (fs:relative-file-path->absolute starting-iri)) + (error () + (set-address-bar-text main-frame starting-iri)))) (open-iri starting-iri main-frame nil)) (client-scheduler:start))))