ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

org-license.el: remove my-org-switch-language function.

This commit is contained in:
David Arroyo Menendez 2013-11-17 11:54:00 +01:00
parent d8e149eb76
commit 246c8c6637
1 changed files with 2 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
contrib/lisp/org-license.el
View File

@ -39,24 +39,6 @@
(defvar org-license-images-directory "") (defvar org-license-images-directory "")
(defun my-org-switch-language ()
"Switch language if a `#+LANGUAGE:' Org meta-tag is on top 8 lines."
(save-excursion
(let (lang
(license-alist '(("br" . "brazilian")
("ca" . "catalan")
("de" . "deutsch")
("en" . "american")
("eo" . "esperanto")
("eu" . "euskera")
("es" . "spanish"))))
(when (re-search-backward "#\\+LANGUAGE: +\\([[:alpha:]_]*\\)" 1 t)
(setq lang (match-string 1))
;; (message lang)
(ispell-change-dictionary (cdr (assoc lang dico-alist)))))))
(add-hook 'org-mode-hook 'my-org-switch-language)
(defun org-license-cc-by (language) (defun org-license-cc-by (language)
(interactive "MLanguage ( br | ca | de | en | es | eo | eu | fi | fr | gl | it | jp | nl | pt ): " language) (interactive "MLanguage ( br | ca | de | en | es | eo | eu | fi | fr | gl | it | jp | nl | pt ): " language)
(cond ((equal language "br") (cond ((equal language "br")
@ -521,3 +503,5 @@ Copyright (C) 2013 " user-full-name
(org-license-cc-by-nc-nd "nl") (org-license-cc-by-nc-nd "nl")
(org-license-cc-by-nc-nd "pt") (org-license-cc-by-nc-nd "pt")
) )