ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add checksum for mobileorg.org

This commit is contained in:
Carsten Dominik 2009-10-19 13:03:09 +02:00
parent 4300198902
commit 03ecf8d91f
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/org-mobile.el
View File

@ -354,12 +354,13 @@ agenda view showing the flagged items."
org-mobile-checksum-files))))
(setq file (expand-file-name org-mobile-capture-file
org-mobile-directory))
(unless (file-exists-p file)
(save-excursion
(setq buf (find-file file))
(insert "\n")
(save-buffer))
(kill-buffer buf))))
(save-excursion
(setq buf (find-file file))
(and (= (point-min) (point-max)) (insert "\n"))
(save-buffer)
(push (cons org-mobile-capture-file (md5 (buffer-string)))
org-mobile-checksum-files))
(kill-buffer buf)))
(defun org-mobile-write-checksums ()
"Create checksums for all files in `org-mobile-directory'.