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

- refactored localized string.

This commit is contained in:
cage 2024-05-08 17:14:12 +02:00
parent 47b7ba767c
commit 67d57d4828
4 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/gui/client/bookmark-window.lisp
View File

@ -6,7 +6,7 @@
(lambda ()
(let* ((iri (gui:text iri-entry))
(section (if (text-utils:string-empty-p (gui:text section-entry))
(_ "Default")
(ui:localized-default-string)
(gui:text section-entry)))
(description (if (text-utils:string-empty-p (gui:text description-entry))
iri
@ -23,7 +23,7 @@
(defun make-edit-window (master iri
&optional
(section-text (_ "Default"))
(section-text (ui:localized-default-string))
(description-text nil))
(gui:with-toplevel (toplevel :master master :title (_ "Streams"))
(gui:transient toplevel master)

4
src/gui/client/menu-command.lisp
View File

@ -98,11 +98,11 @@
ev:+standard-event-priority+
page))
(errors '()))
(loop with current-category = (_ "Default")
(loop with current-category = (ui:localized-default-string)
for line in parsed-page do
(cond
((string= (getf line :type) "h2")
(setf current-category (getf line :line (_ "Default"))))
(setf current-category (getf line :line (ui:localized-default-string))))
((string= (getf line :type) "a")
(let ((iri (getf line :href))
(description (getf line :line)))

3
src/package.lisp
View File

@ -3224,7 +3224,8 @@
:switch-fediverse-account
:thread-go-to-parent-post
:thread-open-parent-post
:search-fediverse))
:search-fediverse
:localized-default-string))
(defpackage :scheduled-events
(:use

3
src/ui-goodies.lisp
View File

@ -3674,3 +3674,6 @@ gemini client certificates!)."
(ask-string-input #'on-input-complete
:prompt (_ "Search query: ")
:complete-fn #'complete:fediverse-search-complete)))
(defun localized-default-string ()
(_ "Default"))