pkg update and first config fix
org-brain not working, add org-roam
This commit is contained in:
@@ -5,7 +5,7 @@
|
||||
;; Author: Phillip Lord <phillip.lord@russet.org.uk>
|
||||
;; Maintainer: Phillip Lord <phillip.lord@russet.org.uk>
|
||||
;; Package-Type: multi
|
||||
;; Version: 0.4
|
||||
;; Version: 0.5
|
||||
|
||||
;; The contents of this file are subject to the GPL License, Version 3.0.
|
||||
|
||||
@@ -132,18 +132,26 @@ variables persist automatically when Emacs exits."
|
||||
(unless (persist--persistant-p symbol)
|
||||
(error (format
|
||||
"Symbol %s is not persistant" symbol)))
|
||||
(unless (equal (symbol-value symbol)
|
||||
(persist-default symbol))
|
||||
(let ((dir-loc
|
||||
(file-name-directory
|
||||
(persist--file-location symbol))))
|
||||
(unless (file-exists-p dir-loc)
|
||||
(mkdir dir-loc)))
|
||||
(with-temp-buffer
|
||||
(print (symbol-value symbol) (current-buffer))
|
||||
(write-region (point-min) (point-max)
|
||||
(persist--file-location symbol)
|
||||
nil 'quiet))))
|
||||
(let ((symbol-file-loc (persist--file-location symbol)))
|
||||
(if (equal (symbol-value symbol)
|
||||
(persist-default symbol))
|
||||
(when (file-exists-p symbol-file-loc)
|
||||
(delete-file symbol-file-loc))
|
||||
(let ((dir-loc
|
||||
(file-name-directory symbol-file-loc)))
|
||||
(unless (file-exists-p dir-loc)
|
||||
(mkdir dir-loc))
|
||||
(with-temp-buffer
|
||||
(let (print-level
|
||||
print-length
|
||||
print-quoted
|
||||
(print-escape-control-characters t)
|
||||
(print-escape-nonascii t)
|
||||
(print-circle t))
|
||||
(print (symbol-value symbol) (current-buffer)))
|
||||
(write-region (point-min) (point-max)
|
||||
symbol-file-loc
|
||||
nil 'quiet))))))
|
||||
|
||||
(defun persist-default (symbol)
|
||||
"Return the default value for SYMBOL."
|
||||
|
||||
Reference in New Issue
Block a user