fix org-license-cc-by-sa
[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
39
40 (defvar org-license-images-directory "")
41
42 (defun org-license-cc-by (language)
43   (interactive "MLanguage: " language)
44   (cond ((equal language "es")
45          (insert "* Licencia
46 Este documento está bajo una [[http://creativecommons.org/licenses/by/3.0/deed][Licencia Creative Commons Reconocimiento Unported 3.0]]"))
47         (t (insert "* License
48 This document is under a [[http://creativecommons.org/licenses/by/3.0/deed][Creative Commons Attribution Unported 3.0]]")))
49   (if (string= "" org-license-images-directory)
50       (insert "\n\n[[http://creativecommons.org/licenses/by/3.0/deed][file:http://i.creativecommons.org/l/by/3.0/80x15.png]]")
51     (insert (concat "\n\n[[http://creativecommons.org/licenses/by/3.0/deed][file:" org-license-images-directory "/by/3.0/80x15.png]]"))))
52
53 (defun org-license-cc-by-sa (language)
54   (interactive "MLanguage: " language)
55   (cond ((equal language "es") 
56          (insert "* Licencia
57 Este documento está bajo una [[http://creativecommons.org/licenses/by-sa/3.0/deed][Licencia Creative Commons Atribución Compartir Igual Unported 3.0]]"))
58         (t (insert "* License
59 This document is under a [[http://creativecommons.org/licenses/by-sa/3.0/deed][License Creative Commons Attribution-ShareAlike Unported 3.0]]")))
60   (if (string= "" org-license-images-directory)
61       (insert "\n\n[[http://creativecommons.org/licenses/by-sa/3.0/deed][file:http://i.creativecommons.org/l/by/3.0/80x15.png]]")
62     (insert (concat "\n\n[[http://creativecommons.org/licenses/by-sa/3.0/deed][file:" org-license-images-directory "/by-sa/3.0/80x15.png]]"))))
63
64 (defun org-license-cc-by-nd (language)
65   (interactive "MLanguage: " language)
66   (cond ((equal language "es")
67          (insert "* Licencia
68 Este documento está bajo una [[http://creativecommons.org/licenses/by-nd/3.0/es/deed][Licencia Creative Commons
69 Atribución-SinDerivadas 3.0]]"))
70         (t (insert "* License
71 This document is under a [[http://creativecommons.org/licenses/by-nd/3.0/deed][Creative Commons Reconocimiento Unported 3.0]]")))
72   (if (string= "" org-license-images-directory)
73       (insert "\n\n[[http://creativecommons.org/licenses/by-nd/3.0/deed][file:http://i.creativecommons.org/l/by-nd/3.0/80x15.png]]")
74     (insert (concat "\n\n[[http://creativecommons.org/licenses/by-nd/3.0/deed][file:" org-license-images-directory "/by-nd/3.0/80x15.png]]"))))
75 ;;"))
76
77 (defun org-license-cc-by-nc (language)
78   (interactive "MLanguage: " language)
79   (cond ((equal language "es")
80          (insert "* Licencia
81 Este documento está bajo una [[http://creativecommons.org/licenses/by-nc/3.0/es/deed][Licencia Creative Commons
82 Reconocimiento-NoComercial 3.0]]"))
83         (t (insert "* License 
84 This document is under a [[http://creativecommons.org/licenses/by-nc/3.0/deed][Creative Commons Attribution-NonCommercial 3.0 Unported]]")))
85   (if (string= "" org-license-images-directory)
86       (insert "\n\n[[http://creativecommons.org/licenses/by-nc/3.0/deed][file:http://i.creativecommons.org/l/by-nc/3.0/80x15.png]]")
87     (insert (concat "\n\n[[http://creativecommons.org/licenses/by-nc/3.0/deed][file:" org-license-images-directory "/by-nc/3.0/80x15.png]]"))))
88
89
90 (defun org-license-cc-by-nc-sa (language)
91   (interactive "MLanguage: " language)
92   (cond ((equal language "es")
93          (insert "* Licencia
94 Este documento está bajo una [[http://creativecommons.org/licenses/by-nc-sa/3.0/es/deed][Licencia Creative Commons Reconocimiento-NoComercial 3.0]]"))
95         (t (insert "* License
96 This document is under a [[http://creativecommons.org/licenses/by-nc-sa/3.0/deed][License Creative Commons
97 Reconocimiento-NoComercial 3.0] Unported]")))
98   (if (string= "" org-license-images-directory)
99       (insert "\n\n[[http://creativecommons.org/licenses/by-nc-sa/3.0/es/deed][file:http://i.creativecommons.org/l/by-nc-sa/3.0/80x15.png]]")
100     (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]]"))))
101
102 (defun org-license-cc-by-nc-nd (language)
103   (interactive "MLanguage: " language)
104   (cond ((equal language "es")
105          (insert "* Licencia 
106 Este documento está bajo una [[http://creativecommons.org/licenses/by-nc-nd/3.0/deed][Licencia Creative Commons
107 Reconocimiento-NoComercial-SinObraDerivada 3.0 Unported]]"))
108         (t (insert "* License
109 This document is under a [[http://creativecommons.org/licenses/by-nc-sa/3.0/deed][License Creative Commons
110 Reconocimiento-NoComercial-SinObraDerivada 3.0] Unported]")))
111   (if (string= "" org-license-images-directory)
112       (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]]"))
113     (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]]")))
114
115
116
117 (defun org-license-gfdl (language)
118   (interactive "MLanguage: " language)
119   (cond ((equal language "es")
120          (insert "* Licencia
121 Copyright (C)  2013 " user-full-name
122 "\n    Se permite copiar, distribuir y/o modificar este documento
123     bajo los términos de la GNU Free Documentation License, Version 1.3
124     o cualquier versión publicada por la Free Software Foundation;
125     sin Secciones Invariantes y sin Textos de Portada o Contraportada.
126     Una copia de la licencia está incluida en [[https://www.gnu.org/copyleft/fdl.html][GNU Free Documentation License]]."))
127         (t (insert (concat "* License
128 Copyright (C)  2013 " user-full-name
129 "\n    Permission is granted to copy, distribute and/or modify this document
130     under the terms of the GNU Free Documentation License, Version 1.3
131     or any later version published by the Free Software Foundation;
132     with no Invariant Sections, no Front-Cover Texts, and no Back-Cover Texts.
133     A copy of the license is included in [[https://www.gnu.org/copyleft/fdl.html][GNU Free Documentation License]]."))))
134   (if (string= "" org-license-images-directory)
135       (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]]")
136     (insert (concat "\n\n[[https://www.gnu.org/copyleft/fdl.html][file:" org-license-images-directory "/gfdl/gfdl.png]]"))))
137