lisp/textmodes/org.el

250   "Entries starting with this keyword will be exported in fixed-width font.
420 Changing it requires restart of `font-lock-mode' to become effective
428   :group 'org-font-lock
703 (defcustom org-table-default-size "5x2"
704   "The default size for newly created tables, Columns x Rows."
1823 N days, just insert a special line indicating the size of the gap."
2174 :scale       a scaling factor for the size of the images
2390   "Non-nil means, lines starting with \":\" will be in fixed width font.
2491 	font-family: Times, serif;
2492 	font-size: 12pt;
2494   .title { text-align: center; }
2499   .tag { background-color:lightblue; font-weight:normal }
2505 	font-family: courier, monospace;
2517 for new classes todo, done, title, and deadline.  For example, legal values
2521        p { font-weight: normal; color: gray; }
2523       .title { text-align: center; }
2537 (defcustom org-export-html-title-format "<h1 class=\"title\">%s</h1>\n"
2538   "Format for typesetting the document title in HTML export."
2626 (defgroup org-font-lock nil
2634 Changing it requires restart of `font-lock-mode' to become effective
2636   :group 'org-font-lock
2645 Changing it requires restart of `font-lock-mode' to become effective
2652   :group 'org-font-lock
2660   :group 'org-font-lock
2666   :group 'org-font-lock
2732   :group 'org-font-lock
2752 characters, the face to bbe used by font-lock for highlighting in Org-mode
2755   :group 'org-font-lock
2771   :group 'org-font-lock)
2802 (defface org-level-1 ;; font-lock-function-name-face
2813 (defface org-level-2 ;; font-lock-variable-name-face
2823 (defface org-level-3 ;; font-lock-keyword-face
2835 (defface org-level-4   ;; font-lock-comment-face
2847 (defface org-level-5 ;; font-lock-type-face
2855 (defface org-level-6 ;; font-lock-constant-face
2863 (defface org-level-7 ;; font-lock-builtin-face
2871 (defface org-level-8 ;; font-lock-string-face
2879 (defface org-special-keyword ;; font-lock-string-face
2887 (defface org-warning ;; font-lock-warning-face
2897 (defface org-headline-done ;; font-lock-string-face
2938 (defface org-todo ;; font-lock-warning-face
2948 (defface org-done ;; font-lock-type-face
2957 (defface org-table ;; font-lock-function-name-face
3007 (defface org-time-grid ;; font-lock-variable-name-face
3279     (org-set-font-lock-defaults)))
3303 (defvar font-lock-unfontify-region-function)
3313 (defvar w3m-current-title)
3538   (org-set-local 'font-lock-unfontify-region-function
3626 (require 'font-lock)
3717 	(font-lock-prepend-text-property (match-beginning 2) (match-end 2)
3722 			     '(font-lock-multiline t))
3767 	     ;; a lot of overhead for font-lock.
3830     (org-restart-font-lock)))
3842 (defun org-restart-font-lock ()
3843   "Restart font-lock-mode, to force refontification."
3844   (when (and (boundp 'font-lock-mode) font-lock-mode)
3845     (font-lock-mode -1)
3846     (font-lock-mode 1)))
3884 (defun org-font-lock-level ()
3896 (defvar org-font-lock-keywords nil)
3898 (defun org-set-font-lock-defaults ()
3901 	 (org-font-lock-extra-keywords
3942 	   '("^#.*" (0 'font-lock-comment-face t))
3957     (setq org-font-lock-extra-keywords (delq nil org-font-lock-extra-keywords))
3958     ;; Now set the full font-lock-keywords
3959     (org-set-local 'org-font-lock-keywords org-font-lock-extra-keywords)
3960     (org-set-local 'font-lock-defaults
3961 		   '(org-font-lock-keywords t nil nil backward-paragraph))
3962     (kill-local-variable 'font-lock-keywords) nil))
3968   "Get the right face for match N in font-lock matching of healdines."
3980   (font-lock-default-unfontify-region beg end)
4414       (org-set-frame-title heading))
4423       (org-set-frame-title (concat "Indirect: " heading)))
4430         (save-excursion (org-mode) (turn-on-font-lock)))
4446 (defun org-set-frame-title (title)
4447   "Set the title of the current frame to the string TITLE."
4450     (modify-frame-parameters (selected-frame) (list (cons 'name title)))))
4464   (if (= (buffer-size) 0)
5793 (defun org-table-create (&optional size)
5794   "Query for a size and insert a table skeleton.
5797   (unless size
5798     (setq size (read-string
5799 		(concat "Table size Columns x Rows [e.g. "
5800 			org-table-default-size "]: ")
5801 		"" nil org-table-default-size)))
5805 	 (split (org-split-string size " *x *"))
5994        (org-table-create org-table-default-size)
6953 	(if (and (boundp 'font-lock-mode) font-lock-mode)
6954 	    (font-lock-fontify-block)))
7075 	(message "Mapping tables: %d%%" (/ (* 100.0 (point)) (buffer-size)))
7955     ;; Keep global-font-lock-mode from turning on font-lock-mode
7956     (let ((font-lock-global-modes '(not fundamental-mode)))
7958     (org-set-local 'font-lock-global-modes (list 'not major-mode))
7967     (put-text-property 0 (length s) 'face 'font-lock-comment-face s)
8379 (defconst orgtbl-extra-font-lock-keywords
8382   "Extra font-lock-keywords to be added when orgtbl-mode is active.")
8412 	  (when (fboundp 'font-lock-add-keywords)
8413 	    (font-lock-add-keywords nil orgtbl-extra-font-lock-keywords)
8414 	    (org-restart-font-lock))
8421       (when (fboundp 'font-lock-remove-keywords)
8422 	(font-lock-remove-keywords nil orgtbl-extra-font-lock-keywords)
8423 	(org-restart-font-lock))
9177       (setq cpltxt (or w3m-current-title w3m-current-url)
10035       (if (< 0 (buffer-size (get-buffer "*BBDB*"))) (throw 'exit nil))
10038       (if (< 0 (buffer-size (get-buffer "*BBDB*"))) (throw 'exit nil))
10041       (if (< 0 (buffer-size (get-buffer "*BBDB*"))) (throw 'exit nil))
10044       (if (< 0 (buffer-size (get-buffer "*BBDB*"))) (throw 'exit nil))
10047       (when (= 0 (buffer-size (get-buffer "*BBDB*")))
10260     ;; Make a good description for this entry, using names, year and the title
10273 	  (bibtex-autokey-year-title-separator ": "))
12170   (org-restart-font-lock)
12894 	rtn beg end next cont level title total closedp leafp
12913 	      title (org-match-string-no-properties 2))
12920 		    total title titlepos level leafp)
12951   ;; Keep global-font-lock-mode from turning on font-lock-mode
12952   (org-set-local 'font-lock-global-modes (list 'not major-mode))
13431   "Fit the window to the buffer size."
16343 	 ((string-equal key "TITLE") (setq p (plist-put p :title val)))
16988 	 (title       (or (plist-get opt-plist :title)
17023     (if title (org-insert-centered title ?=))
17150 (defun org-ascii-level-start (level title umax &optional lines)
17158 		  " " title "\n")
17172 	(if (string-match "[ \t]+\\(:[a-zA-Z0-9_@:]+:\\)[ \t]*$" title)
17173 	    (setq title (replace-match "" t t title))))
17175 	  (setq title (concat (org-section-number level) " " title)))
17176       (insert title "\n" (make-string (string-width title) char) "\n")
17321 this line is also exported in fixed-width font."
17428 	 (title       (or (plist-get opt-plist :title)
17494 <title>%s</title>
17502 	       language language (org-html-expand title) (or charset "iso-8859-1")
17509 	(if title     (insert (format org-export-html-title-format
17510 				      (org-html-expand title))))
18224 (defun org-html-level-start (level title umax with-toc head-count)
18235     (when title
18236       ;; If title is nil, this means this function is called to close
18237       ;; all levels, so the rest is done only if title is given
18238 	(when (string-match "\\(:[a-zA-Z0-9_@:]+:\\)[ \t]*$" title)
18239 	  (setq title (replace-match
18245 						    (match-string 1 title) ":")
18249 		       t t title)))
18255 		  (insert "<li>" title "<br/>\n"))
18258 	      (insert "<ul>\n<li>" title "<br/>\n")))
18260 	    (setq title (concat (org-section-number level) " " title)))
18264 			    level head-count title level))
18265 	  (insert (format "\n<h%d>%s</h%d>\n" level title level)))
19269       (progn (org-add-to-invisibility-spec '(org-link)) (org-restart-font-lock))
19273 	(org-remove-from-invisibility-spec '(org-link)) (org-restart-font-lock))
19389 This function expects the position to be visible because it uses font-lock