|
|
|
@ -331,7 +331,7 @@ Please report a bug if this needs to be changed.") |
|
|
|
("C" . outshine-cycle-buffer) |
|
|
|
("C" . outshine-cycle-buffer) |
|
|
|
;; [X] |
|
|
|
;; [X] |
|
|
|
(" " . (outshine-use-outorg |
|
|
|
(" " . (outshine-use-outorg |
|
|
|
'org-display-outline-path |
|
|
|
'org-display-outline-path |
|
|
|
'WHOLE-BUFFER-P)) |
|
|
|
'WHOLE-BUFFER-P)) |
|
|
|
;; [X] |
|
|
|
;; [X] |
|
|
|
("r" . outshine-narrow-to-subtree) |
|
|
|
("r" . outshine-narrow-to-subtree) |
|
|
|
@ -384,16 +384,16 @@ Please report a bug if this needs to be changed.") |
|
|
|
("," . outshine-priority) |
|
|
|
("," . outshine-priority) |
|
|
|
;; [X] |
|
|
|
;; [X] |
|
|
|
("0" . (outshine-use-outorg |
|
|
|
("0" . (outshine-use-outorg |
|
|
|
(lambda () (interactive) (org-priority ?\ )))) |
|
|
|
(lambda () (interactive) (org-priority ?\ )))) |
|
|
|
;; [X] |
|
|
|
;; [X] |
|
|
|
("1" . (outshine-use-outorg |
|
|
|
("1" . (outshine-use-outorg |
|
|
|
(lambda () (interactive) (org-priority ?A)))) |
|
|
|
(lambda () (interactive) (org-priority ?A)))) |
|
|
|
;; [X] |
|
|
|
;; [X] |
|
|
|
("2" . (outshine-use-outorg |
|
|
|
("2" . (outshine-use-outorg |
|
|
|
(lambda () (interactive) (org-priority ?B)))) |
|
|
|
(lambda () (interactive) (org-priority ?B)))) |
|
|
|
;; [X] |
|
|
|
;; [X] |
|
|
|
("3" . (outshine-use-outorg |
|
|
|
("3" . (outshine-use-outorg |
|
|
|
(lambda () (interactive) (org-priority ?C)))) |
|
|
|
(lambda () (interactive) (org-priority ?C)))) |
|
|
|
;; [X] |
|
|
|
;; [X] |
|
|
|
(":" . outshine-set-tags-command) |
|
|
|
(":" . outshine-set-tags-command) |
|
|
|
;; ;; [ ] |
|
|
|
;; ;; [ ] |
|
|
|
@ -897,32 +897,32 @@ This is configurable, because there is some impact on typing performance." |
|
|
|
|
|
|
|
|
|
|
|
(defcustom outshine-latex-classes |
|
|
|
(defcustom outshine-latex-classes |
|
|
|
'(("scrbook" . ((1 . "^[[:space:]]*\\\\part\\*?{\\(.+\\)}") |
|
|
|
'(("scrbook" . ((1 . "^[[:space:]]*\\\\part\\*?{\\(.+\\)}") |
|
|
|
(2 . "^[[:space:]]*\\\\chapter\\*?{\\(.+\\)}") |
|
|
|
(2 . "^[[:space:]]*\\\\chapter\\*?{\\(.+\\)}") |
|
|
|
(3 . "^[[:space:]]*\\\\section\\*?{\\(.+\\)}") |
|
|
|
(3 . "^[[:space:]]*\\\\section\\*?{\\(.+\\)}") |
|
|
|
(4 . "^[[:space:]]*\\\\subsection\\*?{\\(.+\\)}") |
|
|
|
(4 . "^[[:space:]]*\\\\subsection\\*?{\\(.+\\)}") |
|
|
|
(5 . "^[[:space:]]*\\\\subsubsection\\*?{\\(.+\\)}") |
|
|
|
(5 . "^[[:space:]]*\\\\subsubsection\\*?{\\(.+\\)}") |
|
|
|
(6 . "^[[:space:]]*\\\\paragraph\\*?{\\(.+\\)}") |
|
|
|
(6 . "^[[:space:]]*\\\\paragraph\\*?{\\(.+\\)}") |
|
|
|
(7 . "^[[:space:]]*\\\\subparagraph\\*?{\\(.+\\)}"))) |
|
|
|
(7 . "^[[:space:]]*\\\\subparagraph\\*?{\\(.+\\)}"))) |
|
|
|
("book" . ((1 . "^[[:space:]]*\\\\part\\*?{\\(.+\\)}") |
|
|
|
("book" . ((1 . "^[[:space:]]*\\\\part\\*?{\\(.+\\)}") |
|
|
|
(2 . "^[[:space:]]*\\\\chapter\\*?{\\(.+\\)}") |
|
|
|
(2 . "^[[:space:]]*\\\\chapter\\*?{\\(.+\\)}") |
|
|
|
(3 . "^[[:space:]]*\\\\section\\*?{\\(.+\\)}") |
|
|
|
(3 . "^[[:space:]]*\\\\section\\*?{\\(.+\\)}") |
|
|
|
(4 . "^[[:space:]]*\\\\subsection\\*?{\\(.+\\)}") |
|
|
|
(4 . "^[[:space:]]*\\\\subsection\\*?{\\(.+\\)}") |
|
|
|
(5 . "^[[:space:]]*\\\\subsubsection\\*?{\\(.+\\)}"))) |
|
|
|
(5 . "^[[:space:]]*\\\\subsubsection\\*?{\\(.+\\)}"))) |
|
|
|
("report" . ((1 . "^[[:space:]]*\\\\part\\*?{\\(.+\\)}") |
|
|
|
("report" . ((1 . "^[[:space:]]*\\\\part\\*?{\\(.+\\)}") |
|
|
|
(2 . "^[[:space:]]*\\\\chapter\\*?{\\(.+\\)}") |
|
|
|
(2 . "^[[:space:]]*\\\\chapter\\*?{\\(.+\\)}") |
|
|
|
(3 . "^[[:space:]]*\\\\section\\*?{\\(.+\\)}") |
|
|
|
(3 . "^[[:space:]]*\\\\section\\*?{\\(.+\\)}") |
|
|
|
(4 . "^[[:space:]]*\\\\subsection\\*?{\\(.+\\)}") |
|
|
|
(4 . "^[[:space:]]*\\\\subsection\\*?{\\(.+\\)}") |
|
|
|
(5 . "^[[:space:]]*\\\\subsubsection\\*?{\\(.+\\)}"))) |
|
|
|
(5 . "^[[:space:]]*\\\\subsubsection\\*?{\\(.+\\)}"))) |
|
|
|
("scrartcl" . ((1 . "^[[:space:]]*\\\\section\\*?{\\(.+\\)}") |
|
|
|
("scrartcl" . ((1 . "^[[:space:]]*\\\\section\\*?{\\(.+\\)}") |
|
|
|
(2 . "^[[:space:]]*\\\\subsection\\*?{\\(.+\\)}") |
|
|
|
(2 . "^[[:space:]]*\\\\subsection\\*?{\\(.+\\)}") |
|
|
|
(3 . "^[[:space:]]*\\\\subsubsection\\*?{\\(.+\\)}") |
|
|
|
(3 . "^[[:space:]]*\\\\subsubsection\\*?{\\(.+\\)}") |
|
|
|
(4 . "^[[:space:]]*\\\\paragraph\\*?{\\(.+\\)}") |
|
|
|
(4 . "^[[:space:]]*\\\\paragraph\\*?{\\(.+\\)}") |
|
|
|
(5 . "^[[:space:]]*\\\\subparagraph\\*?{\\(.+\\)}"))) |
|
|
|
(5 . "^[[:space:]]*\\\\subparagraph\\*?{\\(.+\\)}"))) |
|
|
|
("article" . ((1 . "^[[:space:]]*\\\\section\\*?{\\(.+\\)}") |
|
|
|
("article" . ((1 . "^[[:space:]]*\\\\section\\*?{\\(.+\\)}") |
|
|
|
(2 . "^[[:space:]]*\\\\subsection\\*?{\\(.+\\)}") |
|
|
|
(2 . "^[[:space:]]*\\\\subsection\\*?{\\(.+\\)}") |
|
|
|
(3 . "^[[:space:]]*\\\\subsubsection\\*?{\\(.+\\)}") |
|
|
|
(3 . "^[[:space:]]*\\\\subsubsection\\*?{\\(.+\\)}") |
|
|
|
(4 . "^[[:space:]]*\\\\paragraph\\*?{\\(.+\\)}") |
|
|
|
(4 . "^[[:space:]]*\\\\paragraph\\*?{\\(.+\\)}") |
|
|
|
(5 . "^[[:space:]]*\\\\subparagraph\\*?{\\(.+\\)}")))) |
|
|
|
(5 . "^[[:space:]]*\\\\subparagraph\\*?{\\(.+\\)}")))) |
|
|
|
"Sectioning structure of LaTeX classes. |
|
|
|
"Sectioning structure of LaTeX classes. |
|
|
|
For each class, the outline level and a regexp matching the latex |
|
|
|
For each class, the outline level and a regexp matching the latex |
|
|
|
section are given (with section title in submatch 1)." |
|
|
|
section are given (with section title in submatch 1)." |
|
|
|
@ -973,15 +973,15 @@ Don't use this function, the public interface is |
|
|
|
"Outcomment inserted log-note in Outshine buffers." |
|
|
|
"Outcomment inserted log-note in Outshine buffers." |
|
|
|
(when outshine-mode |
|
|
|
(when outshine-mode |
|
|
|
(let ((outshine-log-note-beg-marker |
|
|
|
(let ((outshine-log-note-beg-marker |
|
|
|
;; stay before inserted text |
|
|
|
;; stay before inserted text |
|
|
|
(copy-marker (outshine-mimic-org-log-note-marker) nil)) |
|
|
|
(copy-marker (outshine-mimic-org-log-note-marker) nil)) |
|
|
|
(outshine-log-note-end-marker |
|
|
|
(outshine-log-note-end-marker |
|
|
|
;; stay after inserted text |
|
|
|
;; stay after inserted text |
|
|
|
(copy-marker (outshine-mimic-org-log-note-marker) t))) |
|
|
|
(copy-marker (outshine-mimic-org-log-note-marker) t))) |
|
|
|
ad-do-it |
|
|
|
ad-do-it |
|
|
|
(unless (derived-mode-p 'org-mode 'org-agenda-mode) |
|
|
|
(unless (derived-mode-p 'org-mode 'org-agenda-mode) |
|
|
|
(outshine-comment-region outshine-log-note-beg-marker |
|
|
|
(outshine-comment-region outshine-log-note-beg-marker |
|
|
|
outshine-log-note-end-marker)) |
|
|
|
outshine-log-note-end-marker)) |
|
|
|
(move-marker outshine-log-note-beg-marker nil) |
|
|
|
(move-marker outshine-log-note-beg-marker nil) |
|
|
|
(move-marker outshine-log-note-end-marker nil)))) |
|
|
|
(move-marker outshine-log-note-end-marker nil)))) |
|
|
|
|
|
|
|
|
|
|
|
@ -1001,8 +1001,8 @@ Don't use this function, the public interface is |
|
|
|
(set (make-local-variable |
|
|
|
(set (make-local-variable |
|
|
|
'outshine-imenu-preliminary-generic-expression) |
|
|
|
'outshine-imenu-preliminary-generic-expression) |
|
|
|
`((nil ,(concat out-regexp "\\(.*$\\)") 1))) |
|
|
|
`((nil ,(concat out-regexp "\\(.*$\\)") 1))) |
|
|
|
(if imenu-generic-expression |
|
|
|
(if imenu-generic-expression |
|
|
|
(add-to-list 'imenu-generic-expression |
|
|
|
(add-to-list 'imenu-generic-expression |
|
|
|
(car outshine-imenu-preliminary-generic-expression)) |
|
|
|
(car outshine-imenu-preliminary-generic-expression)) |
|
|
|
(setq imenu-generic-expression |
|
|
|
(setq imenu-generic-expression |
|
|
|
outshine-imenu-preliminary-generic-expression))) |
|
|
|
outshine-imenu-preliminary-generic-expression))) |
|
|
|
@ -1516,7 +1516,7 @@ COMMANDS is a list of alternating OLDDEF NEWDEF command names." |
|
|
|
;; ;; FIXME max-lisp-eval-depth exceeded error when turned on |
|
|
|
;; ;; FIXME max-lisp-eval-depth exceeded error when turned on |
|
|
|
;; ;; with max-lisp-eval-depth set to 600 |
|
|
|
;; ;; with max-lisp-eval-depth set to 600 |
|
|
|
;; (add-hook 'outline-view-change-hook |
|
|
|
;; (add-hook 'outline-view-change-hook |
|
|
|
;; 'outshine-hide-comment-subtrees) |
|
|
|
;; 'outshine-hide-comment-subtrees) |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;;;;; Use outorg functions |
|
|
|
;;;;; Use outorg functions |
|
|
|
@ -1597,18 +1597,18 @@ Call `comment-region' with a comment-style that guarantees |
|
|
|
Use current buffer for conversion, unless BUF-OR-FILE is given." |
|
|
|
Use current buffer for conversion, unless BUF-OR-FILE is given." |
|
|
|
(let (buf-strg) |
|
|
|
(let (buf-strg) |
|
|
|
(with-current-buffer |
|
|
|
(with-current-buffer |
|
|
|
(cond |
|
|
|
(cond |
|
|
|
((ignore-errors (file-exists-p buf-or-file)) |
|
|
|
((ignore-errors (file-exists-p buf-or-file)) |
|
|
|
(find-file-noselect buf-or-file)) |
|
|
|
(find-file-noselect buf-or-file)) |
|
|
|
((ignore-errors (get-buffer buf-or-file)) |
|
|
|
((ignore-errors (get-buffer buf-or-file)) |
|
|
|
buf-or-file) |
|
|
|
buf-or-file) |
|
|
|
(t (current-buffer))) |
|
|
|
(t (current-buffer))) |
|
|
|
(outshine-use-outorg |
|
|
|
(outshine-use-outorg |
|
|
|
(lambda () |
|
|
|
(lambda () |
|
|
|
(interactive) |
|
|
|
(interactive) |
|
|
|
(setq buf-strg |
|
|
|
(setq buf-strg |
|
|
|
(buffer-substring-no-properties |
|
|
|
(buffer-substring-no-properties |
|
|
|
(point-min) (point-max)))) |
|
|
|
(point-min) (point-max)))) |
|
|
|
'WHOLE-BUFFER-P)) |
|
|
|
'WHOLE-BUFFER-P)) |
|
|
|
buf-strg)) |
|
|
|
buf-strg)) |
|
|
|
|
|
|
|
|
|
|
|
@ -1633,7 +1633,7 @@ function was called upon." |
|
|
|
(save-excursion |
|
|
|
(save-excursion |
|
|
|
(unless (outline-on-heading-p) |
|
|
|
(unless (outline-on-heading-p) |
|
|
|
(or (outline-previous-heading) |
|
|
|
(or (outline-previous-heading) |
|
|
|
(outline-next-heading))) |
|
|
|
(outline-next-heading))) |
|
|
|
(move-marker outshine-use-outorg-last-headline-marker (point))) |
|
|
|
(move-marker outshine-use-outorg-last-headline-marker (point))) |
|
|
|
(if whole-buffer-p |
|
|
|
(if whole-buffer-p |
|
|
|
(outorg-edit-as-org '(4)) |
|
|
|
(outorg-edit-as-org '(4)) |
|
|
|
@ -1815,22 +1815,22 @@ If yes, return this character." |
|
|
|
;; latex-mode) and just use it." |
|
|
|
;; latex-mode) and just use it." |
|
|
|
;; (catch 'exit |
|
|
|
;; (catch 'exit |
|
|
|
;; (let ((buf (cond |
|
|
|
;; (let ((buf (cond |
|
|
|
;; ((and buf-or-name no-check-p) buf-or-name) |
|
|
|
;; ((and buf-or-name no-check-p) buf-or-name) |
|
|
|
;; ((and buf-or-name |
|
|
|
;; ((and buf-or-name |
|
|
|
;; (buffer-live-p buf-or-name) |
|
|
|
;; (buffer-live-p buf-or-name) |
|
|
|
;; (with-current-buffer buf-or-name |
|
|
|
;; (with-current-buffer buf-or-name |
|
|
|
;; (eq major-mode 'latex-mode))) |
|
|
|
;; (eq major-mode 'latex-mode))) |
|
|
|
;; buf-or-name) |
|
|
|
;; buf-or-name) |
|
|
|
;; ((eq major-mode 'latex-mode) (current-buffer)) |
|
|
|
;; ((eq major-mode 'latex-mode) (current-buffer)) |
|
|
|
;; (t (throw 'exit nil))))) |
|
|
|
;; (t (throw 'exit nil))))) |
|
|
|
;; (with-current-buffer buf |
|
|
|
;; (with-current-buffer buf |
|
|
|
;; (save-excursion |
|
|
|
;; (save-excursion |
|
|
|
;; (save-restriction |
|
|
|
;; (save-restriction |
|
|
|
;; (widen) |
|
|
|
;; (widen) |
|
|
|
;; (goto-char (point-min)) |
|
|
|
;; (goto-char (point-min)) |
|
|
|
;; (re-search-forward outshine-latex-documentclass-regexp |
|
|
|
;; (re-search-forward outshine-latex-documentclass-regexp |
|
|
|
;; nil 'NOERROR 1) |
|
|
|
;; nil 'NOERROR 1) |
|
|
|
;; (org-no-properties (match-string 1)))))))) |
|
|
|
;; (org-no-properties (match-string 1)))))))) |
|
|
|
|
|
|
|
|
|
|
|
;;;;; Agenda Functions |
|
|
|
;;;;; Agenda Functions |
|
|
|
|
|
|
|
|
|
|
|
@ -1854,34 +1854,34 @@ If yes, return this character." |
|
|
|
;; Use current-buffer and point position, unless BUF-OR-NAME and/or |
|
|
|
;; Use current-buffer and point position, unless BUF-OR-NAME and/or |
|
|
|
;; POS are non-nil." |
|
|
|
;; POS are non-nil." |
|
|
|
;; (let* ((temporary-file-directory outshine-temporary-directory) |
|
|
|
;; (let* ((temporary-file-directory outshine-temporary-directory) |
|
|
|
;; (curr-agenda-file (make-temp-file "outshine-" nil ".org")) |
|
|
|
;; (curr-agenda-file (make-temp-file "outshine-" nil ".org")) |
|
|
|
;; (buf (if (and buf-or-name (buffer-file-name buf-or-name)) |
|
|
|
;; (buf (if (and buf-or-name (buffer-file-name buf-or-name)) |
|
|
|
;; buf-or-name |
|
|
|
;; buf-or-name |
|
|
|
;; (current-buffer))) |
|
|
|
;; (current-buffer))) |
|
|
|
;; (pos (if (and pos (integer-or-marker-p pos) |
|
|
|
;; (pos (if (and pos (integer-or-marker-p pos) |
|
|
|
;; (<= pos (buffer-size buf))) |
|
|
|
;; (<= pos (buffer-size buf))) |
|
|
|
;; pos |
|
|
|
;; pos |
|
|
|
;; (point)))) |
|
|
|
;; (point)))) |
|
|
|
;; (with-current-buffer (find-file-noselect curr-agenda-file) |
|
|
|
;; (with-current-buffer (find-file-noselect curr-agenda-file) |
|
|
|
;; (cond |
|
|
|
;; (cond |
|
|
|
;; ((eq restriction-lock 'file) |
|
|
|
;; ((eq restriction-lock 'file) |
|
|
|
;; (insert |
|
|
|
;; (insert |
|
|
|
;; (with-current-buffer buf |
|
|
|
;; (with-current-buffer buf |
|
|
|
;; (outshine-get-outorg-edit-buffer-content)))) |
|
|
|
;; (outshine-get-outorg-edit-buffer-content)))) |
|
|
|
;; (restriction-lock |
|
|
|
;; (restriction-lock |
|
|
|
;; (insert |
|
|
|
;; (insert |
|
|
|
;; (with-current-buffer buf |
|
|
|
;; (with-current-buffer buf |
|
|
|
;; (save-excursion |
|
|
|
;; (save-excursion |
|
|
|
;; (goto-char pos) |
|
|
|
;; (goto-char pos) |
|
|
|
;; (save-restriction |
|
|
|
;; (save-restriction |
|
|
|
;; (outshine-narrow-to-subtree) |
|
|
|
;; (outshine-narrow-to-subtree) |
|
|
|
;; (outshine-get-outorg-edit-buffer-content)))))) |
|
|
|
;; (outshine-get-outorg-edit-buffer-content)))))) |
|
|
|
;; (t (mapc |
|
|
|
;; (t (mapc |
|
|
|
;; (lambda (--file) |
|
|
|
;; (lambda (--file) |
|
|
|
;; (insert |
|
|
|
;; (insert |
|
|
|
;; (outshine-get-outorg-edit-buffer-content --file)) |
|
|
|
;; (outshine-get-outorg-edit-buffer-content --file)) |
|
|
|
;; (forward-line 2)) |
|
|
|
;; (forward-line 2)) |
|
|
|
;; outshine-agenda-files))) |
|
|
|
;; outshine-agenda-files))) |
|
|
|
;; (save-buffer) |
|
|
|
;; (save-buffer) |
|
|
|
;; (kill-buffer)) |
|
|
|
;; (kill-buffer)) |
|
|
|
;; curr-agenda-file)) |
|
|
|
;; curr-agenda-file)) |
|
|
|
@ -2274,15 +2274,15 @@ overwritten, and the table is not marked as requiring realignment." |
|
|
|
;; (outshine-check-before-invisible-edit 'insert) |
|
|
|
;; (outshine-check-before-invisible-edit 'insert) |
|
|
|
(cond |
|
|
|
(cond |
|
|
|
((and outshine-use-speed-commands |
|
|
|
((and outshine-use-speed-commands |
|
|
|
(let ((kv (this-command-keys-vector))) |
|
|
|
(let ((kv (this-command-keys-vector))) |
|
|
|
(setq outshine-speed-command |
|
|
|
(setq outshine-speed-command |
|
|
|
(run-hook-with-args-until-success |
|
|
|
(run-hook-with-args-until-success |
|
|
|
'outshine-speed-command-hook |
|
|
|
'outshine-speed-command-hook |
|
|
|
(make-string 1 (aref kv (1- (length kv)))))))) |
|
|
|
(make-string 1 (aref kv (1- (length kv)))))))) |
|
|
|
;; (setq outshine-speed-command |
|
|
|
;; (setq outshine-speed-command |
|
|
|
;; (run-hook-with-args-until-success |
|
|
|
;; (run-hook-with-args-until-success |
|
|
|
;; 'outshine-speed-command-hook |
|
|
|
;; 'outshine-speed-command-hook |
|
|
|
;; (this-command-keys))) |
|
|
|
;; (this-command-keys))) |
|
|
|
(cond |
|
|
|
(cond |
|
|
|
((commandp outshine-speed-command) |
|
|
|
((commandp outshine-speed-command) |
|
|
|
(setq this-command outshine-speed-command) |
|
|
|
(setq this-command outshine-speed-command) |
|
|
|
@ -2514,50 +2514,50 @@ PT-OR-MARKER first if given." |
|
|
|
(list (read-buffer "Latex-buffer: ")))) |
|
|
|
(list (read-buffer "Latex-buffer: ")))) |
|
|
|
(catch 'exit-let |
|
|
|
(catch 'exit-let |
|
|
|
(let* ((buf (cond |
|
|
|
(let* ((buf (cond |
|
|
|
((and buf-or-name |
|
|
|
((and buf-or-name |
|
|
|
(buffer-live-p (get-buffer buf-or-name)) |
|
|
|
(buffer-live-p (get-buffer buf-or-name)) |
|
|
|
(with-current-buffer buf-or-name |
|
|
|
(with-current-buffer buf-or-name |
|
|
|
(eq major-mode 'latex-mode))) |
|
|
|
(eq major-mode 'latex-mode))) |
|
|
|
buf-or-name) |
|
|
|
buf-or-name) |
|
|
|
((eq major-mode 'latex-mode) (current-buffer)) |
|
|
|
((eq major-mode 'latex-mode) (current-buffer)) |
|
|
|
(t (throw 'exit-let nil)))) |
|
|
|
(t (throw 'exit-let nil)))) |
|
|
|
(doc-class (outshine-get-latex-documentclass |
|
|
|
(doc-class (outshine-get-latex-documentclass |
|
|
|
buf 'NO-CHECK-P)) |
|
|
|
buf 'NO-CHECK-P)) |
|
|
|
(section-alist (cdr (assoc doc-class |
|
|
|
(section-alist (cdr (assoc doc-class |
|
|
|
outshine-latex-classes)))) |
|
|
|
outshine-latex-classes)))) |
|
|
|
(with-current-buffer buf |
|
|
|
(with-current-buffer buf |
|
|
|
(save-excursion |
|
|
|
(save-excursion |
|
|
|
(save-restriction |
|
|
|
(save-restriction |
|
|
|
(widen) |
|
|
|
(widen) |
|
|
|
(when pt-or-marker |
|
|
|
(when pt-or-marker |
|
|
|
(goto-char pt-or-marker)) |
|
|
|
(goto-char pt-or-marker)) |
|
|
|
(when (looking-at |
|
|
|
(when (looking-at |
|
|
|
(concat "^[[:space:]]*" |
|
|
|
(concat "^[[:space:]]*" |
|
|
|
"\\(" |
|
|
|
"\\(" |
|
|
|
"\\\\part{\\|" |
|
|
|
"\\\\part{\\|" |
|
|
|
"\\\\chapter{\\|" |
|
|
|
"\\\\chapter{\\|" |
|
|
|
"\\\\section{\\|" |
|
|
|
"\\\\section{\\|" |
|
|
|
"\\\\subsection{\\|" |
|
|
|
"\\\\subsection{\\|" |
|
|
|
"\\\\subsubsection{\\|" |
|
|
|
"\\\\subsubsection{\\|" |
|
|
|
"\\\\paragraph{\\|" |
|
|
|
"\\\\paragraph{\\|" |
|
|
|
"\\\\subparagraph{" |
|
|
|
"\\\\subparagraph{" |
|
|
|
"\\)")) |
|
|
|
"\\)")) |
|
|
|
(save-excursion |
|
|
|
(save-excursion |
|
|
|
(beginning-of-line) |
|
|
|
(beginning-of-line) |
|
|
|
(let ((rgxps (mapcar 'cdr section-alist))) |
|
|
|
(let ((rgxps (mapcar 'cdr section-alist))) |
|
|
|
(while rgxps |
|
|
|
(while rgxps |
|
|
|
(let ((rgxp (pop rgxps))) |
|
|
|
(let ((rgxp (pop rgxps))) |
|
|
|
(when (looking-at rgxp) |
|
|
|
(when (looking-at rgxp) |
|
|
|
(let ((title (match-string 1))) |
|
|
|
(let ((title (match-string 1))) |
|
|
|
(insert |
|
|
|
(insert |
|
|
|
(concat |
|
|
|
(concat |
|
|
|
"\n" |
|
|
|
"\n" |
|
|
|
(outshine-calc-outline-string-at-level |
|
|
|
(outshine-calc-outline-string-at-level |
|
|
|
(car |
|
|
|
(car |
|
|
|
(rassoc rgxp section-alist))) |
|
|
|
(rassoc rgxp section-alist))) |
|
|
|
title |
|
|
|
title |
|
|
|
"\n")) |
|
|
|
"\n")) |
|
|
|
(setq rgxps nil)))))))))))))) |
|
|
|
(setq rgxps nil)))))))))))))) |
|
|
|
|
|
|
|
|
|
|
|
(defun outshine-latex-insert-headers-in-buffer (&optional buf-or-name no-preamble-p) |
|
|
|
(defun outshine-latex-insert-headers-in-buffer (&optional buf-or-name no-preamble-p) |
|
|
|
"Insert outshine-headers for all sections in latex-mode buffer. |
|
|
|
"Insert outshine-headers for all sections in latex-mode buffer. |
|
|
|
@ -2566,57 +2566,57 @@ preamble header unless NO-PREAMBLE-P is non-nil." |
|
|
|
(interactive |
|
|
|
(interactive |
|
|
|
(when current-prefix-arg |
|
|
|
(when current-prefix-arg |
|
|
|
(list (read-buffer "Latex-buffer: ") |
|
|
|
(list (read-buffer "Latex-buffer: ") |
|
|
|
(y-or-n-p "Skip preamble ")))) |
|
|
|
(y-or-n-p "Skip preamble ")))) |
|
|
|
(catch 'exit-let |
|
|
|
(catch 'exit-let |
|
|
|
(let* ((buf (cond |
|
|
|
(let* ((buf (cond |
|
|
|
((and buf-or-name |
|
|
|
((and buf-or-name |
|
|
|
(buffer-live-p (get-buffer buf-or-name)) |
|
|
|
(buffer-live-p (get-buffer buf-or-name)) |
|
|
|
(with-current-buffer buf-or-name |
|
|
|
(with-current-buffer buf-or-name |
|
|
|
(eq major-mode 'latex-mode))) |
|
|
|
(eq major-mode 'latex-mode))) |
|
|
|
buf-or-name) |
|
|
|
buf-or-name) |
|
|
|
((eq major-mode 'latex-mode) (current-buffer)) |
|
|
|
((eq major-mode 'latex-mode) (current-buffer)) |
|
|
|
(t (throw 'exit-let nil)))) |
|
|
|
(t (throw 'exit-let nil)))) |
|
|
|
(doc-class (outshine-get-latex-documentclass |
|
|
|
(doc-class (outshine-get-latex-documentclass |
|
|
|
buf 'NO-CHECK-P)) |
|
|
|
buf 'NO-CHECK-P)) |
|
|
|
(section-alist (cdr (assoc doc-class |
|
|
|
(section-alist (cdr (assoc doc-class |
|
|
|
outshine-latex-classes)))) |
|
|
|
outshine-latex-classes)))) |
|
|
|
(with-current-buffer buf |
|
|
|
(with-current-buffer buf |
|
|
|
(save-excursion |
|
|
|
(save-excursion |
|
|
|
(save-restriction |
|
|
|
(save-restriction |
|
|
|
(widen) |
|
|
|
(widen) |
|
|
|
(goto-char (point-min)) |
|
|
|
(goto-char (point-min)) |
|
|
|
(unless no-preamble-p |
|
|
|
(unless no-preamble-p |
|
|
|
(insert |
|
|
|
(insert |
|
|
|
(concat |
|
|
|
(concat |
|
|
|
(outshine-calc-outline-string-at-level 1) |
|
|
|
(outshine-calc-outline-string-at-level 1) |
|
|
|
"Preamble\n"))) |
|
|
|
"Preamble\n"))) |
|
|
|
(while (re-search-forward |
|
|
|
(while (re-search-forward |
|
|
|
(concat |
|
|
|
(concat |
|
|
|
"\\(" |
|
|
|
"\\(" |
|
|
|
"\\\\part{\\|" |
|
|
|
"\\\\part{\\|" |
|
|
|
"\\\\chapter{\\|" |
|
|
|
"\\\\chapter{\\|" |
|
|
|
"\\\\section{\\|" |
|
|
|
"\\\\section{\\|" |
|
|
|
"\\\\subsection{\\|" |
|
|
|
"\\\\subsection{\\|" |
|
|
|
"\\\\subsubsection{\\|" |
|
|
|
"\\\\subsubsection{\\|" |
|
|
|
"\\\\paragraph{\\|" |
|
|
|
"\\\\paragraph{\\|" |
|
|
|
"\\\\subparagraph{" |
|
|
|
"\\\\subparagraph{" |
|
|
|
"\\)") nil t) |
|
|
|
"\\)") nil t) |
|
|
|
(save-excursion |
|
|
|
(save-excursion |
|
|
|
(beginning-of-line) |
|
|
|
(beginning-of-line) |
|
|
|
(let ((rgxps (mapcar 'cdr section-alist))) |
|
|
|
(let ((rgxps (mapcar 'cdr section-alist))) |
|
|
|
(while rgxps |
|
|
|
(while rgxps |
|
|
|
(let ((rgxp (pop rgxps))) |
|
|
|
(let ((rgxp (pop rgxps))) |
|
|
|
(when (looking-at rgxp) |
|
|
|
(when (looking-at rgxp) |
|
|
|
(let ((title (match-string 1))) |
|
|
|
(let ((title (match-string 1))) |
|
|
|
(insert |
|
|
|
(insert |
|
|
|
(concat |
|
|
|
(concat |
|
|
|
"\n" |
|
|
|
"\n" |
|
|
|
(outshine-calc-outline-string-at-level |
|
|
|
(outshine-calc-outline-string-at-level |
|
|
|
(car |
|
|
|
(car |
|
|
|
(rassoc rgxp section-alist))) |
|
|
|
(rassoc rgxp section-alist))) |
|
|
|
title |
|
|
|
title |
|
|
|
"\n")) |
|
|
|
"\n")) |
|
|
|
(setq rgxps nil)))))))))))))) |
|
|
|
(setq rgxps nil)))))))))))))) |
|
|
|
|
|
|
|
|
|
|
|
(defun outshine-TeX-command-region-on-subtree (&optional arg) |
|
|
|
(defun outshine-TeX-command-region-on-subtree (&optional arg) |
|
|
|
"Mark subtree and run `TeX-command-region'. |
|
|
|
"Mark subtree and run `TeX-command-region'. |
|
|
|
@ -2627,9 +2627,9 @@ marking subtree (and subsequently run the tex command)." |
|
|
|
(save-excursion |
|
|
|
(save-excursion |
|
|
|
(cl-case arg |
|
|
|
(cl-case arg |
|
|
|
(4 (ignore-errors |
|
|
|
(4 (ignore-errors |
|
|
|
(outline-up-heading 1 t))) |
|
|
|
(outline-up-heading 1 t))) |
|
|
|
(16 (ignore-errors |
|
|
|
(16 (ignore-errors |
|
|
|
(outline-up-heading 2 t))) |
|
|
|
(outline-up-heading 2 t))) |
|
|
|
(t nil)) |
|
|
|
(t nil)) |
|
|
|
(message "%s" (point)) |
|
|
|
(message "%s" (point)) |
|
|
|
(outline-mark-subtree) |
|
|
|
(outline-mark-subtree) |
|
|
|
@ -2647,25 +2647,25 @@ marking subtree (and subsequently run the tex command)." |
|
|
|
;; (list |
|
|
|
;; (list |
|
|
|
;; current-prefix-arg |
|
|
|
;; current-prefix-arg |
|
|
|
;; (if (derived-mode-p 'dired-mode) |
|
|
|
;; (if (derived-mode-p 'dired-mode) |
|
|
|
;; (dired-get-marked-files) |
|
|
|
;; (dired-get-marked-files) |
|
|
|
;; (setq file-lst |
|
|
|
;; (setq file-lst |
|
|
|
;; (cons |
|
|
|
;; (cons |
|
|
|
;; (expand-file-name |
|
|
|
;; (expand-file-name |
|
|
|
;; (ido-read-file-name "New agenda file: ")) |
|
|
|
;; (ido-read-file-name "New agenda file: ")) |
|
|
|
;; file-lst)) |
|
|
|
;; file-lst)) |
|
|
|
;; (while (y-or-n-p "Add more files ") |
|
|
|
;; (while (y-or-n-p "Add more files ") |
|
|
|
;; (setq file-lst |
|
|
|
;; (setq file-lst |
|
|
|
;; (cons (expand-file-name |
|
|
|
;; (cons (expand-file-name |
|
|
|
;; (ido-read-file-name "New agenda file: ")) |
|
|
|
;; (ido-read-file-name "New agenda file: ")) |
|
|
|
;; file-lst))) |
|
|
|
;; file-lst))) |
|
|
|
;; file-lst)))) |
|
|
|
;; file-lst)))) |
|
|
|
;; (if append-p |
|
|
|
;; (if append-p |
|
|
|
;; (setq outshine-agenda-files |
|
|
|
;; (setq outshine-agenda-files |
|
|
|
;; (delq nil (append outshine-agenda-files |
|
|
|
;; (delq nil (append outshine-agenda-files |
|
|
|
;; (car-safe files)))) |
|
|
|
;; (car-safe files)))) |
|
|
|
;; (setq outshine-agenda-files |
|
|
|
;; (setq outshine-agenda-files |
|
|
|
;; (delq nil (append (car-safe files) |
|
|
|
;; (delq nil (append (car-safe files) |
|
|
|
;; outshine-agenda-files))))) |
|
|
|
;; outshine-agenda-files))))) |
|
|
|
|
|
|
|
|
|
|
|
;; (defun outshine-agenda-remove-files (&optional remove-all-p &rest files) |
|
|
|
;; (defun outshine-agenda-remove-files (&optional remove-all-p &rest files) |
|
|
|
;; "Remove FILES from `outshine-agenda-files'. |
|
|
|
;; "Remove FILES from `outshine-agenda-files'. |
|
|
|
@ -2676,24 +2676,24 @@ marking subtree (and subsequently run the tex command)." |
|
|
|
;; (list |
|
|
|
;; (list |
|
|
|
;; current-prefix-arg |
|
|
|
;; current-prefix-arg |
|
|
|
;; (unless current-prefix-arg |
|
|
|
;; (unless current-prefix-arg |
|
|
|
;; (setq file-lst |
|
|
|
;; (setq file-lst |
|
|
|
;; (cons |
|
|
|
;; (cons |
|
|
|
;; (org-completing-read "Remove agenda file: " |
|
|
|
;; (org-completing-read "Remove agenda file: " |
|
|
|
;; outshine-agenda-files) |
|
|
|
;; outshine-agenda-files) |
|
|
|
;; file-lst)) |
|
|
|
;; file-lst)) |
|
|
|
;; (while (y-or-n-p "Remove more files ") |
|
|
|
;; (while (y-or-n-p "Remove more files ") |
|
|
|
;; (setq file-lst |
|
|
|
;; (setq file-lst |
|
|
|
;; (cons |
|
|
|
;; (cons |
|
|
|
;; (org-completing-read "Remove agenda file: " |
|
|
|
;; (org-completing-read "Remove agenda file: " |
|
|
|
;; outshine-agenda-files) |
|
|
|
;; outshine-agenda-files) |
|
|
|
;; file-lst))) |
|
|
|
;; file-lst))) |
|
|
|
;; file-lst)))) |
|
|
|
;; file-lst)))) |
|
|
|
;; (if remove-all-p |
|
|
|
;; (if remove-all-p |
|
|
|
;; (setq outshine-agenda-files nil) |
|
|
|
;; (setq outshine-agenda-files nil) |
|
|
|
;; (mapc |
|
|
|
;; (mapc |
|
|
|
;; (lambda (--file) |
|
|
|
;; (lambda (--file) |
|
|
|
;; (setq outshine-agenda-files |
|
|
|
;; (setq outshine-agenda-files |
|
|
|
;; (remove --file outshine-agenda-files))) |
|
|
|
;; (remove --file outshine-agenda-files))) |
|
|
|
;; (car-safe files)))) |
|
|
|
;; (car-safe files)))) |
|
|
|
|
|
|
|
|
|
|
|
;; (defun outshine-agenda-toggle-include-org-agenda (&optional arg) |
|
|
|
;; (defun outshine-agenda-toggle-include-org-agenda (&optional arg) |
|
|
|
@ -2707,7 +2707,7 @@ marking subtree (and subsequently run the tex command)." |
|
|
|
;; (> (prefix-numeric-value arg) 0))) |
|
|
|
;; (> (prefix-numeric-value arg) 0))) |
|
|
|
;; (message "Outshine Agenda: inclusion of Org Agenda files %s" |
|
|
|
;; (message "Outshine Agenda: inclusion of Org Agenda files %s" |
|
|
|
;; (if outshine-agenda-include-org-agenda-p |
|
|
|
;; (if outshine-agenda-include-org-agenda-p |
|
|
|
;; "enabled" "disabled"))) |
|
|
|
;; "enabled" "disabled"))) |
|
|
|
|
|
|
|
|
|
|
|
;; (defun outshine-agenda (&optional agenda-file include-org-p) |
|
|
|
;; (defun outshine-agenda (&optional agenda-file include-org-p) |
|
|
|
;; "Create Outshine Agenda, i.e. Org Agenda on outshine files. |
|
|
|
;; "Create Outshine Agenda, i.e. Org Agenda on outshine files. |
|
|
|
@ -2720,20 +2720,20 @@ marking subtree (and subsequently run the tex command)." |
|
|
|
;; (when current-prefix-arg |
|
|
|
;; (when current-prefix-arg |
|
|
|
;; (list |
|
|
|
;; (list |
|
|
|
;; (ido-read-file-name "Agenda file: " |
|
|
|
;; (ido-read-file-name "Agenda file: " |
|
|
|
;; outshine-temporary-directory) |
|
|
|
;; outshine-temporary-directory) |
|
|
|
;; (y-or-n-p "Include `org-agenda-files' ")))) |
|
|
|
;; (y-or-n-p "Include `org-agenda-files' ")))) |
|
|
|
;; (let ((ag-file (or agenda-file |
|
|
|
;; (let ((ag-file (or agenda-file |
|
|
|
;; (outshine-agenda-create-temporary-agenda-file))) |
|
|
|
;; (outshine-agenda-create-temporary-agenda-file))) |
|
|
|
;; (with-org-agenda-files |
|
|
|
;; (with-org-agenda-files |
|
|
|
;; (or include-org-p outshine-agenda-include-org-agenda-p))) |
|
|
|
;; (or include-org-p outshine-agenda-include-org-agenda-p))) |
|
|
|
;; (require 'org-agenda) |
|
|
|
;; (require 'org-agenda) |
|
|
|
;; (org-agenda-remove-restriction-lock) |
|
|
|
;; (org-agenda-remove-restriction-lock) |
|
|
|
;; (if with-org-agenda-files |
|
|
|
;; (if with-org-agenda-files |
|
|
|
;; ;; FIXME |
|
|
|
;; ;; FIXME |
|
|
|
;; (message "Sorry, this is not yet implemented.") |
|
|
|
;; (message "Sorry, this is not yet implemented.") |
|
|
|
;; (with-current-buffer (find-file-noselect ag-file) |
|
|
|
;; (with-current-buffer (find-file-noselect ag-file) |
|
|
|
;; (org-agenda-set-restriction-lock 'file) |
|
|
|
;; (org-agenda-set-restriction-lock 'file) |
|
|
|
;; (org-agenda))))) |
|
|
|
;; (org-agenda))))) |
|
|
|
|
|
|
|
|
|
|
|
;;;;; Use Outorg for calling Org |
|
|
|
;;;;; Use Outorg for calling Org |
|
|
|
|
|
|
|
|
|
|
|
@ -2778,8 +2778,8 @@ marking subtree (and subsequently run the tex command)." |
|
|
|
;; "Call outorg to trigger `org-export-dispatch'." |
|
|
|
;; "Call outorg to trigger `org-export-dispatch'." |
|
|
|
;; (interactive "P") |
|
|
|
;; (interactive "P") |
|
|
|
;; (outshine-use-outorg 'org-export-dispatch |
|
|
|
;; (outshine-use-outorg 'org-export-dispatch |
|
|
|
;; (y-or-n-p "Use whole buffer ") |
|
|
|
;; (y-or-n-p "Use whole buffer ") |
|
|
|
;; arg)) |
|
|
|
;; arg)) |
|
|
|
|
|
|
|
|
|
|
|
;; ;; C-c C-f org-forward-heading-same-level |
|
|
|
;; ;; C-c C-f org-forward-heading-same-level |
|
|
|
|
|
|
|
|
|
|
|
@ -2810,8 +2810,8 @@ marking subtree (and subsequently run the tex command)." |
|
|
|
;; (cond |
|
|
|
;; (cond |
|
|
|
;; ((equal current-prefix-arg '(16)) |
|
|
|
;; ((equal current-prefix-arg '(16)) |
|
|
|
;; (list (y-or-n-p "Use whole buffer ") |
|
|
|
;; (list (y-or-n-p "Use whole buffer ") |
|
|
|
;; (y-or-n-p "Provide ARG ") |
|
|
|
;; (y-or-n-p "Provide ARG ") |
|
|
|
;; (read-buffer "Reference-buffer: "))) |
|
|
|
;; (read-buffer "Reference-buffer: "))) |
|
|
|
;; (current-prefix-arg (list t)) |
|
|
|
;; (current-prefix-arg (list t)) |
|
|
|
;; (t nil))) |
|
|
|
;; (t nil))) |
|
|
|
;; (outshine-use-outorg |
|
|
|
;; (outshine-use-outorg |
|
|
|
@ -2890,20 +2890,20 @@ marking subtree (and subsequently run the tex command)." |
|
|
|
;; (lambda () |
|
|
|
;; (lambda () |
|
|
|
;; (interactive) |
|
|
|
;; (interactive) |
|
|
|
;; (if (not (org-on-heading-p)) |
|
|
|
;; (if (not (org-on-heading-p)) |
|
|
|
;; (if arg |
|
|
|
;; (if arg |
|
|
|
;; (org-time-stamp-inactive arg) |
|
|
|
;; (org-time-stamp-inactive arg) |
|
|
|
;; (org-time-stamp-inactive)) |
|
|
|
;; (org-time-stamp-inactive)) |
|
|
|
;; (or |
|
|
|
;; (or |
|
|
|
;; (and |
|
|
|
;; (and |
|
|
|
;; (re-search-forward org-element--timestamp-regexp nil t) |
|
|
|
;; (re-search-forward org-element--timestamp-regexp nil t) |
|
|
|
;; (ignore-errors (goto-char (match-beginning 0)))) |
|
|
|
;; (ignore-errors (goto-char (match-beginning 0)))) |
|
|
|
;; (and |
|
|
|
;; (and |
|
|
|
;; (re-search-forward org-complex-heading-regexp nil t) |
|
|
|
;; (re-search-forward org-complex-heading-regexp nil t) |
|
|
|
;; (ignore-errors (goto-char (match-end 4))))) |
|
|
|
;; (ignore-errors (goto-char (match-end 4))))) |
|
|
|
;; (insert-char ? ) |
|
|
|
;; (insert-char ? ) |
|
|
|
;; (if arg |
|
|
|
;; (if arg |
|
|
|
;; (org-time-stamp-inactive arg) |
|
|
|
;; (org-time-stamp-inactive arg) |
|
|
|
;; (org-time-stamp-inactive)))))) |
|
|
|
;; (org-time-stamp-inactive)))))) |
|
|
|
|
|
|
|
|
|
|
|
;; ;; C-c # org-update-statistics-cookies |
|
|
|
;; ;; C-c # org-update-statistics-cookies |
|
|
|
;; (defun outshine-update-statistics-cookies () |
|
|
|
;; (defun outshine-update-statistics-cookies () |
|
|
|
@ -2970,16 +2970,16 @@ marking subtree (and subsequently run the tex command)." |
|
|
|
;; (lambda () |
|
|
|
;; (lambda () |
|
|
|
;; (interactive) |
|
|
|
;; (interactive) |
|
|
|
;; (if (not (org-on-heading-p)) |
|
|
|
;; (if (not (org-on-heading-p)) |
|
|
|
;; (if arg (org-time-stamp arg) (org-time-stamp nil)) |
|
|
|
;; (if arg (org-time-stamp arg) (org-time-stamp nil)) |
|
|
|
;; (or |
|
|
|
;; (or |
|
|
|
;; (and |
|
|
|
;; (and |
|
|
|
;; (re-search-forward org-element--timestamp-regexp nil t) |
|
|
|
;; (re-search-forward org-element--timestamp-regexp nil t) |
|
|
|
;; (ignore-errors (goto-char (match-beginning 0)))) |
|
|
|
;; (ignore-errors (goto-char (match-beginning 0)))) |
|
|
|
;; (and |
|
|
|
;; (and |
|
|
|
;; (re-search-forward org-complex-heading-regexp nil t) |
|
|
|
;; (re-search-forward org-complex-heading-regexp nil t) |
|
|
|
;; (ignore-errors (goto-char (match-end 4))))) |
|
|
|
;; (ignore-errors (goto-char (match-end 4))))) |
|
|
|
;; (insert-char ? ) |
|
|
|
;; (insert-char ? ) |
|
|
|
;; (if arg (org-time-stamp arg) (org-time-stamp nil)))))) |
|
|
|
;; (if arg (org-time-stamp arg) (org-time-stamp nil)))))) |
|
|
|
|
|
|
|
|
|
|
|
;; CANCELLED makes no sense |
|
|
|
;; CANCELLED makes no sense |
|
|
|
;; ;; C-c / org-sparse-tree |
|
|
|
;; ;; C-c / org-sparse-tree |
|
|
|
@ -3204,7 +3204,7 @@ marking subtree (and subsequently run the tex command)." |
|
|
|
;; "Call outorg to trigger `org-babel-goto-named-result'." |
|
|
|
;; "Call outorg to trigger `org-babel-goto-named-result'." |
|
|
|
;; (interactive) |
|
|
|
;; (interactive) |
|
|
|
;; (outshine-use-outorg 'org-babel-goto-named-result |
|
|
|
;; (outshine-use-outorg 'org-babel-goto-named-result |
|
|
|
;; 'WHOLE-BUFFER-P)) |
|
|
|
;; 'WHOLE-BUFFER-P)) |
|
|
|
|
|
|
|
|
|
|
|
;; ;; C-c C-v C-s org-babel-execute-subtree |
|
|
|
;; ;; C-c C-v C-s org-babel-execute-subtree |
|
|
|
;; (defun outshine-babel-execute-subtree () |
|
|
|
;; (defun outshine-babel-execute-subtree () |
|
|
|
@ -3257,7 +3257,7 @@ marking subtree (and subsequently run the tex command)." |
|
|
|
;; "Call outorg to trigger `org-babel-goto-named-src-block'." |
|
|
|
;; "Call outorg to trigger `org-babel-goto-named-src-block'." |
|
|
|
;; (interactive) |
|
|
|
;; (interactive) |
|
|
|
;; (outshine-use-outorg 'org-babel-goto-named-src-block |
|
|
|
;; (outshine-use-outorg 'org-babel-goto-named-src-block |
|
|
|
;; 'WHOLE-BUFFER-P)) |
|
|
|
;; 'WHOLE-BUFFER-P)) |
|
|
|
|
|
|
|
|
|
|
|
;; ;; C-c C-v h org-babel-describe-bindings |
|
|
|
;; ;; C-c C-v h org-babel-describe-bindings |
|
|
|
;; (defun outshine-babel-describe-bindings () |
|
|
|
;; (defun outshine-babel-describe-bindings () |
|
|
|
@ -3369,8 +3369,8 @@ marking subtree (and subsequently run the tex command)." |
|
|
|
;; (interactive) |
|
|
|
;; (interactive) |
|
|
|
;; (with-current-buffer |
|
|
|
;; (with-current-buffer |
|
|
|
;; (condition-case err |
|
|
|
;; (condition-case err |
|
|
|
;; (marker-buffer outshine-use-outorg-last-headline-marker) |
|
|
|
;; (marker-buffer outshine-use-outorg-last-headline-marker) |
|
|
|
;; (error "Can't find header with running clock: %s" err)) |
|
|
|
;; (error "Can't find header with running clock: %s" err)) |
|
|
|
;; (goto-char outshine-use-outorg-last-headline-marker) |
|
|
|
;; (goto-char outshine-use-outorg-last-headline-marker) |
|
|
|
;; (outshine-use-outorg 'org-clock-out))) |
|
|
|
;; (outshine-use-outorg 'org-clock-out))) |
|
|
|
|
|
|
|
|
|
|
|
@ -3388,8 +3388,8 @@ marking subtree (and subsequently run the tex command)." |
|
|
|
;; (interactive) |
|
|
|
;; (interactive) |
|
|
|
;; (with-current-buffer |
|
|
|
;; (with-current-buffer |
|
|
|
;; (condition-case err |
|
|
|
;; (condition-case err |
|
|
|
;; (marker-buffer outshine-use-outorg-last-headline-marker) |
|
|
|
;; (marker-buffer outshine-use-outorg-last-headline-marker) |
|
|
|
;; (error "Can't find header with running clock: %s" err)) |
|
|
|
;; (error "Can't find header with running clock: %s" err)) |
|
|
|
;; (goto-char outshine-use-outorg-last-headline-marker) |
|
|
|
;; (goto-char outshine-use-outorg-last-headline-marker) |
|
|
|
;; (outshine-use-outorg 'org-clock-cancel))) |
|
|
|
;; (outshine-use-outorg 'org-clock-cancel))) |
|
|
|
|
|
|
|
|
|
|
|
@ -3410,7 +3410,7 @@ marking subtree (and subsequently run the tex command)." |
|
|
|
;; "Call outorg to trigger `org-toggle-time-stamp-overlays'." |
|
|
|
;; "Call outorg to trigger `org-toggle-time-stamp-overlays'." |
|
|
|
;; (interactive) |
|
|
|
;; (interactive) |
|
|
|
;; (outshine-use-outorg 'org-toggle-time-stamp-overlays |
|
|
|
;; (outshine-use-outorg 'org-toggle-time-stamp-overlays |
|
|
|
;; 'WHOLE-BUFFER-P)) |
|
|
|
;; 'WHOLE-BUFFER-P)) |
|
|
|
|
|
|
|
|
|
|
|
;; ;; C-c C-x C-u org-dblock-update |
|
|
|
;; ;; C-c C-x C-u org-dblock-update |
|
|
|
;; (defun outshine-dblock-update (&optional arg) |
|
|
|
;; (defun outshine-dblock-update (&optional arg) |
|
|
|
@ -3438,8 +3438,8 @@ marking subtree (and subsequently run the tex command)." |
|
|
|
;; (interactive "P") |
|
|
|
;; (interactive "P") |
|
|
|
;; (with-current-buffer |
|
|
|
;; (with-current-buffer |
|
|
|
;; (condition-case err |
|
|
|
;; (condition-case err |
|
|
|
;; (marker-buffer outshine-use-outorg-last-headline-marker) |
|
|
|
;; (marker-buffer outshine-use-outorg-last-headline-marker) |
|
|
|
;; (error "Can't find header with running clock: %s" err)) |
|
|
|
;; (error "Can't find header with running clock: %s" err)) |
|
|
|
;; (goto-char outshine-use-outorg-last-headline-marker) |
|
|
|
;; (goto-char outshine-use-outorg-last-headline-marker) |
|
|
|
;; (outshine-use-outorg 'org-clock-in-last nil arg))) |
|
|
|
;; (outshine-use-outorg 'org-clock-in-last nil arg))) |
|
|
|
|
|
|
|
|
|
|
|
@ -3506,9 +3506,9 @@ marking subtree (and subsequently run the tex command)." |
|
|
|
;; current buffer(-file). " |
|
|
|
;; current buffer(-file). " |
|
|
|
;; (interactive "P") |
|
|
|
;; (interactive "P") |
|
|
|
;; (let ((ag-file |
|
|
|
;; (let ((ag-file |
|
|
|
;; (if arg |
|
|
|
;; (if arg |
|
|
|
;; (outshine-agenda-create-temporary-agenda-file t) |
|
|
|
;; (outshine-agenda-create-temporary-agenda-file t) |
|
|
|
;; (outshine-agenda-create-temporary-agenda-file 'file)))) |
|
|
|
;; (outshine-agenda-create-temporary-agenda-file 'file)))) |
|
|
|
;; (outshine-agenda ag-file))) |
|
|
|
;; (outshine-agenda ag-file))) |
|
|
|
|
|
|
|
|
|
|
|
;; ;; C-c C-x > org-agenda-remove-restriction-lock |
|
|
|
;; ;; C-c C-x > org-agenda-remove-restriction-lock |
|
|
|
@ -3523,7 +3523,7 @@ marking subtree (and subsequently run the tex command)." |
|
|
|
;; "Call outorg to trigger `org-archive-to-archive-sibling'." |
|
|
|
;; "Call outorg to trigger `org-archive-to-archive-sibling'." |
|
|
|
;; (interactive) |
|
|
|
;; (interactive) |
|
|
|
;; (outshine-use-outorg 'org-archive-to-archive-sibling |
|
|
|
;; (outshine-use-outorg 'org-archive-to-archive-sibling |
|
|
|
;; 'WHOLE-BUFFER-P)) |
|
|
|
;; 'WHOLE-BUFFER-P)) |
|
|
|
|
|
|
|
|
|
|
|
;; ;; C-c C-x D org-shiftmetadown |
|
|
|
;; ;; C-c C-x D org-shiftmetadown |
|
|
|
|
|
|
|
|
|
|
|
@ -3546,7 +3546,7 @@ marking subtree (and subsequently run the tex command)." |
|
|
|
;; "Call outorg to trigger `org-insert-todo-heading'." |
|
|
|
;; "Call outorg to trigger `org-insert-todo-heading'." |
|
|
|
;; (interactive "P") |
|
|
|
;; (interactive "P") |
|
|
|
;; (outshine-use-outorg 'org-insert-todo-heading |
|
|
|
;; (outshine-use-outorg 'org-insert-todo-heading |
|
|
|
;; (= (prefix-numeric-value arg) 16))) |
|
|
|
;; (= (prefix-numeric-value arg) 16))) |
|
|
|
|
|
|
|
|
|
|
|
;; ;; C-c C-x P org-set-property-and-value |
|
|
|
;; ;; C-c C-x P org-set-property-and-value |
|
|
|
;; (defun outshine-set-property-and-value () |
|
|
|
;; (defun outshine-set-property-and-value () |
|
|
|
@ -3568,7 +3568,7 @@ marking subtree (and subsequently run the tex command)." |
|
|
|
;; "Call outorg to trigger `org-toggle-pretty-entities'." |
|
|
|
;; "Call outorg to trigger `org-toggle-pretty-entities'." |
|
|
|
;; (interactive) |
|
|
|
;; (interactive) |
|
|
|
;; (outshine-use-outorg 'org-toggle-pretty-entities |
|
|
|
;; (outshine-use-outorg 'org-toggle-pretty-entities |
|
|
|
;; 'WHOLE-BUFFER-P)) |
|
|
|
;; 'WHOLE-BUFFER-P)) |
|
|
|
|
|
|
|
|
|
|
|
;; ;; FIXME: whole buffer? |
|
|
|
;; ;; FIXME: whole buffer? |
|
|
|
;; ;; C-c C-x _ org-timer-stop |
|
|
|
;; ;; C-c C-x _ org-timer-stop |
|
|
|
@ -3682,7 +3682,7 @@ marking subtree (and subsequently run the tex command)." |
|
|
|
;; "Call outorg to trigger `org-redisplay-inline-images'." |
|
|
|
;; "Call outorg to trigger `org-redisplay-inline-images'." |
|
|
|
;; (interactive) |
|
|
|
;; (interactive) |
|
|
|
;; (outshine-use-outorg 'org-redisplay-inline-images |
|
|
|
;; (outshine-use-outorg 'org-redisplay-inline-images |
|
|
|
;; 'WHOLE-BUFFER-P)) |
|
|
|
;; 'WHOLE-BUFFER-P)) |
|
|
|
|
|
|
|
|
|
|
|
;; ;; ;; C-c C-x M-w org-copy-special |
|
|
|
;; ;; ;; C-c C-x M-w org-copy-special |
|
|
|
;; (defun outshine-copy-special () |
|
|
|
;; (defun outshine-copy-special () |
|
|
|
@ -3709,12 +3709,12 @@ marking subtree (and subsequently run the tex command)." |
|
|
|
;; ;; <remap> <forward-paragraph> org-forward-paragraph |
|
|
|
;; ;; <remap> <forward-paragraph> org-forward-paragraph |
|
|
|
;; ;; <remap> <open-line> org-open-line |
|
|
|
;; ;; <remap> <open-line> org-open-line |
|
|
|
;; ;; <remap> <outline-backward-same-level> |
|
|
|
;; ;; <remap> <outline-backward-same-level> |
|
|
|
;; ;; org-backward-heading-same-level |
|
|
|
;; ;; org-backward-heading-same-level |
|
|
|
;; ;; <remap> <outline-demote> org-demote-subtree |
|
|
|
;; ;; <remap> <outline-demote> org-demote-subtree |
|
|
|
;; ;; <remap> <outline-forward-same-level> |
|
|
|
;; ;; <remap> <outline-forward-same-level> |
|
|
|
;; ;; org-forward-heading-same-level |
|
|
|
;; ;; org-forward-heading-same-level |
|
|
|
;; ;; <remap> <outline-insert-heading> |
|
|
|
;; ;; <remap> <outline-insert-heading> |
|
|
|
;; ;; org-ctrl-c-ret |
|
|
|
;; ;; org-ctrl-c-ret |
|
|
|
;; ;; <remap> <outline-mark-subtree> org-mark-subtree |
|
|
|
;; ;; <remap> <outline-mark-subtree> org-mark-subtree |
|
|
|
;; ;; <remap> <outline-promote> org-promote-subtree |
|
|
|
;; ;; <remap> <outline-promote> org-promote-subtree |
|
|
|
;; ;; <remap> <self-insert-command> org-self-insert-command |
|
|
|
;; ;; <remap> <self-insert-command> org-self-insert-command |
|
|
|
|
Adam Porter
7 years ago