521 |
"Return string describing the loaded outline version." |
"Return string describing the loaded outline version." |
522 |
(interactive "P") |
(interactive "P") |
523 |
(let ((msg (concat "Allout Outline Mode v " outline-version))) |
(let ((msg (concat "Allout Outline Mode v " outline-version))) |
524 |
(if here (insert-string msg)) |
(if here (insert msg)) |
525 |
(message "%s" msg) |
(message "%s" msg) |
526 |
msg)) |
msg)) |
527 |
;;;_ : Topic header format |
;;;_ : Topic header format |
2844 |
(not (bolp))) |
(not (bolp))) |
2845 |
(forward-char 1)))) |
(forward-char 1)))) |
2846 |
)) |
)) |
2847 |
(insert-string (concat (outline-make-topic-prefix opening-numbered |
(insert (concat (outline-make-topic-prefix opening-numbered |
2848 |
t |
t |
2849 |
depth) |
depth) |
2850 |
" ")) |
" ")) |
2851 |
|
|
2852 |
;;(if doing-beginning (save-excursion (newline (if dbl-space 2 1)))) |
;;(if doing-beginning (save-excursion (newline (if dbl-space 2 1)))) |
2853 |
|
|
3063 |
(delete-region (match-beginning 0)(match-end 0)))) |
(delete-region (match-beginning 0)(match-end 0)))) |
3064 |
|
|
3065 |
; Put in new prefix: |
; Put in new prefix: |
3066 |
(outline-unprotected (insert-string new-prefix)) |
(outline-unprotected (insert new-prefix)) |
3067 |
|
|
3068 |
;; Reindent the body if elected and margin changed: |
;; Reindent the body if elected and margin changed: |
3069 |
(if (and outline-reindent-bodies |
(if (and outline-reindent-bodies |
4326 |
(car listified) |
(car listified) |
4327 |
(setq listified (cdr listified)))) |
(setq listified (cdr listified)))) |
4328 |
(bullet-plus (car listified))) |
(bullet-plus (car listified))) |
4329 |
(insert-string prefix) |
(insert prefix) |
4330 |
(if bullet-plus (insert-string (concat " " bullet-plus))) |
(if bullet-plus (insert (concat " " bullet-plus))) |
4331 |
(while text |
(while text |
4332 |
(insert-string (car text)) |
(insert (car text)) |
4333 |
(if (setq text (cdr text)) |
(if (setq text (cdr text)) |
4334 |
(insert-string "\n"))) |
(insert "\n"))) |
4335 |
(insert-string "\n"))) |
(insert "\n"))) |
4336 |
;;;_ > outline-copy-exposed-to-buffer (&optional arg tobuf format) |
;;;_ > outline-copy-exposed-to-buffer (&optional arg tobuf format) |
4337 |
(defun outline-copy-exposed-to-buffer (&optional arg tobuf format) |
(defun outline-copy-exposed-to-buffer (&optional arg tobuf format) |
4338 |
"Duplicate exposed portions of current outline to another buffer. |
"Duplicate exposed portions of current outline to another buffer. |
4440 |
end ; bounded by end-of-line |
end ; bounded by end-of-line |
4441 |
1) ; no matches, move to end & return nil |
1) ; no matches, move to end & return nil |
4442 |
(goto-char (match-beginning 0)) |
(goto-char (match-beginning 0)) |
4443 |
(insert-string "\\") |
(insert "\\") |
4444 |
(setq end (1+ end)) |
(setq end (1+ end)) |
4445 |
(goto-char (1+ (match-end 0)))))) |
(goto-char (1+ (match-end 0)))))) |
4446 |
;;;_ > outline-insert-latex-header (buf) |
;;;_ > outline-insert-latex-header (buf) |
4533 |
(curr-line) |
(curr-line) |
4534 |
body-content bop) |
body-content bop) |
4535 |
; Do the head line: |
; Do the head line: |
4536 |
(insert-string (concat "\\OneHeadLine{\\verb\1 " |
(insert (concat "\\OneHeadLine{\\verb\1 " |
4537 |
(outline-latex-verb-quote bullet) |
(outline-latex-verb-quote bullet) |
4538 |
"\1}{" |
"\1}{" |
4539 |
depth |
depth |
4540 |
"}{\\verb\1 " |
"}{\\verb\1 " |
4541 |
(if head-line |
(if head-line |
4542 |
(outline-latex-verb-quote head-line) |
(outline-latex-verb-quote head-line) |
4543 |
"") |
"") |
4544 |
"\1}\n")) |
"\1}\n")) |
4545 |
(if (not body-lines) |
(if (not body-lines) |
4546 |
nil |
nil |
4547 |
;;(insert-string "\\beginlines\n") |
;;(insert "\\beginlines\n") |
4548 |
(insert-string "\\begin{verbatim}\n") |
(insert "\\begin{verbatim}\n") |
4549 |
(while body-lines |
(while body-lines |
4550 |
(setq curr-line (car body-lines)) |
(setq curr-line (car body-lines)) |
4551 |
(if (and (not body-content) |
(if (and (not body-content) |
4559 |
(setq curr-line (concat (substring curr-line 0 bop) |
(setq curr-line (concat (substring curr-line 0 bop) |
4560 |
">" |
">" |
4561 |
(substring curr-line bop)))) |
(substring curr-line bop)))) |
4562 |
;;(insert-string "|" (car body-lines) "|") |
;;(insert "|" (car body-lines) "|") |
4563 |
(insert-string curr-line) |
(insert curr-line) |
4564 |
(outline-latex-verbatim-quote-curr-line) |
(outline-latex-verbatim-quote-curr-line) |
4565 |
(insert-string "\n") |
(insert "\n") |
4566 |
(setq body-lines (cdr body-lines))) |
(setq body-lines (cdr body-lines))) |
4567 |
(if body-content |
(if body-content |
4568 |
(setq body-content nil) |
(setq body-content nil) |
4569 |
(forward-char -1) |
(forward-char -1) |
4570 |
(insert-string "\\ ") |
(insert "\\ ") |
4571 |
(forward-char 1)) |
(forward-char 1)) |
4572 |
;;(insert-string "\\endlines\n") |
;;(insert "\\endlines\n") |
4573 |
(insert-string "\\end{verbatim}\n") |
(insert "\\end{verbatim}\n") |
4574 |
))) |
))) |
4575 |
;;;_ > outline-latexify-exposed (arg &optional tobuf) |
;;;_ > outline-latexify-exposed (arg &optional tobuf) |
4576 |
(defun outline-latexify-exposed (arg &optional tobuf) |
(defun outline-latexify-exposed (arg &optional tobuf) |
4631 |
(if (looking-at outline-regexp) |
(if (looking-at outline-regexp) |
4632 |
t |
t |
4633 |
(outline-open-topic 2) |
(outline-open-topic 2) |
4634 |
(insert-string (concat "Dummy outline topic header - see" |
(insert (concat "Dummy outline topic header - see" |
4635 |
"`outline-mode' docstring: `^Hm'.")) |
"`outline-mode' docstring: `^Hm'.")) |
4636 |
(forward-line 1) |
(forward-line 1) |
4637 |
(goto-char (point-max)) |
(goto-char (point-max)) |
4638 |
(open-line 1) |
(open-line 1) |
4639 |
(outline-open-topic 0) |
(outline-open-topic 0) |
4640 |
(insert-string "Local emacs vars.\n") |
(insert "Local emacs vars.\n") |
4641 |
(outline-open-topic 1) |
(outline-open-topic 1) |
4642 |
(insert-string "(`outline-layout' is for allout.el outline-mode)\n") |
(insert "(`outline-layout' is for allout.el outline-mode)\n") |
4643 |
(outline-open-topic 0) |
(outline-open-topic 0) |
4644 |
(insert-string "Local variables:\n") |
(insert "Local variables:\n") |
4645 |
(outline-open-topic 0) |
(outline-open-topic 0) |
4646 |
(insert-string (format "outline-layout: %s\n" |
(insert (format "outline-layout: %s\n" |
4647 |
(or outline-layout |
(or outline-layout |
4648 |
'(-1 : 0)))) |
'(-1 : 0)))) |
4649 |
(outline-open-topic 0) |
(outline-open-topic 0) |
4650 |
(insert-string "End:\n")))) |
(insert "End:\n")))) |
4651 |
;;;_ > solicit-char-in-string (prompt string &optional do-defaulting) |
;;;_ > solicit-char-in-string (prompt string &optional do-defaulting) |
4652 |
(defun solicit-char-in-string (prompt string &optional do-defaulting) |
(defun solicit-char-in-string (prompt string &optional do-defaulting) |
4653 |
"Solicit (with first arg PROMPT) choice of a character from string STRING. |
"Solicit (with first arg PROMPT) choice of a character from string STRING. |