mirror of https://codeberg.org/cage/tinmop/
- changed variable names so that is clear that the '-o' switch can open different kind of URI, not only gemini.
This commit is contained in:
parent
bf781ee291
commit
fd53894b2e
|
@ -64,11 +64,11 @@
|
|||
:description (_ "Notify messages that mentions the user")
|
||||
:short #\m
|
||||
:long "notify-mentions")
|
||||
(:name :open-gemini-url
|
||||
:description (_ "Open gemini url")
|
||||
(:name :open-net-url
|
||||
:description (_ "Open net address")
|
||||
:short #\o
|
||||
:arg-parser #'identity
|
||||
:long "open-gemini-url")
|
||||
:long "open-net-address")
|
||||
(:name :gemini-full-screen-mode
|
||||
:description (_ "Start as gemini client only.")
|
||||
:short #\G
|
||||
|
@ -100,7 +100,7 @@
|
|||
|
||||
(defparameter *notify-mentions* nil)
|
||||
|
||||
(defparameter *gemini-url* nil)
|
||||
(defparameter *net-address* nil)
|
||||
|
||||
(defparameter *update-timeline-climb-message-tree* nil)
|
||||
|
||||
|
@ -134,7 +134,7 @@
|
|||
(print-version)
|
||||
(os-utils:exit-program))
|
||||
(set-option-variable options :folder *start-folder*)
|
||||
(set-option-variable options :open-gemini-url *gemini-url*)
|
||||
(set-option-variable options :open-net-address *net-address*)
|
||||
(set-option-variable options :timeline *start-timeline*)
|
||||
(set-option-variable options :reset-timeline-pagination *reset-timeline-pagination*)
|
||||
(set-option-variable options :update-timeline *update-timeline*)
|
||||
|
|
|
@ -165,8 +165,8 @@ etc.) happened"
|
|||
(_ "Unable to load module ~a")
|
||||
command-line:*module-file*)
|
||||
:as-error t))))
|
||||
(if command-line:*gemini-url*
|
||||
(ui:open-net-address command-line:*gemini-url*)
|
||||
(if command-line:*net-address*
|
||||
(ui:open-net-address command-line:*net-address*)
|
||||
(progn
|
||||
(let ((program-events:*process-events-immediately* t))
|
||||
(when command-line:*start-timeline*
|
||||
|
|
|
@ -1355,7 +1355,7 @@
|
|||
:*check-follow-requests*
|
||||
:*reset-timeline-pagination*
|
||||
:*notify-mentions*
|
||||
:*gemini-url*
|
||||
:*net-address*
|
||||
:*update-timeline-climb-message-tree*
|
||||
:*gemini-full-screen-mode*
|
||||
:*print-lisp-dependencies*
|
||||
|
|
Loading…
Reference in New Issue