ordering languages
authorDavid Arroyo Menéndez <davidam@es.gnu.org>
Thu, 26 Sep 2013 04:57:36 +0000 (06:57 +0200)
committerDavid Arroyo Menéndez <davidam@es.gnu.org>
Thu, 26 Sep 2013 04:57:36 +0000 (06:57 +0200)
code/elisp/org-license.el

index ed9251c..bc54432 100644 (file)
 (defvar org-license-images-directory "")
 
 (defun org-license-cc-by (language)
-  (interactive "MLanguage (en | de | fr | de | it | es | eu | eo): " language)
-  (cond ((equal language "es")
-        (insert "* Licencia
+  (interactive "MLanguage (en | es | eo | eu | de | fr | it ): " language)
+  (cond ((equal language "eo")
+         (insert "* Licenco
+Ĉi tiu verko estas disponebla laŭ la permesilo [[http://creativecommons.org/licenses/by/3.0/eo/deed.eo][Krea Komunaĵo Atribuite 3.0 Neadaptita]]"))
+        ((equal language "es")
+         (insert "* Licencia
 Este documento está bajo una [[http://creativecommons.org/licenses/by/3.0/es/deed.es][Licencia Creative Commons Atribución 3.0 España]]"))
-       ((equal language "de")
-        (insert "* Lizenz
+        ((equal language "eu")
+         (insert "* Licenzua
+Testua [[http://creativecommons.org/licenses/by/3.0/es/deed.eu][Aitortu 3.0 Espainia]] lizentziari jarraituz erabil daiteke"))
+        ((equal language "de")
+         (insert "* Lizenz
 Dieses Werk bzw. Inhalt steht unter einer [[http://creativecommons.org/licenses/by/3.0/de/deed.de][Lizenz Creative Commons Namensnennung 3.0 Deutschland]]"))
-       ((equal language "it")
-        (insert "* Licenza
-Quest'opera e distribuita con Licenza [[http://creativecommons.org/licenses/by/3.0/it/deed.it][Licenza Creative Commons Attribuzione 3.0 Italia]]"))
-       ((equal language "fr")
-        (insert "* Licence
+        ((equal language "fr")
+         (insert "* Licence
 Ce(tte) œuvre est mise à disposition selon les termes de la [[http://creativecommons.org/licenses/by/3.0/fr/deed.fr][Licence Creative Commons Attribution 3.0 France]]"))
-       ((equal language "eo")
-        (insert "* Licenco
-Ĉi tiu verko estas disponebla laŭ la permesilo [[http://creativecommons.org/licenses/by/3.0/eo/deed.eo][Krea Komunaĵo Atribuite 3.0 Neadaptita]]"))
-       ((equal language "eu")
-        (insert "* Licenzua
-Testua [[http://creativecommons.org/licenses/by/3.0/es/deed.eu][Aitortu 3.0 Espainia]] lizentziari jarraituz erabil daiteke"))
-       (t (insert "* License
+        ((equal language "it")
+         (insert "* Licenza
+Quest'opera e distribuita con Licenza [[http://creativecommons.org/licenses/by/3.0/it/deed.it][Licenza Creative Commons Attribuzione 3.0 Italia]]"))
+        (t (insert "* License
 This document is under a [[http://creativecommons.org/licenses/by/3.0/deed][Creative Commons Attribution 3.0]]")))
   (if (string= "" org-license-images-directory)
-      (insert "\n\n[[http://creativecommons.org/licenses/by/3.0/deed][file:http://i.creativecommons.org/l/by/3.0/80x15.png]]")
-    (insert (concat "\n\n[[http://creativecommons.org/licenses/by/3.0/deed][file:" org-license-images-directory "/by/3.0/80x15.png]]"))))
+      (insert "\n\n[[http://creativecommons.org/licenses/by/3.0/deed][file:http://i.creativecommons.org/l/by/3.0/80x15.png]]\n\n")
+    (insert (concat "\n\n[[http://creativecommons.org/licenses/by/3.0/deed][file:" org-license-images-directory "/by/3.0/80x15.png]]\n\n"))))
 
 (defun org-license-cc-by-sa (language)
-  (interactive "MLanguage (en | es | de | it | fr ): " language)
+  (interactive "MLanguage (en | es | eu | de | fr | it ): " language)
   (cond ((equal language "es") 
         (insert "* Licencia
 Este documento está bajo una [[http://creativecommons.org/licenses/by-sa/3.0/es/deed.es][Licencia Creative Commons Atribución Compartir por Igual 3.0 España]]"))
+       ((equal language "eu")
+        (insert "* Licenzua
+Testua [[http://creativecommons.org/licenses/by-sa/3.0/es/deed.eu][Aitortu-PartekatuBerdin 3.0 Espainia]] lizentziari jarraituz erabil daiteke"))
        ((equal language "de")
         (insert "* Lizenz
 Dieses Werk bzw. Inhalt steht unter einer [[http://creativecommons.org/licenses/by-sa/3.0/de/deed.de][Namensnennung - Weitergabe unter gleichen Bedingungen 3.0 Deutschland]]"))
-       ((equal language "it")
-        (insert "* Licenza
-Quest'opera e distribuita con Licenza [[http://creativecommons.org/licenses/by-sa/3.0/it/deed.it][Licenza Creative Commons Attribuzione - Condividi allo stesso modo 3.0 Italia]]"))
        ((equal language "fr")
         (insert "* Licence
 Ce(tte) œuvre est mise à disposition selon les termes de la [[http://creativecommons.org/licenses/by-sa/3.0/fr/deed.fr][Licence Creative Commons Attribution - Partage dans les Mêmes Conditions 3.0 France]]"))
+       ((equal language "it")
+        (insert "* Licenza
+Quest'opera e distribuita con Licenza [[http://creativecommons.org/licenses/by-sa/3.0/it/deed.it][Licenza Creative Commons Attribuzione - Condividi allo stesso modo 3.0 Italia]]"))
 ;;     ((equal language "eo")
 ;;      (insert "* Licenco
 ;; Ĉi tiu verko estas disponebla laŭ la permesilo [[http://creativecommons.org/licenses/by-sa/3.0/eo/deed.eo][Krea Komunaĵo Atribuite 3.0 Neadaptita]]"))
-       ((equal language "eu")
-        (insert "* Licenzua
-Testua [[http://creativecommons.org/licenses/by-sa/3.0/es/deed.eu][Aitortu-PartekatuBerdin 3.0 Espainia]] lizentziari jarraituz erabil daiteke"))
        (t (insert "* License
 This document is under a [[http://creativecommons.org/licenses/by-sa/3.0/deed][License Creative Commons Attribution-ShareAlike Unported 3.0]]")))
   (if (string= "" org-license-images-directory)
-      (insert "\n\n[[http://creativecommons.org/licenses/by-sa/3.0/deed][file:http://i.creativecommons.org/l/by-sa/3.0/80x15.png]]")
-    (insert (concat "\n\n[[http://creativecommons.org/licenses/by-sa/3.0/deed][file:" org-license-images-directory "/by-sa/3.0/80x15.png]]"))))
+      (insert "\n\n[[http://creativecommons.org/licenses/by-sa/3.0/deed][file:http://i.creativecommons.org/l/by-sa/3.0/80x15.png]]\n\n")
+    (insert (concat "\n\n[[http://creativecommons.org/licenses/by-sa/3.0/deed][file:" org-license-images-directory "/by-sa/3.0/80x15.png]]\n\n"))))
 
 (defun org-license-cc-by-nd (language)
-  (interactive "MLanguage (en | es | de | it | fr ): " language)
+  (interactive "MLanguage (en | es | eu | de | fr | it ): " language)
   (cond ((equal language "es")
         (insert "* Licencia
 Este documento está bajo una [[http://creativecommons.org/licenses/by-nd/3.0/es/deed.es][Licencia Creative Commons Atribución-SinDerivadas 3.0]]"))
+       ((equal language "eu")
+        (insert "* Licenzua
+Testua [[http://creativecommons.org/licenses/by-sa/3.0/es/deed.eu][Aitortu-LanEratorririkGabe 3.0 Espainia]] lizentziari jarraituz erabil daiteke"))
        ((equal language "de")
         (insert "* Lizenz
 Dieses Werk bzw. Inhalt steht unter einer [[http://creativecommons.org/licenses/by-nd/3.0/de/deed.de][Namensnennung-Keine Bearbeitung 3.0 Deutschland]]"))
-       ((equal language "it")
-        (insert "* Licenza
-Quest'opera e distribuita con Licenza [[http://creativecommons.org/licenses/by-nd/3.0/it/deed.it][Licenza Creative Commons Attribuzione - Non opere derivate 3.0 Italia]]"))
        ((equal language "fr")
         (insert "* Licence
 Ce(tte) œuvre est mise à disposition selon les termes de la [[http://creativecommons.org/licenses/by-nd/3.0/fr/deed.fr][Licence Creative Commons Attribution - Pas de Modification 3.0 France]]"))
+       ((equal language "it")
+        (insert "* Licenza
+Quest'opera e distribuita con Licenza [[http://creativecommons.org/licenses/by-nd/3.0/it/deed.it][Licenza Creative Commons Attribuzione - Non opere derivate 3.0 Italia]]"))
 ;;     ((equal language "eo")
 ;;      (insert "* Licenco
-;; Ĉi tiu verko estas disponebla laŭ la permesilo [[http://creativecommons.org/licenses/by-nd/3.0/eo/deed.eo][Krea Komunaĵo Atribuite 3.0 Neadaptita]]"))
-       ((equal language "eu")
-        (insert "* Licenzua
-Testua [[http://creativecommons.org/licenses/by-sa/3.0/es/deed.eu][Aitortu-LanEratorririkGabe 3.0 Espainia]] lizentziari jarraituz erabil daiteke"))
+;; Ĉi tiu verko estas disponebla laŭ la permesilo [[http://creativecommons.org/licenses/by-nd/3.0/eo/deed.eo][Krea Komunaĵo Atribuite 3.0 Neadaptita]]"))   
        (t (insert "* License
 This document is under a [[http://creativecommons.org/licenses/by-nd/3.0/deed][Creative Commons Reconocimiento Unported 3.0]]")))
   (if (string= "" org-license-images-directory)
-      (insert "\n\n[[http://creativecommons.org/licenses/by-nd/3.0/deed][file:http://i.creativecommons.org/l/by-nd/3.0/80x15.png]]")
-    (insert (concat "\n\n[[http://creativecommons.org/licenses/by-nd/3.0/deed][file:" org-license-images-directory "/by-nd/3.0/80x15.png]]"))))
+      (insert "\n\n[[http://creativecommons.org/licenses/by-nd/3.0/deed][file:http://i.creativecommons.org/l/by-nd/3.0/80x15.png]]\n\n")
+    (insert (concat "\n\n[[http://creativecommons.org/licenses/by-nd/3.0/deed][file:" org-license-images-directory "/by-nd/3.0/80x15.png]]\n\n"))))
 ;;"))
 
 (defun org-license-cc-by-nc (language)
-  (interactive "MLanguage (en | es | de | it | fr ): " language)
+  (interactive "MLanguage (en | es | eu | de | fr | it ): " language)
   (cond ((equal language "es")
         (insert "* Licencia
 Este documento está bajo una [[http://creativecommons.org/licenses/by-nc/3.0/es/deed.es][Licencia Creative Commons Reconocimiento-NoComercial 3.0]]"))
+       ((equal language "eu")
+        (insert "* Licenzua
+Testua [[http://creativecommons.org/licenses/by-nc/3.0/es/deed.eu][Aitortu-EzKomertziala 3.0 Espainia]] lizentziari jarraituz erabil daiteke"))
        ((equal language "de")
         (insert "* Lizenz
 Dieses Werk bzw. Inhalt steht unter einer [[http://creativecommons.org/licenses/by-nc/3.0/de/deed.de][Namensnennung-Nicht-kommerziell 3.0 Deutschland]]"))
-       ((equal language "it")
-        (insert "* Licenza
-Quest'opera e distribuita con Licenza [[http://creativecommons.org/licenses/by-nc/3.0/it/deed.it][Licenza Creative Commons Attribuzione - Non commerciale 3.0 Italia]]"))
        ((equal language "fr")
         (insert "* Licence
 Ce(tte) œuvre est mise à disposition selon les termes de la [[http://creativecommons.org/licenses/by-nc/3.0/fr/deed.fr][Licence Creative Commons Attribution - Pas d'Utilisation Commerciale 3.0 France]]"))
-       ((equal language "eu")
-        (insert "* Licenzua
-Testua [[http://creativecommons.org/licenses/by-nc/3.0/es/deed.eu][Aitortu-EzKomertziala 3.0 Espainia]] lizentziari jarraituz erabil daiteke"))
+       ((equal language "it")
+        (insert "* Licenza
+Quest'opera e distribuita con Licenza [[http://creativecommons.org/licenses/by-nc/3.0/it/deed.it][Licenza Creative Commons Attribuzione - Non commerciale 3.0 Italia]]"))
        (t (insert "* License 
 This document is under a [[http://creativecommons.org/licenses/by-nc/3.0/deed][Creative Commons Attribution-NonCommercial 3.0 Unported]]")))
   (if (string= "" org-license-images-directory)
-      (insert "\n\n[[http://creativecommons.org/licenses/by-nc/3.0/deed][file:http://i.creativecommons.org/l/by-nc/3.0/80x15.png]]")
-    (insert (concat "\n\n[[http://creativecommons.org/licenses/by-nc/3.0/deed][file:" org-license-images-directory "/by-nc/3.0/80x15.png]]"))))
+      (insert "\n\n[[http://creativecommons.org/licenses/by-nc/3.0/deed][file:http://i.creativecommons.org/l/by-nc/3.0/80x15.png]]\n\n")
+    (insert (concat "\n\n[[http://creativecommons.org/licenses/by-nc/3.0/deed][file:" org-license-images-directory "/by-nc/3.0/80x15.png]]\n\n"))))
 
 
 (defun org-license-cc-by-nc-sa (language)
-  (interactive "MLanguage (en | es | de | it | fr ): " language)
+  (interactive "MLanguage (en | es | eu | de | fr | it ): " language)
   (cond ((equal language "es")
         (insert "* Licencia
 Este documento está bajo una [[http://creativecommons.org/licenses/by-nc-sa/3.0/es/deed.es][Licencia Creative Commons Reconocimiento-NoComercial 3.0]]"))
+       ((equal language "eu")
+        (insert "* Licenzua
+Testua [[http://creativecommons.org/licenses/by-nc-sa/3.0/es/deed.eu][Aitortu-EzKomertziala-PartekatuBerdin 3.0 Espainia]] lizentziari jarraituz erabil daiteke"))
        ((equal language "de")
         (insert "* Lizenz
-Dieses Werk bzw. Inhalt steht unter einer [[http://creativecommons.org/licenses/by-nc-sa/3.0/de/deed.de][Namensnennung - Weitergabe unter gleichen Bedingungen 3.0 Unported]]"))
-       ((equal language "it")
-        (insert "* Licenza
-Quest'opera e distribuita con Licenza [[http://creativecommons.org/licenses/by-nc-sa/3.0/it/deed.it][Licenza Creative Commons Attribuzione - Non opere derivate 3.0 Italia]]"))
+Dieses Werk bzw. Inhalt steht unter einer [[http://creativecommons.org/licenses/by-nc-sa/3.0/de/deed.de][Namensnennung - Weitergabe unter gleichen Bedingungen 3.0 Deutschland]]"))
        ((equal language "fr")
         (insert "* Licence
 Ce(tte) œuvre est mise à disposition selon les termes de la [[http://creativecommons.org/licenses/by-nc-sa/3.0/fr/deed.fr][Licence Creative Commons Attribution - Pas d’Utilisation Commerciale - Partage dans les Mêmes Conditions 3.0 France]]"))
-       ((equal language "eu")
-        (insert "* Licenzua
-Testua [[http://creativecommons.org/licenses/by-nc-sa/3.0/es/deed.eu][Aitortu-EzKomertziala-PartekatuBerdin 3.0 Espainia]] lizentziari jarraituz erabil daiteke"))
+       ((equal language "it")
+        (insert "* Licenza
+Quest'opera e distribuita con Licenza [[http://creativecommons.org/licenses/by-nc-sa/3.0/it/deed.it][Licenza Creative Commons Attribuzione - Non opere derivate 3.0 Italia]]"))
        (t (insert "* License
 This document is under a [[http://creativecommons.org/licenses/by-nc-sa/3.0/deed][License Creative Commons
-Reconocimiento-NoComercial 3.0] Unported]")))
+Reconocimiento-NoComercial 3.0 Unported]]")))
   (if (string= "" org-license-images-directory)
-      (insert "\n\n[[http://creativecommons.org/licenses/by-nc-sa/3.0/deed][file:http://i.creativecommons.org/l/by-nc-sa/3.0/80x15.png]]")
-    (insert (concat "\n\n[[http://creativecommons.org/licenses/by-nc-sa/3.0/deed][file:" org-license-images-directory "/by-nc-sa/3.0/80x15.png]]"))))
+      (insert "\n\n[[http://creativecommons.org/licenses/by-nc-sa/3.0/deed][file:http://i.creativecommons.org/l/by-nc-sa/3.0/80x15.png]]\n\n")
+    (insert (concat "\n\n[[http://creativecommons.org/licenses/by-nc-sa/3.0/deed][file:" org-license-images-directory "/by-nc-sa/3.0/80x15.png]]\n\n"))))
 
 (defun org-license-cc-by-nc-nd (language)
   (interactive "MLanguage (en | es | eu | de | it | fr ): " language)
@@ -173,22 +173,22 @@ Reconocimiento-NoComercial 3.0] Unported]")))
 Este documento está bajo una [[http://creativecommons.org/licenses/by-nc-nd/3.0/es/deed.es][Licencia Creative Commons Reconocimiento-NoComercial-SinObraDerivada 3.0]]"))
        ((equal language "eu")
         (insert "* Licenzua
-Testua [[http://creativecommons.org/licenses/by-nd/3.0/es/deed.eu][Aitortu-LanEratorririkGabe 3.0 Espainia]] lizentziari jarraituz erabil daiteke"))
+Testua [[http://creativecommons.org/licenses/by-nc-nd/3.0/es/deed.eu][Aitortu-LanEratorririkGabe 3.0 Espainia]] lizentziari jarraituz erabil daiteke"))
        ((equal language "de")
         (insert "* Lizenz
 Dieses Werk bzw. Inhalt steht unter einer [[http://creativecommons.org/licenses/by-nc-nd/3.0/de/deed.de][Namensnennung-NichtKommerziell-KeineBearbeitung 3.0 Deutschland]]"))
        ((equal language "it")
         (insert "* Licenza
-Quest'opera e distribuita con Licenza [[http://creativecommons.org/licenses/by-nd/3.0/it/deed.it][Licenza Creative Commons Attribuzione - Non opere derivate 3.0 Italia]]"))
+Quest'opera e distribuita con Licenza [[http://creativecommons.org/licenses/by-nc-nd/3.0/it/deed.it][Licenza Creative Commons Attribuzione - Non opere derivate 3.0 Italia]]"))
        ((equal language "fr")
         (insert "* Licence
-Ce(tte) œuvre est mise à disposition selon les termes de la [[http://creativecommons.org/licenses/by-nd/3.0/fr/deed.fr][Licence Creative Commons Attribution - Pas de Modification 3.0 France]]"))
+Ce(tte) œuvre est mise à disposition selon les termes de la [[http://creativecommons.org/licenses/by-nc-nd/3.0/fr/deed.fr][Licence Creative Commons Attribution - Pas de Modification 3.0 France]]"))
        (t (insert "* License
-This document is under a [[http://creativecommons.org/licenses/by-nc-sa/3.0/deed][License Creative Commons
-Reconocimiento-NoComercial-SinObraDerivada 3.0] Unported]")))
+This document is under a [[http://creativecommons.org/licenses/by-nc-nd/3.0/deed][License Creative Commons
+Reconocimiento-NoComercial-SinObraDerivada 3.0 Unported]]")))
   (if (string= "" org-license-images-directory)
-      (insert "\n\n[[http://creativecommons.org/licenses/by-nc-nd/3.0/deed][file:http://i.creativecommons.org/l/by-nc-nd/3.0/80x15.png]]"))
-    (insert (concat "\n\n[[http://creativecommons.org/licenses/by-nc-nd/3.0/deed][file:" org-license-images-directory "/by-nc-nd/3.0/80x15.png]]")))
+      (insert "\n\n[[http://creativecommons.org/licenses/by-nc-nd/3.0/deed][file:http://i.creativecommons.org/l/by-nc-nd/3.0/80x15.png]]\n\n")
+    (insert (concat "\n\n[[http://creativecommons.org/licenses/by-nc-nd/3.0/deed][file:" org-license-images-directory "/by-nc-nd/3.0/80x15.png]]\n\n"))))
 
 (defun org-license-gfdl (language)
   (interactive "MLanguage (es | en): " language)
@@ -211,3 +211,52 @@ Copyright (C)  2013 " user-full-name
       (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\n[[https://www.gnu.org/copyleft/fdl.html][file:" org-license-images-directory "/gfdl/gfdl.png]]\n"))))
 
+(defun org-license-print-all ()
+"Print all combinations of licenses and languages, it's useful to find bugs"
+  (interactive)
+  (org-license-gfdl "es")
+  (org-license-gfdl "en")
+  (org-license-cc-by "es")
+  (org-license-cc-by "en")
+  (org-license-cc-by "eo")
+  (org-license-cc-by "eu")
+  (org-license-cc-by "de")
+  (org-license-cc-by "it")
+  (org-license-cc-by "fr")
+  (org-license-cc-by-sa "es")
+  (org-license-cc-by-sa "en")
+;;  (org-license-cc-by-sa "eo")
+  (org-license-cc-by-sa "eu")
+  (org-license-cc-by-sa "de")
+  (org-license-cc-by-sa "it")
+  (org-license-cc-by-sa "fr")
+  (org-license-cc-by-nd "es")
+  (org-license-cc-by-nd "en")
+;;  (org-license-cc-by-nd "eo")
+  (org-license-cc-by-nd "eu")
+  (org-license-cc-by-nd "de")
+  (org-license-cc-by-nd "it")
+  (org-license-cc-by-nd "fr")
+  (org-license-cc-by-nc "es")
+  (org-license-cc-by-nc "en")
+;;  (org-license-cc-by-nc "eo")
+  (org-license-cc-by-nc "eu")
+  (org-license-cc-by-nc "de")
+  (org-license-cc-by-nc "it")
+  (org-license-cc-by-nc "fr")
+  (org-license-cc-by-nc-sa "es")
+  (org-license-cc-by-nc-sa "en")
+;;  (org-license-cc-by-nc-sa "eo")
+  (org-license-cc-by-nc-sa "eu")
+  (org-license-cc-by-nc-sa "de")
+  (org-license-cc-by-nc-sa "it")
+  (org-license-cc-by-nc-sa "fr")
+  (org-license-cc-by-nc-nd "es")
+  (org-license-cc-by-nc-nd "en")
+;;  (org-license-cc-by-nc-nd "eo")
+  (org-license-cc-by-nc-nd "eu")
+  (org-license-cc-by-nc-nd "de")
+  (org-license-cc-by-nc-nd "it")
+  (org-license-cc-by-nc-nd "fr")
+)
+