org-license.el (31849B)
1 ;;; org-license.el --- Add a license to your org files 2 3 ;; Copyright (C) 2013-2021 Free Software Foundation, Inc. 4 5 ;; Author: David Arroyo Menéndez <davidam@es.gnu.org> 6 ;; Keywords: licenses, creative commons 7 ;; Homepage: https://git.sr.ht/~bzg/org-contrib 8 ;; 9 ;; This file is not part of GNU Emacs. 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 <https://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 "https://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 "https://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 "https://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 "https://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 "https://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 "https://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 "https://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 "https://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 "https://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 "https://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 "https://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:https://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 "https://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 "https://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 "https://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 "https://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 "https://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 "https://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 "https://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 "https://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 "https://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 "https://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 "https://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 "https://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:https://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 "https://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 "https://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 "https://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 "https://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 "https://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 "https://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 "https://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 "https://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 "https://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 "https://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 "https://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 "https://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:https://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 "https://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 "https://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 "https://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 "https://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 "https://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 "https://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 "https://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 "https://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 "https://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 "https://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 "https://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 "https://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:https://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 "https://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 "https://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 "https://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 "https://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 "https://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 "https://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 "https://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 "https://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 "https://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 "https://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 "https://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 "https://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:https://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 "https://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 "https://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 "https://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 "https://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 "https://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 "https://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 "https://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 "https://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 "https://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 "https://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 "https://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 "https://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 "https://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:https://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 "https://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:https://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 "https://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:https://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