u/naryl/qsp-txt2web Files · src/l10n.lisp

Localized and neat error reports

naryl - - Load All Authors

File last commit:

r54:3a4e62f8 default


                r54:3a4e62f8

default

Download file

             l10n.lisp
        
                    23 lines
            
             | 843 B
            
                | text/x-common-lisp
            
             |
                CommonLispLexer
            
             / src / l10n.lisp
          
                    History
                
                 |
                  Annotation
                 | Raw
                 |Copy content
                 |Copy permalink

      (in-package txt2web)

      (defparameter *languages* (list "en" "ru"))

      (defparameter *l10n-strings*

        (mapcan (lambda (lang)

                  (cons (intern (string-upcase lang) :keyword)

                        (list (apply #'append

                                     (read-code-from-string

                                      (load-src

                                       (concatenate 'string "strings/" lang ".sexp")))))))

                *languages*))

      (defun lformat (target key &rest args)

        (let* ((lang (intern (string-upcase (first (system-locale:languages)))

                            :keyword))

               (strings (or (getf *l10n-strings* lang)

                            (getf *l10n-strings* :en)))

               (string (getf strings key)))

          (if string

              (apply #'format target string args)

              (error "Unknown localization string ~S for language ~S" key lang))))

	Site-wide shortcuts
/	Use quick search box
g h	Goto home page
g g	Goto my private gists page
g G	Goto my public gists page
g 0-9	Goto bookmarked items from 0-9
n r	New repository page
n g	New gist page

	Repositories
g s	Goto summary page
g c	Goto changelog page
g f	Goto files page
g F	Goto files page with file search activated
g p	Goto pull requests page
g o	Goto repository settings
g O	Goto repository access permissions settings
t s	Toggle sidebar on some pages


				(in-package txt2web)

				(defparameter languages (list "en" "ru"))

				(defparameter l10n-strings
				(mapcan (lambda (lang)
				(cons (intern (string-upcase lang) :keyword)
				(list (apply #'append
				(read-code-from-string
				(load-src
				(concatenate 'string "strings/" lang ".sexp")))))))
				languages))

				(defun lformat (target key &rest args)
				(let* ((lang (intern (string-upcase (first (system-locale:languages)))
				:keyword))
				(strings (or (getf l10n-strings lang)
				(getf l10n-strings :en)))
				(string (getf strings key)))
				(if string
				(apply #'format target string args)
				(error "Unknown localization string ~S for language ~S" key lang))))