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

Actually fix it

naryl - - Load All Authors

File last commit:

r46:b7997ef3 default


                r53:a5523508

default

Download file

             l10n.lisp
        
                    19 lines
            
             | 643 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)

                        (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))))

          (apply #'format target (getf strings key) args)))

	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)
				(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))))
				(apply #'format target (getf strings key) args)))