代码拉取完成,页面将自动刷新
同步操作将从 latpaw/emacs 强制同步,此操作会覆盖自 Fork 仓库以来所做的任何修改,且无法恢复!!!
确定后同步将在后台操作,完成时将刷新页面,请耐心等待。
;;; Handy code for uploading new versions of my own packages to marmalade
(autoload 'marmalade-upload-buffer "marmalade")
(defun latest-version-from-git-tag ()
(let ((versions (mapcar #'version-to-list (split-string (shell-command-to-string "git tag")))))
(sort versions #'version-list-<)
(package-version-join (car (last versions)))))
(defun update-version-header (val)
(save-excursion
(goto-char (point-min))
(re-search-forward "^;;;? ?Version:")
(kill-line)
(insert " " val)))
(defun submit-tar-to-marmalade (buf)
(interactive "bSubmit buffer library as tar: ")
(with-current-buffer buf
(let* ((tag (or (latest-version-from-git-tag) (error "Not tagged")))
(library-name (file-name-nondirectory (file-name-sans-extension buffer-file-name)))
(package-dir-name (concat library-name "-" tag))
(temp-working-dir (make-temp-file "emacs-marmalade" t))
(dest (expand-file-name package-dir-name temp-working-dir))
(tar-cmd (or (executable-find "gtar")
(executable-find "tar")))
(tar (concat dest ".tar")))
(message "Building package in %s" dest)
(make-directory dest)
(let ((command-line (format "cp *.el %s && (cd %s && perl -spi -e 's/\\{\\{VERSION\\}\\}/%s/' *.el) && (cd %s && %s cvf %s %s)" dest dest tag temp-working-dir tar-cmd tar package-dir-name)))
(shell-command command-line))
(save-excursion
(shell-command (format "open %s" temp-working-dir))
;; (find-file tar)
;; (marmalade-upload-buffer (current-buffer))
;; (delete-directory temp-working-dir t)
))))
(defun submit-to-marmalade (buf)
"Submit the elisp library in BUF to Marmalade."
(interactive
(list
(completing-read "Submit buffer: "
(mapcar 'buffer-name (buffer-list))
(lambda (b)
(with-current-buffer b
(and buffer-file-name
(eq major-mode 'emacs-lisp-mode))))
t)))
(with-current-buffer buf
(let ((tag (latest-version-from-git-tag)))
(unless tag
(error "Not tagged"))
(update-version-header tag)
(marmalade-upload-buffer buf)
(revert-buffer t t)
(message "Submitted version %s to marmalade" tag))))
(provide 'init-marmalade)
此处可能存在不合适展示的内容,页面不予展示。您可通过相关编辑功能自查并修改。
如您确认内容无涉及 不当用语 / 纯广告导流 / 暴力 / 低俗色情 / 侵权 / 盗版 / 虚假 / 无价值内容或违法国家有关法律法规的内容,可点击提交进行申诉,我们将尽快为您处理。