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

   1 (defun org-synch ()
   2   (let* ((date (shell-command-to-string "/bin/date '+%Y%m%d'"))
   3          (dir (expand-file-name "/home/elpa/packages-new"))
   4          (archive-file (expand-file-name "archive-contents" dir))
   5          (package-name 'org)
   6          package-file contents entry)
   7     (setq date (substring date 0 (- (length date) 1))
   8           package-file (concat (symbol-name package-name) "-" date ".tar"))
   9     (unless (file-exists-p (expand-file-name package-file dir))
  10       (error "No package file found"))
  11     (find-file archive-file)
  12     (setq contents (read (current-buffer))
  13           entry (assq package-name contents))
  14     (unless entry
  15       (error "No entry for %s in archive-contents" package-name))
  16     (aset (cdr entry) 0 (version-to-list date))
  17     (erase-buffer)
  18     (insert (pp-to-string contents) "\n")
  19     (save-buffer 0)))