add deutsch language for creative commons functions
[worg.git] / code / elisp / org-license.el
1 ;;; org-license.el --- Add a license to your org files
2
3 ;; Copyright (C) 2013 Free Software Foundation, Inc.
4
5 ;; Author: David Arroyo Menéndez <davidam@es.gnu.org>
6 ;; Keywords: license, 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 ;; TODO: extract localized url as variable and introduce it in image
39 ;; TODO: create a function to test all combinations of licenses
40
41 (defvar org-license-images-directory "")
42
43 (defun org-license-cc-by (language)
44   (interactive "MLanguage: " language)
45   (cond ((equal language "es")
46          (insert "* Licencia
47 Este documento está bajo una [[http://creativecommons.org/licenses/by/3.0/es/deed.es][Licencia Creative Commons Atribución 3.0]]"))
48         ((equal language "de")
49          (insert "* Lizenz
50 Dieses Dokument ist unter ein [[http://creativecommons.org/licenses/by/3.0/de/deed.de][Lizenz Creative Commons Namensnennung 3.0]]"))
51         (t (insert "* License
52 This document is under a [[http://creativecommons.org/licenses/by/3.0/deed][Creative Commons Attribution 3.0]]")))
53   (if (string= "" org-license-images-directory)
54       (insert "\n\n[[http://creativecommons.org/licenses/by/3.0/deed][file:http://i.creativecommons.org/l/by/3.0/80x15.png]]")
55     (insert (concat "\n\n[[http://creativecommons.org/licenses/by/3.0/deed][file:" org-license-images-directory "/by/3.0/80x15.png]]"))))
56
57 (defun org-license-cc-by-sa (language)
58   (interactive "MLanguage: " language)
59   (cond ((equal language "es") 
60          (insert "* Licencia
61 Este documento está bajo una [[http://creativecommons.org/licenses/by-sa/3.0/deed.es][Licencia Creative Commons Atribución Compartir Igual Unported 3.0]]"))
62         ((equal language "de")
63          (insert "* Lizenz
64 Dieses Dokument ist unter ein [[http://creativecommons.org/licenses/by-sa/3.0/deed.de][Namensnennung - Weitergabe unter gleichen Bedingungen 3.0 Unported]]"))
65         (t (insert "* License
66 This document is under a [[http://creativecommons.org/licenses/by-sa/3.0/deed][License Creative Commons Attribution-ShareAlike Unported 3.0]]")))
67   (if (string= "" org-license-images-directory)
68       (insert "\n\n[[http://creativecommons.org/licenses/by-sa/3.0/deed][file:http://i.creativecommons.org/l/by-sa/3.0/80x15.png]]")
69     (insert (concat "\n\n[[http://creativecommons.org/licenses/by-sa/3.0/deed][file:" org-license-images-directory "/by-sa/3.0/80x15.png]]"))))
70
71 (defun org-license-cc-by-nd (language)
72   (interactive "MLanguage: " language)
73   (cond ((equal language "es")
74          (insert "* Licencia
75 Este documento está bajo una [[http://creativecommons.org/licenses/by-nd/3.0/es/deed.es][Licencia Creative Commons Atribución-SinDerivadas 3.0]]"))
76         ((equal language "de")
77          (insert "* Lizenz
78 Dieses Dokument ist unter ein [[http://creativecommons.org/licenses/by-nd/3.0/de/deed.de][Namensnennung-Keine Bearbeitung 3.0 Deutschland]]"))
79         (t (insert "* License
80 This document is under a [[http://creativecommons.org/licenses/by-nd/3.0/deed][Creative Commons Reconocimiento Unported 3.0]]")))
81   (if (string= "" org-license-images-directory)
82       (insert "\n\n[[http://creativecommons.org/licenses/by-nd/3.0/deed][file:http://i.creativecommons.org/l/by-nd/3.0/80x15.png]]")
83     (insert (concat "\n\n[[http://creativecommons.org/licenses/by-nd/3.0/deed][file:" org-license-images-directory "/by-nd/3.0/80x15.png]]"))))
84 ;;"))
85
86 (defun org-license-cc-by-nc (language)
87   (interactive "MLanguage: " language)
88   (cond ((equal language "es")
89          (insert "* Licencia
90 Este documento está bajo una [[http://creativecommons.org/licenses/by-nc/3.0/es/deed.es][Licencia Creative Commons Reconocimiento-NoComercial 3.0]]"))
91         ((equal language "de")
92          (insert "* Lizenz
93 Dieses Dokument ist unter ein [[http://creativecommons.org/licenses/by-nc/3.0/de/deed.de][Namensnennung-Nicht-kommerziell 3.0 Deutschland]]"))
94         (t (insert "* License 
95 This document is under a [[http://creativecommons.org/licenses/by-nc/3.0/deed][Creative Commons Attribution-NonCommercial 3.0 Unported]]")))
96   (if (string= "" org-license-images-directory)
97       (insert "\n\n[[http://creativecommons.org/licenses/by-nc/3.0/deed][file:http://i.creativecommons.org/l/by-nc/3.0/80x15.png]]")
98     (insert (concat "\n\n[[http://creativecommons.org/licenses/by-nc/3.0/deed][file:" org-license-images-directory "/by-nc/3.0/80x15.png]]"))))
99
100
101 (defun org-license-cc-by-nc-sa (language)
102   (interactive "MLanguage: " language)
103   (cond ((equal language "es")
104          (insert "* Licencia
105 Este documento está bajo una [[http://creativecommons.org/licenses/by-nc-sa/3.0/es/deed.es][Licencia Creative Commons Reconocimiento-NoComercial 3.0]]"))
106         ((equal language "de")
107          (insert "* Lizenz
108 Dieses Dokument ist unter ein [[http://creativecommons.org/licenses/by-nc-sa/3.0/deed.de][Namensnennung - Weitergabe unter gleichen Bedingungen 3.0 Unported]]"))
109         (t (insert "* License
110 This document is under a [[http://creativecommons.org/licenses/by-nc-sa/3.0/deed][License Creative Commons
111 Reconocimiento-NoComercial 3.0] Unported]")))
112   (if (string= "" org-license-images-directory)
113       (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]]")
114     (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]]"))))
115
116 (defun org-license-cc-by-nc-nd (language)
117   (interactive "MLanguage: " language)
118   (cond ((equal language "es")
119          (insert "* Licencia 
120 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]]"))
121         ((equal language "de")
122          (insert "* Lizenz
123 Dieses Dokument ist unter ein [[http://creativecommons.org/licenses/by-nc-nd/3.0/de/deed.de][Namensnennung-NichtKommerziell-KeineBearbeitung 3.0 Deutschland]]"))
124         (t (insert "* License
125 This document is under a [[http://creativecommons.org/licenses/by-nc-sa/3.0/deed][License Creative Commons
126 Reconocimiento-NoComercial-SinObraDerivada 3.0] Unported]")))
127   (if (string= "" org-license-images-directory)
128       (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]]"))
129     (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]]")))
130
131 (defun org-license-gfdl (language)
132   (interactive "MLanguage: " language)
133   (cond ((equal language "es")
134          (insert "* Licencia
135 Copyright (C)  2013 " user-full-name
136 "\n    Se permite copiar, distribuir y/o modificar este documento
137     bajo los términos de la GNU Free Documentation License, Version 1.3
138     o cualquier versión publicada por la Free Software Foundation;
139     sin Secciones Invariantes y sin Textos de Portada o Contraportada.
140     Una copia de la licencia está incluida en [[https://www.gnu.org/copyleft/fdl.html][GNU Free Documentation License]]."))
141         (t (insert (concat "* License
142 Copyright (C)  2013 " user-full-name
143 "\n    Permission is granted to copy, distribute and/or modify this document
144     under the terms of the GNU Free Documentation License, Version 1.3
145     or any later version published by the Free Software Foundation;
146     with no Invariant Sections, no Front-Cover Texts, and no Back-Cover Texts.
147     A copy of the license is included in [[https://www.gnu.org/copyleft/fdl.html][GNU Free Documentation License]]."))))
148   (if (string= "" org-license-images-directory)
149       (insert "\n\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]]")
150     (insert (concat "\n\n[[https://www.gnu.org/copyleft/fdl.html][file:" org-license-images-directory "/gfdl/gfdl.png]]"))))
151