blob: 17627e6333c994e2002d83e271f20ea20d9a17af (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
;;; -*- lexical-binding: t -*-
(setq org-persist-directory (expand-file-name "hostile-c-persist" default-directory))
(require 'org)
(require 'org-element)
(require 'org-persist)
(let* ((f (expand-file-name "hostile-c-real.org" default-directory)))
(with-temp-file f (insert "* Head one\nbody\n* Head two\n"))
;; 1. the REAL buffer, as Craig has open
(let ((real (find-file-noselect f)))
(with-current-buffer real (org-element-at-point (point-max)))
(princ (format "real registered: %S\n"
(and (org-persist--find-index
`(:container ,(org-persist--normalize-container
`((elisp org-element--cache) (version ,org-element-cache-version)))
:associated ,(org-persist--normalize-associated real)))
t)))
;; 2. dirvish preview: second org buffer claiming the same file name
(let ((prev (get-buffer-create "PREVIEW :: hostile-c-real.org")))
(with-current-buffer prev
(insert-file-contents f)
(setq buffer-file-name f)
(delay-mode-hooks (org-mode))
;; the commit's hook
(setq-local org-element-cache-persistent nil)
;; 3. anything that resets the cache in this live preview buffer
(org-element-cache-reset))
(princ (format "real registered AFTER preview reset: %S\n"
(and (org-persist--find-index
`(:container ,(org-persist--normalize-container
`((elisp org-element--cache) (version ,org-element-cache-version)))
:associated ,(org-persist--normalize-associated real)))
t))))))
|
