Carsten Dominik <carsten.domi...@gmail.com> writes: > can you show an example on how you use it? Maybe we can find a better way. > Nicolas is right that portability is compromised by customizable emphasis.
> On 18.3.2013, at 00:02, zeltak <zel...@gmail.com> wrote: >> I find the ability to add custom emphasise with custom faces invaluable. i >> find it very easy to add and very useful for me since i use ALOT of color >> highlights in my academic work. Here is an excerpt from my .emacs, actually stolen from Fabrice Nielson (http://www.mygooglest.com/fni/), that might give some hints how to do interactive color highlighting without any changes to Org-mode: ,------------------------------------------------------------------------------ | ;; *** 14.13 (info "(emacs)Highlight Interactively") | | ;; You can use `hi-lock-mode' to highlight words: | ;; `M-x hi-lock-mode RET' | ;; `C-x w h <match> RET hi-blue RET' | ;; You can also write your settings to the buffer you're using with | ;; `C-x w b', and read them back in again next time with `C-x w i'. | | ;; TODO Have a look at http://www.emacswiki.org/emacs/color-moccur.el for | ;; searching regexp in buffer | | (GNUEmacs | ;; "identical token highlighting" commands | (when (try-require 'highlight) | | (defface hlt-1 '((t (:background "#FFFFA0"))) nil) | (defface hlt-2 '((t (:background "#A0FFA0"))) nil) | (defface hlt-3 '((t (:background "#A0FFFF"))) nil) | (defface hlt-4 '((t (:background "#FFA0FF"))) nil) | (defface hlt-5 '((t (:background "#FFA0A0"))) nil) | (defface hlt-6 '((t (:background "#FFFFA0"))) nil) | (defface hlt-7 '((t (:background "#A0FFA0"))) nil) | (defface hlt-8 '((t (:background "#A0FFFF"))) nil) | (defface hlt-9 '((t (:background "#FFA0FF"))) nil) | (defface hlt-10 '((t (:background "#FFA0A0"))) nil) | | (global-set-key (kbd "C-S-p") 'hlt-previous-highlight) | (global-set-key (kbd "C-S-n") 'hlt-next-highlight) | | (defun hlt-highlight-current-word () | (interactive) | (let ((var_name (current-word t))) | (when var_name | (save-excursion | (hlt-highlight-regexp-region | (point-min) | (point-max) | (regexp-quote var_name)))))) | | ;; emulation of Vim's `*' search | (global-set-key (kbd "C-*") 'hlt-highlight-current-word) | )) | | ;; ;; bind the hi-lock commands to more finger-friendly sequences | ;; (define-key hi-lock-map (kbd "C-z i") 'hi-lock-find-patterns) | ;; (define-key hi-lock-map (kbd "C-z p") 'highlight-phrase) | ;; (define-key hi-lock-map (kbd "C-z r") 'unhighlight-regexp) | | ;; (define-key hi-lock-map (kbd "C-z h") 'highlight-regexp) | ;; (define-key hi-lock-map (kbd "C-z C-h") 'highlight-lines-matching-regexp) | ;; (define-key hi-lock-map (kbd "C-z b") 'hi-lock-write-interactive-patterns) | | ;; Highlight based on regexps | (global-set-key [M-f1] 'highlight-regexp) | (global-set-key [M-f2] 'highlight-lines-matching-regexp) | (global-set-key [M-f3] 'hi-lock-mode) | (global-set-key [M-f4] 'hi-lock-write-interactive-patterns) | | ;; highlight current symbol | (when (try-require 'light-symbol) | (light-symbol-mode)) | | ;; highlight current symbol | (setq highlight-symbol-idle-delay 0.5) | (when (try-require 'highlight-symbol) | (highlight-symbol-mode)) `------------------------------------------------------------------------------ -- cheers, Thorsten