Lines Matching +defs:insert +defs:char
146 (defcustom org-insert-mode-line-in-empty-file nil
147 "Non-nil means insert the first line setting Org-mode in empty files.
216 terminated by a colon. You can insert a schedule keyword and
225 terminated by a colon. You can insert a schedule keyword and
387 whitestart Only at the beginning of lines, before the first non-white char.
394 (const :tag "Before first char in a line" whitestart)
442 "Should `org-insert-heading' leave a blank line before new heading/item?
450 (defcustom org-insert-heading-hook nil
528 "Non-nil means, update checkbox statistics after insert and toggle.
529 When this is set, checkbox statistics is updated each time you either insert
530 a new checkbox with \\[org-insert-todo-heading] or toggle a checkbox
638 Optimization requires replacing the functions `self-insert-command',
639 `delete-char', and `backward-delete-char' in Org-mode buffers, with a
660 normally just insert a character. In tables, the characters are inserted
974 The command `org-insert-link' can be used to insert links into any
976 option is nil, every link which has been inserted once using \\[org-insert-link]
1358 "When set, insert a (non-active) time stamp when TODO entry is marked DONE.
1447 (defcustom org-insert-labeled-timestamps-at-point nil
1461 When zero, insert the time unmodified. Useful rounding numbers
1471 To turn this on on a per-file basis, insert anywhere in the file:
1531 (character :tag "Access char"))
1669 key The key (a single char as a string) to be associated with the command.
1823 N days, just insert a special line indicating the size of the gap."
2353 terminated by almost any nonword/nondigit char.
3160 (goto-char (point-min))
3214 (string-to-char (match-string 2 e)))
3564 (if (and org-insert-mode-line-in-empty-file
3567 (insert " -*- mode: org -*-\n\n"))
3587 (and pos (goto-char pos))
3723 (backward-char 1)
3839 (goto-char e)
3854 (goto-char (point-min))
4101 (get-char-property (1- (point)) 'invisible))
4181 (goto-char (point-min))
4184 (goto-char (match-beginning 0))
4195 (goto-char (point-max))
4199 (error (goto-char (point-min))))
4228 (goto-char (point-min))
4287 (goto-char selected-point)
4308 (insert-buffer-substring buf)
4319 (goto-char org-goto-start-pos)
4321 (goto-char (point-min)))
4360 (or (eobp) (forward-char 1))
4433 (goto-char pos)
4456 (defun org-insert-heading (&optional force-heading)
4459 If point is at the beginning of a headline, insert a sibling before the
4465 (insert "\n* ")
4466 (when (or force-heading (not (org-insert-item)))
4477 (save-excursion (backward-char 1) (not (org-invisible-p))))
4480 (backward-char 1) (not (org-invisible-p))))
4483 (insert head) (just-one-space)
4486 (unless (= (point) pos) (just-one-space) (backward-delete-char 1))
4487 (run-hooks 'org-insert-heading-hook)))))
4490 (defun org-insert-todo-heading (arg)
4495 (when (not (org-insert-item 'checkbox))
4496 (org-insert-heading)
4504 (insert (car org-todo-keywords) " ")
4505 (insert (match-string 2) " "))))
4555 (cond ((eobp) (insert " "))
4556 ((eolp) (insert " "))
4557 ((equal (char-after) ?\ ) (forward-char 1))))))
4614 (goto-char beg)
4637 (goto-char (match-end 0))
4651 (goto-char (point-min))
4665 (goto-char (point-min))
4673 (goto-char (point-min))
4710 (goto-char beg)
4713 (progn (goto-char beg)
4726 (insert txt)
4727 (goto-char ins-point)
4758 (if (equal (char-after) ?\n) (forward-char 1))
4760 (goto-char beg)
4783 If you want to insert the tree as is, just use \\[yank].
4835 (if (not (bolp)) (insert "\n"))
4837 (progn (insert "\n") (backward-char 1)))
4842 (insert txt)
4846 (goto-char beg)
4855 (goto-char (point-min))
4927 (goto-char (region-beginning))
4935 (goto-char start)
4940 (goto-char (point-min))
4943 (goto-char start)
4967 (goto-char start)
4971 (goto-char beg)
4978 (insert stars " " (cdr p))))
4979 (goto-char start)
4995 (setq sorting-type (read-char-exclusive)))
5031 (goto-char (point-at-bol))
5051 (defun org-insert-item (&optional checkbox)
5075 (insert bul (if checkbox "[ ]" ""))
5079 (unless (= (point) pos) (just-one-space) (backward-delete-char 1)))
5090 (goto-char (match-end 0))
5110 (goto-char beg)
5141 (goto-char (point-min))
5144 (goto-char beg)
5155 (goto-char e1)
5162 (goto-char b1)
5163 (insert (if f1
5240 (goto-char pos)
5263 (goto-char pos)
5276 (goto-char pos)
5287 (goto-char beg)
5297 (error (goto-char pos)
5319 (insert txt)
5320 (goto-char pos)
5322 (goto-char pos)
5336 (goto-char beg)
5346 (error (goto-char beg)
5355 (insert txt)
5356 (goto-char pos)
5358 (goto-char pos)
5420 (goto-char (match-beginning 3))
5421 (insert (format "%d" (setq n (1+ n)))))))
5447 (goto-char beg)
5519 (let ((org-insert-mode-line-in-empty-file t))
5522 (goto-char (point-max))
5523 (insert (format "\nArchived entries from file %s\n\n"
5536 (goto-char (point-min))
5543 (goto-char (match-end 0))
5544 ;; Heading not found, just insert it at the end
5545 (goto-char (point-max))
5546 (or (bolp) (insert "\n"))
5547 (insert "\n" heading "\n")
5556 (goto-char (point-max)) (insert "\n"))
5567 (goto-char (or (match-end 2) (match-beginning 3)))
5568 (org-insert-time-stamp (org-current-time) t t "(" ")"))
5605 (goto-char begm)
5609 (goto-char beg)
5611 (goto-char end)
5612 (goto-char beg)
5620 (goto-char end)))))
5632 (goto-char beg)
5648 (goto-char beg)
5679 (insert " :" (mapconcat 'identity (nreverse current) ":") ":"))
5770 "Use the table.el package to insert a new table.
5782 (t (call-interactively 'table-insert))))
5794 "Query for a size and insert a table skeleton.
5814 ;; (mapcar (lambda (x) (insert line)) (make-list rows t))
5815 (dotimes (i rows) (insert line))
5816 (goto-char pos)
5821 (insert "\n|-")
5822 (goto-char pos)))
5836 (goto-char beg)
5839 (goto-char end)
5840 (if (bolp) (backward-char 1) (end-of-line 1))
5846 (goto-char beg)
5853 (goto-char beg)
5856 (goto-char beg)
5857 (insert " ")
5869 (insert-file-contents file)
5888 (insert table)
5889 (goto-char (point-min))
5893 (goto-char (point-min))
5896 (goto-char (min (1+ (point)) (point-max))))
5897 (goto-char (point-min))
5901 (delete-char 1)))
5902 (goto-char (point-min))
5955 (goto-char beg)
5957 (goto-char beg)
5961 (when links (goto-char beg) (while (org-activate-bracket-links end)))
5963 (when dates (goto-char beg) (while (org-activate-dates end)))
5966 (goto-char beg)
6073 (insert new)
6076 (goto-char org-table-aligned-begin-marker)
6118 (progn (goto-char (point-min)) (point))
6119 (goto-char (match-beginning 0))
6131 (goto-char (point-max))
6132 (goto-char (match-beginning 0)))
6172 (goto-char pos))))))
6194 (goto-char (match-beginning 1)))
6198 (org-table-insert-row 'below))
6199 (if (looking-at " ") (forward-char 1))))
6201 (org-table-insert-row 'below)))))
6219 (goto-char (match-end 0))))
6239 (org-table-insert-row 'below)))
6242 (if (looking-at " ") (forward-char 1)))))
6281 (insert txt)
6307 (backward-char 1)
6313 (goto-char (+ 2 pos))
6323 (backward-char 1)
6329 (goto-char (min (point-at-eol) (+ 2 pos)))
6331 (forward-char 1) ""))
6349 (goto-char pos)
6384 (goto-char (org-table-begin))
6406 (insert " | "))))))
6407 ; (backward-char 2) t)))))
6409 (save-excursion (end-of-line 1) (insert " | ")))
6411 (backward-char 1)
6412 (if (looking-at " ") (forward-char 1))))))
6428 (goto-char (org-table-begin 'any))
6465 (defun org-table-insert-column ()
6477 (goto-char beg)
6482 (insert "| "))
6522 (goto-char beg)
6564 (goto-char beg)
6602 (goto-char pos)
6605 (goto-char pos)
6611 (insert txt)
6619 (defun org-table-insert-row (&optional arg)
6621 With prefix ARG, insert below the current line."
6631 (let (org-table-may-need-update) (insert-before-markers new "\n"))
6638 (defun org-table-insert-hline (&optional arg)
6640 With prefix ARG, insert above the current line."
6653 (insert line "\n")
6721 (goto-char beg)
6724 (goto-char end)
6732 (goto-char tbeg)
6734 (goto-char pos)
6737 (goto-char tend)
6742 (goto-char beg)
6756 (insert (mapconcat 'cdr lns "\n") "\n")
6774 (goto-char beg)
6778 (goto-char end)
6846 (goto-char beg)
6849 (goto-char beg))
6855 (goto-char beg)
6858 ;; insert a hline before first
6859 (goto-char beg)
6860 (org-table-insert-hline 'above)
6862 ;; insert a hline after each line
6864 (org-table-insert-hline))
6865 (goto-char beg)
6870 (goto-char beg)
6873 (goto-char beg)))))
6902 (cline (save-excursion (goto-char beg) (org-current-line)))
6903 (ccol (save-excursion (goto-char beg) (org-table-current-column)))
6929 (insert " " (org-trim s))
6935 (goto-char (match-beginning 0))
6937 (insert (org-trim s) " ")
6961 (insert "#\n# Edit field and finish with C-c C-c\n#\n")
6963 (goto-char (setq p (point-max)))
6964 (insert (org-trim field))
6968 (goto-char p)
6977 Remove all newline characters, insert the result into the table, realign
6983 (goto-char (point-min))
6991 (goto-char pos)
7073 (goto-char (point-min))
7108 (goto-char (org-table-begin))
7113 (goto-char (org-table-end))
7138 (format "Sum of %d items: %-20s (\\[yank] will insert result into buffer)"
7230 (goto-char (org-table-end))
7234 (goto-char (match-beginning 2))
7236 (insert "#+TBLFM:"))
7237 (insert " "
7240 (if (equal (string-to-char (car x)) ?@) "" "$")
7250 (goto-char (org-table-end))
7270 (goto-char (org-table-end))
7301 (goto-char beg)
7312 (goto-char beg)
7319 (goto-char beg)
7335 (goto-char beg)
7363 (setq named (equal (string-to-char field) ?:)
7386 insert a new column for the markers.
7401 (goto-char beg)
7408 (setq newchar (char-to-string (read-char-exclusive))
7420 (org-table-insert-column)
7486 When called with two `C-u' prefixes, insert the active equation
7539 (setq c (string-to-char (match-string 1 fmt))
7657 (if (not (equal (string-to-char desc) ?@))
7673 (if (memq (string-to-char c1) '(?- ?+)) col 0))))
7675 (if (memq (string-to-char c2) '(?- ?+)) col 0))))
7768 "Convert list ELEMENTS to something appropriate to insert into formula.
7818 (if (<= (string-to-char (car eq)) ?9)
7825 (goto-char (setq beg (org-table-begin)))
7837 (goto-char beg)
7968 (insert s)
7970 (setq s (concat (if (equal (string-to-char (car entry)) ?@) "" "$")
7973 (insert s))
7974 (goto-char (point-min))
7993 (goto-char (point-min))
8005 (goto-char pos)
8022 (goto-char pos)
8033 (goto-char pos)
8035 ((looking-at "[$@0-9a-zA-Z]+ *= *[^ \t\n']") (goto-char pos))
8039 (goto-char (- (match-end 0) 2))
8050 (goto-char (point-min))
8056 (goto-char (1+ (point-min)))
8059 (insert ind))
8060 (goto-char (point-max))
8061 (backward-delete-char 1)))
8062 (goto-char beg))
8093 (or (equal (string-to-char match) ?@) (setq match (concat "@" match)))
8107 (goto-char pos)
8140 (goto-char (org-table-begin))
8144 (goto-char (match-beginning 1))
8154 (goto-char (org-table-begin))
8157 (goto-char (match-beginning 1))
8170 (goto-char pos)
8177 (goto-char min)
8179 (goto-char pos))))
8191 (goto-char (if (< (abs (- p1 (point))) (abs (- p2 (point))))
8193 ((or p1 p2) (goto-char (or p1 p2)))
8227 (or (org-at-table-p) (goto-char p))
8256 (goto-char (min beg end))
8259 (goto-char (max beg end))
8273 (goto-char b))
8294 (goto-char (org-table-begin))
8354 ;; all keys which are bound to `self-insert-command' in the *global map*.
8356 ;; AUCTeX binds the double quote to `Tex-insert-quote'. With orgtbl-mode
8358 ;; modified self-insert.
8483 '([(meta shift right)] org-table-insert-column)
8485 '([(meta shift down)] org-table-insert-row)
8491 '("\C-c-" org-table-insert-hline)
8542 'self-insert-command 'orgtbl-self-insert-command
8543 'delete-char 'org-delete-char
8544 'delete-backward-char 'org-delete-backward-char)
8545 (define-key orgtbl-mode-map "|" 'org-force-self-insert))
8570 ["Insert Hline" org-table-insert-hline :active (org-at-table-p) :keys "C-c -"])
8578 ["Insert table template" orgtbl-insert-radio-table
8616 (goto-char action)
8645 (defun orgtbl-self-insert-command (N)
8646 "Like `self-insert-command', use overwrite-mode for whitespace in tables.
8665 (goto-char (1- (match-end 0)))
8666 (delete-backward-char 1)
8667 (goto-char (match-beginning 0))
8668 (self-insert-command N))
8673 (defun org-force-self-insert (N)
8674 "Needed to enforce self-insert under remapping."
8676 (self-insert-command N))
8693 (goto-char (org-table-begin))
8731 (goto-char (point-min))
8734 (error "Don't know where to insert translated table"))
8735 (goto-char (match-beginning 0))
8742 (goto-char beg)
8743 (insert txt "\n"))
8778 (defun orgtbl-insert-radio-table ()
8788 (or (bolp) (insert "\n"))
8790 (insert txt)
8791 (goto-char pos)))
9016 (defvar org-insert-link-history nil
9017 "Minibuffer history for links inserted with `org-insert-link'.")
9029 \\[org-insert-link].
9376 (goto-char (point-min))
9407 (defun org-insert-link (&optional complete-file)
9474 org-insert-link-history))
9480 (or entry (push link org-insert-link-history))
9529 (insert (org-make-link-string link desc))))
9534 (define-key minibuffer-local-completion-map " " 'self-insert-command)
9545 (goto-char (point-min))
9551 (if a (goto-char (nth 2 a)))
9554 (goto-char (match-beginning 0))
9556 (goto-char pos)
9565 (goto-char (point-max))
9571 (if a (goto-char (nth 1 a)))
9574 (goto-char (match-beginning 0))
9576 (goto-char pos)
9800 buffer with \\[org-insert-link].")
9841 (goto-char (point-min))
9847 (goto-char pos))
9858 (when (equal (string-to-char s) ?*)
9885 (t (goto-char (point-min))
9894 (goto-char (match-beginning 1))
9895 (goto-char pos)
9899 (goto-char (point-min))
9901 (goto-char (match-beginning 0))
9911 (goto-char (match-end group))
9948 (goto-char (point-min))
9954 (goto-char (point-min))
9997 (goto-char m)
10098 (goto-char (point-min))
10133 (goto-char (point-max))
10285 (goto-char (point-min))
10288 (goto-char (match-beginning 0)))
10294 (save-excursion (set-buffer b) (goto-char p)
10422 (defun org-remember-apply-template (&optional use-char skip-interactive)
10428 (let* ((char (or use-char
10433 (lambda (x) (char-to-string (car x)))
10435 (read-char-exclusive))))
10436 (entry (cdr (assoc char org-remember-templates)))
10452 org-time-was-given x prompt char time)
10457 (insert (substitute-command-keys
10464 (insert tpl) (goto-char (point-min))
10479 (goto-char (point-min))
10492 (goto-char (point-min))
10494 (setq char (if (match-end 3) (match-string 3))
10496 (goto-char (match-beginning 0))
10498 (if char
10500 (setq org-time-was-given (equal (upcase char) char))
10501 (setq time (org-read-date (equal (upcase char) "U") t nil
10503 (org-insert-time-stamp time org-time-was-given
10504 (member char '("u" "U"))))
10505 (insert (read-string
10507 (goto-char (point-min))
10510 (and (re-search-forward "^[^#\n]" nil t) (backward-char 1))))
10542 find a better place. Then press RET or <left> or <right> in insert the note.
10567 (goto-char (point-min))
10600 (save-excursion (and (goto-char (point-min))
10602 (insert "\n* Notes\n")))
10610 (goto-char (point-min))
10623 (goto-char spos)
10628 (goto-char (point-max))
10635 (goto-char (point-min))
10686 (goto-char (point-min))
10690 (if pos (goto-char pos))
10705 (insert "#+BEGIN: " name)
10709 (insert " " (prin1-to-string (pop plist)))))
10710 (insert "\n\n#+END:\n")
10715 This empties the block, puts the cursor at the insert position and returns
10726 (goto-char begdel)
10736 (goto-char (point-min))
10738 (goto-char (setq pos (match-beginning 0)))
10742 (goto-char pos)
10766 (goto-char pos)))
10778 (goto-char beg)
10779 (goto-char pos)
10811 (searchhead (equal (char-before beg) ?*))
10812 (tag (equal (char-before beg1) ?:))
10813 (texp (equal (char-before beg) ?\\))
10814 (link (equal (char-before beg) ?\[))
10845 (goto-char (point-min))
10859 (insert (substring (cdr (assoc (upcase pattern) table))
10861 (if (equal type :tag) (insert ":"))))
10869 (insert completion)
10873 (if (eq type :todo) (insert " ")
10874 (if (eq type :tag) (insert ":"))))
10877 "Press \\[org-complete] again to insert example settings"))))
10901 (goto-char (match-end 0))
10902 (insert " " org-comment-string))))))
10934 (if (looking-at outline-regexp) (goto-char (match-end 0)))
11008 (goto-char (or (match-end 2) (match-end 1)))
11101 (when (and org-insert-labeled-timestamps-at-point
11103 (insert
11105 (org-insert-time-stamp time org-time-was-given)
11112 (goto-char (match-end 1))
11114 (goto-char (1+ (match-end 0)))
11120 (insert "\n")
11121 (backward-char 1)
11128 (goto-char (point-min))
11138 (goto-char (point-max))
11140 (insert
11141 (if (not (equal (char-before) ?\ )) " " "")
11146 (org-insert-time-stamp time
11150 (goto-char (point-min))
11174 (goto-char (match-end 0)))
11187 (goto-char org-log-note-marker)
11191 (insert (format "# Insert note for %s, finish with C-c C-c.\n\n"
11200 "Finish taking a log note, and insert it to where it belongs."
11227 (goto-char org-log-note-marker)
11230 (if (not (bolp)) (insert "\n")) (indent-relative nil)
11232 (insert " - " (pop lines))
11234 (insert "\n" ind (pop lines))))))
11237 (goto-char org-log-note-return-to))
11258 (goto-char (point-min))
11369 (setq current (string-to-char (match-string 2))
11375 (setq new (read-char-exclusive))
11396 (goto-char (match-end 2))
11397 (insert " [#" news "]"))
11398 (goto-char (match-beginning 3))
11399 (insert "[#" news "] ")))))
11411 (string-to-char (match-string 2 s)))))))
11440 (goto-char (point-min))
11446 (goto-char (setq lspos (1+ (match-beginning 0))))
11481 (goto-char lspos)
11546 re-p (equal (string-to-char tag) ?{)
11572 re-p (equal (string-to-char kwd) ?{)
11612 (goto-char (point-min))
11653 (goto-char (match-beginning 0))
11690 (defun org-fast-tag-insert (kwd tags face &optional end)
11692 (insert (format "%-12s" (concat kwd ":"))
11704 (insert (org-add-props " Next change exits" nil 'face 'org-warning)))))
11732 tg cnt e c char c1 c2 ntable tbl rtn
11759 (org-fast-tag-insert "Inherited" inherited i-face "\n")
11760 (org-fast-tag-insert "Current" current c-face "\n\n")
11763 (setq tbl table char ?a cnt 0)
11770 (insert "\n"))
11771 (insert "{ "))
11774 (insert "}\n"))
11780 (setq c1 (string-to-char
11782 tg (if (= (string-to-char tg) ?@) 1 0)))))
11784 (while (or (rassoc char ntable) (rassoc char table))
11785 (setq char (1+ char)))
11787 (setq c (or c2 char)))
11794 (if (and (= cnt 0) (not ingroup)) (insert " "))
11795 (insert "[" c "] " tg (make-string
11799 (insert "\n")
11800 (if ingroup (insert " "))
11803 (insert "\n")
11804 (goto-char (point-min))
11813 (setq c (let ((inhibit-quit t)) (read-char-exclusive)))
11818 (goto-char (point-min))
11868 (goto-char (point-min))
11871 (org-fast-tag-insert "Current" current c-face)
11881 (goto-char (point-min)))))
11901 (goto-char (point-min))
11914 "Prompt for a date/time and insert a time stamp.
11928 (insert "--")
11931 (org-insert-time-stamp time (or org-time-was-given arg)))
11938 (org-insert-time-stamp time (or org-time-was-given arg))))
11943 (org-insert-time-stamp time (or org-time-was-given arg))))))
11954 (org-insert-time-stamp time (or org-time-was-given arg) 'inactive)))
11991 insert a time. Note that when WITH-TIME is not set, you can still
11994 used to insert the time stamp into the buffer to include the time."
12139 (defun org-insert-time-stamp (time &optional with-hm inactive pre post)
12150 (insert (or pre ""))
12151 (insert (setq stamp (format-time-string fmt time)))
12152 (insert (or post ""))
12287 (goto-char (point-at-bol))
12323 (goto-char match-end)
12325 (and (looking-at " *|") (goto-char (match-end 0))))
12329 (if negative (insert " -"))
12330 (if (> y 0) (insert " " (format (if havetime fy fy1) y d h m))
12331 (if (> d 0) (insert " " (format (if havetime fd fd1) d h m))
12332 (insert " " (format fh h m))))
12416 (if (> (point) 1) (backward-char 1))
12451 inactive (= (char-after (match-beginning 0)) ?\[)
12479 (org-insert-time-stamp time with-hm inactive))
12481 (goto-char pos)
12545 (insert "\n") (backward-char 1)
12547 (insert org-clock-string " ")
12548 (setq ts (org-insert-time-stamp (current-time) 'with-hm 'inactive))
12562 (goto-char org-clock-marker)
12568 (goto-char org-clock-marker)
12569 (insert "--")
12570 (setq te (org-insert-time-stamp (current-time) 'with-hm 'inactive))
12577 (insert " => " (format "%2d:%02d" h m))
12589 (goto-char org-clock-marker)
12613 (goto-char (point-max))
12635 (goto-char (match-beginning 0))
12650 (goto-char (point-min))
12652 (goto-char p)
12777 (insert " => " (format "%2d:%02d" h m))
12843 (insert-before-markers "Clock summary at ["
12855 (insert-before-markers "|-\n|0|" "*Total file time*| "
12858 (goto-char (point-min))
12860 (goto-char p)
12871 (goto-char ins)
12872 (if (= level 1) (insert-before-markers "|-\n"))
12873 (insert-before-markers
12880 (goto-char ins)
12881 (backward-delete-char 1)
12882 (goto-char ipos)
12898 (goto-char (point-min))
12916 (goto-char next)
12922 (goto-char cont)))
13260 (insert (eval-when-compile
13277 (insert (format "\n%-4s%-14s: %s"
13294 (insert "\n"
13296 (goto-char (point-min))
13300 (setq c (read-char-exclusive))
13307 (goto-char (point-max))
13309 (goto-char (point-min)))
13325 (setq c (read-char-exclusive)))
13330 ((setq entry (assoc (char-to-string c) org-agenda-custom-commands))
13403 (goto-char (point-min)))
13415 (flet ((read-char-exclusive () (string-to-char cmd-key)))
13478 (insert (mapconcat 'identity list "\n") "\n")))
13487 (insert-file-contents org-agenda-files)
13569 (let ((r (downcase (read-char-exclusive))))
13585 (goto-char (point-max))
13587 (insert "\n" (make-string (window-width) ?=) "\n"))
13617 (goto-char (point-min))
13641 (goto-char (point-min))
13645 (goto-char (point-min))
13673 (if (equal (char-after p) ?#) (throw :skip t))
13678 (goto-char to)
13736 (goto-char (point-min))
13803 (insert (format "\n[... %d empty days omitted]\n\n" (cdr d)))
13811 (insert (make-string 79 ?-) "\n")))
13819 (insert (calendar-day-name date) " "
13824 ; (insert (format-time-string org-agenda-date-format
13831 (and rtn (insert (org-finalize-agenda-entries rtn) "\n"))
13833 (goto-char (point-min))
13834 (goto-char (or (text-property-any (point-min) (point-max) 'org-today t)
13852 (goto-char beg)
13858 (goto-char beg)
13954 (insert "ALL CURRENTLY OPEN TODO ITEMS:\n")
13957 (insert (org-finalize-agenda-entries rtnall) "\n")))
13959 (insert (if (= nd 7) "Week-" "Day-") "agenda:\n")
13989 (insert (format "%-9s %2d %s %4d\n"
13995 ; (insert (format-time-string org-agenda-date-format
14000 (if rtnall (insert
14006 (goto-char (point-min))
14010 (goto-char (1- (point-max)))
14014 (goto-char (or start-pos 1))
14016 (goto-char (or start-pos 1))
14065 (insert (org-add-props (copy-sequence org-agenda-overriding-header)
14067 (insert "Global list of TODO items of type: ")
14071 (insert (or org-select-this-todo-keyword "ALL") "\n")
14075 (insert
14084 (insert (org-finalize-agenda-entries rtnall) "\n"))
14085 (goto-char (point-min))
14137 (insert (org-add-props (copy-sequence org-agenda-overriding-header)
14139 (insert "Headlines with TAGS match: ")
14143 (insert match "\n")
14147 (insert "Press `C-u r' to search again with new search string\n"))
14150 (insert (org-finalize-agenda-entries rtnall) "\n"))
14151 (goto-char (point-min))
14258 (goto-char (point-min))
14267 (goto-char (point-min))
14270 (goto-char (point-min))
14463 (goto-char (point-min))
14469 (when (or (and org-agenda-todo-ignore-scheduled (goto-char beg)
14471 (and org-agenda-todo-ignore-deadlines (goto-char beg)
14474 (goto-char beg)
14477 (goto-char beg)
14479 (goto-char (match-beginning 1))
14496 (goto-char (match-end 1))
14521 (goto-char (point-min))
14545 (goto-char (match-end 1))
14592 (goto-char (point-min))
14608 (goto-char (match-end 1))
14639 (goto-char (point-min))
14655 (goto-char (match-end 0))
14696 (goto-char (point-min))
14711 (goto-char (match-end 0))
14744 (goto-char (point-min))
14763 (goto-char (match-end 1))
14776 (goto-char pos)))
15016 (goto-char (+ (point) (or (get-text-property (point) 'prefix-length) 0)))
15140 (tdpos (goto-char tdpos))
15149 (goto-char
15218 (if (looking-at "^\\S-") (forward-char 1))
15221 (backward-char 1)
15223 (goto-char (match-beginning 0)))
15305 (and (eolp) (not (bolp)) (backward-char 1))
15337 (goto-char pos)
15357 (goto-char pos)
15363 (goto-char dbeg)
15389 (goto-char pos)
15408 (goto-char (point-max))
15441 (goto-char pos)
15498 (goto-char pos)
15522 (goto-char pos)
15528 (and (bolp) (forward-char 1))
15548 (goto-char (point-max))
15589 (goto-char (if line (point-at-bol) (point-min)))
15593 (goto-char (match-beginning 1))
15594 (insert (org-add-props
15625 (goto-char pos)
15646 (goto-char (or pos (point)))
15675 (goto-char pos)
15700 (goto-char pos)
15723 (goto-char pos)
15741 (goto-char (point-max))
15752 (insert-extent ex (1- (point)) (point-at-eol)))
15774 (goto-char pos)
15789 (org-insert-labeled-timestamps-at-point nil)
15794 (goto-char pos)
15807 (org-insert-labeled-timestamps-at-point nil)
15812 (goto-char pos)
15832 (goto-char pos)
15857 (let* ((char (progn
15859 (read-char-exclusive)))
15860 (cmd (cdr (assoc char
15861 '((?d . insert-diary-entry)
15862 (?w . insert-weekly-diary-entry)
15863 (?m . insert-monthly-diary-entry)
15864 (?y . insert-yearly-diary-entry)
15865 (?a . insert-anniversary-diary-entry)
15866 (?b . insert-block-diary-entry)
15867 (?c . insert-cyclic-diary-entry)))))
15873 (error "No command associated with <%c>" char))
15875 (or (not (equal ?b char))
16015 This is because we want to insert math symbols without dollars even outside
16060 (goto-char pos)
16072 (goto-char pos)
16078 (goto-char pos)
16087 insert a LaTeX environment."
16152 (goto-char (max (point-min) (- (cdr at) 2)))
16198 (goto-char (point-min))
16208 (goto-char beg)
16227 (goto-char end))
16229 (insert link))))))))
16248 (insert "\\documentclass{article}
16335 (goto-char 0)
16418 (let ((help "[t] insert the export option template
16435 '((?t . org-insert-export-options-template)
16454 (setq r1 (read-char-exclusive)))
16775 (insert string)
16781 (goto-char (point-min))
16791 (goto-char (point-min))
16796 (goto-char (point-min))
16802 (goto-char (point-min))
16809 (goto-char (point-min))
16811 (goto-char (match-beginning 0))
16818 (goto-char (point-min))
16823 (goto-char (point-min))
16828 (goto-char (point-min))
16835 (goto-char (point-min))
16839 (goto-char (match-beginning 0))))
16852 (goto-char (point-min))
16859 (goto-char (point-min))
16866 (goto-char (point-min))
16881 (goto-char (point-min))
16884 (subst-char-in-region (match-beginning 0) (match-end 0) ?\n ?\ t)
16885 (goto-char (1- (match-end 0))))))
16916 (- (string-to-char number-string) ?A -1))
17023 (if title (org-insert-centered title ?=))
17024 (insert "\n")
17026 (insert (concat (nth 1 lang-words) ": " (or author "")
17030 (insert (concat (nth 2 lang-words) ": " date " " time "\n")))
17031 (if text (insert (concat (org-html-expand-for-ascii text) "\n\n")))
17033 (insert "\n\n")
17037 (insert (nth 3 lang-words) "\n"
17070 (insert
17098 (insert (org-fix-indentation line org-ascii-current-indentation) "\n"))))
17103 (goto-char (point-min))
17107 (goto-char beg)
17108 (insert "=>"))
17109 (goto-char (point-min))
17113 (goto-char beg)))
17114 (goto-char (point-min))))
17141 (defun org-insert-centered (s &optional underline)
17144 (insert (make-string ind ?\ ) s "\n")
17146 (insert (make-string ind ?\ )
17152 (let (char (n (- level umax 1)) (ind 0))
17155 (insert (make-string (* 2 n) ?\ )
17156 (char-to-string (nth (% n (length org-export-ascii-bullets))
17167 (if (or (not (equal (char-before) ?\n))
17168 (not (equal (char-before (1- (point))) ?\n)))
17169 (insert "\n"))
17170 (setq char (nth (- umax level) (reverse org-export-ascii-underline)))
17176 (insert title "\n" (make-string (string-width title) char) "\n")
17191 (read-char-exclusive))
17208 (setq s (goto-char (point-min)))
17210 (goto-char (org-find-invisible))
17212 (setq s (goto-char (org-find-visible))))
17213 (goto-char (point-min))
17232 (goto-char (point-min)))))
17237 (get-char-property s 'invisible)))
17242 (not (get-char-property s 'invisible))))
17305 (defun org-insert-export-options-template ()
17312 (insert s)))
17332 (goto-char beg)
17342 (insert ":\n")
17346 ((not off) (move-to-column cc t) (insert ":")))
17355 (goto-char (match-end 0))
17356 (insert " " org-quote-string))))))))
17488 (insert (format
17506 (insert (or (plist-get opt-plist :preamble) ""))
17509 (if title (insert (format org-export-html-title-format
17511 (if text (insert "<p>\n" (org-html-expand text) "</p>")))
17515 (insert (format "<h%d>%s</h%d>\n"
17519 (insert "<ul>\n<li>")
17556 (insert "\n<ul>\n<li>"))
17557 (insert "\n")))
17562 (insert "</li>\n</ul>"))
17563 (insert "\n")))
17575 (insert
17588 (insert "</li>\n</ul>\n"))
17598 (insert "</pre>\n")
17602 (insert (org-html-protect line) "\n")
17610 (insert "<pre>\n"))
17611 (insert (org-html-protect (match-string 1 line)) "\n")
17616 (insert "</pre>\n"))
17621 (insert line "\n")
17626 (insert "\n<hr/>\n")
17638 ((and org-export-with-toc (equal (string-to-char line) ?*))
17760 (insert (if (car local-list-num) "</ol>\n" "</ul>"))
17769 (insert "<pre>")
17787 (insert (org-format-table-html table-buffer table-orig-buffer))))
17810 (insert (if (car local-list-num) "</ol>\n" "</ul>"))
17819 (insert (if start-is-num "<ol>\n<li>\n" "<ul>\n<li>\n"))
17826 (insert "<li>\n")))
17847 (insert line "\n")))))
17850 (when inquote (insert "</pre>\n"))
17855 (insert (if (car local-list-num) "</ol>\n" "</ul>\n"))
17865 (insert "<p class=\"author\"> "
17868 (insert "<a href=\"mailto:" email "\"><"
17870 (insert "</p>\n"))
17872 (insert "<p class=\"date\"> "
17877 (insert org-export-html-html-helper-timestamp))
17878 (insert (or (plist-get opt-plist :postamble) ""))
17879 (insert "</body>\n</html>\n")
17882 (goto-char (point-min))
17885 (goto-char (point-min))
17889 (goto-char (point-min))
18060 (insert (mapconcat 'identity lines "\n"))
18061 (goto-char (point-min))
18208 (insert "\n<p>")
18213 (insert "</p>")
18218 (insert "</li>\n"))
18222 ; (insert "</li>"))))
18255 (insert "<li>" title "<br/>\n"))
18258 (insert "<ul>\n<li>" title "<br/>\n")))
18263 (insert (format "\n<h%d><a name=\"sec-%d\">%s</a></h%d>\n"
18265 (insert (format "\n<h%d>%s</h%d>\n" level title level)))
18271 (insert "</ul>"))
18360 (goto-char (point-min))
18369 (goto-char (match-end 0))
18398 (goto-char (point-min))
18408 (setq pri (string-to-char (match-string 2 hd))
18462 (defun org-export-as-xoxo-insert-into (buffer &rest output)
18464 (apply 'insert output)))
18465 (put 'org-export-as-xoxo-insert-into 'lisp-indent-function 1)
18475 (goto-char (point-min)) ;; CD: beginning-of-buffer is not allowed.
18489 (org-export-as-xoxo-insert-into out "<ol class='xoxo'>\n")
18496 (goto-char (match-end 0))
18508 (org-export-as-xoxo-insert-into out "\n<ol>\n"))
18513 (org-export-as-xoxo-insert-into out "</li>\n"))
18514 (org-export-as-xoxo-insert-into out "</ol>\n"))
18516 (org-export-as-xoxo-insert-into out "</li>\n")
18521 (org-export-as-xoxo-insert-into out "</li>\n")))
18529 (org-export-as-xoxo-insert-into out "<li class='" (substring text 1) "'>")
18530 (org-export-as-xoxo-insert-into out "<li>" text))))
18535 (org-export-as-xoxo-insert-into out "</li>\n"))
18536 (org-export-as-xoxo-insert-into out "</ol>\n"))
18542 (goto-char (point-min))
18571 (define-key org-mode-map [(meta shift return)] 'org-insert-todo-heading)
18597 (define-key org-mode-map "\C-c\C-xM" 'org-insert-todo-heading)
18635 (define-key org-mode-map "\C-c\C-m" 'org-insert-heading)
18636 (define-key org-mode-map "\M-\C-m" 'org-insert-heading)
18639 (define-key org-mode-map "\C-c\C-l" 'org-insert-link)
18654 (define-key org-mode-map "\C-c-" 'org-table-insert-hline)
18695 (defun org-self-insert-command (N)
18696 "Like `self-insert-command', use overwrite-mode for whitespace in tables.
18706 (if (or (equal (char-after) ?\ ) (looking-at "[^|\n]* |"))
18715 (goto-char (1- (match-end 0)))
18716 (delete-backward-char 1)
18717 (goto-char (match-beginning 0))
18718 (self-insert-command N))
18720 (self-insert-command N)))
18722 (defun org-delete-backward-char (N)
18723 "Like `delete-backward-char', insert whitespace at field end in tables.
18724 When deleting backwards, in tables this function will insert whitespace in
18736 (backward-delete-char N)
18738 (insert " ")
18739 (goto-char (1- pos))
18743 (backward-delete-char N)))
18745 (defun org-delete-char (N)
18746 "Like `delete-char', but insert whitespace at field end in tables.
18747 When deleting characters, in tables this function will insert whitespace in
18754 (not (= (char-after) ?|))
18763 (goto-char pos)
18767 (delete-char N))
18768 (delete-char N)))
18771 (put 'org-self-insert-command 'delete-selection t)
18772 (put 'orgtbl-self-insert-command 'delete-selection t)
18773 (put 'org-delete-char 'delete-selection 'supersede)
18774 (put 'org-delete-backward-char 'delete-selection 'supersede)
18777 (put 'org-self-insert-command 'flyspell-delayed t)
18778 (put 'orgtbl-self-insert-command 'flyspell-delayed t)
18779 (put 'org-delete-char 'flyspell-delayed t)
18780 (put 'org-delete-backward-char 'flyspell-delayed t)
18800 'self-insert-command 'org-self-insert-command
18801 'delete-char 'org-delete-char
18802 'delete-backward-char 'org-delete-backward-char)
18803 (define-key org-mode-map "|" 'org-force-self-insert))
18834 "Demote subtree or insert table column.
18835 Calls `org-demote-subtree' or `org-table-insert-column', depending on context.
18839 ((org-at-table-p) (call-interactively 'org-table-insert-column))
18856 "Move subtree down or insert table row.
18857 Calls `org-move-subtree-down' or `org-table-insert-row' or
18862 ((org-at-table-p) (call-interactively 'org-table-insert-row))
18984 - If the cursor is in a headline, prompt for tags and insert them
19061 "Goto next table row or insert a newline.
19073 Calls `org-insert-heading' or `org-table-wrap-region', depending on context.
19079 (t (call-interactively 'org-insert-heading))))
19107 ["Insert Hline" org-table-insert-hline (org-at-table-p)])
19154 ["New Heading" org-insert-heading t]
19213 ; ["Insert Checkbox" org-insert-todo-heading (org-in-item-p)]
19215 ; ["Insert [n/m] cookie" (progn (insert "[/]") (org-update-checkbox-count))
19217 ; ["Insert [%] cookie" (progn (insert "[%]") (org-update-checkbox-count))
19262 ["Insert Link" org-insert-link t]
19342 "Create a full customization menu for Org-mode, insert it into the menu."
19405 (goto-char p)
19406 (skip-chars-backward "^[\n\r \t") (or (eobp) (backward-char 1))
19426 (goto-char p)
19442 (goto-char (1- (match-beginning 0)))
19445 (goto-char p))
19514 (insert (delete-and-extract-region beg end))
19515 (goto-char pos)
19527 (insert (delete-and-extract-region beg end))
19528 (goto-char pos)
19616 (cond ((equal (char-after (point-at-bol)) ?*) t) ; skip headlines
19665 (backward-char 1)
19668 (backward-char 1)
19670 (forward-char 1))))
19679 (get-char-property (point) 'invisible)))
19684 (if (and (eolp) (not (bobp))) (backward-char 1))
19688 (get-char-property (point) 'invisible))))
19717 (or previous (forward-char 1))
19720 (when (< l level) (goto-char pos) (throw 'exit nil))
19721 (when (= l level) (goto-char (match-beginning 0)) (throw 'exit t)))
19722 (goto-char pos)
19766 (if (memq (preceding-char) '(?\n ?\^M))
19769 (forward-char -1)
19770 (if (memq (preceding-char) '(?\n ?\^M))
19772 (forward-char -1)))))
19843 (save-excursion (goto-char (max (point-min) (1- (point))))