| 
					
				 | 
			
			
				@@ -35,19 +35,27 @@ 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 (declare-function org-next-visible-heading "org" (arg)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 (declare-function org-at-heading-p "org" (&optional invisible-not-ok)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-(defvar org-persist-directory (expand-file-name 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-                    (org-file-name-concat 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-                     (let ((cache-dir (when (fboundp 'xdg-cache-home) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-                                        (xdg-cache-home)))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-                       (if (or (seq-empty-p cache-dir) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-                               (not (file-exists-p cache-dir)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-                               (file-exists-p (org-file-name-concat 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-                                               user-emacs-directory 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-                                               "org-persist"))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-                           user-emacs-directory 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-                         cache-dir)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-                     "org-persist/")) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-  "Directory where the data is stored.") 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+ 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+(defgroup org-persist nil 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+  "Persistent cache for Org mode." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+  :tag "Org persist" 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+  :group 'org) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+ 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+(defcustom org-persist-directory (expand-file-name 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+                       (org-file-name-concat 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+                        (let ((cache-dir (when (fboundp 'xdg-cache-home) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+                                           (xdg-cache-home)))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+                          (if (or (seq-empty-p cache-dir) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+                                  (not (file-exists-p cache-dir)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+                                  (file-exists-p (org-file-name-concat 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+                                                  user-emacs-directory 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+                                                  "org-persist"))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+                              user-emacs-directory 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+                            cache-dir)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+                        "org-persist/")) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+  "Directory where the data is stored." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+  :group 'org-persist 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+  :type 'directory) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 (defvar org-persist-index-file "index" 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   "File name used to store the data index.") 
			 |