Newer
Older
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
(setq load-path (cons (expand-file-name "./el/") load-path))
(setq auto-mode-alist (cons '("\\.lut$" . lutin-mode) auto-mode-alist))
(setq auto-mode-alist (cons '("\\.lus$" . lustre-mode) auto-mode-alist))
(setq auto-mode-alist (cons '("\\.rif$" . rif-mode) auto-mode-alist))
(autoload 'rif-mode "rif" "" t)
(autoload 'lutin-mode "lutin" "Edition de code lutin" t)
(autoload 'lustre-mode "lustre" "Edition de code lustre" t)
(require 'org)
(require 'htmlize)
(require 'ob)
(require 'ob-dot)
(require 'ob-ocaml)
(require 'zenburn)
;; make sure that when we export in HTML, that we don't export with inline css.
;; that way the CSS of the HTML theme will be used instead which is better
(setq org-html-htmlize-output-type 'css)
(setq org-src-fontify-natively t)
(setq org-src-preserve-indentation t)
;(setq org-confirm-babel-evaluate t)
(defun my-org-confirm-babel-evaluate (lang body)
(and (not (string= lang "dot")) (not (string= lang "sh"))))
(setq org-confirm-babel-evaluate 'my-org-confirm-babel-evaluate)
(org-babel-do-load-languages
'org-babel-load-languages
'((emacs-lisp . t)
(ocaml . t)
(dot . t)
(lustre . t)
(rif . t)
(sh . t)
)
)
;;; pour faire comme suggeré ici
;;; https://lists.gnu.org/archive/html/emacs-orgmode/2011-03/msg00857.html
;;; mais ca ne fonctionne pas (avec cette vrsion de org-mode)
;; (add-hook 'org-babel-tangle-body-hook
;; (lambda () (org-export-preprocess-apply-macros)))