Fix a small bug in org-toggle-iimage-in-org
[worg.git] / org-configs / org-config-examples.org
1 #+OPTIONS:    H:3 num:nil toc:t \n:nil ::t |:t ^:t -:t f:t *:t tex:t d:(HIDE) tags:not-in-toc
2 #+STARTUP:    align fold nodlcheck hidestars oddeven lognotestate
3 #+SEQ_TODO:   TODO(t) INPROGRESS(i) WAITING(w@) | DONE(d) CANCELED(c@)
4 #+TAGS:       Write(w) Update(u) Fix(f) Check(c)
5 #+TITLE:      Org configuration(s)
6 #+AUTHOR:     Worg people
7 #+EMAIL:      bzg AT altern DOT org
8 #+LANGUAGE:   en
9 #+PRIORITIES: A C B
10 #+CATEGORY:   worg
11
12 # This file is the default header for new Org files in Worg.  Feel free
13 # to tailor it to your needs.
14
15 * GTD setups
16
17 #+index: GTD!Setup
18
19 - David O'Toole [[http://orgmode.org/worg/code/elisp/dto-org-gtd.el][GTD configuration file]]
20
21 * General Configuration/Customization
22
23 ** Some useful keybindings
24
25 #+index: Keybindings
26
27 Here is a subset of my personal org-mode key-bindings that others may find
28 useful.
29
30 # please anyone else should feel free to edit/change/remove parts of
31 # this example
32
33 #+begin_src emacs-lisp
34   (add-hook 'org-mode-hook 
35             (lambda ()
36               (local-set-key "\M-n" 'outline-next-visible-heading)
37               (local-set-key "\M-p" 'outline-previous-visible-heading)
38               ;; table
39               (local-set-key "\C-\M-w" 'org-table-copy-region)
40               (local-set-key "\C-\M-y" 'org-table-paste-rectangle)
41               (local-set-key "\C-\M-l" 'org-table-sort-lines)
42               ;; display images
43               (local-set-key "\M-I" 'org-toggle-iimage-in-org)
44               ;; fix tab
45               (local-set-key "\C-y" 'yank)))
46 #+end_src
47
48 References and explanations of the above:
49
50 - see [[*iimage%20in%20org%20(display%20images%20in%20org%20files)][*iimage in org (display images in org files)]] for an explanation of
51   the =org-toggle-iimage-in-org= function (inline images in org-mode
52   files).
53
54  iimage in org (display images in org files)
55
56 Thanks to many on the mailing list for this great addition to
57 Org-Mode.  See [[http://www.netlaputa.ne.jp/~kose/Emacs/iimage.html][iimage]] for information on =iimage-minor-mode=.
58
59 #+begin_src emacs-lisp
60   (add-to-list 'iimage-mode-image-regex-alist
61                (cons (concat "\\[\\[file:\\(~?" iimage-mode-image-filename-regex
62                              "\\)\\]")  1))
63   
64   (defun org-toggle-iimage-in-org ()
65     "display images in your org file"
66     (interactive)
67     (if (face-underline-p 'org-link)
68         (set-face-underline-p 'org-link nil)
69         (set-face-underline-p 'org-link t))
70     (iimage-mode â€˜toggle))
71 #+end_src