contrib/lisp/org-license.el

   1 ;;; org-license.el --- Add a license to your org files
   2
   3 ;; Copyright (C) 2013-2017 Free Software Foundation, Inc.
   4
   5 ;; Author: David Arroyo Menéndez <davidam@es.gnu.org>
   6 ;; Keywords: licenses, creative commons
   7 ;; Homepage: http://orgmode.org
   8 ;;
   9 ;; This file is not part of GNU Emacs, yet.
  10 ;;
  11 ;; GNU Emacs is free software: you can redistribute it and/or modify
  12 ;; it under the terms of the GNU General Public License as published by
  13 ;; the Free Software Foundation, either version 3 of the License, or
  14 ;; (at your option) any later version.
  15
  16 ;; GNU Emacs is distributed in the hope that it will be useful,
  17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  19 ;; GNU General Public License for more details.
  20
  21 ;; You should have received a copy of the GNU General Public License
  22 ;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
  23 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  24 ;;
  25 ;;; Commentary:
  26
  27 ;; This file implements functions to add a license fast in org files.
  28 ;; Org-mode doesn't load this module by default - if this is not what
  29 ;; you want, configure the variable `org-modules'. Thanks to #emacs-es
  30 ;; irc channel for your support.
  31
  32 ;;; Code:
  33
  34 ;;
  35 ;;
  36 ;; You can download the images from http://www.davidam/img/licenses.tar.gz
  37 ;;
  38 ;;; CHANGELOG:
  39 ;; v 0.2 - add public domain functions
  40 ;; v 0.1 - Initial release
  41
  42
  43 (defvar org-license-images-directory "")
  44
  45 (defun org-license-cc-by (language)
  46   (interactive "MLanguage ( br | ca | de | en | es | eo | eu | fi | fr | gl | it | jp | nl | pt ): " language)
  47   (cond ((equal language "br")
  48          (setq org-license-cc-url "https://creativecommons.org/licenses/by/3.0/br/deed.pt_BR")
  49          (insert (concat "* Licença
  50 Este texto é disponibilizado nos termos da licença [[" org-license-cc-url "][Atribuição 3.0 Brasil]]\n")))
  51         ((equal language "ca")
  52          (setq org-license-cc-url "https://creativecommons.org/licenses/by/3.0/es/deed.ca")
  53          (insert (concat "* Licència
  54 El text està disponible sota la [[" org-license-cc-url "][Reconeixement 3.0 Espanya]]\n")))
  55         ((equal language "de")
  56          (setq org-license-cc-url "https://creativecommons.org/licenses/by/3.0/de/deed.de")
  57          (insert (concat "* Lizenz
  58 Dieses Werk bzw. Inhalt steht unter einer [[" org-license-cc-url "][Lizenz Creative Commons Namensnennung 3.0 Deutschland]]\n")))
  59         ((equal language "eo")
  60          (setq org-license-cc-url "http://creativecommons.org/licenses/by/3.0/eo/deed.eo")
  61          (insert (concat "* Licenco
  62 Ĉi tiu verko estas disponebla laŭ la permesilo [[" org-license-cc-url "][Krea Komunaĵo Atribuite 3.0 Neadaptita]]\n")))
  63          ((equal language "es")
  64           (setq org-license-cc-url "http://creativecommons.org/licenses/by/3.0/es/deed.es")
  65           (insert (concat "* Licencia
  66 Este documento está bajo una [[" org-license-cc-url "][Licencia Creative Commons Atribución 3.0 España]]\n")))
  67          ((equal language "eu")
  68           (setq org-license-cc-url "http://creativecommons.org/licenses/by/3.0/es/deed.eu")
  69           (insert (concat "* Licenzua
  70 Testua [[" org-license-cc-url "][Aitortu 3.0 Espainia]] lizentziari jarraituz erabil daiteke\n")))
  71          ((equal language "fi")
  72           (setq org-license-cc-url "http://creativecommons.org/licenses/by/1.0/fi/deed.fi")
  73           (insert (concat "* Lisenssi
  74 Teksti on saatavilla [[" org-license-cc-url "][Nimeä 1.0 Suomi]] lisenssillä\n")))
  75          ((equal language "fr")
  76           (setq org-license-cc-url "http://creativecommons.org/licenses/by/3.0/fr/deed.fr")
  77           (insert (concat "* Licence
  78 Ce(tte) œuvre est mise à disposition selon les termes de la [[" org-license-cc-url "][Licence Creative Commons Attribution 3.0 France]]\n")))
  79          ((equal language "gl")
  80           (setq org-license-cc-url "http://creativecommons.org/licenses/by/3.0/es/deed.gl")
  81           (insert (concat "* Licenza
  82 Todo o texto está dispoñible baixo a [[" org-license-cc-url "][licenza Creative Commons recoñecemento compartir igual 3.0]].\n")))
  83          ((equal language "it")
  84           (setq org-license-cc-url "http://creativecommons.org/licenses/by/3.0/it/deed.it")
  85           (insert (concat "* Licenza
  86 Quest'opera e distribuita con Licenza [[" org-license-cc-url "][Licenza Creative Commons Attribuzione 3.0 Italia]]\n")))
  87          ((equal language "jp")
  88           (setq org-license-cc-url "http://creativecommons.org/licenses/by/2.1/jp/deed.en")
  89           (insert (concat "* ライセンス
  90 この文書は [[" org-license-cc-url "][Creative Commons Attribution 2.1 ]] ライセンスの下である\n")))
  91          ((equal language "nl")
  92           (setq org-license-cc-url "http://creativecommons.org/licenses/by/3.0/nl/deed.nl")
  93           (insert (concat "* Licentie
  94 Dit werk is valt onder een [[" org-license-cc-url "][Creative Commons Naamsvermelding 3.0 Nederland]]\n")))
  95          ((equal language "pt")
  96           (setq org-license-cc-url "http://creativecommons.org/licenses/by/3.0/pt/deed.pt")
  97           (insert (concat "* Licença
  98 Este texto é disponibilizado nos termos da licença [[" org-license-cc-url "][Atribuição 3.0 Portugal]]\n")))
  99          (t
 100           (setq org-license-cc-url "http://creativecommons.org/licenses/by/4.0/deed")
 101           (concat (insert "* License
 102 This document is under a [[" org-license-cc-url "][Creative Commons Attribution 4.0 International]]\n"))))
 103   (if (string= "" org-license-images-directory)
 104       (insert (concat "\n[[" org-license-cc-url "][file:http://i.creativecommons.org/l/by/3.0/80x15.png]]\n"))
 105     (insert (concat "\n[[" org-license-cc-url "][file:" org-license-images-directory "/by/3.0/80x15.png]]\n"))))
 106
 107 (defun org-license-cc-by-sa (language)
 108   (interactive "MLanguage ( br | ca | de | en | es | eu | fi | fr | it | jp | nl | pt ): " language)
 109   (cond ((equal language "br")
 110          (setq org-license-cc-url "https://creativecommons.org/licenses/by-sa/3.0/br/deed.pt_BR")
 111          (concat (insert "* Licença
 112 Este texto é disponibilizado nos termos da licença [[" org-license-cc-url "][Atribuição Compartil ha Igual 3.0 Brasil]]\n")))
 113         ((equal language "ca")
 114          (setq org-license-cc-url "http://creativecommons.org/licenses/by-sa/3.0/es/deed.ca")
 115          (insert (concat "* Licència
 116 El text està disponible sota la [[" org-license-cc-url "][Reconeixement-CompartirIgual 3.0 Espanya]]\n")))
 117         ((equal language "de")
 118          (setq org-license-cc-url "http://creativecommons.org/licenses/by-sa/3.0/de/deed.de")
 119          (insert (concat "* Lizenz
 120 Dieses Werk bzw. Inhalt steht unter einer [[" org-license-cc-url "][Namensnennung - Weitergabe unter gleichen Bedingungen 3.0 Deutschland]]\n")))
 121         ((equal language "es")
 122          (setq org-license-cc-url "http://creativecommons.org/licenses/by-sa/3.0/es/deed.es")
 123          (concat (insert "* Licencia
 124 Este documento está bajo una [[" org-license-cc-url "][Licencia Creative Commons Atribución Compartir por Igual 3.0 España]]\n")))
 125         ((equal language "eu")
 126          (setq org-license-cc-url "http://creativecommons.org/licenses/by-sa/3.0/es/deed.eu")
 127          (concat (insert "* Licenzua
 128 Testua [[" org-license-cc-url "][Aitortu-PartekatuBerdin 3.0 Espainia]] lizentziari jarraituz erabil daiteke\n")))
 129         ((equal language "fi")
 130           (setq org-license-cc-url "http://creativecommons.org/licenses/by-sa/1.0/fi/deed.fi")
 131           (insert (concat "* Lisenssi
 132 Teksti on saatavilla [[" org-license-cc-url "][Nimeä-JaaSamoin 1.0 Suomi]] lisenssillä\n")))
 133         ((equal language "fr")
 134          (setq org-license-cc-url "http://creativecommons.org/licenses/by-sa/3.0/fr/deed.fr")
 135          (concat (insert "* Licence
 136 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")))
 137         ((equal language "gl")
 138          (setq org-license-cc-url "http://creativecommons.org/licenses/by-sa/3.0/es/deed.gl")
 139          (insert (concat "* Licenza
 140 Todo o texto está dispoñible baixo a [[" org-license-cc-url "][licenza Creative Commons recoñecemento compartir igual 3.0]].\n")))
 141         ((equal language "it")
 142          (setq org-license-cc-url "http://creativecommons.org/licenses/by-sa/3.0/it/deed.it")
 143          (insert (concat "* Licenza
 144 Quest'opera e distribuita con Licenza [[" org-license-cc-url "][Licenza Creative Commons Attribuzione - Condividi allo stesso modo 3.0 Italia]]\n")))
 145         ((equal language "jp")
 146          (setq org-license-cc-url "http://creativecommons.org/licenses/by-sa/2.1/jp/deed.en")
 147          (insert (concat "* ライセンス
 148 この文書は、[[" org-license-cc-url "][Creative Commons Attribution 2.1 ]] ライセンスの下である\n")))
 149         ((equal language "nl")
 150           (setq org-license-cc-url "http://creativecommons.org/licenses/by-sa/3.0/nl/deed.nl")
 151           (insert (concat "* Licentie
 152 Dit werk is valt onder een [[" org-license-cc-url "][Creative Commons Naamsvermelding Gelijk Delen 3.0 Nederland]]\n")))
 153         ((equal language "pt")
 154          (setq org-license-cc-url "http://creativecommons.org/licenses/by-sa/3.0/pt/deed.pt")
 155          (insert (concat "* Licença
 156 Este texto é disponibilizado nos termos da licença [[" org-license-cc-url "][Atribuição-CompartilhaIgual 3.0 Portugal]]\n")))
 157         (t
 158          (setq org-license-cc-url "http://creativecommons.org/licenses/by-sa/4.0/deed")
 159          (insert (concat "* License
 160 This document is under a [[" org-license-cc-url "][Creative Commons Attribution-ShareAlike 4.0 International]]\n"))))
 161   (if (string= "" org-license-images-directory)
 162       (insert (concat "\n[[" org-license-cc-url "][file:http://i.creativecommons.org/l/by-sa/3.0/80x15.png]]\n"))
 163     (insert (concat "\n[[" org-license-cc-url "][file:" org-license-images-directory "/by-sa/3.0/80x15.png]]\n"))))
 164
 165 (defun org-license-cc-by-nd (language)
 166   (interactive "MLanguage ( br | ca | de | en | es | eu | fi | fr | it | pt ): " language)
 167   (cond ((equal language "br")
 168          (setq org-license-cc-url "https://creativecommons.org/licenses/by-nd/3.0/br/deed.pt_BR")
 169          (insert (concat "* Licença
 170 Este texto é disponibilizado nos termos da licença [[" org-license-cc-url "][Atribuição Compartil ha Igual 3.0 Brasil]]\n")))
 171         ((equal language "ca")
 172          (setq org-license-cc-url "http://creativecommons.org/licenses/by-nd/3.0/es/deed.ca")
 173          (insert (concat "* Licència
 174 El text està disponible sota la [[" org-license-cc-url "][Reconeixement-SenseObraDerivada 3.0 Espanya]]\n")))
 175         ((equal language "de")
 176          (setq org-license-cc-url "http://creativecommons.org/licenses/by-nd/3.0/de/deed.de")
 177          (insert (concat "* Lizenz
 178 Dieses Werk bzw. Inhalt steht unter einer [[" org-license-cc-url "][Namensnennung-Keine Bearbeitung 3.0 Deutschland]]\n")))
 179         ((equal language "es")
 180          (setq org-license-cc-url "http://creativecommons.org/licenses/by-nd/3.0/es/deed.es")
 181          (insert (concat "* Licencia
 182 Este documento está bajo una [[" org-license-cc-url "][Licencia Creative Commons Atribución-SinDerivadas 3.0]]\n")))
 183         ((equal language "eu")
 184          (setq org-license-cc-url "http://creativecommons.org/licenses/by-nd/3.0/es/deed.eu")
 185          (insert (concat "* Licenzua
 186 Testua [[" org-license-cc-url "][Aitortu-LanEratorririkGabe 3.0 Espainia]] lizentziari jarraituz erabil daiteke\n")))
 187         ((equal language "fi")
 188           (setq org-license-cc-url "http://creativecommons.org/licenses/by-nd/1.0/fi/deed.fi")
 189           (insert (concat "* Lisenssi
 190 Teksti on saatavilla [[" org-license-cc-url "][Nimeä-JaaSamoin 1.0 Suomi]] lisenssillä\n")))
 191         ((equal language "fr")
 192          (setq org-license-cc-url "http://creativecommons.org/licenses/by-nd/3.0/fr/deed.fr")
 193          (insert (concat "* Licence
 194 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")))
 195         ((equal language "gl")
 196          (setq org-license-cc-url "http://creativecommons.org/licenses/by-nd/3.0/es/deed.gl")
 197          (insert (concat "* Licenza
 198 Todo o texto está dispoñible baixo a [[" org-license-cc-url "][licenza Creative Commons recoñecemento compartir igual 3.0]].\n")))
 199         ((equal language "it")
 200          (setq org-license-cc-url "http://creativecommons.org/licenses/by-nd/3.0/it/deed.it")
 201          (insert (concat "* Licenza
 202 Quest'opera e distribuita con Licenza [[" org-license-cc-url "][Licenza Creative Commons Attribuzione - Non opere derivate 3.0 Italia]]\n")))
 203         ((equal language "jp")
 204          (setq org-license-cc-url "http://creativecommons.org/licenses/by-nd/2.1/jp/deed.en")
 205          (insert (concat "* ライセンス
 206 この文書は、[[" org-license-cc-url "][Creative Commons No Derivatives 2.1]] ライセンスの下である\n")))
 207         ((equal language "nl")
 208           (setq org-license-cc-url "http://creativecommons.org/licenses/by-nd/3.0/nl/deed.nl")
 209           (insert (concat "* Licentie
 210 Dit werk is valt onder een [[" org-license-cc-url "][Creative Commons Naamsvermelding GeenAfgeleideWerken 3.0 Nederland]]\n")))
 211         ((equal language "pt")
 212          (setq org-license-cc-url "http://creativecommons.org/licenses/by-nd/3.0/pt/deed.pt")
 213          (insert (concat "* Licença
 214 Este texto é disponibilizado nos termos da licença [[" org-license-cc-url "][Atribuição Sem Derivados 3.0 Portugal]]\n")))
 215         (t
 216          (setq org-license-cc-url "http://creativecommons.org/licenses/by-nd/4.0/deed")
 217          (insert (concat "* License
 218 This document is under a [[" org-license-cc-url "][Creative Commons No Derivatives 4.0 International]]\n"))))
 219   (if (string= "" org-license-images-directory)
 220       (insert (concat "\n[[" org-license-cc-url "][file:http://i.creativecommons.org/l/by-nd/3.0/80x15.png]]\n"))
 221     (insert (concat "\n[[" org-license-cc-url "][file:" org-license-images-directory "/by-nd/3.0/80x15.png]]\n"))))
 222
 223
 224 (defun org-license-cc-by-nc (language)
 225   (interactive "MLanguage ( br | ca | de | en | es | eu | fi | fr | it | jp | nl | pt ): " language)
 226   (cond ((equal language "br")
 227          (setq org-license-cc-url "https://creativecommons.org/licenses/by-nc/3.0/br/deed.pt_BR")
 228          (insert (concat "* Licença
 229 Este texto é disponibilizado nos termos da licença [[" org-license-cc-url "][Atribuição Não Comercial 3.0 Brasil]]\n")))
 230         ((equal language "ca")
 231          (setq org-license-cc-url "http://creativecommons.org/licenses/by-nc/3.0/es/deed.ca")
 232          (insert (concat "* Licència
 233 El text està disponible sota la [[" org-license-cc-url "][Reconeixement-NoComercial 3.0 Espanya]]\n")))
 234         ((equal language "de")
 235          (setq org-license-cc-url "http://creativecommons.org/licenses/by-nc/3.0/de/deed.de")
 236          (insert (concat "* Lizenz
 237 Dieses Werk bzw. Inhalt steht unter einer [[" org-license-cc-url "][Namensnennung-Nicht-kommerziell 3.0 Deutschland]]\n")))
 238         ((equal language "es")
 239          (setq org-license-cc-url "http://creativecommons.org/licenses/by-nc/3.0/es/deed.es")
 240          (insert (concat "* Licencia
 241 Este documento está bajo una [[" org-license-cc-url "][Licencia Creative Commons Reconocimiento-NoComercial 3.0]]\n")))
 242         ((equal language "eu")
 243          (setq org-license-cc-url "http://creativecommons.org/licenses/by-nc/3.0/es/deed.eu")
 244          (insert "* Licenzua
 245 Testua [[" org-license-cc-url "][Aitortu-EzKomertziala 3.0 Espainia]] lizentziari jarraituz erabil daiteke\n"))
 246         ((equal language "fi")
 247           (setq org-license-cc-url "http://creativecommons.org/licenses/by-nc/1.0/fi/deed.fi")
 248           (insert (concat "* Lisenssi
 249 Teksti on saatavilla [[" org-license-cc-url "][Nimeä-Epäkaupallinen 1.0 Suomi]] lisenssillä\n")))
 250         ((equal language "fr")
 251          (setq org-license-cc-url "http://creativecommons.org/licenses/by-nc/3.0/fr/deed.fr")
 252          (insert (concat "* Licence
 253 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")))
 254         ((equal language "gl")
 255          (setq org-license-cc-url "http://creativecommons.org/licenses/by-nc/3.0/es/deed.gl")
 256          (insert (concat "* Licenza
 257 Todo o texto está dispoñible baixo a [[" org-license-cc-url "][licenza Creative Commons recoñecemento compartir igual 3.0]].\n")))
 258         ((equal language "it")
 259          (setq org-license-cc-url "http://creativecommons.org/licenses/by-nc/3.0/it/deed.it")
 260          (insert (concat "* Licenza
 261 Quest'opera e distribuita con Licenza [[" org-license-cc-url "][Licenza Creative Commons Attribuzione - Non commerciale 3.0 Italia]]\n")))
 262         ((equal language "jp")
 263          (setq org-license-cc-url "http://creativecommons.org/licenses/by-nc/2.1/jp/deed.en")
 264          (insert (concat "* ライセンス
 265 この文書は、[[" org-license-cc-url "][Creative Commons Attribution-NonCommercial 2.1 ]] ライセンスの下である\n")))
 266         ((equal language "nl")
 267           (setq org-license-cc-url "http://creativecommons.org/licenses/by-nc/3.0/nl/deed.nl")
 268           (insert (concat "* Licentie
 269 Dit werk is valt onder een [[" org-license-cc-url "][Creative Commons Naamsvermelding NietCommercieel 3.0 Nederland 3.0 Nederland]]\n")))
 270         ((equal language "pt")
 271          (setq org-license-cc-url "http://creativecommons.org/licenses/by-nc/3.0/pt/deed.pt")
 272          (insert (concat "* Licença
 273 Este texto é disponibilizado nos termos da licença [[" org-license-cc-url "][Atribuição Não Comercial 3.0 Portugal]]\n")))
 274         (t
 275          (setq org-license-cc-url "http://creativecommons.org/licenses/by-nc/4.0/deed")
 276          (insert (concat "* License
 277 This document is under a [[" org-license-cc-url "][Creative Commons Attribution-NonCommercial 4.0 International]]\n"))))
 278   (if (string= "" org-license-images-directory)
 279       (insert (concat "\n[[" org-license-cc-url "][file:http://i.creativecommons.org/l/by-nc/3.0/80x15.png]]\n"))
 280     (insert (concat "\n[[" org-license-cc-url "][file:" org-license-images-directory "/by-nc/3.0/80x15.png]]\n"))))
 281
 282 (defun org-license-cc-by-nc-sa (language)
 283   (interactive "MLanguage ( br | ca | de | en | es | eu | fi | fr | gl | it | jp | nl | pt ): " language)
 284   (cond ((equal language "br")
 285          (setq org-license-cc-url "https://creativecommons.org/licenses/by-nc-sa/3.0/br/deed.pt_BR")
 286          (insert (concat "* Licença
 287 Este texto é disponibilizado nos termos da licença [[" org-license-cc-url "][Atribuição Não Comercial - Compartil ha Igual 3.0 Brasil]]\n")))
 288         ((equal language "ca")
 289          (setq org-license-cc-url "http://creativecommons.org/licenses/by-nc-sa/3.0/es/deed.ca")
 290          (insert (concat "* Licència
 291 El text està disponible sota la [[" org-license-cc-url "][Reconeixement-NoComercial 3.0 Espanya]]\n")))
 292         ((equal language "de")
 293          (setq org-license-cc-url "http://creativecommons.org/licenses/by-nc-sa/3.0/de/deed.de")
 294          (insert (concat "* Lizenz
 295 Dieses Werk bzw. Inhalt steht unter einer [[" org-license-cc-url "][Namensnennung - Weitergabe unter gleichen Bedingungen 3.0 Deutschland]]\n")))
 296         ((equal language "es")
 297          (setq org-license-cc-url "http://creativecommons.org/licenses/by-nc-sa/3.0/es/deed.es")
 298          (insert (concat "* Licencia
 299 Este documento está bajo una [[" org-license-cc-url "][Licencia Creative Commons Reconocimiento-NoComercial 3.0]]\n")))
 300         ((equal language "eu")
 301          (setq org-license-cc-url "http://creativecommons.org/licenses/by-nc-sa/3.0/es/deed.eu")
 302          (insert "* Licenzua
 303 Testua [[" org-license-cc-url "][Aitortu-EzKomertziala-PartekatuBerdin 3.0 Espainia]] lizentziari jarraituz erabil daiteke\n"))
 304         ((equal language "fi")
 305           (setq org-license-cc-url "http://creativecommons.org/licenses/by-nc-sa/1.0/fi/deed.fi")
 306           (insert (concat "* Lisenssi
 307 Teksti on saatavilla [[" org-license-cc-url "][Nimeä-Epäkaupallinen-JaaSamoin 1.0 Suomi]] lisenssillä\n")))
 308         ((equal language "fr")
 309          (setq org-license-cc-url "http://creativecommons.org/licenses/by-nc-sa/3.0/fr/deed.fr")
 310          (insert (concat "* Licence
 311 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")))
 312         ((equal language "gl")
 313          (setq org-license-cc-url "http://creativecommons.org/licenses/by-nc-sa/3.0/es/deed.gl")
 314          (insert (concat "* Licenza
 315 Todo o texto está dispoñible baixo a [[" org-license-cc-url "][licenza Creative Commons recoñecemento compartir igual 3.0]].\n")))
 316         ((equal language "it")
 317          (setq org-license-cc-url "http://creativecommons.org/licenses/by-nc-sa/3.0/it/deed.it")
 318          (insert (concat "* Licenza
 319 Quest'opera e distribuita con Licenza [[" org-license-cc-url "][Licenza Creative Commons Attribuzione - Non opere derivate 3.0 Italia]]\n")))
 320         ((equal language "jp")
 321          (setq org-license-cc-url "http://creativecommons.org/licenses/by-nc-sa/2.1/jp/deed.en")
 322          (insert (concat "* ライセンス
 323 この文書は、[[" org-license-cc-url "][License Creative Commons Attribution Non Commercial Share Alike 2.1 ]] ライセンスの下である\n")))
 324         ((equal language "nl")
 325          (setq org-license-cc-url "http://creativecommons.org/licenses/by-nc-sa/3.0/nl/deed.nl")
 326          (insert (concat "* Licentie
 327 Dit werk is valt onder een [[" org-license-cc-url "][Creative Commons Naamsvermelding NietCommercieel GelijkDelen 3.0 Nederland]]\n")))
 328         ((equal language "pt")
 329          (setq org-license-cc-url "http://creativecommons.org/licenses/by-nc/3.0/pt/deed.pt")
 330          (insert (concat "* Licença
 331 Este texto é disponibilizado nos termos da licença [[" org-license-cc-url "][Atribuição NãoComercial Compartil ha Igual 3.0 Portugal]]\n")))
 332         (t
 333          (setq org-license-cc-url "http://creativecommons.org/licenses/by-nc-sa/4.0/deed")
 334          (insert (concat "* License
 335 This document is under a [[" org-license-cc-url "][License Creative Commons Attribution Non Commercial Share Alike 4.0 International]]\n"))))
 336   (if (string= "" org-license-images-directory)
 337       (insert (concat "\n[[" org-license-cc-url  "][file:http://i.creativecommons.org/l/by-nc-sa/3.0/80x15.png]]\n"))
 338     (insert (concat "\n[[" org-license-cc-url "][file:" org-license-images-directory "/by-nc-sa/3.0/80x15.png]]\n"))))
 339
 340 (defun org-license-cc-by-nc-nd (language)
 341   (interactive "MLanguage ( br | ca | de | en | es | eu | fi | fr | gl | it | pt ): " language)
 342   (cond ((equal language "br")
 343          (setq org-license-cc-url "http://creativecommons.org/licenses/by-nc-nd/3.0/pt/deed.pt")
 344          (insert (concat "* Licença
 345 Este texto é disponibilizado nos termos da licença [[" org-license-cc-url "][Atribuição Não Comercial Sem Derivados 3.0 Brasil]]\n")))
 346         ((equal language "ca")
 347          (setq org-license-cc-url "http://creativecommons.org/licenses/by-nc-nd/3.0/es/deed.ca")
 348          (insert (concat "* Licència
 349 El text està disponible sota la [[" org-license-cc-url "][Reconeixement-NoComercial-SenseObraDerivada 3.0 Espanya]]\n")))
 350         ((equal language "de")
 351          (setq org-license-cc-url "http://creativecommons.org/licenses/by-nc-nd/3.0/de/deed.de")
 352          (insert (concat "* Lizenz
 353 Dieses Werk bzw. Inhalt steht unter einer [[" org-license-cc-url "][Namensnennung-NichtKommerziell-KeineBearbeitung 3.0 Deutschland]]\n")))
 354         ((equal language "es")
 355          (setq org-license-cc-url "http://creativecommons.org/licenses/by-nc-nd/3.0/es/deed.es")
 356          (insert (concat "* Licencia
 357 Este documento está bajo una [[" org-license-cc-url "][Licencia Creative Commons Reconocimiento-NoComercial-SinObraDerivada 3.0]]\n")))
 358         ((equal language "eu")
 359          (setq org-license-cc-url "http://creativecommons.org/licenses/by-nc-nd/3.0/es/deed.eu")
 360          (insert (concat "* Licenzua
 361 Testua [[" org-license-cc-url "][Aitortu-LanEratorririkGabe 3.0 Espainia]] lizentziari jarraituz erabil daiteke\n")))
 362         ((equal language "fi")
 363           (setq org-license-cc-url "http://creativecommons.org/licenses/by-nc-nd/1.0/fi/deed.fi")
 364           (insert (concat "* Lisenssi
 365 Teksti on saatavilla [[" org-license-cc-url "][Nimeä-Ei muutoksia-Epäkaupallinen 1.0 Suomi]] lisenssillä\n")))
 366         ((equal language "fr")
 367          (setq org-license-cc-url "http://creativecommons.org/licenses/by-nc-nd/3.0/fr/deed.fr")
 368          (insert (concat "* Licence
 369 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")))
 370         ((equal language "gl")
 371          (setq org-license-cc-url "http://creativecommons.org/licenses/by-nc-nd/3.0/es/deed.gl")
 372          (insert (concat "* Licenza
 373 Todo o texto está dispoñible baixo a [[" org-license-cc-url "][licenza Creative Commons recoñecemento compartir igual 3.0]].\n")))
 374         ((equal language "it")
 375          (setq org-license-cc-url "http://creativecommons.org/licenses/by-nc-nd/3.0/it/deed.it")
 376          (insert (concat "* Licenza
 377 Quest'opera e distribuita con Licenza [[" org-license-cc-url "][Licenza Creative Commons Attribuzione - Non opere derivate 3.0 Italia]]\n")))
 378         ((equal language "jp")
 379          (setq org-license-cc-url "http://creativecommons.org/licenses/by-nc-nd/2.1/jp/deed.en")
 380          (insert (concat "* ライセンス
 381 この文書は [[" org-license-cc-url "][License Creative Commons Attribution Non Commercial - No Derivs 2.1]] ライセンスの下である\n")))
 382         ((equal language "nl")
 383          (setq org-license-cc-url "http://creativecommons.org/licenses/by-nc-nd/3.0/nl/deed.nl")
 384          (insert (concat "* Licentie
 385 Dit werk is valt onder een [[" org-license-cc-url "][Creative Commons Naamsvermelding NietCommercieel GeenAfgeleideWerken 3.0 Nederland]]\n")))
 386         ((equal language "pt")
 387          (setq org-license-cc-url "http://creativecommons.org/licenses/by-nc-nd/3.0/pt/deed.pt")
 388          (insert (concat "* Licença
 389 Este texto é disponibilizado nos termos da licença [[" org-license-cc-url "][Atribuição Não Comercial Sem Derivados 3.0 Portugal]]\n")))
 390         (t
 391          (setq org-license-cc-url "http://creativecommons.org/licenses/by-nc-nd/4.0/deed")
 392          (insert (concat "* License
 393 This document is under a [[" org-license-cc-url "][License Creative Commons Attribution-NonCommercial-NoDerivatives 4.0 International]]\n"))))
 394   (if (string= "" org-license-images-directory)
 395       (insert (concat "\n[[" org-license-cc-url "][file:http://i.creativecommons.org/l/by-nc-nd/3.0/80x15.png]]\n"))
 396     (insert (concat "\n[[" org-license-cc-url "][file:" org-license-images-directory "/by-nc-nd/3.0/80x15.png]]\n"))))
 397
 398 (defun org-license-gfdl (language)
 399   (interactive "MLanguage (es | en): " language)
 400   (cond ((equal language "es")
 401          (insert "* Licencia
 402 Copyright (C) " (format-time-string "%Y") "  " user-full-name
 403 "\n    Se permite copiar, distribuir y/o modificar este documento
 404     bajo los términos de la GNU Free Documentation License, Version 1.3
 405     o cualquier versión publicada por la Free Software Foundation;
 406     sin Secciones Invariantes y sin Textos de Portada o Contraportada.
 407     Una copia de la licencia está incluida en [[https://www.gnu.org/copyleft/fdl.html][GNU Free Documentation License]].\n"))
 408         (t (insert (concat "* License
 409 Copyright (C) " (format-time-string "%Y") " " user-full-name
 410 "\n    Permission is granted to copy, distribute and/or modify this document
 411     under the terms of the GNU Free Documentation License, Version 1.3
 412     or any later version published by the Free Software Foundation;
 413     with no Invariant Sections, no Front-Cover Texts, and no Back-Cover Texts.
 414     A copy of the license is included in [[https://www.gnu.org/copyleft/fdl.html][GNU Free Documentation License]].\n"))))
 415   (if (string= "" org-license-images-directory)
 416       (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")
 417     (insert (concat "\n[[https://www.gnu.org/copyleft/fdl.html][file:" org-license-images-directory "/gfdl/gfdl.png]]\n"))))
 418
 419 (defun org-license-publicdomain-zero (language)
 420   (interactive "MLanguage ( en | es ): " language)
 421   (setq org-license-pd-url "http://creativecommons.org/publicdomain/zero/1.0/")
 422   (setq org-license-pd-file "zero/1.0/80x15.png")
 423   (if (equal language "es")
 424          (insert (concat "* Licencia
 425 Este documento está bajo una licencia [[" org-license-pd-url "][Public Domain Zero]]\n"))
 426     (insert (concat "* License
 427 This documento is under a [[" org-license-pd-url "][Public Domain Zero]] license\n")))
 428   (if (string= "" org-license-images-directory)
 429       (insert (concat "\n[[" org-license-pd-url "][file:http://i.creativecommons.org/p/zero/1.0/80x15.png]]\n"))
 430     (insert (concat "\n[[" org-license-pd-url "][file:" org-license-images-directory org-license-pd-file "]]\n"))))
 431
 432 (defun org-license-publicdomain-mark (language)
 433   (interactive "MLanguage ( en | es ): " language)
 434   (setq org-license-pd-url "http://creativecommons.org/publicdomain/mark/1.0/")
 435   (setq org-license-pd-file "mark/1.0/80x15.png")
 436   (if (equal language "es")
 437          (insert (concat "* Licencia
 438 Este documento está bajo una licencia [[" org-license-pd-url "][Etiqueta de Dominio Público 1.0]]\n"))
 439     (insert (concat "* License
 440 This documento is under a [[" org-license-pd-url "][Public Domain Mark]] license\n")))
 441   (if (string= "" org-license-images-directory)
 442       (insert (concat "\n[[" org-license-pd-url "][file:http://i.creativecommons.org/p/mark/1.0/80x15.png]]\n"))
 443     (insert (concat "\n[[" org-license-pd-url "][file:" org-license-images-directory org-license-pd-file "]]\n"))))
 444
 445 (defun org-license-print-all ()
 446 "Print all combinations of licenses and languages, it's useful to find bugs"
 447   (interactive)
 448   (org-license-gfdl "es")
 449   (org-license-gfdl "en")
 450   (org-license-publicdomain-mark "es")
 451   (org-license-publicdomain-mark "en")
 452   (org-license-publicdomain-zero "es")
 453   (org-license-publicdomain-zero "en")
 454   (org-license-cc-by "br")
 455   (org-license-cc-by "ca")
 456   (org-license-cc-by "de")
 457   (org-license-cc-by "es")
 458   (org-license-cc-by "en")
 459   (org-license-cc-by "eo")
 460   (org-license-cc-by "eu")
 461   (org-license-cc-by "fi")
 462   (org-license-cc-by "fr")
 463   (org-license-cc-by "gl")
 464   (org-license-cc-by "it")
 465   (org-license-cc-by "jp")
 466   (org-license-cc-by "nl")
 467   (org-license-cc-by "pt")
 468   (org-license-cc-by-sa "br")
 469   (org-license-cc-by-sa "ca")
 470   (org-license-cc-by-sa "de")
 471   (org-license-cc-by-sa "es")
 472   (org-license-cc-by-sa "en")
 473 ;;  (org-license-cc-by-sa "eo")
 474   (org-license-cc-by-sa "eu")
 475   (org-license-cc-by-sa "fi")
 476   (org-license-cc-by-sa "fr")
 477   (org-license-cc-by-sa "gl")
 478   (org-license-cc-by-sa "it")
 479   (org-license-cc-by-sa "jp")
 480   (org-license-cc-by-sa "nl")
 481   (org-license-cc-by-sa "pt")
 482   (org-license-cc-by-nd "br")
 483   (org-license-cc-by-nd "ca")
 484   (org-license-cc-by-nd "de")
 485   (org-license-cc-by-nd "es")
 486   (org-license-cc-by-nd "en")
 487 ;;  (org-license-cc-by-nd "eo")
 488   (org-license-cc-by-nd "eu")
 489   (org-license-cc-by-nd "fi")
 490   (org-license-cc-by-nd "fr")
 491   (org-license-cc-by-nd "gl")
 492   (org-license-cc-by-nd "it")
 493   (org-license-cc-by-nd "jp")
 494   (org-license-cc-by-nd "nl")
 495   (org-license-cc-by-nd "pt")
 496   (org-license-cc-by-nc "br")
 497   (org-license-cc-by-nc "ca")
 498   (org-license-cc-by-nc "de")
 499   (org-license-cc-by-nc "es")
 500   (org-license-cc-by-nc "en")
 501 ;;  (org-license-cc-by-nc "eo")
 502   (org-license-cc-by-nc "eu")
 503   (org-license-cc-by-nc "fi")
 504   (org-license-cc-by-nc "fr")
 505   (org-license-cc-by-nc "gl")
 506   (org-license-cc-by-nc "it")
 507   (org-license-cc-by-nc "jp")
 508   (org-license-cc-by-nc "nl")
 509   (org-license-cc-by-nc "pt")
 510   (org-license-cc-by-nc-sa "br")
 511   (org-license-cc-by-nc-sa "ca")
 512   (org-license-cc-by-nc-sa "de")
 513   (org-license-cc-by-nc-sa "es")
 514   (org-license-cc-by-nc-sa "en")
 515 ;;  (org-license-cc-by-nc-sa "eo")
 516   (org-license-cc-by-nc-sa "eu")
 517   (org-license-cc-by-nc-sa "fi")
 518   (org-license-cc-by-nc-sa "fr")
 519   (org-license-cc-by-nc-sa "gl")
 520   (org-license-cc-by-nc-sa "it")
 521   (org-license-cc-by-nc-sa "jp")
 522   (org-license-cc-by-nc-sa "nl")
 523   (org-license-cc-by-nc-sa "pt")
 524   (org-license-cc-by-nc-nd "br")
 525   (org-license-cc-by-nc-nd "ca")
 526   (org-license-cc-by-nc-nd "de")
 527   (org-license-cc-by-nc-nd "es")
 528   (org-license-cc-by-nc-nd "en")
 529 ;;  (org-license-cc-by-nc-nd "eo")
 530   (org-license-cc-by-nc-nd "eu")
 531   (org-license-cc-by-nc-nd "fi")
 532   (org-license-cc-by-nc-nd "fr")
 533   (org-license-cc-by-nc-nd "gl")
 534   (org-license-cc-by-nc-nd "it")
 535   (org-license-cc-by-nc-nd "jp")
 536   (org-license-cc-by-nc-nd "nl")
 537   (org-license-cc-by-nc-nd "pt")
 538 )
 539
 540