marcuskammer/dev.metalisp.sbt
1
1
Fork 0
Code Issues 1 Pull requests Projects 1 Releases Packages Wiki Activity Actions

Move l10n to main

Browse source
This commit is contained in:
Marcus Kammer 2023-09-13 21:23:19 +02:00
parent 8e9cbff493
commit 08fe673a6f
Signed by: marcuskammer
GPG key ID: C374817BE285268F
3 changed files with 29 additions and 28 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
src/component/form.lisp
View file

@ -10,6 +10,7 @@
:cl)
(:import-from
:cl-sbt
:l10n
:find-l10n)
(:import-from
:cl-sbt/btn
@ -19,7 +20,6 @@
:cl-sbt/utility
:spacing)
(:export
:l10n
:select
:select-lg
:select-sm
@ -32,31 +32,6 @@
(in-package :cl-sbt/form)
(defvar l10n '(("submit" ("en" "Submit" "de" "Absenden" "fr" "Soumettre"))
("cancel" ("en" "Cancel" "de" "Abbrechen" "fr" "Annuler"))
("upload" ("en" "Upload" "de" "Hochladen" "fr" "Télécharger"))
("search" ("en" "Search" "de" "Suchen" "fr" "Rechercher"))
("option-selected" ("en" "Open this selected menu"
"de" "Das ausgewählte Menü öffnen"
"fr" "Ouvrir le menu sélectionné"))
("sign-up" ("en" "Sign Up" "de" "Registrieren" "fr" "Inscrivez-vous"))
("sign-in" ("en" "Sign In" "de" "Anmelden" "fr" "S'identifier"))
("next" ("en" "Next" "de" "Weiter" "fr" "Suivant"))
("previous" ("en" "Previous" "de" "Zurück" "fr" "Précédent"))
("settings" ("en" "Settings" "de" "Einstellungen" "fr" "Paramètres"))
("logout" ("en" "Logout" "de" "Abmelden" "fr" "Déconnexion"))
("profile" ("en" "Profile" "de" "Profil" "fr" "Profil"))
("save" ("en" "Save" "de" "Speichern" "fr" "Enregistrer"))
("delete" ("en" "Delete" "de" "Löschen" "fr" "Supprimer"))
("edit" ("en" "Edit" "de" "Bearbeiten" "fr" "Modifier"))
("confirm" ("en" "Confirm" "de" "Bestätigen" "fr" "Confirmer"))
("loading" ("en" "Loading..." "de" "Lädt..." "fr" "Chargement..."))
("error" ("en" "Error" "de" "Fehler" "fr" "Erreur"))
("success" ("en" "Success" "de" "Erfolg" "fr" "Succès"))
("close" ("en" "Close" "de" "Schließen" "fr" "Fermer"))
("help" ("en" "Help" "de" "Hilfe" "fr" "Aide")))
"Localization (l10n) settings for multi-language support.")
(defun remove-special-chars (str)
"Removes all special characters from the string STR except numbers and alphabets.

26
src/main.lisp
View file

@ -3,6 +3,7 @@
(:export
:write-html-to-file
:with-page
:l10n
:find-l10n))
(in-package :cl-sbt)
@ -11,6 +12,31 @@
(defparameter *cdn-css* "https://cdn.jsdelivr.net/npm/bootstrap@5.3.0/dist/css/bootstrap.min.css")
(defparameter *cdn-js* "https://cdn.jsdelivr.net/npm/bootstrap@5.3.0/dist/js/bootstrap.bundle.min.js")
(defvar l10n '(("submit" ("en" "Submit" "de" "Absenden" "fr" "Soumettre"))
("cancel" ("en" "Cancel" "de" "Abbrechen" "fr" "Annuler"))
("upload" ("en" "Upload" "de" "Hochladen" "fr" "Télécharger"))
("search" ("en" "Search" "de" "Suchen" "fr" "Rechercher"))
("option-selected" ("en" "Open this selected menu"
"de" "Das ausgewählte Menü öffnen"
"fr" "Ouvrir le menu sélectionné"))
("sign-up" ("en" "Sign Up" "de" "Registrieren" "fr" "Inscrivez-vous"))
("sign-in" ("en" "Sign In" "de" "Anmelden" "fr" "S'identifier"))
("next" ("en" "Next" "de" "Weiter" "fr" "Suivant"))
("previous" ("en" "Previous" "de" "Zurück" "fr" "Précédent"))
("settings" ("en" "Settings" "de" "Einstellungen" "fr" "Paramètres"))
("logout" ("en" "Logout" "de" "Abmelden" "fr" "Déconnexion"))
("profile" ("en" "Profile" "de" "Profil" "fr" "Profil"))
("save" ("en" "Save" "de" "Speichern" "fr" "Enregistrer"))
("delete" ("en" "Delete" "de" "Löschen" "fr" "Supprimer"))
("edit" ("en" "Edit" "de" "Bearbeiten" "fr" "Modifier"))
("confirm" ("en" "Confirm" "de" "Bestätigen" "fr" "Confirmer"))
("loading" ("en" "Loading..." "de" "Lädt..." "fr" "Chargement..."))
("error" ("en" "Error" "de" "Fehler" "fr" "Erreur"))
("success" ("en" "Success" "de" "Erfolg" "fr" "Succès"))
("close" ("en" "Close" "de" "Schließen" "fr" "Fermer"))
("help" ("en" "Help" "de" "Hilfe" "fr" "Aide")))
"Localization (l10n) settings for multi-language support.")
(defmacro with-page ((&key (author "") (description "") (cdn t) (pagetitle "") (theme "dark")) &body body)
`(spinneret:with-html
(:doctype)

4
src/pattern/questionnaire.lisp
View file

@ -22,6 +22,7 @@
:cl)
(:import-from
:cl-sbt
:l10n
:find-l10n)
(:import-from
:cl-sbt/btn
@ -31,7 +32,6 @@
:spacing)
(:import-from
:cl-sbt/form
:l10n
:checkable
:ctrl)
(:export
@ -201,4 +201,4 @@ Example 4:
(let ((splitted-choices (split-plist-by-keyword choices)))
`(question ,ask ,group ,@splitted-choices))))
(btn-primary (:type "submit")
(find-l10n "submit" spinneret:*html-lang* cl-sbt/form:l10n)))))
(find-l10n "submit" spinneret:*html-lang* l10n)))))