code.delx.au - gnu-emacs-elpa/blob - admin/org-synch.el

   1 (defun org-synch (package-file)
   2   (let* ((archive-file "archive-contents")
   3          (package-name 'org)
   4          (date (substring package-file 4 12))
   5          (date-int (string-to-number date))
   6          contents entry)
   7     (unless (and (integerp date-int)
   8                  (> date-int 20100000)
   9                  (< date-int 21000000))
  10       (error "Package date is bad"))
  11     (unless (file-exists-p package-file)
  12       (error "No package file found"))
  13     (when (file-exists-p archive-file)
  14       (find-file archive-file)
  15       (setq contents (read (current-buffer))
  16             entry (assq package-name contents))
  17       (unless entry
  18         (error "No entry for %s in archive-contents" package-name))
  19       (aset (cdr entry) 0 (version-to-list date))
  20       (erase-buffer)
  21       (insert (pp-to-string contents) "\n")
  22       (save-buffer 0))))