branch: elpa/org-contrib
commit 04816c45e442d333ea2da67dea66801b7f24de7f
Author: Ihor Radchenko <yanta...@posteo.net>
Commit: Ihor Radchenko <yanta...@posteo.net>
* lisp/org-license.el: Fix compiler warnings
(org-license-cc-by): Use let-binding instead of setting global
variables.
(org-license-cc-by-sa): Use let-binding instead of setting global
variables. Fix useless `concat' calls.
(org-license-cc-by-nd):
(org-license-cc-by-nc):
(org-license-cc-by-nc-sa):
(org-license-cc-by-nc-nd):
(org-license-gfdl):
(org-license-publicdomain-zero):
(org-license-publicdomain-mark): Use let-binding instead of setting
global variables.
---
lisp/org-license.el | 573 ++++++++++++++++++++++++++--------------------------
1 file changed, 291 insertions(+), 282 deletions(-)
diff --git a/lisp/org-license.el b/lisp/org-license.el
index 58be6a47e8..9888e63f19 100644
--- a/lisp/org-license.el
+++ b/lisp/org-license.el
@@ -44,403 +44,412 @@
(defun org-license-cc-by (language)
(interactive "MLanguage ( br | ca | de | en | es | eo | eu | fi | fr | gl |
it | jp | nl | pt ): " language)
- (cond ((equal language "br")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by/3.0/br/deed.pt_BR";)
- (insert (concat "* Licença
+ (let (org-license-cc-url)
+ (cond ((equal language "br")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by/3.0/br/deed.pt_BR";)
+ (insert (concat "* Licença
Este texto é disponibilizado nos termos da licença [[" org-license-cc-url
"][Atribuição 3.0 Brasil]]\n")))
- ((equal language "ca")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by/3.0/es/deed.ca";)
- (insert (concat "* Licència
+ ((equal language "ca")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by/3.0/es/deed.ca";)
+ (insert (concat "* Licència
El text està disponible sota la [[" org-license-cc-url "][Reconeixement 3.0
Espanya]]\n")))
- ((equal language "de")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by/3.0/de/deed.de";)
- (insert (concat "* Lizenz
+ ((equal language "de")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by/3.0/de/deed.de";)
+ (insert (concat "* Lizenz
Dieses Werk bzw. Inhalt steht unter einer [[" org-license-cc-url "][Lizenz
Creative Commons Namensnennung 3.0 Deutschland]]\n")))
- ((equal language "eo")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by/3.0/eo/deed.eo";)
- (insert (concat "* Licenco
+ ((equal language "eo")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by/3.0/eo/deed.eo";)
+ (insert (concat "* Licenco
Ĉi tiu verko estas disponebla laŭ la permesilo [[" org-license-cc-url "][Krea
Komunaĵo Atribuite 3.0 Neadaptita]]\n")))
- ((equal language "es")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by/3.0/es/deed.es";)
- (insert (concat "* Licencia
+ ((equal language "es")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by/3.0/es/deed.es";)
+ (insert (concat "* Licencia
Este documento está bajo una [[" org-license-cc-url "][Licencia Creative
Commons Atribución 3.0 España]]\n")))
- ((equal language "eu")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by/3.0/es/deed.eu";)
- (insert (concat "* Licenzua
+ ((equal language "eu")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by/3.0/es/deed.eu";)
+ (insert (concat "* Licenzua
Testua [[" org-license-cc-url "][Aitortu 3.0 Espainia]] lizentziari jarraituz
erabil daiteke\n")))
- ((equal language "fi")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by/1.0/fi/deed.fi";)
- (insert (concat "* Lisenssi
+ ((equal language "fi")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by/1.0/fi/deed.fi";)
+ (insert (concat "* Lisenssi
Teksti on saatavilla [[" org-license-cc-url "][Nimeä 1.0 Suomi]]
lisenssillä\n")))
- ((equal language "fr")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by/3.0/fr/deed.fr";)
- (insert (concat "* Licence
+ ((equal language "fr")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by/3.0/fr/deed.fr";)
+ (insert (concat "* Licence
Ce(tte) œuvre est mise à disposition selon les termes de la [["
org-license-cc-url "][Licence Creative Commons Attribution 3.0 France]]\n")))
- ((equal language "gl")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by/3.0/es/deed.gl";)
- (insert (concat "* Licenza
+ ((equal language "gl")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by/3.0/es/deed.gl";)
+ (insert (concat "* Licenza
Todo o texto está dispoñible baixo a [[" org-license-cc-url "][licenza
Creative Commons recoñecemento compartir igual 3.0]].\n")))
- ((equal language "it")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by/3.0/it/deed.it";)
- (insert (concat "* Licenza
+ ((equal language "it")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by/3.0/it/deed.it";)
+ (insert (concat "* Licenza
Quest'opera e distribuita con Licenza [[" org-license-cc-url "][Licenza
Creative Commons Attribuzione 3.0 Italia]]\n")))
- ((equal language "jp")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by/2.1/jp/deed.en";)
- (insert (concat "* ライセンス
+ ((equal language "jp")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by/2.1/jp/deed.en";)
+ (insert (concat "* ライセンス
この文書は [[" org-license-cc-url "][Creative Commons Attribution 2.1 ]]
ライセンスの下である\n")))
- ((equal language "nl")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by/3.0/nl/deed.nl";)
- (insert (concat "* Licentie
+ ((equal language "nl")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by/3.0/nl/deed.nl";)
+ (insert (concat "* Licentie
Dit werk is valt onder een [[" org-license-cc-url "][Creative Commons
Naamsvermelding 3.0 Nederland]]\n")))
- ((equal language "pt")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by/3.0/pt/deed.pt";)
- (insert (concat "* Licença
+ ((equal language "pt")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by/3.0/pt/deed.pt";)
+ (insert (concat "* Licença
Este texto é disponibilizado nos termos da licença [[" org-license-cc-url
"][Atribuição 3.0 Portugal]]\n")))
- (t
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by/4.0/deed";)
- (concat (insert "* License
-This document is under a [[" org-license-cc-url "][Creative Commons
Attribution 4.0 International]]\n"))))
- (if (string= "" org-license-images-directory)
- (insert (concat "\n[[" org-license-cc-url
"][file:https://i.creativecommons.org/l/by/3.0/80x15.png]]\n";))
- (insert (concat "\n[[" org-license-cc-url "][file:"
org-license-images-directory "/by/3.0/80x15.png]]\n"))))
+ (t
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by/4.0/deed";)
+ (insert "* License
+This document is under a [[" org-license-cc-url "][Creative Commons
Attribution 4.0 International]]\n")))
+ (if (string= "" org-license-images-directory)
+ (insert (concat "\n[[" org-license-cc-url
"][file:https://i.creativecommons.org/l/by/3.0/80x15.png]]\n";))
+ (insert (concat "\n[[" org-license-cc-url "][file:"
org-license-images-directory "/by/3.0/80x15.png]]\n")))))
(defun org-license-cc-by-sa (language)
(interactive "MLanguage ( br | ca | de | en | es | eu | fi | fr | it | jp |
nl | pt ): " language)
- (cond ((equal language "br")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-sa/3.0/br/deed.pt_BR";)
- (concat (insert "* Licença
-Este texto é disponibilizado nos termos da licença [[" org-license-cc-url
"][Atribuição Compartil ha Igual 3.0 Brasil]]\n")))
- ((equal language "ca")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-sa/3.0/es/deed.ca";)
- (insert (concat "* Licència
+ (let (org-license-cc-url)
+ (cond ((equal language "br")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-sa/3.0/br/deed.pt_BR";)
+ (insert "* Licença
+Este texto é disponibilizado nos termos da licença [[" org-license-cc-url
"][Atribuição Compartil ha Igual 3.0 Brasil]]\n"))
+ ((equal language "ca")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-sa/3.0/es/deed.ca";)
+ (insert (concat "* Licència
El text està disponible sota la [[" org-license-cc-url
"][Reconeixement-CompartirIgual 3.0 Espanya]]\n")))
- ((equal language "de")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-sa/3.0/de/deed.de";)
- (insert (concat "* Lizenz
+ ((equal language "de")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-sa/3.0/de/deed.de";)
+ (insert (concat "* Lizenz
Dieses Werk bzw. Inhalt steht unter einer [[" org-license-cc-url
"][Namensnennung - Weitergabe unter gleichen Bedingungen 3.0 Deutschland]]\n")))
- ((equal language "es")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-sa/3.0/es/deed.es";)
- (concat (insert "* Licencia
-Este documento está bajo una [[" org-license-cc-url "][Licencia Creative
Commons Atribución Compartir por Igual 3.0 España]]\n")))
- ((equal language "eu")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-sa/3.0/es/deed.eu";)
- (concat (insert "* Licenzua
-Testua [[" org-license-cc-url "][Aitortu-PartekatuBerdin 3.0 Espainia]]
lizentziari jarraituz erabil daiteke\n")))
- ((equal language "fi")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-sa/1.0/fi/deed.fi";)
- (insert (concat "* Lisenssi
+ ((equal language "es")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-sa/3.0/es/deed.es";)
+ (insert "* Licencia
+Este documento está bajo una [[" org-license-cc-url "][Licencia Creative
Commons Atribución Compartir por Igual 3.0 España]]\n"))
+ ((equal language "eu")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-sa/3.0/es/deed.eu";)
+ (insert "* Licenzua
+Testua [[" org-license-cc-url "][Aitortu-PartekatuBerdin 3.0 Espainia]]
lizentziari jarraituz erabil daiteke\n"))
+ ((equal language "fi")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-sa/1.0/fi/deed.fi";)
+ (insert (concat "* Lisenssi
Teksti on saatavilla [[" org-license-cc-url "][Nimeä-JaaSamoin 1.0 Suomi]]
lisenssillä\n")))
- ((equal language "fr")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-sa/3.0/fr/deed.fr";)
- (concat (insert "* Licence
-Ce(tte) œuvre est mise à disposition selon les termes de la [["
org-license-cc-url "][Licence Creative Commons Attribution - Partage dans les
Mêmes Conditions 3.0 France]]\n")))
- ((equal language "gl")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-sa/3.0/es/deed.gl";)
- (insert (concat "* Licenza
+ ((equal language "fr")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-sa/3.0/fr/deed.fr";)
+ (insert "* Licence
+Ce(tte) œuvre est mise à disposition selon les termes de la [["
org-license-cc-url "][Licence Creative Commons Attribution - Partage dans les
Mêmes Conditions 3.0 France]]\n"))
+ ((equal language "gl")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-sa/3.0/es/deed.gl";)
+ (insert (concat "* Licenza
Todo o texto está dispoñible baixo a [[" org-license-cc-url "][licenza
Creative Commons recoñecemento compartir igual 3.0]].\n")))
- ((equal language "it")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-sa/3.0/it/deed.it";)
- (insert (concat "* Licenza
+ ((equal language "it")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-sa/3.0/it/deed.it";)
+ (insert (concat "* Licenza
Quest'opera e distribuita con Licenza [[" org-license-cc-url "][Licenza
Creative Commons Attribuzione - Condividi allo stesso modo 3.0 Italia]]\n")))
- ((equal language "jp")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-sa/2.1/jp/deed.en";)
- (insert (concat "* ライセンス
+ ((equal language "jp")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-sa/2.1/jp/deed.en";)
+ (insert (concat "* ライセンス
この文書は、[[" org-license-cc-url "][Creative Commons Attribution 2.1 ]]
ライセンスの下である\n")))
- ((equal language "nl")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-sa/3.0/nl/deed.nl";)
- (insert (concat "* Licentie
+ ((equal language "nl")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-sa/3.0/nl/deed.nl";)
+ (insert (concat "* Licentie
Dit werk is valt onder een [[" org-license-cc-url "][Creative Commons
Naamsvermelding Gelijk Delen 3.0 Nederland]]\n")))
- ((equal language "pt")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-sa/3.0/pt/deed.pt";)
- (insert (concat "* Licença
+ ((equal language "pt")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-sa/3.0/pt/deed.pt";)
+ (insert (concat "* Licença
Este texto é disponibilizado nos termos da licença [[" org-license-cc-url
"][Atribuição-CompartilhaIgual 3.0 Portugal]]\n")))
- (t
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-sa/4.0/deed";)
- (insert (concat "* License
+ (t
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-sa/4.0/deed";)
+ (insert (concat "* License
This document is under a [[" org-license-cc-url "][Creative Commons
Attribution-ShareAlike 4.0 International]]\n"))))
- (if (string= "" org-license-images-directory)
- (insert (concat "\n[[" org-license-cc-url
"][file:https://i.creativecommons.org/l/by-sa/3.0/80x15.png]]\n";))
- (insert (concat "\n[[" org-license-cc-url "][file:"
org-license-images-directory "/by-sa/3.0/80x15.png]]\n"))))
+ (if (string= "" org-license-images-directory)
+ (insert (concat "\n[[" org-license-cc-url
"][file:https://i.creativecommons.org/l/by-sa/3.0/80x15.png]]\n";))
+ (insert (concat "\n[[" org-license-cc-url "][file:"
org-license-images-directory "/by-sa/3.0/80x15.png]]\n")))))
(defun org-license-cc-by-nd (language)
(interactive "MLanguage ( br | ca | de | en | es | eu | fi | fr | it | pt ):
" language)
- (cond ((equal language "br")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nd/3.0/br/deed.pt_BR";)
- (insert (concat "* Licença
+ (let (org-license-cc-url)
+ (cond ((equal language "br")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nd/3.0/br/deed.pt_BR";)
+ (insert (concat "* Licença
Este texto é disponibilizado nos termos da licença [[" org-license-cc-url
"][Atribuição Compartil ha Igual 3.0 Brasil]]\n")))
- ((equal language "ca")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nd/3.0/es/deed.ca";)
- (insert (concat "* Licència
+ ((equal language "ca")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nd/3.0/es/deed.ca";)
+ (insert (concat "* Licència
El text està disponible sota la [[" org-license-cc-url
"][Reconeixement-SenseObraDerivada 3.0 Espanya]]\n")))
- ((equal language "de")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nd/3.0/de/deed.de";)
- (insert (concat "* Lizenz
+ ((equal language "de")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nd/3.0/de/deed.de";)
+ (insert (concat "* Lizenz
Dieses Werk bzw. Inhalt steht unter einer [[" org-license-cc-url
"][Namensnennung-Keine Bearbeitung 3.0 Deutschland]]\n")))
- ((equal language "es")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nd/3.0/es/deed.es";)
- (insert (concat "* Licencia
+ ((equal language "es")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nd/3.0/es/deed.es";)
+ (insert (concat "* Licencia
Este documento está bajo una [[" org-license-cc-url "][Licencia Creative
Commons Atribución-SinDerivadas 3.0]]\n")))
- ((equal language "eu")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nd/3.0/es/deed.eu";)
- (insert (concat "* Licenzua
+ ((equal language "eu")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nd/3.0/es/deed.eu";)
+ (insert (concat "* Licenzua
Testua [[" org-license-cc-url "][Aitortu-LanEratorririkGabe 3.0 Espainia]]
lizentziari jarraituz erabil daiteke\n")))
- ((equal language "fi")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nd/1.0/fi/deed.fi";)
- (insert (concat "* Lisenssi
+ ((equal language "fi")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nd/1.0/fi/deed.fi";)
+ (insert (concat "* Lisenssi
Teksti on saatavilla [[" org-license-cc-url "][Nimeä-JaaSamoin 1.0 Suomi]]
lisenssillä\n")))
- ((equal language "fr")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nd/3.0/fr/deed.fr";)
- (insert (concat "* Licence
+ ((equal language "fr")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nd/3.0/fr/deed.fr";)
+ (insert (concat "* Licence
Ce(tte) œuvre est mise à disposition selon les termes de la [["
org-license-cc-url "][Licence Creative Commons Attribution - Pas de
Modification 3.0 France]]\n")))
- ((equal language "gl")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nd/3.0/es/deed.gl";)
- (insert (concat "* Licenza
+ ((equal language "gl")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nd/3.0/es/deed.gl";)
+ (insert (concat "* Licenza
Todo o texto está dispoñible baixo a [[" org-license-cc-url "][licenza
Creative Commons recoñecemento compartir igual 3.0]].\n")))
- ((equal language "it")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nd/3.0/it/deed.it";)
- (insert (concat "* Licenza
+ ((equal language "it")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nd/3.0/it/deed.it";)
+ (insert (concat "* Licenza
Quest'opera e distribuita con Licenza [[" org-license-cc-url "][Licenza
Creative Commons Attribuzione - Non opere derivate 3.0 Italia]]\n")))
- ((equal language "jp")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nd/2.1/jp/deed.en";)
- (insert (concat "* ライセンス
+ ((equal language "jp")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nd/2.1/jp/deed.en";)
+ (insert (concat "* ライセンス
この文書は、[[" org-license-cc-url "][Creative Commons No Derivatives 2.1]]
ライセンスの下である\n")))
- ((equal language "nl")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nd/3.0/nl/deed.nl";)
- (insert (concat "* Licentie
+ ((equal language "nl")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nd/3.0/nl/deed.nl";)
+ (insert (concat "* Licentie
Dit werk is valt onder een [[" org-license-cc-url "][Creative Commons
Naamsvermelding GeenAfgeleideWerken 3.0 Nederland]]\n")))
- ((equal language "pt")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nd/3.0/pt/deed.pt";)
- (insert (concat "* Licença
+ ((equal language "pt")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nd/3.0/pt/deed.pt";)
+ (insert (concat "* Licença
Este texto é disponibilizado nos termos da licença [[" org-license-cc-url
"][Atribuição Sem Derivados 3.0 Portugal]]\n")))
- (t
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nd/4.0/deed";)
- (insert (concat "* License
+ (t
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nd/4.0/deed";)
+ (insert (concat "* License
This document is under a [[" org-license-cc-url "][Creative Commons No
Derivatives 4.0 International]]\n"))))
- (if (string= "" org-license-images-directory)
- (insert (concat "\n[[" org-license-cc-url
"][file:https://i.creativecommons.org/l/by-nd/3.0/80x15.png]]\n";))
- (insert (concat "\n[[" org-license-cc-url "][file:"
org-license-images-directory "/by-nd/3.0/80x15.png]]\n"))))
+ (if (string= "" org-license-images-directory)
+ (insert (concat "\n[[" org-license-cc-url
"][file:https://i.creativecommons.org/l/by-nd/3.0/80x15.png]]\n";))
+ (insert (concat "\n[[" org-license-cc-url "][file:"
org-license-images-directory "/by-nd/3.0/80x15.png]]\n")))))
(defun org-license-cc-by-nc (language)
(interactive "MLanguage ( br | ca | de | en | es | eu | fi | fr | it | jp |
nl | pt ): " language)
- (cond ((equal language "br")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc/3.0/br/deed.pt_BR";)
- (insert (concat "* Licença
+ (let (org-license-cc-url)
+ (cond ((equal language "br")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc/3.0/br/deed.pt_BR";)
+ (insert (concat "* Licença
Este texto é disponibilizado nos termos da licença [[" org-license-cc-url
"][Atribuição Não Comercial 3.0 Brasil]]\n")))
- ((equal language "ca")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc/3.0/es/deed.ca";)
- (insert (concat "* Licència
+ ((equal language "ca")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc/3.0/es/deed.ca";)
+ (insert (concat "* Licència
El text està disponible sota la [[" org-license-cc-url
"][Reconeixement-NoComercial 3.0 Espanya]]\n")))
- ((equal language "de")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc/3.0/de/deed.de";)
- (insert (concat "* Lizenz
+ ((equal language "de")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc/3.0/de/deed.de";)
+ (insert (concat "* Lizenz
Dieses Werk bzw. Inhalt steht unter einer [[" org-license-cc-url
"][Namensnennung-Nicht-kommerziell 3.0 Deutschland]]\n")))
- ((equal language "es")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc/3.0/es/deed.es";)
- (insert (concat "* Licencia
+ ((equal language "es")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc/3.0/es/deed.es";)
+ (insert (concat "* Licencia
Este documento está bajo una [[" org-license-cc-url "][Licencia Creative
Commons Reconocimiento-NoComercial 3.0]]\n")))
- ((equal language "eu")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc/3.0/es/deed.eu";)
- (insert "* Licenzua
+ ((equal language "eu")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc/3.0/es/deed.eu";)
+ (insert "* Licenzua
Testua [[" org-license-cc-url "][Aitortu-EzKomertziala 3.0 Espainia]]
lizentziari jarraituz erabil daiteke\n"))
- ((equal language "fi")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc/1.0/fi/deed.fi";)
- (insert (concat "* Lisenssi
+ ((equal language "fi")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc/1.0/fi/deed.fi";)
+ (insert (concat "* Lisenssi
Teksti on saatavilla [[" org-license-cc-url "][Nimeä-Epäkaupallinen 1.0
Suomi]] lisenssillä\n")))
- ((equal language "fr")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc/3.0/fr/deed.fr";)
- (insert (concat "* Licence
+ ((equal language "fr")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc/3.0/fr/deed.fr";)
+ (insert (concat "* Licence
Ce(tte) œuvre est mise à disposition selon les termes de la [["
org-license-cc-url "][Licence Creative Commons Attribution - Pas d'Utilisation
Commerciale 3.0 France]]\n")))
- ((equal language "gl")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc/3.0/es/deed.gl";)
- (insert (concat "* Licenza
+ ((equal language "gl")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc/3.0/es/deed.gl";)
+ (insert (concat "* Licenza
Todo o texto está dispoñible baixo a [[" org-license-cc-url "][licenza
Creative Commons recoñecemento compartir igual 3.0]].\n")))
- ((equal language "it")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc/3.0/it/deed.it";)
- (insert (concat "* Licenza
+ ((equal language "it")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc/3.0/it/deed.it";)
+ (insert (concat "* Licenza
Quest'opera e distribuita con Licenza [[" org-license-cc-url "][Licenza
Creative Commons Attribuzione - Non commerciale 3.0 Italia]]\n")))
- ((equal language "jp")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc/2.1/jp/deed.en";)
- (insert (concat "* ライセンス
+ ((equal language "jp")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc/2.1/jp/deed.en";)
+ (insert (concat "* ライセンス
この文書は、[[" org-license-cc-url "][Creative Commons Attribution-NonCommercial 2.1
]] ライセンスの下である\n")))
- ((equal language "nl")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc/3.0/nl/deed.nl";)
- (insert (concat "* Licentie
+ ((equal language "nl")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc/3.0/nl/deed.nl";)
+ (insert (concat "* Licentie
Dit werk is valt onder een [[" org-license-cc-url "][Creative Commons
Naamsvermelding NietCommercieel 3.0 Nederland 3.0 Nederland]]\n")))
- ((equal language "pt")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc/3.0/pt/deed.pt";)
- (insert (concat "* Licença
+ ((equal language "pt")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc/3.0/pt/deed.pt";)
+ (insert (concat "* Licença
Este texto é disponibilizado nos termos da licença [[" org-license-cc-url
"][Atribuição Não Comercial 3.0 Portugal]]\n")))
- (t
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc/4.0/deed";)
- (insert (concat "* License
+ (t
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc/4.0/deed";)
+ (insert (concat "* License
This document is under a [[" org-license-cc-url "][Creative Commons
Attribution-NonCommercial 4.0 International]]\n"))))
- (if (string= "" org-license-images-directory)
- (insert (concat "\n[[" org-license-cc-url
"][file:https://i.creativecommons.org/l/by-nc/3.0/80x15.png]]\n";))
- (insert (concat "\n[[" org-license-cc-url "][file:"
org-license-images-directory "/by-nc/3.0/80x15.png]]\n"))))
+ (if (string= "" org-license-images-directory)
+ (insert (concat "\n[[" org-license-cc-url
"][file:https://i.creativecommons.org/l/by-nc/3.0/80x15.png]]\n";))
+ (insert (concat "\n[[" org-license-cc-url "][file:"
org-license-images-directory "/by-nc/3.0/80x15.png]]\n")))))
(defun org-license-cc-by-nc-sa (language)
(interactive "MLanguage ( br | ca | de | en | es | eu | fi | fr | gl | it |
jp | nl | pt ): " language)
- (cond ((equal language "br")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc-sa/3.0/br/deed.pt_BR";)
- (insert (concat "* Licença
+ (let (org-license-cc-url)
+ (cond ((equal language "br")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc-sa/3.0/br/deed.pt_BR";)
+ (insert (concat "* Licença
Este texto é disponibilizado nos termos da licença [[" org-license-cc-url
"][Atribuição Não Comercial - Compartil ha Igual 3.0 Brasil]]\n")))
- ((equal language "ca")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc-sa/3.0/es/deed.ca";)
- (insert (concat "* Licència
+ ((equal language "ca")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc-sa/3.0/es/deed.ca";)
+ (insert (concat "* Licència
El text està disponible sota la [[" org-license-cc-url
"][Reconeixement-NoComercial 3.0 Espanya]]\n")))
- ((equal language "de")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc-sa/3.0/de/deed.de";)
- (insert (concat "* Lizenz
+ ((equal language "de")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc-sa/3.0/de/deed.de";)
+ (insert (concat "* Lizenz
Dieses Werk bzw. Inhalt steht unter einer [[" org-license-cc-url
"][Namensnennung - Weitergabe unter gleichen Bedingungen 3.0 Deutschland]]\n")))
- ((equal language "es")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc-sa/3.0/es/deed.es";)
- (insert (concat "* Licencia
+ ((equal language "es")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc-sa/3.0/es/deed.es";)
+ (insert (concat "* Licencia
Este documento está bajo una [[" org-license-cc-url "][Licencia Creative
Commons Reconocimiento-NoComercial 3.0]]\n")))
- ((equal language "eu")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc-sa/3.0/es/deed.eu";)
- (insert "* Licenzua
+ ((equal language "eu")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc-sa/3.0/es/deed.eu";)
+ (insert "* Licenzua
Testua [[" org-license-cc-url "][Aitortu-EzKomertziala-PartekatuBerdin 3.0
Espainia]] lizentziari jarraituz erabil daiteke\n"))
- ((equal language "fi")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc-sa/1.0/fi/deed.fi";)
- (insert (concat "* Lisenssi
+ ((equal language "fi")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc-sa/1.0/fi/deed.fi";)
+ (insert (concat "* Lisenssi
Teksti on saatavilla [[" org-license-cc-url "][Nimeä-Epäkaupallinen-JaaSamoin
1.0 Suomi]] lisenssillä\n")))
- ((equal language "fr")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc-sa/3.0/fr/deed.fr";)
- (insert (concat "* Licence
+ ((equal language "fr")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc-sa/3.0/fr/deed.fr";)
+ (insert (concat "* Licence
Ce(tte) œuvre est mise à disposition selon les termes de la [["
org-license-cc-url "][Licence Creative Commons Attribution - Pas d’Utilisation
Commerciale - Partage dans les Mêmes Conditions 3.0 France]]\n")))
- ((equal language "gl")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc-sa/3.0/es/deed.gl";)
- (insert (concat "* Licenza
+ ((equal language "gl")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc-sa/3.0/es/deed.gl";)
+ (insert (concat "* Licenza
Todo o texto está dispoñible baixo a [[" org-license-cc-url "][licenza
Creative Commons recoñecemento compartir igual 3.0]].\n")))
- ((equal language "it")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc-sa/3.0/it/deed.it";)
- (insert (concat "* Licenza
+ ((equal language "it")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc-sa/3.0/it/deed.it";)
+ (insert (concat "* Licenza
Quest'opera e distribuita con Licenza [[" org-license-cc-url "][Licenza
Creative Commons Attribuzione - Non opere derivate 3.0 Italia]]\n")))
- ((equal language "jp")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc-sa/2.1/jp/deed.en";)
- (insert (concat "* ライセンス
+ ((equal language "jp")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc-sa/2.1/jp/deed.en";)
+ (insert (concat "* ライセンス
この文書は、[[" org-license-cc-url "][License Creative Commons Attribution Non
Commercial Share Alike 2.1 ]] ライセンスの下である\n")))
- ((equal language "nl")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc-sa/3.0/nl/deed.nl";)
- (insert (concat "* Licentie
+ ((equal language "nl")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc-sa/3.0/nl/deed.nl";)
+ (insert (concat "* Licentie
Dit werk is valt onder een [[" org-license-cc-url "][Creative Commons
Naamsvermelding NietCommercieel GelijkDelen 3.0 Nederland]]\n")))
- ((equal language "pt")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc/3.0/pt/deed.pt";)
- (insert (concat "* Licença
+ ((equal language "pt")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc/3.0/pt/deed.pt";)
+ (insert (concat "* Licença
Este texto é disponibilizado nos termos da licença [[" org-license-cc-url
"][Atribuição NãoComercial Compartil ha Igual 3.0 Portugal]]\n")))
- (t
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc-sa/4.0/deed";)
- (insert (concat "* License
+ (t
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc-sa/4.0/deed";)
+ (insert (concat "* License
This document is under a [[" org-license-cc-url "][License Creative Commons
Attribution Non Commercial Share Alike 4.0 International]]\n"))))
- (if (string= "" org-license-images-directory)
- (insert (concat "\n[[" org-license-cc-url
"][file:https://i.creativecommons.org/l/by-nc-sa/3.0/80x15.png]]\n";))
- (insert (concat "\n[[" org-license-cc-url "][file:"
org-license-images-directory "/by-nc-sa/3.0/80x15.png]]\n"))))
+ (if (string= "" org-license-images-directory)
+ (insert (concat "\n[[" org-license-cc-url
"][file:https://i.creativecommons.org/l/by-nc-sa/3.0/80x15.png]]\n";))
+ (insert (concat "\n[[" org-license-cc-url "][file:"
org-license-images-directory "/by-nc-sa/3.0/80x15.png]]\n")))))
(defun org-license-cc-by-nc-nd (language)
(interactive "MLanguage ( br | ca | de | en | es | eu | fi | fr | gl | it |
pt ): " language)
- (cond ((equal language "br")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc-nd/3.0/pt/deed.pt";)
- (insert (concat "* Licença
+ (let (org-license-cc-url)
+ (cond ((equal language "br")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc-nd/3.0/pt/deed.pt";)
+ (insert (concat "* Licença
Este texto é disponibilizado nos termos da licença [[" org-license-cc-url
"][Atribuição Não Comercial Sem Derivados 3.0 Brasil]]\n")))
- ((equal language "ca")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc-nd/3.0/es/deed.ca";)
- (insert (concat "* Licència
+ ((equal language "ca")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc-nd/3.0/es/deed.ca";)
+ (insert (concat "* Licència
El text està disponible sota la [[" org-license-cc-url
"][Reconeixement-NoComercial-SenseObraDerivada 3.0 Espanya]]\n")))
- ((equal language "de")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc-nd/3.0/de/deed.de";)
- (insert (concat "* Lizenz
+ ((equal language "de")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc-nd/3.0/de/deed.de";)
+ (insert (concat "* Lizenz
Dieses Werk bzw. Inhalt steht unter einer [[" org-license-cc-url
"][Namensnennung-NichtKommerziell-KeineBearbeitung 3.0 Deutschland]]\n")))
- ((equal language "es")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc-nd/3.0/es/deed.es";)
- (insert (concat "* Licencia
+ ((equal language "es")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc-nd/3.0/es/deed.es";)
+ (insert (concat "* Licencia
Este documento está bajo una [[" org-license-cc-url "][Licencia Creative
Commons Reconocimiento-NoComercial-SinObraDerivada 3.0]]\n")))
- ((equal language "eu")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc-nd/3.0/es/deed.eu";)
- (insert (concat "* Licenzua
+ ((equal language "eu")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc-nd/3.0/es/deed.eu";)
+ (insert (concat "* Licenzua
Testua [[" org-license-cc-url "][Aitortu-LanEratorririkGabe 3.0 Espainia]]
lizentziari jarraituz erabil daiteke\n")))
- ((equal language "fi")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc-nd/1.0/fi/deed.fi";)
- (insert (concat "* Lisenssi
+ ((equal language "fi")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc-nd/1.0/fi/deed.fi";)
+ (insert (concat "* Lisenssi
Teksti on saatavilla [[" org-license-cc-url "][Nimeä-Ei
muutoksia-Epäkaupallinen 1.0 Suomi]] lisenssillä\n")))
- ((equal language "fr")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc-nd/3.0/fr/deed.fr";)
- (insert (concat "* Licence
+ ((equal language "fr")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc-nd/3.0/fr/deed.fr";)
+ (insert (concat "* Licence
Ce(tte) œuvre est mise à disposition selon les termes de la [["
org-license-cc-url "][Licence Creative Commons Attribution - Pas de
Modification 3.0 France]]\n")))
- ((equal language "gl")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc-nd/3.0/es/deed.gl";)
- (insert (concat "* Licenza
+ ((equal language "gl")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc-nd/3.0/es/deed.gl";)
+ (insert (concat "* Licenza
Todo o texto está dispoñible baixo a [[" org-license-cc-url "][licenza
Creative Commons recoñecemento compartir igual 3.0]].\n")))
- ((equal language "it")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc-nd/3.0/it/deed.it";)
- (insert (concat "* Licenza
+ ((equal language "it")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc-nd/3.0/it/deed.it";)
+ (insert (concat "* Licenza
Quest'opera e distribuita con Licenza [[" org-license-cc-url "][Licenza
Creative Commons Attribuzione - Non opere derivate 3.0 Italia]]\n")))
- ((equal language "jp")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc-nd/2.1/jp/deed.en";)
- (insert (concat "* ライセンス
+ ((equal language "jp")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc-nd/2.1/jp/deed.en";)
+ (insert (concat "* ライセンス
この文書は [[" org-license-cc-url "][License Creative Commons Attribution Non
Commercial - No Derivs 2.1]] ライセンスの下である\n")))
- ((equal language "nl")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc-nd/3.0/nl/deed.nl";)
- (insert (concat "* Licentie
+ ((equal language "nl")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc-nd/3.0/nl/deed.nl";)
+ (insert (concat "* Licentie
Dit werk is valt onder een [[" org-license-cc-url "][Creative Commons
Naamsvermelding NietCommercieel GeenAfgeleideWerken 3.0 Nederland]]\n")))
- ((equal language "pt")
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc-nd/3.0/pt/deed.pt";)
- (insert (concat "* Licença
+ ((equal language "pt")
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc-nd/3.0/pt/deed.pt";)
+ (insert (concat "* Licença
Este texto é disponibilizado nos termos da licença [[" org-license-cc-url
"][Atribuição Não Comercial Sem Derivados 3.0 Portugal]]\n")))
- (t
- (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc-nd/4.0/deed";)
- (insert (concat "* License
+ (t
+ (setq org-license-cc-url
"https://creativecommons.org/licenses/by-nc-nd/4.0/deed";)
+ (insert (concat "* License
This document is under a [[" org-license-cc-url "][License Creative Commons
Attribution-NonCommercial-NoDerivatives 4.0 International]]\n"))))
- (if (string= "" org-license-images-directory)
- (insert (concat "\n[[" org-license-cc-url
"][file:https://i.creativecommons.org/l/by-nc-nd/3.0/80x15.png]]\n";))
- (insert (concat "\n[[" org-license-cc-url "][file:"
org-license-images-directory "/by-nc-nd/3.0/80x15.png]]\n"))))
+ (if (string= "" org-license-images-directory)
+ (insert (concat "\n[[" org-license-cc-url
"][file:https://i.creativecommons.org/l/by-nc-nd/3.0/80x15.png]]\n";))
+ (insert (concat "\n[[" org-license-cc-url "][file:"
org-license-images-directory "/by-nc-nd/3.0/80x15.png]]\n")))))
(defun org-license-gfdl (language)
(interactive "MLanguage (es | en): " language)
- (cond ((equal language "es")
- (insert "* Licencia
+ (let (org-license-cc-url)
+ (cond ((equal language "es")
+ (insert "* Licencia
Copyright (C) " (format-time-string "%Y") " " user-full-name
"\n Se permite copiar, distribuir y/o modificar este documento
bajo los términos de la GNU Free Documentation License, Version 1.3
o cualquier versión publicada por la Free Software Foundation;
sin Secciones Invariantes y sin Textos de Portada o Contraportada.
Una copia de la licencia está incluida en
[[https://www.gnu.org/copyleft/fdl.html][GNU Free Documentation License]].\n"))
- (t (insert (concat "* License
+ (t (insert (concat "* License
Copyright (C) " (format-time-string "%Y") " " user-full-name
"\n Permission is granted to copy, distribute and/or modify this document
under the terms of the GNU Free Documentation License, Version 1.3
or any later version published by the Free Software Foundation;
with no Invariant Sections, no Front-Cover Texts, and no Back-Cover Texts.
A copy of the license is included in
[[https://www.gnu.org/copyleft/fdl.html][GNU Free Documentation
License]].\n"))))
- (if (string= "" org-license-images-directory)
- (insert
"\n[[https://www.gnu.org/copyleft/fdl.html][file:https://upload.wikimedia.org/wikipedia/commons/thumb/4/42/GFDL_Logo.svg/200px-GFDL_Logo.svg.png]]\n";)
- (insert (concat "\n[[https://www.gnu.org/copyleft/fdl.html][file:";
org-license-images-directory "/gfdl/gfdl.png]]\n"))))
+ (if (string= "" org-license-images-directory)
+ (insert
"\n[[https://www.gnu.org/copyleft/fdl.html][file:https://upload.wikimedia.org/wikipedia/commons/thumb/4/42/GFDL_Logo.svg/200px-GFDL_Logo.svg.png]]\n";)
+ (insert (concat "\n[[https://www.gnu.org/copyleft/fdl.html][file:";
org-license-images-directory "/gfdl/gfdl.png]]\n")))))
(defun org-license-publicdomain-zero (language)
(interactive "MLanguage ( en | es ): " language)
- (setq org-license-pd-url
"https://creativecommons.org/publicdomain/zero/1.0/";)
- (setq org-license-pd-file "zero/1.0/80x15.png")
- (if (equal language "es")
- (insert (concat "* Licencia
+ (let (org-license-pd-url org-license-pd-file)
+ (setq org-license-pd-url
"https://creativecommons.org/publicdomain/zero/1.0/";)
+ (setq org-license-pd-file "zero/1.0/80x15.png")
+ (if (equal language "es")
+ (insert (concat "* Licencia
Este documento está bajo una licencia [[" org-license-pd-url "][Public Domain
Zero]]\n"))
- (insert (concat "* License
+ (insert (concat "* License
This documento is under a [[" org-license-pd-url "][Public Domain Zero]]
license\n")))
- (if (string= "" org-license-images-directory)
- (insert (concat "\n[[" org-license-pd-url
"][file:https://i.creativecommons.org/p/zero/1.0/80x15.png]]\n";))
- (insert (concat "\n[[" org-license-pd-url "][file:"
org-license-images-directory org-license-pd-file "]]\n"))))
+ (if (string= "" org-license-images-directory)
+ (insert (concat "\n[[" org-license-pd-url
"][file:https://i.creativecommons.org/p/zero/1.0/80x15.png]]\n";))
+ (insert (concat "\n[[" org-license-pd-url "][file:"
org-license-images-directory org-license-pd-file "]]\n")))))
(defun org-license-publicdomain-mark (language)
(interactive "MLanguage ( en | es ): " language)
- (setq org-license-pd-url
"https://creativecommons.org/publicdomain/mark/1.0/";)
- (setq org-license-pd-file "mark/1.0/80x15.png")
- (if (equal language "es")
- (insert (concat "* Licencia
+ (let (org-license-pd-url org-license-pd-file)
+ (setq org-license-pd-url
"https://creativecommons.org/publicdomain/mark/1.0/";)
+ (setq org-license-pd-file "mark/1.0/80x15.png")
+ (if (equal language "es")
+ (insert (concat "* Licencia
Este documento está bajo una licencia [[" org-license-pd-url "][Etiqueta de
Dominio Público 1.0]]\n"))
- (insert (concat "* License
+ (insert (concat "* License
This documento is under a [[" org-license-pd-url "][Public Domain Mark]]
license\n")))
- (if (string= "" org-license-images-directory)
- (insert (concat "\n[[" org-license-pd-url
"][file:https://i.creativecommons.org/p/mark/1.0/80x15.png]]\n";))
- (insert (concat "\n[[" org-license-pd-url "][file:"
org-license-images-directory org-license-pd-file "]]\n"))))
+ (if (string= "" org-license-images-directory)
+ (insert (concat "\n[[" org-license-pd-url
"][file:https://i.creativecommons.org/p/mark/1.0/80x15.png]]\n";))
+ (insert (concat "\n[[" org-license-pd-url "][file:"
org-license-images-directory org-license-pd-file "]]\n")))))
(defun org-license-print-all ()
"Print all combinations of licenses and languages, it's useful to find bugs"
![https://i.creativecommons.org/l/by/3.0/80x15.png]]\n"](https://i.creativecommons.org/l/by/3.0/80x15.png]]\n"){kind=link}
![https://i.creativecommons.org/l/by-sa/3.0/80x15.png]]\n"](https://i.creativecommons.org/l/by-sa/3.0/80x15.png]]\n"){kind=link}
![https://i.creativecommons.org/l/by-nd/3.0/80x15.png]]\n"](https://i.creativecommons.org/l/by-nd/3.0/80x15.png]]\n"){kind=link}
![https://i.creativecommons.org/l/by-nc/3.0/80x15.png]]\n"](https://i.creativecommons.org/l/by-nc/3.0/80x15.png]]\n"){kind=link}
![https://i.creativecommons.org/l/by-nc-sa/3.0/80x15.png]]\n"](https://i.creativecommons.org/l/by-nc-sa/3.0/80x15.png]]\n"){kind=link}
![https://i.creativecommons.org/l/by-nc-nd/3.0/80x15.png]]\n"](https://i.creativecommons.org/l/by-nc-nd/3.0/80x15.png]]\n"){kind=link}
![https://www.gnu.org/copyleft/fdl.html][file:https://upload.wikimedia.org/wikipedia/commons/thumb/4/42/GFDL_Logo.svg/200px-GFDL_Logo.svg.png]]\n"](https://www.gnu.org/copyleft/fdl.html][file:https://upload.wikimedia.org/wikipedia/commons/thumb/4/42/GFDL_Logo.svg/200px-GFDL_Logo.svg.png]]\n"){kind=link}
![https://i.creativecommons.org/p/zero/1.0/80x15.png]]\n"](https://i.creativecommons.org/p/zero/1.0/80x15.png]]\n"){kind=link}
![https://i.creativecommons.org/p/mark/1.0/80x15.png]]\n"](https://i.creativecommons.org/p/mark/1.0/80x15.png]]\n"){kind=link}