|
|
@@ -1028,6 +1028,89 @@ This can be called with C-c C-c."
|
|
|
(when hash (kill-new hash) (message hash))))
|
|
|
(add-hook 'org-ctrl-c-ctrl-c-hook 'org-babel-hash-at-point)
|
|
|
|
|
|
+(defun org-babel-result-hide-spec ()
|
|
|
+ "Hide portions of results lines.
|
|
|
+Add `org-babel-hide-result' as an invisibility spec for hiding
|
|
|
+portions of results lines."
|
|
|
+ (add-to-invisibility-spec '(org-babel-hide-result . t)))
|
|
|
+(add-hook 'org-mode-hook 'org-babel-result-hide-spec)
|
|
|
+
|
|
|
+(defvar org-babel-hide-result-overlays nil
|
|
|
+ "Overlays hiding results.")
|
|
|
+
|
|
|
+(defun org-babel-result-hide-all ()
|
|
|
+ "Fold all results in the current buffer."
|
|
|
+ (interactive)
|
|
|
+ (org-babel-show-result-all)
|
|
|
+ (save-excursion
|
|
|
+ (while (re-search-forward org-babel-result-regexp nil t)
|
|
|
+ (save-excursion (goto-char (match-beginning 0))
|
|
|
+ (org-babel-hide-result-toggle-maybe)))))
|
|
|
+
|
|
|
+(defun org-babel-show-result-all ()
|
|
|
+ "Unfold all results in the current buffer."
|
|
|
+ (mapc 'delete-overlay org-babel-hide-result-overlays)
|
|
|
+ (setq org-babel-hide-result-overlays nil))
|
|
|
+
|
|
|
+;;;###autoload
|
|
|
+(defun org-babel-hide-result-toggle-maybe ()
|
|
|
+ "Toggle visibility of result at point."
|
|
|
+ (interactive)
|
|
|
+ (let ((case-fold-search t))
|
|
|
+ (if (save-excursion
|
|
|
+ (beginning-of-line 1)
|
|
|
+ (looking-at org-babel-result-regexp))
|
|
|
+ (progn (org-babel-hide-result-toggle)
|
|
|
+ t) ;; to signal that we took action
|
|
|
+ nil))) ;; to signal that we did not
|
|
|
+
|
|
|
+(defun org-babel-hide-result-toggle (&optional force)
|
|
|
+ "Toggle the visibility of the current result."
|
|
|
+ (interactive)
|
|
|
+ (save-excursion
|
|
|
+ (beginning-of-line)
|
|
|
+ (if (re-search-forward org-babel-result-regexp nil t)
|
|
|
+ (let ((start (progn (beginning-of-line 2) (- (point) 1)))
|
|
|
+ (end (progn
|
|
|
+ (while (looking-at org-babel-multi-line-header-regexp)
|
|
|
+ (forward-line 1))
|
|
|
+ (goto-char (- (org-babel-result-end) 1)) (point)))
|
|
|
+ ov)
|
|
|
+ (if (memq t (mapcar (lambda (overlay)
|
|
|
+ (eq (overlay-get overlay 'invisible)
|
|
|
+ 'org-babel-hide-result))
|
|
|
+ (overlays-at start)))
|
|
|
+ (if (or (not force) (eq force 'off))
|
|
|
+ (mapc (lambda (ov)
|
|
|
+ (when (member ov org-babel-hide-result-overlays)
|
|
|
+ (setq org-babel-hide-result-overlays
|
|
|
+ (delq ov org-babel-hide-result-overlays)))
|
|
|
+ (when (eq (overlay-get ov 'invisible)
|
|
|
+ 'org-babel-hide-result)
|
|
|
+ (delete-overlay ov)))
|
|
|
+ (overlays-at start)))
|
|
|
+ (setq ov (make-overlay start end))
|
|
|
+ (overlay-put ov 'invisible 'org-babel-hide-result)
|
|
|
+ ;; make the block accessible to isearch
|
|
|
+ (overlay-put
|
|
|
+ ov 'isearch-open-invisible
|
|
|
+ (lambda (ov)
|
|
|
+ (when (member ov org-babel-hide-result-overlays)
|
|
|
+ (setq org-babel-hide-result-overlays
|
|
|
+ (delq ov org-babel-hide-result-overlays)))
|
|
|
+ (when (eq (overlay-get ov 'invisible)
|
|
|
+ 'org-babel-hide-result)
|
|
|
+ (delete-overlay ov))))
|
|
|
+ (push ov org-babel-hide-result-overlays)))
|
|
|
+ (error "Not looking at a result line"))))
|
|
|
+
|
|
|
+;; org-tab-after-check-for-cycling-hook
|
|
|
+(add-hook 'org-tab-first-hook 'org-babel-hide-result-toggle-maybe)
|
|
|
+;; Remove overlays when changing major mode
|
|
|
+(add-hook 'org-mode-hook
|
|
|
+ (lambda () (org-add-hook 'change-major-mode-hook
|
|
|
+ 'org-babel-show-result-all 'append 'local)))
|
|
|
+
|
|
|
(defvar org-file-properties)
|
|
|
(defun org-babel-params-from-properties (&optional lang)
|
|
|
"Retrieve parameters specified as properties.
|
Eric Schulte