;ELC ;;; Compiled by mwolson@grepfind.mwolson.org on Thu Jan 24 00:15:32 2008 ;;; from file /stuff/proj/emacs/dvc/mwolson/lisp/xdarcs.el ;;; in Emacs version 23.0.50.2 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`xdarcs.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\300\303!\207" [require dvc-core dvc-utils xdarcs-core] 2) #@23 Run darcs initialize. (defalias 'xdarcs-initialize #[(&optional dir) "\302\303\304C\305\306\307\310\311\312\313\314\315\316\317D\257E$)\207" [dir default-directory dvc-run-dvc-sync xdarcs "initialize" :finished lambda (output error status arguments) apply #[(output error status arguments) "\300\301!\207" [message "darcs initialize finished"] 2] output error status arguments quote nil] 14 (#$ . 687) (list (expand-file-name (dvc-read-directory-name "Directory for darcs initialize: " (or default-directory (getenv "HOME")))))]) #@16 Run darcs add. (defalias 'xdarcs-dvc-add-files #[(&rest files) "\301\302\"\210\303\304\305\306\"\307\310\311\312\313\314\315\316\317\320\321D\257E$\207" [files dvc-trace "xdarcs-add-files: %s" dvc-run-dvc-sync xdarcs append ("add") :finished lambda (output error status arguments) apply #[(output error status arguments) "\300\301!\207" [message "darcs add finished"] 2] output error status arguments quote nil] 14 (#$ . 1226)]) #@22 Run darcs --version. (defalias 'xdarcs-command-version #[nil "\301\302\303\304\305$t\203\306\307\"\210)\207" [version dvc-run-dvc-sync xdarcs ("--version") :finished dvc-output-buffer-handler message "darcs version: %s"] 5 (#$ . 1664) nil]) (defalias 'xdarcs-parse-whatsnew #[(changes-buffer) "\306\307!\210\310\311p!\312\"r q\210\313\314\n\"\315\211\211\211$%\315&\211'\203\270'@\211&\316\230\204\257&\317H\211\320=\203]\321\211$\322\323&\"\204S\322\324&\"\203\224\325\326&\"&\202\224\f\327=\203i\330$\202\224\f\331=\203w\332$\333\202\224\f\334=\203\203\335$\202\224\f\336=\203\217\330$\202\224\315\211$ \204\235$\203\257\337(\340\341\342&\343\315O$ F\"\"\210'A\211'\204(.\315\207" [status-list changes-buffer default-directory dvc-header modif-char modif dvc-trace "xdarcs-parse-whatsnew (dolist)" split-string dvc-buffer-content "\n" format "darcs whatsnew --look-for-adds for %s\n" nil "" 0 77 "M" string-match "\\(.+\\) -[0-9]+ \\+[0-9]+$" "\\(.+\\) [+-][0-9]+$" match-string 1 97 "?" 65 "A" " " 82 "D" 63 ewoc-enter-last vector cl-struct-dvc-fileinfo-legacy file 4 status buffer-read-only elem #1=#:--cl-dolist-temp-- dvc-fileinfo-ewoc] 9]) #@21 Run darcs whatsnew. (defalias 'xdarcs-whatsnew #[(&optional path) "\206 \306\n!\307\310\311 \312BBD\310\313 DD\314 \310%\315\f!\210\316\317 !\210\320\310\321\322\323\324\325\326\327\330\314\331\332 \fDD\257E$+\207" [path default-directory dir root buffer dvc-buffer-refresh-function xdarcs-tree-root dvc-prepare-changes-buffer xdarcs last-revision (1) local-tree status dvc-switch-to-buffer-maybe xdarcs-whatsnew dvc-save-some-buffers dvc-run-dvc-sync ("whatsnew" "--look-for-adds") :finished lambda (output error status arguments) apply #[(output error status arguments #1=#:dvc-gensym-uniq-145 #2=#:dvc-gensym-uniq-144) "rq\210deV\203\303 \304#\210\202\305\306\n#\210)\307\310\311\312\301\313\314\315\316\317D\257E\207" [#2# output #1# dvc-show-changes-buffer xdarcs-parse-whatsnew dvc-diff-no-changes "No changes in %s" lambda (output error status arguments) apply #[(output error status arguments) "\303\304 \n$\207" [#2# output error dvc-diff-error-in-process "Error in diff process"] 5] error status arguments quote nil] 10] output error arguments quote] 15 (#$ . 2872) (list default-directory)]) #@56 Run 'darcs pull --dry-run -s -v' to see what's missing (defalias 'xdarcs-missing #[nil "\301\302\303\"\304\302\305\306\307\310\311\312\313\314\315\316\317CD\257E$)\207" [buffer dvc-get-buffer-create xdarcs missing dvc-run-dvc-async ("pull" "--dry-run" "-s" "-v") :finished lambda (output error status arguments) apply #[(output error status arguments #1=#:dvc-gensym-uniq-146) "rq\210\303\304 \210\305\n!\210\306\307!\210*eb\210\310!\207" [#1# inhibit-read-only output t erase-buffer insert-buffer-substring toggle-read-only 1 dvc-switch-to-buffer] 2] output error status arguments quote] 14 (#$ . 3998) nil]) (defalias 'xdarcs-pull-finish-function #[(output error status arguments) "\304\305\306\"rq\210\307\310 \210\311\n!\210\312\313!\210*\314\315!*\207" [buffer inhibit-read-only output dvc-switch-to-buffer-mode dvc-get-buffer-create xdarcs pull t erase-buffer insert-buffer-substring toggle-read-only 1 show-in-other-window dvc-switch-to-buffer] 3]) #@22 Run darcs pull --all (defalias 'xdarcs-pull #[nil "\300\301\302\303D\304\305\306\305&\207" [dvc-run-dvc-async xdarcs "pull" "--all" :error xdarcs-pull-finish-function :finished] 7 (#$ . 4971) nil]) (defalias 'xdarcs-parse-diff #[(changes-buffer) "\300\207" [nil] 1]) (defalias 'xdarcs-dvc-diff #[(&optional against path dont-switch) "\206 p\306\n!\307\310\311\f\312BBD\310\313\fDD\314\f\310%\315\316 !\210\203.\317 !\210\320\f!\210\321\310\322\323\324\325\326\327\330\331\332\333 CD\257E$-\207" [path default-directory cur-dir orig-buffer root buffer dvc-tree-root dvc-prepare-changes-buffer xdarcs last-revision (1) local-tree diff ("diff" "--unified") dvc-switch-to-buffer-maybe pop-to-buffer dvc-save-some-buffers dvc-run-dvc-sync :finished lambda (output error status arguments) apply #[(output error status arguments #1=#:dvc-gensym-uniq-147) "\302\303 #\207" [output #1# dvc-show-changes-buffer xdarcs-parse-diff] 4] output error status arguments quote command-list dont-switch] 14 nil (list nil nil current-prefix-arg)]) #@104 Insert the content of FILE in LAST-REVISION, in current buffer. LAST-REVISION looks like ("path" NUM) (defalias 'xdarcs-revision-get-last-revision #[(file last-revision) "\306\307 #\210 @\310\311\312\313E\314\315$p\316\317!\320\321\n #\322\323!\324\216rq\210 c\210\325ed\f$+\326!\205Hr\fq\210\327 !).\207" [file last-revision default-directory patch output-buffer output-file dvc-trace "xdarcs-revision-get-last-revision file:%S last-revision:%S" dvc-run-dvc-sync xdarcs "diff" "--unified" :finished dvc-output-buffer-handler dvc-make-temp-name "xdarcs-file-find" format "cd \"%s\"; patch -R -o \"%s\"" generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) shell-command-on-region zerop insert-file-contents patch-cmdline #1# status] 5 (#$ . 6023)]) #@19 Run darcs revert. (defalias 'xdarcs-dvc-revert-files #[(&rest files) "\302\303\"\210\304 \305\306\307\310\311\312\"\"\313\314\315\316\317\320\321\322\323\324\325D\257E$)\207" [files default-directory dvc-trace "xdarcs-revert-files: %s" xdarcs-tree-root dvc-run-dvc-sync xdarcs append ("revert" "-a") mapcar file-relative-name :finished lambda (output error status arguments) apply #[(output error status arguments) "\300\301!\207" [message "xdarcs revert finished"] 2] output error status arguments quote nil] 14 (#$ . 6869)]) #@19 Run darcs remove. (defalias 'xdarcs-dvc-remove-files #[(&rest files) "\301\302\"\210\303\304\305\306\"\307\310\311\312\313\314\315\316\317\320\321D\257E$\207" [files dvc-trace "xdarcs-remove-files: %s" dvc-run-dvc-sync xdarcs append ("remove" "-a") :finished lambda (output error status arguments) apply #[(output error status arguments) "\300\301!\207" [message "xdarcs remove finished"] 2] output error status arguments quote nil] 14 (#$ . 7406)]) (provide 'xdarcs)