mirror of
https://codeberg.org/cage/tinmop/
synced 2024-12-14 22:54:02 +01:00
Compare commits
2 Commits
aaf27c5932
...
ebc9dea4cc
Author | SHA1 | Date | |
---|---|---|---|
|
ebc9dea4cc | ||
|
39d12cbb96 |
1
.gitignore
vendored
1
.gitignore
vendored
@ -22,6 +22,7 @@ po/*.gmo
|
||||
quick_quicklisp.sh
|
||||
|
||||
src/config.lisp
|
||||
src/config.lisp.in
|
||||
|
||||
**-noshare.*
|
||||
|
||||
|
3
configure
vendored
3
configure
vendored
@ -6357,10 +6357,9 @@ fi
|
||||
|
||||
|
||||
|
||||
if test "$GPG" = "no" ; then
|
||||
if test "$UNZIP" = "no" ; then
|
||||
{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: Can not find unzip, genpub support will be disabled." >&5
|
||||
$as_echo "$as_me: WARNING: Can not find unzip, genpub support will be disabled." >&2;}
|
||||
exit 1;
|
||||
fi
|
||||
|
||||
# Extract the first word of "bash", so it can be a program name with args.
|
||||
|
@ -45,9 +45,8 @@ fi
|
||||
|
||||
AC_PATH_PROG([UNZIP],[unzip],[no])
|
||||
|
||||
if test "$GPG" = "no" ; then
|
||||
if test "$UNZIP" = "no" ; then
|
||||
AC_MSG_WARN([Can not find unzip, genpub support will be disabled.])
|
||||
exit 1;
|
||||
fi
|
||||
|
||||
AC_PATH_PROG([BASH],[bash],[no])
|
||||
|
@ -1,49 +0,0 @@
|
||||
|
||||
;; This program is free software: you can redistribute it and/or modify
|
||||
;; it under the terms of the GNU General Public License as published by
|
||||
;; the Free Software Foundation, either version 3 of the License, or
|
||||
;; (at your option) any later version.
|
||||
|
||||
;; This program is distributed in the hope that it will be useful,
|
||||
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
;; GNU General Public License for more details.
|
||||
|
||||
;; You should have received a copy of the GNU General Public License
|
||||
;; along with this program.
|
||||
;; If not, see [[http://www.gnu.org/licenses/][http://www.gnu.org/licenses/]].
|
||||
|
||||
(alexandria:define-constant +openssl-bin+ "/usr/bin/openssl" :test #'string=)
|
||||
|
||||
(alexandria:define-constant +xdg-open-bin+ "/usr/bin/xdg-open" :test #'string=)
|
||||
|
||||
(alexandria:define-constant +unzip-bin+ "/usr/bin/unzip" :test #'string=)
|
||||
|
||||
(defmacro with-return-untranslated ((untranslated) &body body)
|
||||
`(handler-bind ((i18n-conditions:no-translation-table-error
|
||||
(lambda (e)
|
||||
(declare (ignore e))
|
||||
(invoke-restart 'cl-i18n:return-untranslated))))
|
||||
(handler-case
|
||||
(progn ,@body)
|
||||
(i18n-conditions:no-translation (e)
|
||||
(declare (ignorable e))
|
||||
#+debug-mode
|
||||
(progn
|
||||
(warn e)
|
||||
,untranslated)
|
||||
#-debug-mode ,untranslated))))
|
||||
|
||||
(defun _ (a)
|
||||
"get translated string"
|
||||
(with-return-untranslated (a)
|
||||
(cl-i18n:translate a)))
|
||||
|
||||
(defun n_ (a b n)
|
||||
"Get stranslated string with plural forms
|
||||
- a the untranslated string template
|
||||
- b the string template to return if no translation was found
|
||||
- n the number of object mentioned in the string template"
|
||||
(declare (ignore b))
|
||||
(with-return-untranslated (a)
|
||||
(cl-i18n:ntranslate a a n)))
|
@ -19,6 +19,11 @@
|
||||
|
||||
(alexandria:define-constant +unzip-bin+ "@UNZIP@" :test #'string=)
|
||||
|
||||
(eval-when (:compile-toplevel :load-toplevel :execute)
|
||||
(when (and (not (member :gempub-support *features*))
|
||||
(string/= +unzip-bin+ "no"))
|
||||
(push :gempub-support *features*)))
|
||||
|
||||
(defmacro with-return-untranslated ((untranslated) &body body)
|
||||
`(handler-bind ((i18n-conditions:no-translation-table-error
|
||||
(lambda (e)
|
||||
|
Loading…
Reference in New Issue
Block a user