;ELC ;;; Compiled by mwolson@grepfind.mwolson.org on Thu Jan 24 00:15:31 2008 ;;; from file /stuff/proj/emacs/dvc/mwolson/lisp/tla.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 "`tla.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\301\302!\210\301\303!\210\301\304!\210\305\306!\203\301\307!\210\301\310!\210\301\311!\210\301\312!\210\301\313!\210\301\314!\210\315\316\317\"\210\301\320!\210\301\321!\210\305\322!\203A\301\323!\210\301\324!\210\301\325!\210\301\326!\210\301\327!\210\301\330!\210\301\331!\210\301\332!\210\301\333!\210\301\334!\210\305\335!\203o\301\336!\210\337B\340\337!\204~\341\337\342\"\210\343B\340\343!\204\215\341\343\342\"\210\344B\340\344!\204\234\341\344\342\"\210\345B\340\345!\204\253\341\345\342\"\210\346B\340\346!\204\272\341\346\342\"\210\347B\340\347!\204\311\341\347\342\"\210\350B\340\350!\204\330\341\350\342\"\210\351B\340\351!\204\347\341\351\342\"\210\352B\340\352!\204\366\341\352\342\"\210\353B\340\353!\204\341\353\342\"\210\354B\340\354!\204\341\354\342\"\210\355B\340\355!\204#\341\355\356\"\210\357B\340\357!\2042\341\357\356\"\210\360\361\362\363#\210\360\361\364\365#\207" [current-load-list require dvc-emacs dvc-lisp dvc-revlist locate-library "dvc-version" dvc-version dvc-about dvc-utils dvc-cmenu dvc-core tla-gnus autoload dired-get-filename "dired" ediff font-lock "sendmail" sendmail pp ewoc diff time-date dvc-diff dvc-state tla-defs tla-core tla-autoconf "smerge-mode" smerge-mode tla-edit-arch-command default-boundp set-default nil tla-pre-commit-window-configuration tla-pre-tree-lint-window-configuration tla-log-edit-file-name tla-log-edit-file-buffer tla-my-id-history tla-last-commit-message tla-buffer-archive-name tla-buffer-category-name tla-buffer-branch-name tla-buffer-version-name tla-mode-line-process "" tla-mode-line-process-status put tla-default-button mouse-face highlight evaporate t] 4) #@62 Either add or remove from the value of LIST the value ENTRY. (defalias 'tla-toggle-list-entry '(macro . #[(list entry) "\302\303 E\304 \305 EE\306\307 DEF\207" [entry list if member setq delete add-to-list quote] 7 (#$ . 2279)])) #@39 Edit the {arch}/=tagging-method file. (defalias 'tla-edit-=tagging-method-file #[nil "\300\301\302\303 \"!\207" [find-file expand-file-name "{arch}/=tagging-method" tla-tree-root] 4 (#$ . 2518) nil]) #@343 Edit DIR/.arch-inventory file. `default-directory' is used as DIR if DIR is nil. If it is called interactively and the prefix argument is given via DIR, use the directory of a file associated with the point to find .arch-inventory. In the case no file is associated with the point, it reads the directory name with `dvc-read-directory-name'. (defalias 'tla-edit-\.arch-inventory-file #[(&optional dir) "\206 \304\305\"\306\n!?\307\n!\210\212 \205$\310\311\312\n\"!\205$\313 ,\207" [dir default-directory file newp expand-file-name ".arch-inventory" file-exists-p find-file y-or-n-p format "Insert arch tag to \"%s\"? " tla-tag-insert] 4 (#$ . 2725) (list (if (not (interactive-p)) default-directory (let ((file (dvc-get-file-info-at-point))) (if file (if (not (file-name-absolute-p file)) (concat default-directory (file-name-directory file)) (file-name-directory file)) (expand-file-name (dvc-read-directory-name "Directory containing \".arch-inventory\": "))))))]) #@223 Insert a string with a right-justification. Inserts STRING preceded by spaces so that the line ends exactly at COUNT characters (or after if STRING is too long). If FACE is non-nil, insert the string fontified with FACE. (defalias 'tla--insert-right-justified #[(string count &optional face) "\306\307\310 GZ]\"\210\n\203\250 \n\311\211\211\203\242\312! 9\2051\313\314\315\316 !\"! \203; \202I\f\205I\317\f!;\205I\317\f!\203f\203a\320\321\320\260\202g\202g  9\203s J\202t \322\310G\302\n\323\n\324 \205\214\325\326\305 \327\257\f\205\223\330\fD\"BBBB$\210-\202\244-\202\251 c\207" [count string face help menu keymap insert-char 32 0 nil copy-sequence substitute-command-keys format "\\{%s}" symbol-name cadr "\n" "================" add-text-properties font-lock-face append mouse-face highlight help-echo dvc-cmenu str dvc-highlight strcpy key-help prefix-help long-help] 14 (#$ . 3709)]) #@234 Redefine `tla--name-read-minibuf-map'. Compute the new value based on the current `minibuffer-local-completion-map'. This is usefull if you want to add bindings to your `minibuffer-local-completion-map' globally after loading Xtla. (defalias 'tla-name-read-reinit-minibuf-map #[nil "\301 \211\207" [tla--name-read-minibuf-map tla-name-read-minibuf-map-fn] 2 (#$ . 4666)]) #@69 Displays a help message with keybindings for the minibuffer prompt. (defalias 'tla-name-read-help #[nil "\306\307!q\210\310\311 \210\312 \210\313 \210\314\315!\210\316c\210\317\320 \"\211\321\211\203~\f@\322 \"#\323$#\203b#@\324H\325=\204Y$\323\230\203N\326#@!\202W$\327\326#@!Q$#A\211#\2045\330\331$\332\324\333$GZ]\334\"\335 !$c\210*\fA\211\204$+eb\210\336\337Ct\"\210)\340p!\210\341\342!\207" [inhibit-read-only tla--name-read-extension-keydefs interesting func #1=#:--cl-dolist-temp-- tla--name-read-minibuf-map get-buffer-create "*Help*" t erase-buffer kill-all-local-variables help-mode view-mode -1 "This buffer describes the name reading engine for xtla\n\nYou are prompted for a fully qualified archive, category, branch,\nversion, or revision, which means a string like\n\"John.Smith@rt.fm--arch/xtla--revolutionary--1.0\". Completion is\navailable with TAB. Only the item being entered is proposed for\ncompletion, which means that if you're typing the archive name,\npressing TAB will give you the list of archives. If you started to\ntype the category name, you'll get the list of category for this\narchive.\n\nHere's a list of other interesting bindings available in the\nminibuffer:\n\n" mapcar #[(pair) "A\207" [pair] 1] nil where-is-internal "" 0 menu-bar key-description ", " format "%s%s `%s'\n" make-string 5 32 symbol-name help-setup-xref tla-name-read-help display-buffer toggle-read-only 1 keys keys1] 9 (#$ . 5046) nil]) #@39 Displays a help message in echo area. (defalias 'tla-name-read-inline-help #[nil "\306\307\"\310\211\311\211\203m\f@\312 \"\310\313 !\203Q@\314H\315=\204H\310\230\203=\316@!\202F\317\316@!QA\211\204$\320\321 \"\210\322\323 \" \324\325 #\326Q+\fA\211\204*\327 !*\207" [tla--name-read-extension-keydefs line interesting func #1=#:--cl-dolist-temp-- tla--name-read-minibuf-map mapcar #[(pair) "A\207" [pair] 1] "" nil where-is-internal symbol-name 0 menu-bar key-description ", " string-match "tla-name-read-\\(.+\\)" match-string 1 format "%s => `%s'" " " dvc-about-message-with-rolling keys keys1] 7 (#$ . 6526) nil]) #@195 Read revision name with `tla-name-read'. PROMPT is passed to `tla-name-read' without changing. Default version associated with TREE, a directory is used as default arguments for`tla-name-read'. (defalias 'tla--read-revision-with-default-tree #[(&optional prompt tree) "\304\206 \305\"\306!\307 \n\203\310\n!\202\303\n\203$\311\n!\202%\303\n\203/\312\n!\2020\303\n\203:\313\n!\202;\303\303&)\207" [tree default-directory tree-rev prompt tla-tree-root t tla-tree-version-list tla-name-read tla--name-archive tla--name-category tla--name-branch tla--name-version] 7 (#$ . 7197)]) (byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list tla--name-read-insert-version-associated-with-default-directory default-boundp set-default nil] 3) #@142 Insert the version for the tree of the directory specified by . If FORCE is non-nil, insert the version even if the minibuffer isn't empty. (defalias 'tla-name-read-insert-version-associated-with-default-directory #[(&optional force) "\304\305\203\n\202 !\306\307\310!\307\311!\307\312!\307\313!&\314\315 !\2050 \204.\316 \317\232\2050\nc)\207" [tla--name-read-insert-version-associated-with-default-directory default-directory version-for-tree force tla--name-mask tla-tree-version-list t tla--name-read-arguments archive category branch version window-minibuffer-p selected-window minibuffer-contents ""] 8 (#$ . 7978) "P"]) #@147 Insert default archive name into the minibuffer if it is empty. If FORCE is non-nil, insert the archive name even if the minibuffer isn't empty. (defalias 'tla-name-read-insert-default-archive #[(&optional force) "\301\302 !\205\303 \304\232\204\205\305\306!\307\235\205\310 c\207" [force window-minibuffer-p selected-window minibuffer-contents "" tla--name-read-arguments archive (prompt maybe) tla-my-default-archive] 2 (#$ . 8623) "P"]) (byte-code "\301B\302\301!\204\303\301\304\"\210\305B\302\305!\204\303\305\304\"\210\304\207" [current-load-list tla-name-read-insert-info-at-point default-boundp set-default nil tla--name-read-insert-info-at-point-overlay] 3) #@145 Insert the info(maybe revision) under the point to the minibuffer. If FORCE is non-nil, insert the version even if the minibuffer isn't empty. (defalias 'tla-name-read-insert-info-at-point #[(&optional force) "\206\303 \304\305 !\205\306 \307\232\204\n\205 \205 c)\207" [tla-name-read-insert-info-at-point info-at-point force tla-name-read-insert-version-associated-with-default-directory window-minibuffer-p selected-window minibuffer-contents ""] 2 (#$ . 9315) "P"]) #@150 This function retrieves the info at point. Further call to `tla--name-read-insert-info-at-point-final' will actuall insert the value computed here. (defalias 'tla--name-read-insert-info-at-point-init #[nil "\306 \211A@)\307`!\310`!\211\205>\n\203( \203(\311\nS \"\312\f\313\314#\210\315\316 !\317\320\321!\320\322!\320\323!\320\324!\320\325!&+\211\207" [x e b raw-info tla--name-read-insert-info-at-point-overlay tla-name-read-insert-info-at-point dvc-get-info-at-point dvc-cmenu-beginning dvc-cmenu-end make-overlay overlay-put face dvc-highlight tla--name-mask tla--name-split t tla--name-read-arguments archive category branch version revision] 10 (#$ . 9804)]) #@141 Called when exitting the minibuffer prompt. Cancels the effect of `tla--name-read-insert-info-at-point-init'. Argument NO-USE is ignored. (defalias 'tla--name-read-insert-info-at-point-final #[(&optional no-use) "\205 \301!\210\302\211\207" [tla--name-read-insert-info-at-point-overlay delete-overlay nil] 2 (#$ . 10487)]) (byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list tla--name-read-insert-partner-ring-position default-boundp set-default nil] 3) #@67 Initialize "Insert Partner Version" menu used in `tla-name-read'. (defalias 'tla--name-read-insert-partner-init #[nil "\303\304\303B\305\306 !\307\310\n\"\210)\301\311 BM\207" [tla--name-read-insert-partner-ring-position xtla--name-read-partner-menu partners nil "Insert Partner Version" reverse tla-partner-list mapc #[(p) "\303\304!\305\306\307!\306\310!\306\311!\306\312!\306\313!& \211\314\315!\211L\210\316\317\320\321\322\323\nD\324FF)BB AB\241\207" [p xtla--name-read-partner-menu #1=#:--cl-this-p-- tla--name-mask tla--name-split t tla--name-read-arguments archive category branch version revision make-symbol "--this-p--" lambda (&rest --cl-rest--) (interactive) apply #[(#2=#:G70433) "\301 d|\210Jc\207" [#2# minibuffer-prompt-end] 2] quote --cl-rest--] 11] keymap] 3 (#$ . 10982)]) #@52 Insert the previous partner version into miniffer. (defalias 'tla-name-read-insert-partner-previous #[nil "\305 \211G\n\203\n\306=\203 S\202\nS\202\306\2058\307\310 8!\311\312\313!\312\314!\312\315!\312\316!\312\317!&\320\321 !\205S\205S\f\205S\322 d|\210\fc\210 \211,\207" [partners plen tla--name-read-insert-partner-ring-position pos pversion tla-partner-list 0 tla--name-mask tla--name-split t tla--name-read-arguments archive category branch version revision window-minibuffer-p selected-window minibuffer-prompt-end] 10 (#$ . 11791) nil]) #@52 Insert the next partner version into the miniffer. (defalias 'tla-name-read-insert-partner-next #[nil "\305 \211G\n\203\n S=\203\306\202\nT\202\306\2058\307\310 8!\311\312\313!\312\314!\312\315!\312\316!\312\317!&\320\321 !\205S\205S\f\205S\322 d|\210\fc\210 \211,\207" [partners plen tla--name-read-insert-partner-ring-position pos pversion tla-partner-list 0 tla--name-mask tla--name-split t tla--name-read-arguments archive category branch version revision window-minibuffer-p selected-window minibuffer-prompt-end] 10 (#$ . 12363) nil]) #@140 Insert the ancestor name into the minibuffer if it is empty. If FORCE is non-nil, insert the ancestor even if the minibuffer isn't empty. (defalias 'tla-name-read-insert-ancestor #[(&optional force) "\305!\211\205\n\306=?\205\306\307 \310\311\211\211\211\312&!\211\205U\313\314 !\205U\315 \316\232\2042\f\205U\317\320!\321\235\205U\307 \311\211\317\322!\323\235\317\324!\325\235\317\301!\326\235\317\327!\330\235&c*\207" [default-directory version this-command ancestor force tla-tree-version-list tla-revision-direct-ancestor tla--name-mask nil t "base-0" window-minibuffer-p selected-window minibuffer-contents "" tla--name-read-arguments archive (prompt maybe) category (prompt maybe) branch (prompt maybe) (prompt maybe) revision (prompt maybe)] 10 (#$ . 12932) "P"]) (byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list tla--name-read-insert-bookmark-ring-position default-boundp set-default nil] 3) #@71 Initialize "Insert Version in Bookmark" menu used in `tla-name-read'. (defalias 'tla--name-read-insert-bookmark-init #[nil "\305\306\305B\307\n\310\"\211\205\311 !\237\312\313\f\"\210*\301\314 BM\207" [tla--name-read-insert-bookmark-ring-position xtla--name-read-bookmark-menu default-directory default-version bookmarks nil "Insert Version in Bookmark" tla-tree-version-list no-error tla-bookmarks-get-partner-versions mapc #[(p) "\302\303\304\305!\304\306!\304\307!\304\310!\304\311!& \211\312BB AB\241\207" [p xtla--name-read-bookmark-menu tla--name-mask t tla--name-read-arguments archive category branch version revision #[nil "\301 d|\210c\207" [p minibuffer-prompt-end] 2 nil nil]] 9] keymap] 4 (#$ . 13886)]) #@68 Insert the previous partner version in the bookmark into miniffer. (defalias 'tla-name-read-insert-bookmark-previous #[nil "\306!\211\205\f\307 !\237\211G\f\203$\f\310=\203 S\202%\fS\202%\310\n\205@\311 \n8\312\313\314!\313\315!\313\316!\313\317!\313\320!&\321\322 !\205^\n\205^\205^\323 d|\210c\210 \211-\207" [default-directory default-version bookmarks plen tla--name-read-insert-bookmark-ring-position pos tla-tree-version-list tla-bookmarks-get-partner-versions 0 tla--name-mask t tla--name-read-arguments archive category branch version revision window-minibuffer-p selected-window minibuffer-prompt-end pversion] 10 (#$ . 14620) nil]) #@68 Insert the next partner version in the bookmark into the miniffer. (defalias 'tla-name-read-insert-bookmark-next #[nil "\306!\211\205\f\307 !\237\211G\f\203$\f S=\203\310\202%\fT\202%\310\n\205@\311 \n8\312\313\314!\313\315!\313\316!\313\317!\313\320!&\321\322 !\205^\n\205^\205^\323 d|\210c\210 \211-\207" [default-directory default-version bookmarks plen tla--name-read-insert-bookmark-ring-position pos tla-tree-version-list tla-bookmarks-get-partner-versions 0 tla--name-mask t tla--name-read-arguments archive category branch version revision window-minibuffer-p selected-window minibuffer-prompt-end pversion] 10 (#$ . 15291) nil]) (byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\304\"\210\300\301\306\"\210\300\301\307\"\207" [add-hook tla-name-read-init-hook tla--name-read-insert-info-at-point-init tla-name-read-final-hook tla--name-read-insert-info-at-point-final tla-name-read-error-hook tla--name-read-insert-partner-init tla--name-read-insert-bookmark-init] 3) (defalias 'tla-file-name-relative-to-root #[(file) "\302!\303!\304\305\306 !\307Q\310#*\207" [file tree-root dvc-uniquify-file-name tla-tree-root replace-regexp-in-string "^" regexp-quote "*" ""] 4]) #@324 Read a directory name inside an arch managed tree. Return a directory name which is a subdirectory or the root of some project tree. Works in a way similar to `dvc-read-project-tree-maybe', but is customized with the variable `dvc-read-directory-mode'. PROMPT is the user prompt, and DIRECTORY is the default directory. (defalias 'tla--read-directory-maybe #[(&optional prompt directory) "\305\206 \306\"\206 \n\206\307\f\310=\203!\311\n!\202T\f\312=\2039 \2033\206T \202T\311\n!\202T\f\313=\203Q \203K\206T \202T\314\315!\202T\314\316!+\207" [directory default-directory prompt root dvc-read-directory-mode tla-tree-root t "Use directory: " always dvc-read-directory-name sometimes never error "Not in a project tree" "Wrong value for dvc-read-directory-mode"] 3 (#$ . 16510)]) #@67 Close all buffers whose directory is in the same project as TREE. (defalias 'tla-close-project #[(&optional tree) "\305\306!!\307 \310\211\203/\n@r q\210\305\306 \311\"!\f\230\203'\312 !\210*\nA\211\204+\310\207" [tree buffer #1=#:--cl-dolist-temp-- default-directory current-proj dvc-uniquify-file-name tla-tree-root buffer-list nil t kill-buffer] 5 (#$ . 17323) nil]) #@165 Help system for commands that get input via the minibuffer. This is an internal function called by `tla-show-command-help'. COMMAND is the last command executed. (defalias 'tla--display-command-help #[(command) "\300\301\302\303 \304Q\"\207" [with-electric-help #[nil "\302!\205 \303!ed|\210 \203\304\305 #\202\304\306\"c)\207" [command cmd-help fboundp documentation format "Help for %S:\n%s" "No help available for %S"] 4] " *" tla-arch-branch-name "-command-help*"] 5 (#$ . 17712)]) (byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list tla-command-stack default-boundp set-default nil] 3) #@73 Function called in `minibuffer-setup-hook'. Memorize last command run. (defalias 'tla-minibuffer-setup #[nil " B\211\207" [this-command tla-command-stack] 2 (#$ . 18350)]) #@91 Function called in `minibuffer-exit-hook'. Cancels the effect of `tla-minibuffer-setup'. (defalias 'tla-minibuffer-exit #[nil "\211A@\207" [tla-command-stack] 2 (#$ . 18531)]) #@317 Help system for commands that get input via the minibuffer. When the user is asked for input in the minibuffer, a help for the command will be shown, if the user hits \\[tla-show-command-help]. This functionality is not only for xtla commands available it is available for all Emacs commands. (defalias 'tla-show-command-help #[nil "\301@!\207" [tla-command-stack tla--display-command-help] 2 (#$ . 18717) nil]) (byte-code "\2032\304 \305\306#\210\304\n\307\306#\210\304 \310\306#\210\304 \311\306#\210\304\n\312\306#\210\304 \313\306#\210\314\315\316\"\210\314\317\320\"\210\304\207" [tla-install-command-help-system minibuffer-local-map minibuffer-local-completion-map minibuffer-local-must-match-map define-key [f1] tla-show-command-help [f1] [f1] [(control meta 104)] [(control meta 104)] [(control meta 104)] add-hook minibuffer-setup-hook tla-minibuffer-setup minibuffer-exit-hook tla-minibuffer-exit] 4) #@369 *Function used to create the log buffer. Must return a string which is the absolute name of the log file. This function is called only when the log file doesn't exist already. The default is `tla-default-make-log-function', which just calls "tla make-log". If you want to override this function, you may just write a wrapper around `tla-default-make-log-function'. (custom-declare-variable 'tla-make-log-function ''tla-default-make-log-function '(#$ . -19661) :type 'function :group 'xtla) #@220 Create the log file and return its filename. If the file exists, its name is returned. Otherwise, the log file is created by the function specified by `tla-make-log-function', which, by default, calls "tla make-log". (defalias 'tla-make-log #[(&optional nocreate) "\304 \305 \306\307!\310\311!\310\312!\310\313!\260 \314 !\203\" \202,\n\203*\315\202, *\207" [version file nocreate tla-make-log-function tla-tree-version-list tla-tree-root "++log." tla--name-category "--" tla--name-branch tla--name-version tla--name-archive file-exists-p nil] 10 (#$ . 20161) nil]) #@107 Candidate (and default value) for `tla-make-log-function'. Calls "tla make-log" to generate the log file. (defalias 'tla-default-make-log-function #[nil "\300\301\302\303#\207" [tla--run-tla-sync ("make-log") :finished #[(output error status arguments) "\301!\207" [output dvc-buffer-content] 2]] 4 (#$ . 20747)]) #@41 Call `tla-inventory' with a prefix arg. (defalias 'dvc-pop-to-inventory #[nil "\300\301\302\"\207" [tla-inventory nil t] 3 (#$ . 21068) nil]) (byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list tla-inventory-cookie default-boundp set-default nil] 3) #@30 Full list for the inventory. (defvar tla-inventory-list nil (#$ . 21353)) #@67 Put cursor on FILE. nil return means the file hasn't been found. (defalias 'tla-inventory-goto-file #[(file) "eb\210\304!\211\203\"\305 !\211AA)@ \230\204\"\306 \"\211\204 \203*\307 !\210 )\207" [tla-inventory-cookie current x file ewoc-locate ewoc-data ewoc-next tla-inventory-cursor-goto] 4 (#$ . 21433)]) #@60 Define the VARIABLE and the toggle FUNCTION for type TYPE. (defalias 'tla-inventory-make-toggle-fn-and-var #[(variable function) "\302!\210\303\304 \305\306\307\310DE\311BBBBB!\207" [variable function make-variable-buffer-local eval defun nil (interactive) setq not ((tla-inventory-redisplay))] 9 (#$ . 21758)]) (byte-code "\304\211\203\"\n@\305 \211A@) \211AA)@\"\210\nA\211\204*\304\207" [tla-inventory-file-types-manipulators type-arg #:--cl-dolist-temp-- x nil tla-inventory-make-toggle-fn-and-var] 4) #@27 Refresh inventory buffer. (defalias 'tla-inventory-redisplay #[nil "\305!\211\205\306 !\211AA)@`\307 \210 \203!\310 !\204$\fb\210\311\305!!+\207" [tla-inventory-cookie elem x file pos ewoc-locate ewoc-data tla-inventory-display tla-inventory-goto-file tla-inventory-cursor-goto] 4 (#$ . 22283)]) #@146 Set all tla-inventory-display-* variables. If NEW-VALUE is 'toggle set the values to (not tla-inventory-display-* Otherwise set it to NEW-VALUE. (defalias 'tla-inventory-set-toggle-variables #[(new-value) "\304\211\203+\n@\305\306 \211A@)\307\310\311 \211A@)D\312BBBE!\210\nA\211\204*\304\207" [tla-inventory-file-types-manipulators type-arg #1=#:--cl-dolist-temp-- x nil eval setq if (eq new-value 'toggle) not (new-value)] 8 (#$ . 22596)]) #@42 Set all inventory toggle variables to t. (defalias 'tla-inventory-set-all-toggle-variables #[nil "\300\301!\210\302 \207" [tla-inventory-set-toggle-variables t tla-inventory-redisplay] 2 (#$ . 23054) nil]) #@44 Set all inventory toggle variables to nil. (defalias 'tla-inventory-reset-all-toggle-variables #[nil "\300\301!\210\302 \207" [tla-inventory-set-toggle-variables nil tla-inventory-redisplay] 2 (#$ . 23266) nil]) #@53 Toggle the value of all inventory toggle variables. (defalias 'tla-inventory-toggle-all-toggle-variables #[nil "\300\301!\210\302 \207" [tla-inventory-set-toggle-variables toggle tla-inventory-redisplay] 2 (#$ . 23484) nil]) #@48 Goto inventory buffer, or run `tla-inventory'. (defalias 'tla-inventory-goto #[(&optional directory arg) "\206 \305\n\306 #\211\203 \f\203\307 !\202$\310 !\202$\311\f\"*\207" [directory default-directory tla-arch-branch buffer arg dvc-get-buffer inventory pop-to-buffer switch-to-buffer tla-inventory] 5 (#$ . 23715) (list (tla--read-directory-maybe "Run inventory in (directory): ") current-prefix-arg)]) #@207 Show a tla inventory at DIRECTORY. When called with a prefix arg, pop to the inventory buffer. DIRECTORY defaults to the current one when within an arch managed tree, unless prefix argument ARG is non-nil. (defalias 'tla-inventory #[(&optional directory arg) "\206 \n\203\305\306 \307 #!\210\202\310\306 \307 #!\210)\311 \210\312\313\314\315\316\317\320\321\322\323 \2054\f\2054\324\257 \325\326#\207" [directory default-directory arg tla-arch-branch tla-non-recursive-inventory pop-to-buffer dvc-get-buffer-create inventory switch-to-buffer tla-inventory-mode tla--run-tla-sync "inventory" "--both" "--kind" "--source" "--backups" "--junk" "--unrecognized" "--precious" tla-inventory-has-no-recursion-option "--no-recursion" :finished #[(output error status arguments) "\304\305!\306\"\307\310\311\n\"\210\312 !\313\303!\210 \314 *\207" [output inventory-list list tla-inventory-list split-string dvc-buffer-content "\n" nil mapc #[(item) "\306\307\"\205-\310\311\312\"!\311\313\"\314\230\311\315\"\310\311\316\"!\211 \317\n! F B\211,\207" [item type escaped-filename question tla-type inventory-list string-match "\\([A-Z]\\)\\([\\? ]\\) +\\([^ ]\\) \\(.*\\)" string-to-char match-string 1 2 "?" 4 3 tla-unescape] 8] reverse make-local-variable tla-inventory-display] 3]] 10 (#$ . 24139) (list (tla--read-directory-maybe "Run inventory in (directory): ") current-prefix-arg)]) #@126 Display the inventory. This function creates the ewoc from the variable `tla-inventory-list', selecting only files to print. (defalias 'tla-inventory-display #[nil "\306\211\307 \210\310\302!\210\311\312\313!!\314 \210 \306\211\203S @\211@\315\f8\316\317\"\211A@)!\203K\235\203FB\320\n\f\"\210* A\211\204+eb\207" [dvc-buffer-marked-file-list buffer-read-only tla-inventory-cookie tla-inventory-list elem #1=#:--cl-dolist-temp-- nil erase-buffer make-local-variable ewoc-create dvc-ewoc-create-api-select tla-inventory-printer tla-inventory-insert-headers 2 eval assoc ewoc-enter-last file type tla-inventory-file-types-manipulators x dvc-buffer-all-marked-file-list] 6 (#$ . 25551) nil]) #@88 from-type-to-face table used in 'tla--inventory-chose-face' This is for optimization.  (defconst tla--inventory-chose-face-table [nil nil nil nil nil nil nil nil tla-junk nil nil nil nil nil dvc-ignored nil nil dvc-source dvc-nested-tree dvc-unrecognized] (#$ . 26275)) #@62 Return a face adapted to TYPE, which can be J, S, P, T or U. (defalias 'tla--inventory-chose-face #[(type) " \302ZH\207" [tla--inventory-chose-face-table type 66] 3 (#$ . 26551)]) #@61 Ewoc printer for `tla-inventory-cookie'. Pretty print ELEM. (defalias 'tla-inventory-printer #[(elem) "@A@\3068\3078\310 ! &\235\203\"\311'\311Q\202#\312c\210\313\314 \n\2030\315\2021\311# \316\211\211()*+\203\330\317*!,9\205Y\320\313\321\322!\"!-(\203e(\202v)\205v\323)!;\205v\323)!.-\203\223.\203\216.\324\325\324-\260\202\225-\202\225(/9\203\243J\202\245\326\327,G\305 \330 \331\205\300\332\333\334\335/\257)\205\311\336)D\"BBBB,$\210,-\202\332*-\313\337 \f\340=\203\350\341\202\363\f\342=\203\362\343\202\363\344# \3450\316()*+\203\233\317*!,9\205\320\313\321\322!\"!-(\203((\2029)\2059\323)!;\2059\323)!.-\203V.\203Q.\324\325\324-\260\202X-\202X(/9\203fJ\202h\326\327,G\305 \330 \331\205\203\332\333\334\335/\257)\205\214\336)D\"BBBB,$\210,-\202\235*-\261-\207" [elem type question file file-type face 2 3 tla--inventory-chose-face " " " " format "%c%s " "?" nil copy-sequence substitute-command-keys "\\{%s}" symbol-name cadr "\n" "================" add-text-properties 0 font-lock-face append mouse-face highlight keymap help-echo dvc-cmenu "%s%s" 100 "/" 62 "@" "" tla-inventory-item-map dvc-buffer-marked-file-list dvc-mark help menu str dvc-highlight strcpy key-help prefix-help long-help tla-inventory-item-menu] 15 (#$ . 26738)]) #@130 Mark file at point in inventory mode. Adds it to the variable `dvc-buffer-marked-file-list', and move cursor to the next entry. (defalias 'tla-inventory-mark-file #[nil "\303!\304 \305\306 \"\210\305\307 \"\210\310\n\"\210\311\312\n\"\206\n!*\207" [tla-inventory-cookie file current ewoc-locate dvc-get-file-info-at-point add-to-list dvc-buffer-marked-file-list dvc-buffer-all-marked-file-list ewoc-invalidate tla-inventory-cursor-goto ewoc-next] 4 (#$ . 28138) nil]) #@41 Unmark file at point in inventory mode. (defalias 'tla-inventory-unmark-file #[nil "\305!\306 \307 \"\307 \f\"\310\n\"\210\311\312\n\"\206\n!*\207" [tla-inventory-cookie file current dvc-buffer-marked-file-list dvc-buffer-all-marked-file-list ewoc-locate dvc-get-file-info-at-point delete ewoc-invalidate tla-inventory-cursor-goto ewoc-next] 4 (#$ . 28620) nil]) #@37 Unmark all files in inventory mode. (defalias 'tla-inventory-unmark-all #[nil "\304!\305\211\306!\210\307 !)\207" [tla-inventory-cookie current dvc-buffer-marked-file-list dvc-buffer-all-marked-file-list ewoc-locate nil ewoc-refresh tla-inventory-cursor-goto] 3 (#$ . 28999) nil]) #@79 Function called by `tla--generic-select-files'. Must be local to each buffer. (defvar tla-generic-select-files-function nil (#$ . 29291)) #@673 Get the list of files at point, and ask confirmation of the user. This is a generic function calling `tla-generic-select-files-function', defined locally for each tla buffer. The behavior should be the following: Prompt with either MSG-SINGULAR, MSG-PLURAL, MSG-ERR OR MSG-PROMPT. If NO-GROUP is nil and if the cursor is on the beginning of a group, all the files belonging to this message are selected. If some files are marked (i.e. `dvc-buffer-marked-file-list' is non-nil) and IGNORE-MARKED is non-nil, the list of marked files is returned. If NO-PROMPT is non-nil, don't ask for confirmation. If Y-OR-N is non-nil, then this function is used instead of `y-or-n-p'. (defalias 'tla--generic-select-files #[(msg-singular msg-plural msg-err msg-prompt &optional no-group ignore-marked no-prompt y-or-n) "\205 \n \f &\207" [tla-generic-select-files-function msg-singular msg-plural msg-err msg-prompt no-group ignore-marked no-prompt y-or-n] 9 (#$ . 29436)]) #@43 Gets the file at point in inventory mode. (defalias 'tla-inventory-get-file-info-at-point #[nil "\303!\211\205\304 !\211AA)@)\207" [tla-inventory-cookie cookie x ewoc-locate ewoc-data] 3 (#$ . 30414)]) #@62 Insert the header (top of buffer) for *{tla|baz}-inventory*. (defalias 'tla-inventory-insert-headers #[nil "\306\307\310\311\"!\312\310!\313\314G\nG\\\315GG\\]\316G G\\]\317\"\320\310\211\21145\203\265\3214!6 9\205B\322\323\324\325 !\"!7 \203L \202Z\f\205Z\326\f!;\205Z\326\f!87\203w8\203r8\327\330\3277\260\202x7\202x 9 9\203\204 J\202\205 \331\3326G\333\334\335 \205\237\336\337\305 \3409\257\f\205\246\341\fD\"BBBB6$\2106-\202\2674-:\342;\314\n\343\344 \345)'\346\347J\350\351J#\210\346\347J\352\351J#\210\346\347J\353\351J#\210\347J*\310\35445\203v\3214!6 9\205\322\323\324\325 !\"!7 \203  \202\f\205\326\f!;\205\326\f!87\20388\20338\327\330\3277\260\20297\2029 9 9\203E J\202F \331\3326G\333\334\335 \205`\336\337\305 \3409\257\f\205g\341\fD\"BBBB6$\2106-\202x4-\327\315\355\356\357\360\361\"\31045\203\3214!6 9\205\242\322\323\324\325 !\"!7 \203\254 \202\272\f\205\272\326\f!;\205\272\326\f!87\203\3278\203\3228\327\330\3277\260\202\3307\202\330 9 9\203\344 J\202\345 \331\3326G\333\334\335 \205\377\336\337\305 \3409\257\f\205\341\fD\"BBBB6$\2106-\2024-\327\316 \362\363<\31045\203\262\3214!6 9\205?\322\323\324\325 !\"!7 \203I \202W\f\205W\326\f!;\205W\326\f!87\203t8\203o8\327\330\3277\260\202u7\202u 9 9\203\201 J\202\202 \331\3326G\333\334\335 \205\234\336\337\305 \3409\257\f\205\243\341\fD\"BBBB6$\2106-\202\2644-\327:\327\260 \327:P#+\207" [tree-version tagging-method default-directory help menu keymap tla--name-construct tla-tree-version-list nil no-error tla-id-tagging-method make-string "Directory: " "Default Tree Version: " "ID Tagging Method: " 32 dvc-separator copy-sequence substitute-command-keys format "\\{%s}" symbol-name cadr "\n" "================" add-text-properties 0 face font-lock-face append mouse-face highlight help-echo dvc-cmenu ewoc-set-hf dvc-local-directory make-sparse-keymap #[nil "\301!\207" [default-directory dired] 2 nil nil] define-key #1=#:--cl-map-- [return] #2=#:--cl-func-- " " [mouse-2] "Run Dired Here" tla-archive-name tla-inventory-default-version-map tla--partner-create-menu tla-generic-set-tree-version "Change the Default Tree Version" tla-tagging-method tla-inventory-tagging-method-map str dvc-highlight strcpy key-help prefix-help long-help separator tla-inventory-cookie tla-inventory-tagging-method-menu] 23 (#$ . 30627)]) #@41 Buffer from where a command was called. (defvar tla-buffer-source-buffer nil (#$ . 33119)) #@191 Delete the temporary file list in the current buffer. Return t if something was actually deleted, nil otherwise. Raise an error if the file list was not found, unless NOERROR is specified. (defalias 'tla-edit-log-delete-file-list #[(&optional noerror) "\212eb\210\301\302\302Qd\303#\205.\304\224Td|\210db\210\305 \210\306 \210\307y\210\310\311!\203-\312\210\313 \210\303)\207" [dvc-log-edit-file-list-marker search-forward "\n" t 0 delete-blank-lines beginning-of-line -1 looking-at "Keywords:" nil newline] 4 (#$ . 33217)]) #@158 Return the list of modified files in a changes buffer. Return 'dont-know if the list can't be computed easily. The result is based on `dvc-fileinfo-ewoc'. (defalias 'tla-changes-file-list #[nil "\203\302\303\304\"\210 )\207\305\207" [dvc-fileinfo-ewoc res nil ewoc-map #[(fi) "\304H >\204\f\305\306!\210\307H\211@\310=\205!\n\211A@) B\211)\207" [fi cl-struct-dvc-fileinfo-legacy-tags x res 0 error "dvc-fileinfo-legacy-data accessing a non-dvc-fileinfo-legacy" 1 file] 3] dont-know] 3 (#$ . 33754)]) #@301 Edit the tla log file. With an optional prefix argument INSERT-CHANGELOG, insert the last group of entries from the ChangeLog file. SOURCE-BUFFER, if non-nil, is the buffer from which the function was called. It is used to get the list of marked files, and potentially run a selected file commit. (defalias 'tla-edit-log #[(&optional insert-changelog source-buffer other-frame) "\206\306 \307\"\206\306 \310\"\311 \312 \313\314 !!\210\f\203Ldb\210\314\315 !\316 !\210)\317\320\321\322#\203<\323 \323\324!|\210\317\320\321\322#\203I\323 d|\210eb\210\212\325!\203brq\210)\206^\326 )\202c\327\330\322!*\211+\327=\203u*\203\331db\210\212\331y\210\332\333!?\206\222\331y\210\332\334!\206\222\331y\210\332\334!)\203\234\335c\210\202x,\335\261\210+\204\255\336c\210\202\323\337c\210+\327=\203\275\340c\210\202\323+\203\323\341+@\335\261\210+A\211+\204\302\342c\210\343c\210+\344 \210\345\346!\210&eb\210\347\322!\210\321-\332\350!\206\370\323 `\232?\205-`\232?\205\347\322!\210`-\202\356)\207" [source-buffer tla-arch-branch tla-pre-commit-window-configuration tla-log-edit-file-name insert-changelog buf dvc-get-buffer diff status current-window-configuration tla-make-log dvc-switch-to-buffer find-file-noselect find-change-log insert-buffer-substring re-search-forward "^2" nil t line-beginning-position 3 buffer-live-p tla-changes-file-list dont-know tla-edit-log-delete-file-list -1 looking-at "[ ]*\n" "[a-zA-Z]*:" "\n" "No modified files.\n" "Files to commit:\n" " \n" " " "\nThis list might be incomplete or outdated if editing the log" "\nmessage was not invoked from an up-to-date changes buffer!" tla-log-edit-mode make-local-variable tla-buffer-source-buffer tla-log-edit-next-field "$" dvc-buffer-marked-file-list deleted file-list dvc-log-edit-file-list-marker previous-point] 5 (#$ . 34275) "P"]) #@25 List of modified files. (defvar tla--changes-file-list nil (#$ . 36212)) #@63 Same as `ewoc-collect', but returns the list of ewoc element. (defalias 'tla--ewoc-collect-elem #[(ewoc predicate &rest args) "\211\306H\n>\204\307\310!\210 \311H\306H\n>\204\307\312!\210\313H\314 \315\"\316r \306H\n>\2047\307\317!\210 \320Hq\210 \f=\204]\321 \322H#\203T B\323 \"\211\202=\237.\207" [ewoc #1=#:ewoc cl-struct-ewoc-tags dll header node 0 error "ewoc--dll accessing a non-ewoc" 5 "ewoc--header accessing a non-ewoc" 3 ewoc--node-nth -2 nil "ewoc--buffer accessing a non-ewoc" 1 apply 2 ewoc--node-prev result predicate args] 5 (#$ . 36291)]) #@55 Finds the messages "searching subtree" from the ewoc. (defalias 'tla--changes-find-subtree-message #[nil "\205\301\302\"\207" [dvc-fileinfo-ewoc tla--ewoc-collect-elem #[(fi) "\303H >\204\f\304\305!\210\306H\211@)\307=\207" [fi cl-struct-dvc-fileinfo-legacy-tags elem 0 error "dvc-fileinfo-legacy-data accessing a non-dvc-fileinfo-legacy" 1 searching-subtrees] 3]] 3 (#$ . 36884)]) #@66 Wether the current buffer display only a summary or a full diff. (defvar tla--changes-summary nil (#$ . 37280)) #@56 Master buffer for a nested *{tla|baz}-changes* buffer. (defvar tla--changes-buffer-master-buffer nil (#$ . 37398)) #@66 Wether the current buffer display only a summary or a full diff. (defvar tla--changes-summary nil (#$ . 37519)) #@61 "tla changes" or "baz diff" depending on `tla-arch-branch'. (defalias 'tla--changes-command #[nil "\301=\203\302\207\303\207" [tla-arch-branch tla "tla changes" "baz diff"] 2 (#$ . 37637)]) #@49 Go to the changes buffer, or run `tla-changes'. (defalias 'tla-changes-goto #[(&optional summary) "\305\306\307\310 \"!\211\311\n\312#\211\203\313 !\202\314\f!+\207" [root default-directory tla-arch-branch buffer summary dvc-read-project-tree-maybe format "Run %s in: " tla--changes-command dvc-get-buffer diff dvc-switch-to-buffer tla-changes] 5 (#$ . 37836) "P"]) (defalias 'tla-recursive-command '(macro . #[(function-to-define args command prepare-buffer recursive expression &optional expression-rec) "\306 \307\310\n\"\311\312\313\314\307\315\nEDD\316\317 DE\320\317\321\322\323\324\325\326\327\330\331\n\332BBBEEE\333\f\334BB\335BBBBB\336\337 \333\f\340\341\342\317\343\344\345\322\346\320\347\322\350\351\352\322\353\354\355/\206R \257E\356BBBEEE\257E\257\257\207" [function-to-define args command prepare-buffer recursive expression defun format "Run \"tla %s\".\n\nWhen called without a prefix argument: show the detailed diffs also.\nWhen called with a prefix argument SUMMARY: do not show detailed\ndiffs. When AGAINST is non-nil, use it as comparison tree." (interactive "P") let* root dvc-read-project-tree-maybe "Run %s in: " (default-directory root) buffer with-current-buffer (make-local-variable 'tla--changes-summary) let ((inhibit-read-only t)) ewoc-enter-first dvc-fileinfo-ewoc make-dvc-fileinfo-message :text concat "* running " (" in tree " root "...\n\n") when ((ewoc-enter-last dvc-fileinfo-ewoc (make-dvc-fileinfo-legacy :data (list 'searching-subtrees)))) ((ewoc-refresh dvc-fileinfo-ewoc)) (when dvc-switch-to-buffer-first (dvc-switch-to-buffer buffer)) (dvc-save-some-buffers) tla--run-tla-async '("inventory" "--nested" "--trees") :related-buffer :finished dvc-capturing-lambda (output error status arguments) ((subtrees (delete "" (split-string (with-current-buffer output (buffer-string)) "\n")))) (capture buffer) ((subtree-message (car (tla--changes-find-subtree-message)))) dolist (subtree subtrees) ((buffer-sub (dvc-get-buffer-create tla-arch-branch 'diff subtree))) (with-current-buffer buffer-sub (dvc-save-some-buffers) (let ((inhibit-read-only t)) (erase-buffer)) (dvc-diff-mode) (set (make-local-variable 'tla--changes-buffer-master-buffer) (capture buffer))) (ewoc-enter-after dvc-fileinfo-ewoc subtree-message (make-dvc-fileinfo-legacy :data (list 'subtree buffer-sub subtree nil))) ((dvc-ewoc-delete dvc-fileinfo-ewoc subtree-message)) expression-rec] 33])) #@229 Run "tla (tla--changes-command)". When called without a prefix argument: show the detailed diffs also. When called with a prefix argument SUMMARY: do not show detailed diffs. When AGAINST is non-nil, use it as comparison tree. (defalias 'tla-changes-rec #[(&optional summary against) "\306\307\310\311 \"!\211\312\n\206 \313\314BBD\315\316DD\317 %r\fq\210\320\321!\210\322\323/\324\325\326\311 \327\330\260\"\"\210)0\203J\331/\332\333\334C\"\"\210\335/!\210)1\203Y\336\f!\210\337 \2102\3402?\n\f\341%\2100\205\206\342\343\344\f\345\346\347\350\351\352\353\354\355\3562\fDD\257E%+\207" [root default-directory against tla-arch-branch buffer inhibit-read-only dvc-read-project-tree-maybe format "Run %s in: " tla--changes-command dvc-prepare-changes-buffer last-revision (1) tla local-tree diff make-local-variable tla--changes-summary t ewoc-enter-first make-dvc-fileinfo-message :text "* running " " in tree " "...\n\n" ewoc-enter-last vector cl-struct-dvc-fileinfo-legacy searching-subtrees ewoc-refresh dvc-switch-to-buffer dvc-save-some-buffers tla--changes-internal nil tla--run-tla-async ("inventory" "--nested" "--trees") :related-buffer :finished lambda (output error status arguments) apply #[(output error status arguments #1=#:dvc-gensym-uniq-51 #2=#:dvc-gensym-uniq-50) "\306\307\310rq\210\311 )\312\"\"r\nq\210\313 @ \314\211\203i @\315\316\f#rq\210\317 \210\320\321 \210)\322 \210\323\324!\210\n)\325 \326\327\304\f\314F\"#\210\330?\314\f\n%\210) A\211\204*\331 \"+\207" [output subtrees #2# subtree-message subtree #3=#:--cl-dolist-temp-- delete "" split-string buffer-string "\n" tla--changes-find-subtree-message nil dvc-get-buffer-create diff dvc-save-some-buffers t erase-buffer dvc-diff-mode make-local-variable tla--changes-buffer-master-buffer ewoc-enter-after vector cl-struct-dvc-fileinfo-legacy tla--changes-internal dvc-ewoc-delete tla-arch-branch buffer-sub inhibit-read-only dvc-fileinfo-ewoc #1# tla--changes-summary] 10] output error status arguments quote dvc-fileinfo-ewoc tla-changes-recursive dvc-switch-to-buffer-first summary] 17 (#$ . 40262) "P"]) #@272 Run "tla changes". When called without a prefix argument: show the detailed diffs also. When called with a prefix argument SUMMARY: do not show detailed diffs. When AGAINST is non-nil, use it as comparison tree. DONT-SWITCH is necessary for DVC, but currently ignored. (defalias 'tla-changes #[(&optional summary against dont-switch) "\302 \"\207" [summary against tla-changes-rec] 3 (#$ . 42415) "P"]) (defalias 'tla--update-command #[nil "\301=\203\302\207\303=\203\304 \203\305\207\306\207\307=\205\310\207" [tla-update-strategy update "update" merge tla-has-merge-command "merge" "star-merge" replay "replay"] 2]) #@111 Returns "--three-way", "--two-way", or nil. Value is chosen depending on user configuration and arch branch. (defalias 'tla--three-way-merge-option #[nil "\203\f\301 ?\205\302\207\301 \205\303\207" [tla-three-way-merge tla-merge-has-two-way-option "--three-way" "--two-way"] 1 (#$ . 43054)]) #@101 Returns "--show-ancestor" or nil. Value is chosen depending on user configuration and arch branch. (defalias 'tla--show-ancestor-option #[nil "\205\n\301 \205\n\302\207" [tla-show-ancestor tla-merge-has-show-ancestor-option "--show-ancestor"] 1 (#$ . 43360)]) (defalias 'tla--update-internal #[(root buffer master-buffer handle) "r\206pq\210\305\306 \307=\205\310 \307=\205\311 E\312\313\314\315\316\317\320\321\322\323\n \fFD\257E\324\325%)\207" [buffer tla-update-strategy handle root master-buffer tla--run-tla-async tla--update-command merge tla--three-way-merge-option tla--show-ancestor-option :finished lambda (output error status arguments) apply #[(output error status arguments #1=#:dvc-gensym-uniq-55 #2=#:dvc-gensym-uniq-54 #3=#:dvc-gensym-uniq-53 #4=#:dvc-gensym-uniq-52) "rq\210eb\210\306\307\310\311#)?r\n\206 q\210\312\313\f\"\210*\314\315 #\210\316\317\320 \"\210\321 !\210\2055 \207" [output modifs #4# #3# dvc-fileinfo-ewoc #2# re-search-forward "^\\* \\(tree is already up to date\\|skipping (empty delta)\\)" nil t ewoc-map #[(fi) "\305H >\204\f\306\307!\210\310H\211@\311=\2053\n\211A@) =\2053\n\211AA)A\f\2031\312\2022\313\240)\207" [fi cl-struct-dvc-fileinfo-legacy-tags x #3# modifs 0 error "dvc-fileinfo-legacy-data accessing a non-dvc-fileinfo-legacy" 1 subtree updated no-changes] 3] dvc-show-changes-buffer tla--parse-other message "`%s update' finished" tla--executable dvc-revert-some-buffers #1#] 4] output error status arguments quote :error #[(output error status arguments) "\301!\210\302 \207" [error dvc-show-error-buffer dvc-show-last-process-buffer] 2]] 16]) #@228 Run "tla (tla--update-command)". When called without a prefix argument: show the detailed diffs also. When called with a prefix argument SUMMARY: do not show detailed diffs. When AGAINST is non-nil, use it as comparison tree. (defalias 'tla-update-rec #[(tree &optional handle recursive) "\306\307\310\311 \"!\211\312\n\313 DD\n\314 DD\315 \n%r q\210\316\317!\210\320\321 \322\323\324\311 \325\326\260\"\"\210)-\203B\327 \330\331\332C\"\"\210\333 !\210).\203P\334 !\210\335 \210\336 \337/$\210-\205w\340\341\342 \343\344\345\346\347\350\351\352\353\354/ DD\257E%+\207" [root default-directory tla-arch-branch buffer inhibit-read-only dvc-fileinfo-ewoc dvc-read-project-tree-maybe format "Run %s in: " tla--update-command dvc-prepare-changes-buffer last-revision local-tree diff make-local-variable tla--changes-summary t ewoc-enter-first make-dvc-fileinfo-message :text "* running " " in tree " "...\n\n" ewoc-enter-last vector cl-struct-dvc-fileinfo-legacy searching-subtrees ewoc-refresh dvc-switch-to-buffer dvc-save-some-buffers tla--update-internal nil tla--run-tla-async ("inventory" "--nested" "--trees") :related-buffer :finished lambda (output error status arguments) apply #[(output error status arguments #1=#:dvc-gensym-uniq-57 #2=#:dvc-gensym-uniq-56) "\306\307\310rq\210\311 )\312\"\"r\nq\210\313 @ \314\211\203c @\315\316\f#rq\210\317 \210\320\321 \210)\322 \210\323\324!\210\n)\325 \326\327\304\f\314F\"#\210\330\f\n$\210) A\211\204*\331 \"+\207" [output subtrees #2# subtree-message subtree #3=#:--cl-dolist-temp-- delete "" split-string buffer-string "\n" tla--changes-find-subtree-message nil dvc-get-buffer-create diff dvc-save-some-buffers t erase-buffer dvc-diff-mode make-local-variable tla--changes-buffer-master-buffer ewoc-enter-after vector cl-struct-dvc-fileinfo-legacy tla--update-internal dvc-ewoc-delete tla-arch-branch buffer-sub inhibit-read-only dvc-fileinfo-ewoc #1#] 10] output error status arguments quote tla-update-recursive dvc-switch-to-buffer-first handle] 17 (#$ . 45001) "P"]) #@143 Run tla update in TREE. Also runs update recursively for subdirectories. After running update, execute HANDLE (function taking no argument). (defalias 'tla-update #[(tree &optional handle recursive) "\303 \n#\207" [tree handle recursive tla-update-rec] 4 (#$ . 47076) (list (expand-file-name (tla--read-directory-maybe "Update tree: ")))]) #@118 Wrapper for `tla-changes'. When called interactively, SUMMARY is the prefix arg, and AGAINST is read from the user. (defalias 'tla-changes-against #[(&optional summary against) "\302 \"\207" [summary against tla-changes] 3 (#$ . 47425) (list current-prefix-arg `(,tla-arch-branch (revision ,(tla-name-read "Compute changes against: " 'prompt 'prompt 'prompt 'prompt 'maybe))))]) #@220 Run `tla-changes' against the last but one revision. The idea is that running this command just after a commit should be equivalent to running `tla-changes' just before the commit. SUMMARY is passed to `tla-changes'. (defalias 'tla-changes-last-revision #[(&optional summary) "\303\304!\305 \n\306\307 DD\")\207" [default-directory summary tla-arch-branch dvc-read-project-tree-maybe "Review last patch in directory: " tla-changes revision tla-revision-direct-ancestor] 5 (#$ . 47813) "P"]) #@507 Internal function to run "tla changes". If DIFFS is non nil, show the detailed diffs also. Run the command against tree AGAINST in directory ROOT. The output will be displayed in buffer BUFFER. BUFFER must already be in changes mode, but mustn't contain any change information. Only roots of subprojects are already in the ewoc. If MASTER-BUFFER is non-nil, this run of tla changes is done in a nested project of a bigger one. MASTER-BUFFER is the buffer in which the root of the projects is displayed. (defalias 'tla--changes-internal #[(diffs against root buffer master-buffer) "rq\210\306\307 \310 !#\210\311\n\312=\203\313\202\314\n\312=\205# \205#\315\316\n\317=\2055 \2055\f\2055\320\fD\321 !\211\322=\203E\323\324!\202\216 \325=\203S\326\310 !!\202\216 \327=\203p\330\310 !@!\330\331 !\230?\205\216\323\332\333\334#\202\216 \335=\203\336\310 !@!\202\216 \205\216\337\340 \"\210\341\342!\210\343 )C\"BB\344\345\346\347\350\351\323\352\353\354\f0ED\257E\355\345\356\347\357\351\323\352\353\3540 \f\257D\257E%)\207" [buffer against tla-arch-branch diffs root #1=#:--cl-var-- dvc-trace "against=%S, (dvc-revision-get-data against)=%S" dvc-revision-get-data tla--run-tla-async tla "changes" "diff" "--diffs" append baz "--dir" dvc-revision-get-type local-tree error "Can not run tla changes or baz diff against a local tree" previous-revision tla-revision-direct-ancestor last-revision dvc-uniquify-file-name tla-tree-root "Tla changes against last %s %s" "revision of local tree not" "implemented." revision tla--name-construct message "WRONG REVISION: %S" sit-for 1 debug :finished lambda (output error status arguments) apply #[(output error status arguments #2=#:dvc-gensym-uniq-60 #3=#:dvc-gensym-uniq-59 #4=#:dvc-gensym-uniq-58) "\203\f\305\306 \"\210\202\305\307 \"\210r\nq\210\310\311 \210\312\f\313\314\315 \316Q\"\"\210\2033rq\210\317\320\f\"\210)\321\f!*\207" [#4# #3# #2# inhibit-read-only dvc-fileinfo-ewoc message "No changes in subtree %s" "No changes in %s" t dvc-fileinfo-delete-messages ewoc-enter-last vector cl-struct-dvc-fileinfo-message "* No changes in " ".\n\n" ewoc-map #[(fi) "\304H >\204\f\305\306!\210\307H\211@\310=\205+\n\211A@) =\205+\n\211AA)A\311\240)\207" [fi cl-struct-dvc-fileinfo-legacy-tags x #2# 0 error #5="dvc-fileinfo-legacy-data accessing a non-dvc-fileinfo-legacy" 1 subtree no-changes] 3] ewoc-refresh] 7] output status arguments quote :error (output error status arguments) #[(output error status arguments #6=#:dvc-gensym-uniq-65 #7=#:dvc-gensym-uniq-64 #8=#:dvc-gensym-uniq-63 #9=#:dvc-gensym-uniq-62 #10=#:dvc-gensym-uniq-61) "\306U\204rr q\210eb\210\307\310\311\312#)\211\203N\313\314!\210\315\213\210\316 \317\f#\211\205J\320 !\210\321\322!\210\323\311\324%&\f'(\257\320\316\303\325\fFDF\211)\202pr'q\210\326 \210\327)\330\331\332\333*!\333 !Q\"\"\210\334)!\210\313\335!))\207\336* \337=\203\340\202\200\341'(\342%\210(\205\227r(q\210\343\344)\")\207" [status error lint-pb tla-arch-branch #10# buffer 1 re-search-forward "(try \\(tree-lint\\|status --lint\\))" nil t message "Tree is not lint clean. Running lint" ((tla-tree-lint #10#)) dvc-get-buffer tree-lint switch-to-buffer make-local-variable tla--tree-lint-nowarning-fn lambda tla--changes-internal 'diff dvc-fileinfo-delete-messages ewoc-enter-last make-dvc-fileinfo-message :text "* error in process:\n" dvc-buffer-content ewoc-refresh "Error in diff process" dvc-show-changes-buffer tla tla--parse-other tla--parse-baz-diff "^[^*\\.]" ewoc-map #[(fi) "\304H >\204\f\305\306!\210\307H\211@\310=\205+\n\211A@) =\205+\n\211AA)A\311\240)\207" [fi cl-struct-dvc-fileinfo-legacy-tags x #7# 0 error #5# 1 subtree changes] 3] #9# #8# #7# #6# dvc-fileinfo-ewoc output] 9] master-buffer] 20 (#$ . 48314)]) #@67 Internal variable used to parse the output of tla show-changeset. (defconst tla-verbose-format-spec '(("added files" "A" " ") ("modified files" "M" " ") ("removed files" "D" " ")) (#$ . 52115)) (defalias 'tla--parse-show-changeset #[(changes-buffer) "eb\210\306\307\310\311\312\"!\313Q\314\315#\203\270\316\317\320!\"\211\211A@) \211AA)@ \321\230\203S\306\322\314\315#\203\264\317\320!rq\210\323\324\325\305\326 ! \fF\"\"\210*\202/\327\330!\203_\320y\210\202S\327\331!\203\205\317\320!rq\210\323\324\325\305\326 ! \fF\"\"\210)\320y\210)\202_\327\332!\203\264\317\320!rq\210\323\324\325\305\326 ! \fF\"\"\210)\320y\210\306\333\314\315#\210\334 \210)\202\205+\202eb\210\306\335\314\315#\210\334 \207" [tla-verbose-format-spec elem x modif dir file re-search-forward "^\\* \\(" regexp-opt mapcar car "\\)\n" nil t assoc match-string 1 "M" "^--- orig/\\(.*\\)$" ewoc-enter-last make-dvc-fileinfo-legacy :data tla-unescape looking-at "^$" "^ +\\([^ ].*\\)$" "^--- /dev/null\n\\+\\+\\+ mod/\\(.*\\)$" "^\\(---\\|$\\|\\*\\)" beginning-of-line "^---" changes-buffer dvc-fileinfo-ewoc] 9]) (byte-code "\301B\302\303!\207" [current-load-list tla--files-conflicted-regexp (lambda (#1=#:defconst-tmp-var) (defconst tla--files-conflicted-regexp #1#)) "^\\* The following.*files are conflicted:"] 2) #@86 Called from the output buffer of "baz status". CHANGES-BUFFER is the target buffer. (defalias 'tla--parse-baz-status #[(changes-buffer) "eb\210\306\307\310\311#\210\312 \210\313\310\311#\204l\314\315!\203l\316\317!\316\320!\316\321!\316\322!\323\f!\323 ! \203B )rq\210\324 \325\326\327 \n\330!\203\\\331\202]\332 \257\"\"\210)\320y\210.\202\212eb\210\306\310\311#\205\264\306\333\310\311#\210\312 \210\314\334!\205\264\316\320!rq\210\324 \325\326\327\335\332\330!\203\246\331\202\247\332\257\"\"\210)\320y\210)\202\201)\207" [tla--files-conflicted-regexp origname-es modif status file-es origname re-search-forward "^[^*\\.]" nil t beginning-of-line re-search-backward looking-at "\\([CRADP\\? ]\\)\\(.\\) *\\([^ \n ]*\\)\\( => \\([^ \n ]*\\)\\)?$" match-string-no-properties 3 1 2 5 tla-unescape ewoc-enter-last vector cl-struct-dvc-fileinfo-legacy file file-directory-p "/" " " "[^ \n ]" "[ ]*\\([^ \n]+\\)$" "C" tmp changes-buffer dvc-fileinfo-ewoc] 10 (#$ . 53443)]) #@49 Parses, for example, the output of tla-changes. (defalias 'tla--parse-other #[(changes-buffer) "\306 \210\307f\310=\204\307f\311=\204\312\313!\204\312\314!\205E\312\313!\2041\307f\310=\2041\307f\311=\203G\315`\316 \"r q\210\317\n\320\321\"\"\210*\202?\322\323!\322\324!\322\325!\322\326!\322\327!(&(\330\230\203l \330\230\203l\f \331\230\204z \332\230\204z\332 \333\230\203\202\332(\332)*(\334\230\203\226\334*\202 (\335\230\203\246\335)\332*\202 (\336\230\203\266\336)\332*\202 (\337\230\203\316 \340\230\203\316\332*\341)\332\202 (\331\230\203\346 \340\230\203\346\332*\341)\331\202 (\330\230\203\366\342)\332*\202 (\343\230\203  \334\230\203 \343)\332*r q\210 \203*\317\n\344\345\346\347 !)* \347&!\257\"\"\210\202=\317\n\344\345\346\347&!)* \257\"\"\210.\324y\210\202\207" [msg changes-buffer dvc-fileinfo-ewoc newname maybedir dir beginning-of-line nil 42 46 looking-at "Searching for best merge" "^\\([^=]\\|=[A-Z>]\\)\\([ /Abfl>M-]?\\)\\(/?\\) +\\([^ \n]*\\)\\( \\(.*\\)\\)?$" buffer-substring-no-properties line-end-position ewoc-enter-last vector cl-struct-dvc-fileinfo-message match-string 4 1 2 3 6 "-" "/" " " "b" "M" "A" "D" "=" ">" "R" "P" "?" make-dvc-fileinfo-legacy :data file tla-unescape modif baz-status baz-modif] 11 (#$ . 54472)]) (defalias 'tla--parse-baz-diff #[(changes-buffer) "\306\307!\203\n\310!\207\212\311\312\313\314#\205g\315\316!\315\317! \n\230?\315\320!\321\230?\322\323\n \f%\210rq\210\324 \325\326\327\n\f\203A\330\202J \203I\331\202J\332\f\203R\332\202S\333\332 \205^\f?\205^ \257\"\"\210-\202 )\207" [changes-buffer origname newname renamed added dvc-fileinfo-ewoc looking-at "^[^\\*]" tla--parse-other re-search-forward "^--- \\(orig/\\)?\\([^\n]*\\)\n\\+\\+\\+ mod/\\([^\n]*\\)$" nil t match-string-no-properties 2 3 1 "orig/" dvc-trace "entering file %S in ewoc (orig=%S, renamed=%S, added=%S)" ewoc-enter-last make-dvc-fileinfo-legacy :data file "A" "R" " " "M"] 10]) #@132 Run "tla changes -o" to create a changeset. When tla has a diff command, use "baz diff -o". The changeset is stored in DIRECTORY. (defalias 'tla-changes-save #[(directory) "\301\302 \203\n\303\202 \304\305E\306\307\310\311\312\313\314\315\316\317\320\321CD\257E%\207" [directory tla--run-tla-sync tla-has-diff-command "diff" "changes" "-o" :finished #[(output error status arguments) "\300\301!\207" [dvc-trace "tla-changes-save: 0"] 2] :error lambda (output error status arguments) apply #[(output error status arguments #1=#:dvc-gensym-uniq-66) "\305=\203 \306\307 \"\207\310\n \f$\207" [status #1# output error arguments 1 message "tla-changes-save to %s finished" dvc-default-error-function] 5] output error status arguments quote] 15 (#$ . 56491) "FDirectory to store the changeset: "]) #@105 Run "tla changes -o" to create .tar.gz file. The changeset is stored in the tarball 'FILE-NAME.tar.gz'. (defalias 'tla-changes-save-as-tgz #[(file-name) "\303!\211\304P\305 !\203\306\307 \"\210\310\n!\203\306\311\n\"\210\312 !\210\313 \n\"*\207" [file-name changeset-dir tgz-file-name expand-file-name ".tar.gz" file-directory-p error "The changeset directory %s does already exist" file-exists-p "The changeset tarball %s does already exist" tla-changes-save dvc-create-tarball-from-intermediate-directory] 4 (#$ . 57299) "FFile to store the changeset (without .tar.gz extension): "]) #@121 Create a changeset tarball for a given REVISION. FILE-NAME specifies the base name. A '.tar.gz' extension is appended. (defalias 'tla-changeset-save-as-tgz #[(revision file-name) "\304\305!\306!\307P\310 \311\n#\210\312\n \"*\207" [file-name tgz-file-name changeset-dir revision dvc-make-temp-name "tla-changeset" expand-file-name ".tar.gz" tla-get-changeset nil dvc-create-tarball-from-intermediate-directory] 4 (#$ . 57899) (list (tla--name-construct (tla-name-read "Revision: " 'prompt 'prompt 'prompt 'prompt 'prompt)) (read-file-name "File to store the changeset (without .tar.gz extension): "))]) #@226 Run tla delta BASE MODIFIED. If DIRECTORY is a non-empty string, the delta is stored to it. If DIRECTORY is ask, a symbol, ask the name of directory. If DIRECTORY is nil or an empty string, just show the delta using --diffs. (defalias 'tla-delta #[(base modified &optional directory dont-switch) "\306=\203\307\310\311 \312\"\311 \312\"\313\314%\203%;\203%\314\230\203%\313\2034\315!\2034\316\317\"\210\203@\320\n F\202E\320\321\n F\205J\306\322\f\323\324\n!DD\f\323\324 !DD\325 \f%!\"#\203k\326 !\210\327\"\330\331\332\333\334\335\316\336\337\340$ \n !\257D\257E#\210 +\207" [directory default-directory base modified tla-arch-branch buffer ask dvc-read-directory-name "Stored to: " tla-tree-root t nil "" file-directory-p error "%s already exists" "delta" "--diffs" dvc-prepare-changes-buffer revision tla--name-split changeset dvc-switch-to-buffer tla--run-tla-async :finished lambda (output error status arguments) apply #[(output error status arguments #1=#:dvc-gensym-uniq-72 #2=#:dvc-gensym-uniq-71 #3=#:dvc-gensym-uniq-70 #4=#:dvc-gensym-uniq-69 #5=#:dvc-gensym-uniq-68 #6=#:dvc-gensym-uniq-67) "\203 \306 \"\207\307\n \f %\207" [#6# #5# #4# output #3# #2# tla--delta-show-directory tla--delta-show-diff-on-buffer #1#] 6] output status arguments quote run-dired-p args dvc-switch-to-buffer-first dont-switch] 18 (#$ . 58513) (list (tla--name-construct (tla-name-read "Base: " 'prompt 'prompt 'prompt 'prompt 'prompt)) (tla--name-construct (tla-name-read "Modified: " 'prompt 'prompt 'prompt 'prompt 'prompt)) (when current-prefix-arg 'ask))]) #@228 Show the result of "delta -diffs". OUTPUT is the output buffer of the tla process. BASE is the name of the base revision, and MODIFIED is the name of the modified revision, (then command being run is tla delta BASE MODIFIED). (defalias 'tla--delta-show-diff-on-buffer #[(buffer output base modified &optional dont-switch) "rq\210\212db\210\304\305!\210\306 \210\307\310!)\211\203\311\312!\202/\313\314\n#\210 \204,\315\n!\210\311\316!*\207" [output no-changes buffer dont-switch previous-line 1 beginning-of-line looking-at "^* changeset report" message "tla delta finished: No changes in this arch working copy" dvc-show-changes-buffer tla--parse-other dvc-switch-to-buffer "tla delta finished"] 5 (#$ . 60109)]) #@137 Called by `tla-delta' to show a changeset in DIRECTORY. If RUN-DIRED-P is non-nil, run dired in the parent directory of the changeset. (defalias 'tla--delta-show-directory #[(directory run-dired-p) "\302\303\"\210\304\305!\306P \"\205&\307 \210eb\210\310\311\312!!\313P!\210\314\224b\210\315 \207" [directory run-dired-p tla-show-changeset nil tla--do-dired file-name-as-directory ".." revert-buffer re-search-forward regexp-quote file-name-nondirectory "$" 0 dvc-flash-line] 4 (#$ . 60838)]) #@232 Gets the changeset corresponding to REVISION. When JUSTSHOW is non-nil (no prefix arg), just show the diff. Otherwise, store changeset in DESTINATION. If WITHOUT-DIFF is non-nil, don't use the --diff option to show the changeset. (defalias 'tla-get-changeset #[(revision justshow &optional destination without-diff) "\306\307 #\211\203\310 \311\312\313 \"r\314\216\315\n!,\202\231 \206$\316\317!\" ;\2031\320 !\2022 # ;\203= \202@\321 !$\205]\322\323\301#DD\324BBD\301#DD\307 %%\203h&\202i\325&$\203y'\203y\315\n!\210\326\327 \"E\330\331\332\333\334\335\336\337\340\341\n(\"$FD\257E#\210\n-)\207" [tla-arch-branch revision buffer save-selected-window-alist save-selected-window-window destination dvc-get-buffer changeset selected-window mapcar #[(frame) "\301!B\207" [frame frame-selected-window] 3] frame-list ((byte-code "\304\211\203'\n@\305 @!\203 \306 A!\203 \307 @ A\"\210\nA\211\204*\306 !\2032\310 !\210\304\207" [save-selected-window-alist elt #1=#:--cl-dolist-temp-- save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window select-window] 4)) dvc-switch-to-buffer dvc-make-temp-name "tla-changeset" tla--name-split tla--name-construct dvc-prepare-changes-buffer previous-revision (1) show-in-other-window tla--run-tla-async "get-changeset" :finished lambda (output error status arguments) apply #[(output error status arguments #2=#:dvc-gensym-uniq-76 #3=#:dvc-gensym-uniq-75 #4=#:dvc-gensym-uniq-74 #5=#:dvc-gensym-uniq-73) "\205\304 \n #\210\305\306\307\211\211\310 &\207" [#5# #4# #3# #2# tla-show-changeset call-process "rm" nil "-rf"] 7] output error status arguments quote dest rev-list justshow tla-switch-to-changes-buffer dvc-switch-to-buffer-mode dvc-switch-to-buffer-first without-diff] 17 (#$ . 61343) (list (let ((current-version (tla-tree-version nil t))) (tla--name-construct (apply 'tla-name-read "Revision to view: " (if current-version (mapcar (lambda (x) (or x 'prompt)) (tla--name-split current-version)) (list 'prompt 'prompt 'prompt 'prompt 'prompt))))) (not current-prefix-arg))]) #@327 Run tla show-changeset on DIRECTORY. If prefix argument, WITHOUT-DIFF is non-nil, just show the summary. BUFFER is the target buffer to output. If BUFFER is nil, create a new one. BASE and MODIFIED are the name of the base and modified. Their values will be used for the variables `dvc-diff-base' and `dvc-diff-modified'. (defalias 'tla-show-changeset #[(directory &optional without-diff buffer base modified) "\204\306 \n\307 \f% \203\310!\210\311\312?\205\313 E\314\315\316\317\320\321\322\323\324\325 ED\257E#\207" [buffer base modified directory tla-arch-branch dvc-switch-to-buffer-first dvc-prepare-changes-buffer changeset dvc-switch-to-buffer tla--run-tla-sync "show-changeset" "--diffs" :finished lambda (output error status arguments) apply #[(output error status arguments #1=#:dvc-gensym-uniq-79 #2=#:dvc-gensym-uniq-78 #3=#:dvc-gensym-uniq-77) "\304 \203\n\305\202 \306\n $\210\307 \207" [output #3# #2# #1# dvc-show-changes-buffer tla--parse-other tla--parse-show-changeset dvc-post-switch-to-buffer] 5] output error status arguments quote without-diff] 15 (#$ . 63449) (list (let ((changeset-dir (or (dvc-get-file-info-at-point) #4=""))) (unless (file-directory-p (expand-file-name changeset-dir)) (setq changeset-dir #4#)) (dvc-uniquify-file-name (dvc-read-directory-name "Changeset directory to view: " changeset-dir changeset-dir))))]) #@112 Show the archived changeset from a tar.gz FILE. Such a changeset can be created via `tla-changes-save-as-tgz'. (defalias 'tla-show-changeset-from-tgz #[(file) "\303\304!\305\306\307\305\211\211 %\210\306\310\305\211\211\311\n\312 &\210\313\314\313\315\316 !\"\"@\317\320 !P!\210\306\321\305\211\211\322 &*\207" [changeset-dir temp-dir file dvc-make-temp-name "tla-changeset-tgz" nil call-process "mkdir" "tar" "xfz" "-C" delete "." ".." directory-files tla-show-changeset dvc-uniquify-file-name "rm" "-rf"] 9 (#$ . 64832) (list (let ((changeset-tarball (or (dvc-get-file-info-at-point) (and (eq major-mode 'dired-mode) (dired-get-filename)) ""))) (expand-file-name (read-file-name "Changeset tarball to view: " nil changeset-tarball t changeset-tarball))))]) #@179 Call "tla apply-changeset". CHANGESET is the changeset to apply, TARGET is the directory in which to apply the changeset. If REVERSE is non-nil, apply the changeset in reverse. (defalias 'tla-apply-changeset #[(changeset target &optional reverse) "\303!\203 \304!\202\305\306\"\210\303 !\203\304 !\202$\305\306 \"\210\307 !\2044\310\311!\2044\305\312!\210\313 \n#\210\310\314\315 \"!\205F\316 !\207" [changeset target reverse file-directory-p expand-file-name error "%s is not directory" dvc-save-some-buffers y-or-n-p "Apply-change may delete unsaved changes. Continue anyway? " "Not applying" tla--apply-changeset-internal format "Run inventory at `%s'? " tla-inventory] 4 (#$ . 65604) "DChangeset Directory: \nDTarget Directory: \nP"]) #@98 Actually call "tla apply-changeset CHANGESET TARGET". If REVERSE is non-nil, use --reverse too. (defalias 'tla--apply-changeset-internal #[(changeset target reverse) "\306\307\211\310 %\311\312 \205\313\f F\314\315\316\317\320\321\322\323\324\325 \nDD\257E#)\207" [default-directory tla-arch-branch buffer reverse changeset target dvc-prepare-changes-buffer nil diff tla--run-tla-sync "apply-changeset" "--reverse" :finished lambda (output error status arguments) apply #[(output error status arguments #1=#:dvc-gensym-uniq-81 #2=#:dvc-gensym-uniq-80) "\303\304 #\210\305\306!\210\307\n!\207" [output #2# #1# dvc-show-changes-buffer tla--parse-other message "tla apply-changeset finished" dvc-revert-some-buffers] 4] output error status arguments quote] 14 (#$ . 66366)]) #@179 Apply changeset in FILE to TREE. If SHOW-CHANGESET is t: Show the changeset and ask the user, if the patch should be applied. Otherwise apply the changeset without confirmation. (defalias 'tla-apply-changeset-from-tgz #[(file tree show-changeset) "\306!\307\310!\311\312\313\311\211\211\n%\210\312\314\311\211\211\315\316\f!\317\n&\210\320\n!\321\322\321\323\324\n!\"\"@P \2037\325 !\210 \203A\326\327!\203I\330 \"\210\312\331\311\211\211\332\n&+\207" [tree changeset-dir temp-dir target file show-changeset tla-tree-root dvc-make-temp-name "tla-changeset-tgz" nil call-process "mkdir" "tar" "xfz" expand-file-name "-C" dvc-uniquify-file-name delete "." ".." directory-files tla-show-changeset yes-or-no-p "Apply the changeset? " tla-apply-changeset "rm" "-rf" default-directory] 9 (#$ . 67152) "fApply changeset from tarball: \nDApply to tree: "]) #@61 View changes in FILE between BASE and MODIFIED using ediff. (defalias 'tla-file-ediff-against #[(file &optional base) "\302\303!\206\n\304!\305 \"\"\207" [file base dvc-ediff-buffers get-file-buffer find-file-noselect tla-file-get-revision-in-buffer] 5 (#$ . 68021) (let ((version-list (tla-tree-version-list))) (list (buffer-file-name) (list 'revision (tla-name-read "Base revision: " (tla--name-archive version-list) (tla--name-category version-list) (tla--name-branch version-list) (tla--name-version version-list) 'prompt))))]) #@228 Run "tla file-diff" on file FILE. In interactive mode, the file is the current buffer's file. If REVISION is specified, it must be a string representing a revision name, and the file will be diffed according to this revision. (defalias 'tla-file-diff #[(file &optional base modified dont-switch) "\306!\307 \310#p\f\203\311\n!\210\202\nq\210\312\313 \210)\314 \210 \203,\315 !\210\316!\317!!\320\321 \203?\322\202@\323\"E\324\325\326\327\330\331\332\333\334\335\336\337 \nDD\257E%-\207" [file tla-arch-branch buffer orig-buffer dvc-switch-to-buffer-first inhibit-read-only dvc-uniquify-file-name dvc-get-buffer-create file-diff dvc-switch-to-buffer t erase-buffer diff-mode pop-to-buffer tla-tree-root tla-file-name-relative-to-root tla--run-tla-async tla-has-file-diff-command "file-diff" "file-diffs" :finished #[(output error status arguments) "\300\301!\207" [message "No changes in this arch working copy"] 2] :error lambda (output error status arguments) apply #[(output error status arguments #1=#:dvc-gensym-uniq-83 #2=#:dvc-gensym-uniq-82) "\306U\203%r q\210\307\310 \210\311 !\210\312\306!\210*\f\206 ?\205-\313 !\207\314  $\207" [status #2# inhibit-read-only output dvc-switch-to-buffer-first #1# 1 t erase-buffer insert-buffer-substring toggle-read-only dvc-switch-to-buffer dvc-default-error-function error arguments] 5] output error status arguments quote dont-switch default-directory base] 16 (#$ . 68564) (list (buffer-file-name))]) (byte-code "\301B\302\301!\204\303\301\304\"\210\305B\302\305!\204\303\305\306\"\210\301\207" [current-load-list tla-mine-string default-boundp set-default "TREE" tla-his-string "MERGE-SOURCE"] 3) #@162 Command to delete .rej file after conflicts resolution. Asks confirmation if the file still has diff3 markers. If "resolved" command is available, also run it. (defalias 'tla-resolved #[(file) "r\304!q\210\305\301!\203+ \203+\212eb\210\306 )\203$\307\310!\204$\311\312!\210\301\313!\210\202:\307\314\315 \316\317R!\204:\311\312!\210\320 \203N\321!\322\323\324!D\325\326#\210)\327P\330 !\203o\331 !\203d\332\331 !!\210\333 !\210\334\335 \"\202u\311\336\337 \"!*\207" [file smerge-mode default-directory rejfile find-file-noselect boundp smerge-find-conflict y-or-n-p "Buffer still has diff3 markers. Delete .rej file anyway? " error "Not deleting .rej file" -1 "Buffer " buffer-name " is not in in smerge-mode. " "Delete .rej file anyway? " tla-has-resolved-command tla-tree-root tla--run-tla-async "resolved" tla-file-name-relative-to-root :finished dvc-null-handler ".rej" file-exists-p get-file-buffer kill-buffer delete-file message "deleted file %s" format "%s: no such file"] 5 (#$ . 70259) (list (let ((file (buffer-file-name))) (if (string-match "^\\(.*\\)\\.rej$" file) (let ((norej (match-string 1 file))) (if (y-or-n-p (format "Use file %s instead of %s? " (file-name-nondirectory norej) (file-name-nondirectory file))) norej file)) file)))]) (defalias 'tla-conflicts-finish 'tla-resolved) #@478 *** WARNING: semi-deprecated function. Use this function if you like, but M-x smerge-mode RET is actually better for the same task **** Graphical view of conflicts after tla star-merge --three-way. The buffer given as an argument must be the content of a file with conflicts markers like. <<<<<<< TREE my text ======= his text >>>>>>> MERGE-SOURCE Priority is given to your file by default. (This means all conflicts will be rejected if you do nothing). (defalias 'tla-view-conflicts #[(buffer) "\305\306!r q\210\307 \210\310\n!\210eb\210\311\312\313 !\314Q\315\316#\203?\317 \210`\311\320!|\210\311\321\313\f!\314Q!\210\317 \210`\322 T|\210\202)r\nq\210eb\210\311\312\313 !\314Q\315\316#\203r\317 \210`\322 T|\210\311\323!\210\317 \210`\311\321\313\f!\324Q!|\210\202G)\325\n \"*\207" [buffer his-buffer mine-buffer tla-mine-string tla-his-string get-buffer-create "*tla-his*" erase-buffer insert-buffer-substring re-search-forward "^<<<<<<< " regexp-quote "$" nil t beginning-of-line "^=======\n" "^>>>>>>> " line-end-position "^=======$" "\n" dvc-ediff-buffers] 5 (#$ . -71583) (list (find-file (read-file-name "View conflicts in: ")))]) #@256 Get the last-committed version of FILE. If REVISION is non-nil, it must be a cons representing the revision, and this revision will be used as a reference. Return (file temporary). temporary is non-nil when the file is temporary and should be deleted. (defalias 'tla-file-get-revision-in-file #[(file &optional revision) "@\303=\203 \304D\207@\305=\203 \306 \300\307\211A@)!D\"\207\310@\311\"\205+\312\313!\207" [revision file x local-tree nil previous-revision tla-file-get-revision-in-file tla-revision-direct-ancestor memql (last-revision revision) error "tla-file-get-revision-in-file has moved to DVC, use dvc-revision-get-file-in-buffer instead"] 6 (#$ . 72761)]) #@551 Revert the file FILE to the last committed version. Warning: You use version control to keep backups of your files. This function will by definition not keep any backup in the archive. Most of the time, you should not use this function. Call `tla-file-ediff' instead, and undo the changes one by one with the key `b', then save your buffer. As a last chance, `tla-file-revert' keeps a backup of the last-saved in ~ backup file. If REVISION is non-nil, it must be a cons representing the revision, and this revision will be used as a reference. (defalias 'tla-file-revert #[(file &optional revision) "\305!\203\306\307!@\310#\210\311 \203\301 D\202#\312\313\314 \315BBD\"\211\316\317 E\320\321\322\323%\210\324\325\326\"!\204C\327 \210\330\331\"\210\327 \210\332!\333 \210\334 !\210\335 +\207" [file revision file-unmo-temp original buf file-exists-p copy-file find-backup-file-name t dvc-revision-get-file-in-buffer baz last-revision tla-tree-root (1) tla--run-tla-sync "file-diffs" :finished #[(output error status arguments) "\304\305!8\304\305 !8\232\205\306\307\n\211A@)\"\207" [file original arguments x 8 file-attributes error "File %s is not modified!"] 5] :error #[(output error status arguments) "\304U\204 \305 \n $\207\306\307\310\"\207" [status output error arguments 1 dvc-default-error-function dvc-show-last-process-buffer file-diff #[nil "eb\210\304\305\306 \211A@)\"\307\261\210 \203\310 \210)\311 \207" [inhibit-read-only arguments x dvc-highlight t format "M %s\n" "Do you really want to revert ALL the changes listed below?\n" font-lock-fontify-buffer diff-mode] 4]] 5] yes-or-no-p format "Really revert %s? " bury-buffer error "Not reverting file %s!" get-file-buffer erase-buffer insert-buffer-substring save-buffer] 7 (#$ . 73450) (list (progn (when (and (buffer-modified-p) (or dvc-do-not-prompt-for-save (y-or-n-p (format "Save buffer %s? " (buffer-name (current-buffer)))))) (save-buffer)) (buffer-file-name)))]) #@420 Undo whole local TREE against ARCHIVE/CATEGORY-BRANCH-VERSION-REVISION. If ARCHIVE is nil, default ARCHIVE/CATEGORY-BRANCH-VERSION-REVISION associated with TREE. When called interactively, call tla undo in the current tree. When called interactively with a prefix argument, additionally ask for the revision to revert to. The tla-undo shows the changeset first, then it asks for confirmation before running tla undo. (defalias 'tla-undo #[(tree &optional archive category branch version revision) "\306\307\211 \n \f &\207" [tree archive category branch version revision tla--undo-internal nil] 9 (#$ . 75431) (byte-code "\204 \302\211\211\211\211\257\207 \303\304 \"B\207" [current-prefix-arg default-directory nil tla--read-revision-with-default-tree "Undo against revision: "] 6)]) #@203 Internal function used by `tla-undo'. If DONT-ASK-FOR-CONFIRMATION is given, don't show the changes buffer and don't ask for confirmation. If NO-OUTPUT is given, run tla undo with the --no-output flag. (defalias 'tla--undo-internal #[(tree &optional dont-ask-for-confirmation no-output archive category branch version revision) "\204\212 \203\306\307\310 \n \f %\"\210\202\306 \210)\311\312!\210\204@\313 \2037\314\315\310 \n \f %#\202<\314\316\"!\203f \205M\310 \n \f %\205S\317\320\321\307\322E\"!\210+\323!\207" [dont-ask-for-confirmation archive category branch version revision tla-changes nil tla--name-construct sit-for 1 yes-or-no-p format "Revert whole local tree (%s) from `%s'? " "Revert whole local tree (%s) from default revision? " "--no-output" tla--run-tla-sync delete "undo" dvc-revert-some-buffers tree no-output extra-flags rev default-directory] 10 (#$ . 76231)]) #@133 Get the list of directories starting with ",,undo-". This is used by tla-redo to get the list of candidates for an undo changeset. (defalias 'tla--get-undo-changeset-names #[nil "\301\302\303\"\303\304#\207" [default-directory directory-files tla-tree-root t ",,undo-"] 4 (#$ . 77156) nil]) #@96 Select a changeset. DIR-LIST is intended to be the result of `tla--get-undo-changeset-names'. (defalias 'tla--select-changeset #[(dir-list) "\301\302\303\304\"\305\211@%\207" [dir-list dvc-completing-read "Select changeset: " mapcar list nil] 6 (#$ . 77455)]) #@99 Run tla redo. If TARGET directroy is given, TARGET should hold undo data generated by `tla undo'. (defalias 'tla-redo #[(&optional target) "\303  \206G\304U\203@\206\305!\306\n!\210\307\310\311\n\"!\205)\312\313\nD!*\207" [undo-changesets target undo-changeset tla--get-undo-changeset-names 1 tla--select-changeset tla-show-changeset yes-or-no-p format "Redo the %s changeset? " tla--run-tla-sync "redo"] 4 (#$ . 77724) nil]) #@121 Interactive view of differences in FILE with ediff. Changes are computed since last commit (or REVISION if specified). (defalias 'tla-file-ediff #[(file &optional revision) "\303 \206\n\304\305 D\"r\nq\210\306 )\306 \230\203\307\310!\210\311\312!\206'\313!\n\")\207" [file revision original tla-file-get-revision-in-buffer last-revision tla-tree-root buffer-string error "No modification in this file" dvc-ediff-buffers get-file-buffer find-file-noselect] 4 (#$ . 78169) (list (progn (when (and (buffer-modified-p) (y-or-n-p (format "Save buffer %s? " (buffer-name (current-buffer))))) (save-buffer)) (buffer-file-name)))]) #@155 Get the last-committed version of FILE in a buffer. If REVISION is specified, it must be a cons representing the revision for which to get the original. (defalias 'tla-file-view-original #[(file &optional revision) "\303 \206\n\304\305 D\"r\nq\210\306 )\306 \230\203\307\310!\210\311\n!)\207" [file revision original tla-file-get-revision-in-buffer last-revision tla-tree-root buffer-string message "No modification in this file" dvc-switch-to-buffer] 4 (#$ . 78809) (list (buffer-file-name))]) #@236 Return an empty buffer suitable for viewing FILE in REVISION. The name of the buffer is chosen according to FILE and REVISION. REVISION may have one of the values described in the docstring of `dvc-diff-modified' or `dvc-diff-base'. (defalias 'tla--buffer-for-rev #[(file revision) "\304\305!\210\306!\307 @\301=\203\310 \211A@)!\202J @\311=\203* \211A@)\202J @\312=\2035\313\202J @\314=\203I\315\316 \211A@)!!\202J\317\320R\321\322\323 #\324 !)\207" [file revision x name dvc-trace "OBSOLETE" file-name-nondirectory "(" tla--name-construct local-tree last-revision "original" previous-revision tla--name-construct-semi-qualified tla-revision-direct-ancestor "" ")" replace-regexp-in-string "\\/" "--" generate-new-buffer] 6 (#$ . 79317)]) #@191 Get the last committed version of FILE in a buffer. Returned value is the buffer. REVISION can have any of the values described in the docstring of `dvc-diff-base' and `dvc-diff-modified' (defalias 'tla-file-get-revision-in-buffer #[(file &optional revision) "\306\307!\210\310\311\312\"\206\f\313 \n\"\211@ \211A@)\n@\314=\203*\315\f!\202Y\316 \n\"rq\210\317 \210\320\f!\210\321\311!\210\322\323!\210 \324\312!\210)\203U\325\f!\210)),\207" [default-directory file revision file-unmo-temp original x dvc-trace "OBSOLETE" tla-tree-root nil t tla-file-get-revision-in-file local-tree find-file-noselect tla--buffer-for-rev erase-buffer insert-file-contents set-buffer-modified-p toggle-read-only 1 set-auto-mode delete-file original-to-be-removed buffer-orig buffer-file-name] 4 (#$ . 80081)]) #@199 Insert the content of FILE in LAST-REVISION, in current buffer. REVISION is either a string or nil. nil means the last commited revision, non-nil means a revision to pass as command line argument. (defalias 'tla-revision-get-last-or-file-revision #[(file revision last) "\306\307 E\310\311\312\313\314\315\316\317\320\321\322D\257E#\322\323\n!\203$\324\n!\202N\325\326!\306\327 \2032\330\2023\331 E\310\332\333\334%\210r\fq\210\335ed \322\211\211\336\337\n&\n)*\207" [file revision original file-unmodified-p dvc-last-process-buffer dvc-patch-executable tla--run-tla-sync "file-find" :finished lambda (output error status arguments) apply #[(output error status arguments) "rq\210eb\210\301\302!\210\303\304 \305 \")\207" [output re-search-forward "^[^*]" buffer-substring-no-properties line-beginning-position line-end-position] 3] output error status arguments quote nil file-exists-p insert-file-contents dvc-make-temp-name "tla-ediff" tla-has-file-diff-command "file-diff" "file-diffs" dvc-null-handler :error #[(output error status arguments) "\304=?\205 \305 \n $\207" [status output error arguments 1 dvc-default-error-function] 5] call-process-region "-R" "-o"] 13 (#$ . 80903)]) #@105 Insert the content of FILE in LAST-REVISION, in current buffer. LAST-REVISION looks like ("path" NUM). (defalias 'tla-revision-get-last-revision #[(file last-revision) "A@\303=\204 \304\305\"\210@\306\n\307\310#)\207" [last-revision default-directory file 1 error "TODO. revision=%S" tla-revision-get-last-or-file-revision nil t] 4 (#$ . 82114)]) #@104 Insert the content of FILE in REVISION, in current buffer. REVISION looks like ("archive" "cat" ...). (defalias 'tla-revision-get-file-revision #[(file revision) "\303!\304\305\n@!\306#)\207" [file default-directory revision tla-tree-root tla-revision-get-last-or-file-revision tla--name-construct nil] 4 (#$ . 82474)]) (byte-code "\300\301\302\"\210\300\303\304\"\207" [defalias baz-revision-get-last-revision tla-revision-get-last-revision baz-revision-get-file-revision tla-revision-get-file-revision] 3) #@177 Check that the headers are followed by an empty line. Current buffer must be a log buffer. This function checks it starts with RFC822-like headers, followed by an empty line (defalias 'tla-commit-check-empty-line #[nil "eb\210\300\301!?\205#\300\302!\204\303\304!\210\305y\210\300\306!\203\305y\210\202\207" [looking-at "^$" "^[A-Za-z0-9_-]*:" error "A blank line must follow the last header field" 1 "[ ]+"] 2 (#$ . 82993) nil]) #@173 Check that the current buffer starts with non-empty headers. Also checks that the the line following headers is empty (or the notion of "header" would loose its meaning). (defalias 'tla-commit-check-empty-headers #[nil "eb\210\302\303!?\205J\302\304!\204\305\306!\210\302\307!\203;\310\311!\312 \"\204:\313\210`Sf\314=\2033\315c\210\305\316\317\"!\210)\311y\210\302\320!\203\311y\210\202>\207" [header tla-commit-headers-allowed-to-be-empty looking-at "^$" "^[A-Za-z0-9_-]*:" error "A blank line must follow the last header field" "^\\([A-Za-z0-9_-]*\\):[ ]*$" match-string 1 string-match nil 58 " " format "Empty \"%s: \" header" "[ ]+"] 4 (#$ . 83440) nil]) #@251 Check the space after the colon in each header: Check that no header in the summary buffer miss the SPC character following the semicolon. Also checks that the the line following headers is empty (or the notion of "header" would loose its meaning) (defalias 'tla-commit-check-missing-space #[nil "eb\210\303\304\305!\204F\304\306!\204\307\310!\210\304\311!\2037\312\313!\n\203/\314\315\316!\210\317c\210\2026\307\320\321 \"!\210)\313y\210\304\322!\203\313y\210\202:\205L\323 )\207" [stg-changed header tla-commit-fix-missing-space nil looking-at "^$" "^[A-Za-z0-9_-]*:" error "A blank line must follow the last header field" "^\\([A-Za-z0-9_-]*\\):[^ ]" match-string 1 t search-forward ":" " " format "Missing space after colon for \"%s:\"" "[ ]+" save-buffer] 4 (#$ . 84123) nil]) #@288 Function to call from the ++log... buffer, before comitting. (`tla-commit' calls it automatically). This runs the tests listed in `tla-commit-check-log-buffer-functions'. Each function is called with no argument and can raise an error in case the log buffer isn't correctly filled in. (defalias 'tla-commit-check-log-buffer #[nil "\303\211\203\n@\211 \210\nA\211\204*\303\207" [tla-commit-check-log-buffer-functions function #1=#:--cl-dolist-temp-- nil] 3 (#$ . 84929)]) #@228 Run tla commit. Optional argument HANDLER is the process handler for the commit command. `nil' or a symbol(`seal' or `fix') is acceptable as VERSION-FLAG. When the commit finishes successful, `tla-commit-done-hook' is called. (defalias 'tla-commit #[(&optional handler version-flag summary-line) "\306\211\211 \203\307\310!\203R\311 \210\310\202Rr\312\307 !q\210\313\314\315\217\210\316 \2043\317\320!\2043\321\322!\210\323ed\"\324 !\205Er q\210))\211\203Q\325 \326\nB\")?\205\260r\312\307 !q\210\327\330*\205f\331\325+\205p\332+D,\333=\203{\334\202\226,\335=\203\206\336\202\226,\306=\203\221\306\202\226\321\337,\"C #BB\340\341\342\343\344\345\321\346\347\350-.DD\257E#)+\207" [dont-commit arglist file-list current-prefix-arg tla-last-commit-message tla-buffer-source-buffer nil tla-make-log t tla-edit-log find-file-noselect x (tla-commit-check-log-buffer) ((error (byte-code "\301p!\210\302!\207" [x switch-to-buffer eval] 2))) dvc-save-some-buffers y-or-n-p "Commit with unsaved changes is a bad idea. Continue anyway? " error "Not committing" buffer-substring-no-properties buffer-live-p append "--" tla--run-tla-async "commit" "--strict" "--summary" fix "--fix" seal "--seal" "Wrong version flag: %s" :finished lambda (output error status arguments) apply #[(output error status arguments #1=#:dvc-gensym-uniq-85 #2=#:dvc-gensym-uniq-84) "\306\307\"\210\310\311!\210\312 !\210\313\n \314#\210\f\205\f  $\207" [output tla-pre-commit-window-configuration tla-arch-branch #2# #1# error dvc-show-error-buffer commit run-hooks tla-commit-done-hook dvc-buffer-push-previous-window-config dvc-diff-clear-buffers "* Just committed! Please refresh buffer\n" status arguments] 5] output status arguments quote dvc-buffer-marked-file-list tla-strict-commits summary-line version-flag handler default-directory] 15 (#$ . 85418) (list nil nil (when (and current-prefix-arg (not (tla-make-log t))) (read-string "Summary line for commit: ")))]) #@17 Run tla import. (defalias 'tla-import #[(&optional dir synchronously) "\206 \304\305!\211\203r\306\n!q\210\307\305!\210\310 \210) \203$\311\202%\312\313\314 \205,\315D\316\317\320\321\322\323\324\325\326\327 CD\257E\330\317\331\321\332\323\324\325\326\327 CD\257E%*\207" [dir default-directory logfile synchronously tla-make-log t find-file-noselect tla-edit-log-delete-file-list save-buffer tla--run-tla-sync tla--run-tla-async "import" tla-import-has-setup-option "--setup" :finished lambda (output error status arguments) apply #[(output error status arguments #1=#:dvc-gensym-uniq-86) "\301!\210\302\303!\207" [#1# tla-inventory message "Import finished."] 2] output error status arguments quote :error (output error status arguments) #[(output error status arguments #2=#:dvc-gensym-uniq-87) "\306\307 !r q\210eb\210\310\311\312\313#\2031\314\315\316\n\"!\2031\317\n\320 \314\321!\314\322!$\210\323!\2028\324\f $+\207" [#2# default-directory archive error output status tla--name-archive tla-tree-version-list re-search-forward "^No commitable locations for.*are registered" nil t y-or-n-p format "Archive %s not registered. Create it?" tla--make-archive tla--make-archive-read-location "Sign the archive? " "Create .listing files? " tla-import dvc-default-error-function arguments] 6]] 16 (#$ . 87408) nil]) #@79 Ensures ARCHIVE is registered. If not, offer to create it or to register it. (defalias 'tla-archive-ensure-registration #[(archive) "\301\302D\303\304\305\306\307\310\311\312\313\314\315D\257E\316\317%\207" [archive tla--run-tla-sync "whereis-archive" :error lambda (output error status arguments) apply #[(output error status arguments) "\301\302\303\"!\203\304\305 \301\306!\301\307!$\207\301\302\310!!\203!\311\312!\207\313\314!\207" [archive y-or-n-p format "Archive %s not registered. Create it? " tla--make-archive tla--make-archive-read-location "Sign the archive? " "Create .listing files? " "Register it? " call-interactively tla--register-archive message "Archive still not registered."] 6] output error status arguments quote nil :finished dvc-null-handler] 13 (#$ . 88751) (list (tla--name-archive (tla-name-read "Archive: " 'prompt)))]) #@20 Run tla init-tree. (defalias 'tla-init-tree #[(&optional dir version) "\206 \304\n!\305\306\n!!\210\307\310\311 E\312\313\314\315\316\317\320\321\322\323\324D\257E#*\207" [dir default-directory version project tla--name-construct tla-archive-ensure-registration tla--name-archive tla--run-tla-sync "init-tree" "--nested" :finished lambda (output error status arguments) apply #[(output error status arguments) "\300\301!\207" [message "init-tree finished"] 2] output error status arguments quote nil] 13 (#$ . 89615) (let* ((dir (list (dvc-read-directory-name "Directory to init: " (or default-directory (getenv "HOME"))))) (version (tla-name-read (format "Set version for `%s' to: " default-directory) 'prompt 'prompt 'prompt 'prompt))) (list dir version))]) #@465 Start a new project. Prompts for the root directory of the project and the fully qualified version name to use. Sets up and imports the tree and displays an inventory buffer to allow the project's files to be added and committed. If ARCHIVE is given, use it when reading version. Return a cons pair: its car is the new version name string, and its cdr is imported location. If SYNCHRONOUSLY is non-nil, run "tla import" synchronously. Else run it asynchronously. (defalias 'tla-start-project #[(&optional archive synchronously) "\306\307\206 \310\311!\"\312\313\314 \"\n\203\n\202\315 \316\211\211%\317 !\320 !\321 \"\210\212\322!\210\323\324\325\326!\"\210\327 \210)\330 \"\210\f,B\207" [default-directory base archive l project synchronously dvc-read-directory-name "Directory containing files to import: " getenv "HOME" tla-name-read format "Import `%s' to: " tla-my-default-archive prompt tla--name-construct file-name-as-directory tla-init-tree tla-inventory message "Type %s when ready to import" substitute-command-keys "\\[exit-recursive-edit]" recursive-edit tla-import] 6 (#$ . 90388) nil]) #@61 Call tla rm on file FILE. Prompts for confirmation before. (defalias 'tla-rm #[(file) "\301\302\303\"!\205\304\305D\306\307#\207" [file yes-or-no-p format "Delete file %s? " tla--run-tla-sync "rm" :finished dvc-null-handler] 4 (#$ . 91510)]) #@21 Run "tla pristine". (defalias 'tla-pristines #[nil "\300\301!\207" [tla--run-tla-sync ("pristines")] 2 (#$ . 91763) nil]) #@162 Run "tla changelog". display the result in an improved ChangeLog mode. If NAME is given, name is passed to "tla changelog" as the place where changelog is got. (defalias 'tla-changelog #[(&optional name) "\303 \304\n\203 \nB\305B\306\307\310#\210\311\312\313\"\210eb*\207" [arguments default-directory name dvc-read-project-tree-maybe nil "changelog" tla--run-tla-sync :finished dvc-null-handler dvc-show-last-process-buffer changelog tla-changelog-mode] 4 (#$ . 91892) (byte-code "\205\301\302\303\304\211\211\211%!C\207" [current-prefix-arg tla--name-construct tla-name-read "ChangeLog of: " prompt] 7)]) #@15 Run tla logs. (defalias 'tla-logs #[nil "\301 \302\303\304\305\306 \205 \307F\310\311\312\313\314\315\316\317\320\321\322D\257E#)\207" [default-directory dvc-read-project-tree-maybe tla--run-tla-async "logs" "--full" "--reverse" tla-revisions-has-complete-log-option "--complete-log" :finished lambda (output error status arguments) apply #[(output error status arguments) "\306 \307\310\311 #\312 !\210\313 \210\314\310\315\211 \315\f&\210\316*eb\210\317 \210\320\321!\207" [tla-arch-branch buffer dvc-temp-current-active-dvc output dvc-revlist-cookie dvc-buffer-refresh-function dvc-current-active-dvc dvc-get-buffer-create log tla-tree-root dvc-switch-to-buffer tla-revision-list-mode tla--revisions-parse-list nil tla-logs dvc-revision-prev recenter -4] 7] output error status arguments quote nil] 13 (#$ . 92517) nil]) #@21 Run tla COMMAND -H. (defalias 'tla-help #[(command) "\301\302D!\207" [command tla--run-tla-sync "-H"] 3 (#$ . 93355) (list (dvc-completing-read "Get help for: " (tla--run-tla-sync '("help") :finished (dvc-capturing-lambda (output error status arguments) (with-current-buffer output (goto-char (point-min)) (let (listcmd) (while (re-search-forward " *\\([^ ]*\\) : " nil t) (setq listcmd (cons (list (match-string 1)) listcmd))) listcmd))))))]) #@59 Return the tree version, or nil if not in a project tree. (defalias 'tla-tree-version-list-tla #[nil "\300\301\302\303#\207" [tla--run-tla-sync ("tree-version") :finished #[(output error status arguments) "rq\210eb\205\301\302\303\304#\205\305\306!\305\307!\305\310!\305\311!F)\207" [output re-search-forward "\\(.*\\)/\\(.*\\)--\\(.*\\)--\\(.*\\)" nil t match-string 1 2 3 4] 5]] 4 (#$ . 93806)]) #@201 Elisp implementation of `tla-tree-version-list-tla'. A string, LOCATION is used as a directory where "/{arch}/++default-version" is. If NO-ERROR is non-nil, errors are not reported; just return nil. (defalias 'tla-tree-version-list #[(&optional location no-error) "\303 \"\211\205!\304\305\n\"\205!\306\307\n\"\306\310\n\"\306\311\n\"\306\312\n\"F)\207" [location no-error version-string tla-tree-version string-match "\\(.*\\)/\\(.*\\)--\\(.*\\)--\\(.*\\)" match-string 1 2 3 4] 7 (#$ . 94216)]) #@20 Run tla tree-root. (defalias 'tla-tree-root-tla #[nil "t\301\302\303\304\305\306\307\310\311\312\313\314CD\257E#)\207" [i-p tla--run-tla-sync ("tree-root") :finished lambda (output error status arguments) apply #[(output error status arguments #1=#:dvc-gensym-uniq-88) "\303!\n\203 \304\305 \"\210 )\207" [output result #1# dvc-buffer-content message "tla tree-root is: %s"] 3] output error status arguments quote] 13 (#$ . 94724) nil]) #@225 Equivalent of tla tree-version (but implemented in pure elisp). Optional argument LOCATION is the directory in which the command must be ran. If NO-ERROR is non-nil, don't raise errors if ran outside an arch managed tree. (defalias 'tla-tree-version #[(&optional location no-error) "\306 \"\211\205 \307\310\n\"\311\312!\205\313\f \n$\211\203)\314\230\203K \203K\315 !\203K\316\317!\320\216rq\210\321 !\210\322edS\"+t\203U\323\324\"\210+\207" [location no-error tree-root default-version-file tla-buffer-archive-name tla-buffer-category-name tla-tree-root expand-file-name "{arch}/++default-version" boundp tla-buffer-version-name tla--name-construct "" file-readable-p generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) insert-file-contents buffer-substring-no-properties message "%s" tla-buffer-branch-name version #1#] 6 (#$ . 95174) (list nil nil)]) #@519 Run tla my-id. When called without a prefix argument ARG, just print the my-id from tla and return it. If MY-ID is not set yet, return an empty string. When called with a prefix argument, ask for a new my-id. The my-id should have the following format: Your id is recorded in various archives and log messages as you use arch. It must consist entirely of printable characters and fit on one line. By convention, it should have the form of an email address, as in this example: Jane Hacker  (defalias 'tla-my-id #[(&optional arg my-id) "\305\306\307\310\311\312% \2039\n\206\313\314 $\f\230\203%\315\316\f\"\210\2024\315\317\f\"\210\305\320\fD\307\321\311\322%\210\f)\202T\203Jt\203F\315\323\"\210\202Tt\203S\315\324\325\"\210\326)\207" [id arg my-id tla-my-id-history new-id tla--run-tla-sync ("my-id") :finished #[(output error status arguments) "\301!\207" [output dvc-buffer-content] 2] :error #[(output error status arguments) "\300\207" [nil] 1] read-string "New arch my-id: " message "Id unchanged! Id = %s" "Setting id to: %s" "my-id" #[(output error status arguments) "\301\302\"\207" [new-id message "Id changed to '%s'"] 3] #[(output error status arguments) "\301\302!\210\303!\207" [error message "Could not change Id" dvc-show-error-buffer] 2] "Arch my-id: %s" "Arch my-id has not been given yet. Call `%s' to set." "tla-set-my-id" ""] 6 (#$ . 96137) "P"]) #@18 Set tla's my-id. (defalias 'tla-set-my-id #[nil "\300\301!\207" [tla-my-id 1] 2 (#$ . 97561) nil]) #@67 Call either 'baz tree-id' or 'tla logs -f -r' to get the tree-id. (defalias 'tla-tree-id #[nil "\303\304 \203\n\305\202 \306\307\310\311\312\313%\210t\203\314\315\n #\210 *\207" [cmd-list tree-id default-directory nil tla-has-tree-id-command ("tree-id") ("logs" "-f" "-r") tla--run-tla-sync :finished #[(output error status arguments) "q\210eb\210\302`\303 \"\211\207" [output tree-id buffer-substring-no-properties line-end-position] 3] :error #[(output error status arguments) "\301\211\207" [tree-id ""] 2] message "tree-id for %s: %s"] 6 (#$ . 97666) nil]) #@389 Run tla my-revision-library. When called without a prefix argument ARG, just print the my-revision-library from tla. When called with a prefix argument, ask for a new my-revision-library. my-revision-library specifies a path, where the revision library is stored to speed up tla. For example ~/tmp/arch-lib. You can configure the parameters for the library via `tla-library-config'. (defalias 'tla-my-revision-library #[(&optional arg) "\304\305\306\307\310\311%\312 \211\313=\2057\n\203\314!\2027\203-\315\230\203-\316\317 \"\210\2026t\2036\316\320\"\210*\207" [rev-lib result arg this-command tla--run-tla-sync ("my-revision-library") :finished dvc-status-handler :error dvc-null-handler dvc-get-process-output 0 tla--library-add-interactive "" message "Arch my-revision-library has not been given yet. Call `%s' with prefix arguments to set." "Arch my-revision-library: %s"] 7 (#$ . 98253) "P"]) #@123 Prompts for argument and run `tla--library-add'. Argument OLD-REV-LIB is the previously set revision library (a string). (defalias 'tla--library-add-interactive #[(&optional old-rev-lib) "\204\302\303\304\305\"! \230\204\306\307 \"\210\310 !\202)\207" [old-rev-lib new-rev-lib "" expand-file-name dvc-read-directory-name "New arch revision library: " message "Setting my-revision-library to: %s" tla--library-add] 4 (#$ . 99179)]) #@38 Unregister revision library REV-LIB. (defalias 'tla-library-delete #[(rev-lib) "\301\302\303E\304\305#\207" [rev-lib tla--run-tla-sync "my-revision-library" "--delete" :finished #[(output error status arguments) "\301\302\"\207" [rev-lib message "Library %s removed."] 3]] 4 (#$ . 99629) (list (tla--read-revision-library))]) #@50 Change the revision library path to NEW-REV-LIB. (defalias 'tla--library-add #[(new-rev-lib) "\302!\211\204 \303\304\"\210\305\306D\307\310#\210)\207" [new-rev-lib dir-attr file-attributes make-directory t tla--run-tla-sync "my-revision-library" :finished #[(output error status arguments) "\301\302!!\207" [output message dvc-buffer-content] 3]] 5 (#$ . 99963)]) #@68 Parse `tla my-revision-library' into a list of revision libraries. (defalias 'tla--revision-library-list #[nil "\300\301\302\303#\207" [tla--run-tla-sync ("my-revision-library") :finished dvc-output-buffer-split-handler] 4 (#$ . 100340)]) (byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list tla--library-history default-boundp set-default nil] 3) #@78 Read a revision library from keyboard. Prompt the user with PROMPT if given. (defalias 'tla--read-revision-library #[(&optional prompt) "\302 \211A\204 @\202$\303 \206\304\305@\"\306\307\302 \"\310\311\310\312@&)\207" [list-lib prompt tla--revision-library-list dvc-completing-read format "Revision library (default %s): " mapcar list nil t tla--library-history] 9 (#$ . 100722)]) #@159 Run tla library-config. When called without prefix argument ARG, just print the config. When called with prefix argument ARG, let the user change the config. (defalias 'tla-library-config #[(&optional arg) "\303 \205\304\305\306\307\310\"\311\312\313%\314\315 \nE\316\317#\210\320\321 !*\207" [arg config-param rev-lib tla--read-revision-library dvc-completing-read "tla library config " mapcar list ("--greedy" "--sparse" "--non-greedy" "--non-sparse") nil t "--" tla--run-tla-sync "library-config" :finished dvc-null-handler message dvc-get-process-output] 7 (#$ . 101119) "P"]) #@221 Add ARCHIVE/CATEGORY--BRANCH--VERSION--REVISION to the revision library. REVISION is optional argument; if it is omitted or `nil' is given, the last revision in ARCHIVE/CATEGORY--BRANCH--VERSION is added to the library. (defalias 'tla-library-add #[(archive category branch version &optional revision) "\305 \210\306\307\310 \n \f%D!\207" [archive category branch version revision dvc-show-last-process-buffer tla--run-tla-async "library-add" tla--name-construct] 8 (#$ . 101712)]) #@143 Find ARCHIVE--CATEGORY--BRANCH--VERSION--REVISION in the revision library. If the revision is found, return the path for it. Else return nil. (defalias 'tla-library-find #[(archive category branch version revision &optional silent) "\306\307\310\205\311\312 \n \f %E\313\314\315\314%!\205\316 \207" [silent archive category branch version revision zerop tla--run-tla-sync "library-find" "--silent" tla--name-construct :finished dvc-status-handler :error dvc-get-process-output] 10 (#$ . 102202)]) (byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list tla-id-tagging-method-history default-boundp set-default nil] 3) #@204 View (and return) or change the id-tagging method. When called without prefix argument ARG: show the actual tagging method. When called with prefix argument ARG: Ask the user for the new tagging method. (defalias 'tla-id-tagging-method #[(arg) "\303\304\305\306#\307\n\203\310 ! \230?\205'\311!\202't\203&\312\313 \"\210 *\207" [new-tagging-method tm arg tla--run-tla-sync ("id-tagging-method") :finished #[(output error status arguments) "\301!\207" [output dvc-buffer-content] 2] nil tla--id-tagging-method-read tla--id-tagging-method-set message "Arch id tagging method: %s"] 4 (#$ . 102857) "P"]) #@79 Read id tagging method. If OLD-METHOD is given, use it as the default method. (defalias 'tla--id-tagging-method-read #[(old-method) "\301\203\f\302\303\"\202 \304\305\306\307\"\310\311\310\312&\207" [old-method dvc-completing-read format "New id tagging method (default %s): " "New id tagging method: " mapcar list ("tagline" "explicit" "names" "implicit") nil t tla-id-tagging-method-history] 8 (#$ . 103475)]) #@35 Set the tagging method to METHOD. (defalias 'tla--id-tagging-method-set #[(method) "\301\302\"\210\303\304D\305\306#\207" [method message "Setting tagging method to: %s" tla--run-tla-sync "id-tagging-method" :finished dvc-null-handler] 4 (#$ . 103899)]) #@224 Synchronize the mirror for ARCHIVE. Limit to CATEGORY--BRANCH--VERSION. When called interactively you can specify the limit as part of the source archive. With a prefix arg also query for TO, i.e. the destination mirror. (defalias 'tla-archive-mirror #[(archive &optional category branch version to) "\306 \n #\307 \310\230\203\307\311 \203\312\fB\202A\204A\313\314\"\203;\315\314\310#\202A\316P\317\320\321\f E\"B\322\323\324\325\326\327\330\331\332\333\307D\257E#+\207" [archive category branch version options limit tla--name-construct-semi-qualified nil "" tla-archive-mirror-has-all-mirrors-option "--all-mirrors" string-match "-MIRROR$" replace-regexp-in-string "-MIRROR" tla--run-tla-async "archive-mirror" append :finished lambda (output error status arguments) apply #[(output error status arguments) "\300\301!\207" [message "tla archive-mirror finished"] 2] output error status arguments quote from to] 13 (#$ . 104162) (let ((from (tla-name-read "Mirror from: " 'prompt 'maybe 'maybe 'maybe)) (to (if current-prefix-arg (tla-name-read "Mirror to: " 'maybe)))) (list (tla--name-archive from) (tla--name-category from) (tla--name-branch from) (tla--name-version from) (tla--name-archive to)))]) #@36 Run tla archive-fixup for ARCHIVE. (defalias 'tla-archive-fixup #[(archive) "\301\302D\303\304\305\306\307\310\311\312\313\314CD\257E#\207" [archive tla--run-tla-async "archive-fixup" :finished lambda (output error status arguments) apply #[(output error status arguments #1=#:dvc-gensym-uniq-89) "\301\302\"\207" [#1# message "tla archive-fixup %s finished"] 3] output error status arguments quote] 13 (#$ . 105411) (list (car (tla-name-read "Archive to fixup: " 'prompt)))]) #@62 Star merge from version/revision FROM to local tree TO-TREE. (defalias 'tla-star-merge #[(from &optional to-tree) "\205\306!\307\206 !\204\310\311!\204\312\313!\210\206! \314\n\315 DD\n\316 DD\317 \n%\f\203:\320 !\210\321\322 \203D\323\202E\324\325 \326 F\327\330\331\332\333\334\312\335\336\337 DD\257E\340\330\341\332\342\334\312\335\336\337 CD\257E%+\207" [to-tree default-directory tla-arch-branch buffer dvc-switch-to-buffer-first from expand-file-name dvc-save-some-buffers y-or-n-p "Star-merge may delete unsaved changes. Continue anyway? " error "Not running star-merge" dvc-prepare-changes-buffer last-revision local-tree diff dvc-switch-to-buffer tla--run-tla-async tla-has-merge-command "merge" "star-merge" tla--three-way-merge-option tla--show-ancestor-option :finished lambda (output error status arguments) apply #[(output error status arguments #1=#:dvc-gensym-uniq-91 #2=#:dvc-gensym-uniq-90) "\303\304 #\210\305\306!\210\307\n!\207" [output #2# #1# dvc-show-changes-buffer tla--parse-other message "merge command finished" dvc-revert-some-buffers] 4] output status arguments quote :error (output error status arguments) #[(output error status arguments #3=#:dvc-gensym-uniq-92) "\305=\203 \306 \n $\207\307 \310\"\210 \210\f\207" [status output error arguments #3# 2 dvc-default-error-function dvc-show-changes-buffer tla--parse-other] 5]] 15 (#$ . 105898) (list (tla--name-construct (tla-name-read "Merge from: " 'prompt 'prompt 'prompt 'maybe 'maybe)) (dvc-read-directory-name "Merge to: "))]) #@143 Build an argument list for the replay command. Used to factorize the code of (interactive ...) between `tla-replay-reverse' and `tla-replay'. (defalias 'tla--replay-arguments #[nil "\301\302\203\n\303\202 \304\305\211\211\211\306&!\307\203\310\202\311!E\207" [current-prefix-arg tla--name-construct tla-name-read "Reversely relay version or revision: " "Relay version or revision: " prompt maybe dvc-read-directory-name "Reversely replay in tree: " "Replay in tree: "] 8 (#$ . 107447)]) #@44 Call `tla-replay' with the REVERSE option. (defalias 'tla-replay-reverse #[(from &optional to-tree arg) "\302 \303#\207" [from to-tree tla-replay t] 4 (#$ . 107950) (tla--replay-arguments)]) #@247 Replay the revision FROM into tree TO-TREE. If FROM is a string, it should be a fully qualified revision. If FROM is a list, it should be a list of fully qualified revisions to be replayed. If REVERSE is non-nil, reverse the requested revision. (defalias 'tla-replay #[(from &optional to-tree reverse) "\206 \306 \204\307\310!\204\311\312!\210\313 \210\314\n\315 DD\n\316 DD\317 \n%\f\2030\320 !\210\321\322 \2057\323 \205=\324!<\203H!\202K!CBBB\325\326\327\330\331\332\311\333\334\335 DD\257E\336\337%*\207" [to-tree default-directory tla-arch-branch buffer dvc-switch-to-buffer-first reverse dvc-save-some-buffers y-or-n-p "Replay may delete unsaved changes. Continue anyway? " error "Not replaying" dvc-show-last-process-buffer dvc-prepare-changes-buffer last-revision local-tree diff dvc-switch-to-buffer tla--run-tla-async "replay" "--reverse" "--skip-present" :finished lambda (output error status arguments) apply #[(output error status arguments #1=#:dvc-gensym-uniq-94 #2=#:dvc-gensym-uniq-93) "\303\304 #\210\305\306!\210\307\n!\207" [output #2# #1# dvc-show-changes-buffer tla--parse-other message "tla replay finished" dvc-revert-some-buffers] 4] output status arguments quote :error #[(output error status arguments) "\301!\210\302 \207" [error dvc-show-error-buffer dvc-show-last-process-buffer] 2] tla-use-skip-present-option from] 14 (#$ . 108149) (tla--replay-arguments)]) #@63 Synchronize the patch logs of revision FROM and tree TO-TREE. (defalias 'tla-sync-tree #[(from &optional to-tree) "\206 \303 \204\304\305!\204\306\307!\210\310 \210\311\312\nD\313\314\315\316\317\320\306\321\322\323CD\257E\324\325%)\207" [to-tree default-directory from dvc-save-some-buffers y-or-n-p "Sync-tree may delete unsaved changes. Continue anyway? " error "Not running Sync-tree." dvc-show-last-process-buffer tla--run-tla-async "sync-tree" :finished lambda (output error status arguments) apply #[(output error status arguments #1=#:dvc-gensym-uniq-95) "\301 \210\302\303!\210\304!\207" [#1# dvc-show-last-process-buffer message "tla sync-tree finished" dvc-revert-some-buffers] 2] output status arguments quote :error #[(output error status arguments) "\303\304\305\306\211\307 \n%#\207" [output default-directory tla-arch-branch dvc-show-changes-buffer tla--parse-other dvc-prepare-changes-buffer nil diff] 9]] 13 (#$ . 109569) (list (tla--name-construct (tla-name-read "Sync tree with revision: " 'prompt 'prompt 'prompt 'prompt 'prompt)) (dvc-read-directory-name "Sync tree: "))]) #@105 Run tla switch to VERSION in TREE. After running update, execute HANDLE (function taking no argument). (defalias 'tla-switch #[(tree version &optional handle) "\306 \204 \307\310!\210\311!\204\312\313!\204\307\314!\210\206 \315\316 D\317 D\320 \321% \2033\322\n!\210\323\324\325 \205?\f\205?\326\327 !E\330\331\332!\331\333!\331\334!&'\211(\nL\210'L\210&)L\210\335\336\337\340\341&D\341'D\341(D\342\257E+\343\344%\210\345!*\207" [tree default-directory buffer dvc-switch-to-buffer-first tla-show-ancestor version tla-has-switch-command error "switch not available with this arch branch" dvc-save-some-buffers y-or-n-p "Update may delete unsaved changes. Continue anyway? " "Not updating" dvc-prepare-changes-buffer last-revision local-tree status tla dvc-switch-to-buffer tla--run-tla-async "switch" tla-switch-has-show-ancestor-option "--show-ancestor" tla--name-construct :finished make-symbol "--buffer-lex--" "--tree-lex--" "--handle-lex--" lambda (&rest --cl-rest--) apply #[(#1=#:G70434 #2=#:G70435 #3=#:G70436 output error status arguments) "\304\305 J#\210\306\307\310 \"\210\311\nJ!\210 J\205 J \207" [output #3# #2# #1# dvc-show-changes-buffer tla--parse-other message "`%s switch' finished" tla--executable dvc-revert-some-buffers] 4] quote --cl-rest-- :error #[(output error status arguments) "\301!\210\302 \207" [error dvc-show-error-buffer dvc-show-last-process-buffer] 2] dvc-revert-some-buffers #4=#:--cl-handle-lex-- #5=#:--cl-tree-lex-- #6=#:--cl-buffer-lex-- handle] 12 (#$ . 110684) (list (expand-file-name (dvc-read-directory-name "Switch in tree: " nil nil nil "")) (tla-name-read "Switch to version: " 'prompt 'prompt 'prompt 'maybe 'maybe))]) #@54 Default directory that is suggested for `tla-export' (defvar tla-default-export-directory nil (#$ . 112390)) #@43 Run tla export to export REVISION to DIR. (defalias 'tla-export #[(revision dir) "\302!\303\304\305 !E\306\307\310\311\312\313\314\315\316\317 DD\257E#\207" [dir revision dvc-uniquify-file-name tla--run-tla-async "export" tla--name-construct :finished lambda (output error status arguments) apply #[(output error status arguments #1=#:dvc-gensym-uniq-97 #2=#:dvc-gensym-uniq-96) "\302\303 #\207" [#2# #1# message "Finished tla export %s to %s"] 4] output error status arguments quote] 14 (#$ . 112505) (list (tla-name-read "Export version: " 'prompt 'prompt 'prompt 'maybe 'maybe) (dvc-read-directory-name "Export to directory: " nil tla-default-export-directory nil))]) #@68 Run tla export to export REVISION and create a tarball afterwards. (defalias 'tla-export-as-tgz #[(version export-directory) "\306\307!\310 A!\311\nQ\312\f\311\n\313R!\314\315 #\210\316!\210\317 \"\210\320 \",\207" [export-dir version export-base-name export-full-path export-directory tgz-file-name dvc-make-temp-name "tla-export" tla--name-construct-semi-qualified "/" dvc-uniquify-file-name ".tar.gz" message "export as tgz to %s using %s" make-directory tla-export dvc-create-tarball-from-intermediate-directory] 5 (#$ . 113188) (list (tla-name-read "Export version: " 'prompt 'prompt 'prompt 'maybe 'maybe) (dvc-read-directory-name "Export to directory: " nil tla-default-export-directory nil))]) (defalias 'tla--tag-does-cacherev #[nil "\301=\203\302\207\303=\203\304\207\305\306!\207" [tla-tag-does-cacherev yes t no nil y-or-n-p "Create cachedrev on tag? "] 2]) #@174 Create a tag from SOURCE-REVISION to TAG-VERSION. Run tla tag --setup. If SYNCHRONOUSLY is non-nil, the process for tagging runs synchronously. Else it runs asynchronously. (defalias 'tla-tag #[(source-revision tag-version &optional cacherev synchronously) "\304 \203 \305\306!\210\203\307\202\310\311 \205\312\313 \205\314 ?\205$\315\n \257!\207" [synchronously cacherev source-revision tag-version tla-has-merge-command error "tla-tag not available. Use baz-branch instead." tla--run-tla-sync tla--run-tla-async tla-has-branch-command "tag" tla-tag-has-setup-option "--setup" "--no-cacherev"] 6 (#$ . 114080) (list (tla--name-construct (tla-name-read "Source revision (or version): " 'prompt 'prompt 'prompt 'prompt 'maybe)) (tla--name-construct (tla-name-read "Tag version: " 'prompt 'prompt 'prompt 'prompt)) (tla--tag-does-cacherev) nil)]) #@35 Run tla set-tree-version VERSION. (defalias 'tla-set-tree-version #[(version) "\303!\304 \305\306\307 \n#!\205\310\311\nD!*\207" [version old-version new-version tla--name-construct tla-tree-version y-or-n-p format "Switch tree version from `%s' to `%s'? " tla--run-tla-sync "set-tree-version"] 5 (#$ . 114943) (list (tla-name-read "Set tree version to: " 'prompt 'prompt 'prompt 'prompt))]) #@53 Whether `tla-bookmarks' have been loaded from file. (defvar tla-bookmarks-loaded nil (#$ . 115346)) #@34 Alist containing Xtla bookmarks. (defvar tla-bookmarks-alist nil (#$ . 115452)) #@55 Whether `tla-bookmarks' should show bookmark details. (defvar tla-bookmarks-show-details nil (#$ . 115538)) #@11 Ewoc dll. (defvar tla-bookmarks-cookie nil (#$ . 115652)) #@145 List of (kind info). Can be (separator "label" bookmark "local-tree") (changes "local-tree") (missing "local-tree" "location" "bookmark-name") (defvar tla-missing-buffer-todolist nil (#$ . 115717)) #@29 A list of marked bookmarks. (defvar tla-bookmarks-marked-list nil (#$ . 115922)) #@108 Load bookmarks from the bookmarks file. If FORCE is non-nil, reload the file even if it was loaded before. (defalias 'tla-bookmarks-load-from-file-OBSOLETE #[(&optional force) "\204 ?\205Y\306\n\307\"\212\310 !\2046 \311\312\313!!\314\216r\fq\210\315c\210)r\fq\210~\210\316ed \317\320%\210,\321 !\204@\322\323!\210\324\325!\326\216rq\210\327 !\210\330p!\307\211-\207" [force tla-bookmarks-loaded tla-bookmarks-file-name file #1=#:temp-buffer #2=#:temp-file dvc-config-file-full-path t file-exists-p get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) "()" write-region nil 0 file-readable-p error "Xtla bookmark file not readable" generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#3=#:temp-buffer buffer-name kill-buffer] 2)) insert-file-contents read #3# tla-bookmarks-alist] 6 (#$ . 116010)]) #@125 Load bookmarks from the file `tla-bookmarks-file-name'. If FORCE is non-nil, reload the file even if it was loaded before. (defalias 'tla-bookmarks-load-from-file #[(&optional force) "\300\301\302\217\207" [nil (byte-code "\204 ?\205\303\304\n\305\"!\210\305\211\207" [force tla-bookmarks-loaded tla-bookmarks-file-name dvc-load-state dvc-config-file-full-path t] 4) ((error (tla-bookmarks-load-from-file-OBSOLETE force)))] 3 (#$ . 116942)]) #@67 Save `tla-bookmarks-alist' to the file `tla-bookmarks-file-name'. (defalias 'tla-bookmarks-save-to-file #[nil "\301\302\303\304\"\304#\207" [tla-bookmarks-file-name dvc-save-state (tla-bookmarks-alist) dvc-config-file-full-path t] 5 (#$ . 117397)]) #@132 Toggle the display of bookmark details. If VAL is positive, enable bookmark details. If VAL is negative, disable bookmark details. (defalias 'tla-bookmarks-toggle-details #[(&optional val) "\304!\n\203\n\305V\203\306\202 \n\305W?\205 ?\202 ?\307!\210\310 !)\207" [tla-bookmarks-cookie current-bookmark val tla-bookmarks-show-details ewoc-locate 0 t ewoc-refresh tla-bookmarks-cursor-goto] 2 (#$ . 117654) "P"]) #@70 Position, in chars, of the `:' when displaying the bookmarks buffer. (defvar tla-bookmarks-align 19 (#$ . 118084)) #@113 Pretty print ELEMENT, an entry of the bookmark list. This is invoked by ewoc when displaying the bookmark list. (defalias 'tla-bookmarks-printer #[(element) " \235\203 \306\n\306Q\202\307c\210\310@\311P \312Z\313#\210\314\315\316A\"A!\317\320\f\3216!78\203\310\3227!9!9\205J\323\324\325\326!!\"!: \203T \202e6\205e\3276!;\205e\3276!;:\203\202;\203};\330\331\330:\260\202\203:\202\203 <!9\203\221!J\202\223!!\332\3339G\334\335\336!\205\260\337\340\341!\342<\2576\205\271\3436D\"BBBB9$\2109-\202\3127-c\210=\205\344 \210\345\346 \"\210\315\347A\"Ac\210\344 \210\315\350A\"\211(\203\375\345\346 \"\210(Ac\210\344 \210)\315\351A\"\211)\203\310\352 \"\210)\211>A@)c\210\344 \210)\315\353A\"\211+\203e\310\354 \"\210+\211>A@)c\210+\211>AA)\321>\211?\203a?@>\355c\210\345\346 \"\210>c\210?A\211?\204G*\344 \210)\315\356A\"\211.\203\251\310\357 \"\210.\211>A@)c\210.\211>AA)\321>\211@\203\245@@>\360>\261\210@A\211@\204\221*\344 \210)\315\361A\"\2111\203\355\310\362 \"\2101\211>A@)c\2101\211>AA)\321>\211A\203\351A@>\360>\261\210AA\211A\204\325*\344 \210)\315\363A\"\2113\205 \310\364 \"\210\3653\211>A@)\365\261\210\344 )\207" [element tla-bookmarks-marked-list dvc-mark tla-bookmarks-align tla-bookmarks-entry-menu help " " " " tla--insert-right-justified ": " 3 dvc-bookmark-name tla--name-construct assoc location dvc-revision-name tla-bookmarks-entry-map nil copy-sequence substitute-command-keys format "\\{%s}" symbol-name cadr "\n" "================" add-text-properties 0 face font-lock-face append mouse-face highlight keymap help-echo dvc-cmenu newline insert-char 32 timestamp notes nickname "nickname: " partners "partners: " ",\n" local-tree "local trees: " ", " groups "Groups: " summary-format "Summary format: " "\"" menu str dvc-highlight strcpy key-help prefix-help long-help tla-bookmarks-show-details x #1=#:--cl-dolist-temp-- #2=#:--cl-dolist-temp-- #3=#:--cl-dolist-temp--] 15 (#$ . 118206)]) #@167 Read a local tree for BOOKMARK, and possibly add it to the bookmarks. If ARG is non-nil, user will be prompted anyway. Otherwise, just use the default if it exists. (defalias 'tla-bookmarks-read-local-tree #[(&optional bookmark arg) "\306!\n\206 \205\307 !\310\311\nA\" \204\312\202\221 \204:\313\314\315\n@\"!\316\317!\2035\320\n\f\"\210\f)\202\221 \203\212\321\314\315\n@\"\322\323 A\"\312\211\211\211 \211A@)&\211 A\235\204i\316\317!\203i\320\n\f\"\210\f \211A@)\230\204\205\316\324!\203\205\325\n\f\"\210\320\n\f\"\210\f)\202\221 \211A@)+\207" [tla-bookmarks-cookie loc bookmark local-trees dir arg ewoc-locate ewoc-data assoc local-tree nil dvc-read-directory-name format "Local tree for \"%s\": " y-or-n-p "Add this tree in your bookmarks? " tla-bookmarks-add-tree dvc-completing-read mapcar #[(x) "\301B\207" [x nil] 2] "Make this the default? " tla-bookmarks-delete-tree x] 9 (#$ . 120256)]) #@267 Show the missing patches from your partners. The missing patches are received via tla missing. Additionally the local changes in your working copy are also shown. If prefix argument ARG is specified, the local tree is prompted even if already set in the bookmarks. (defalias 'tla-bookmarks-missing #[(&optional arg) "\204 \306\307\310\"\210 \206\311\312!!C\313 \314\315\n\"\316 \317\"q\210\320 \210\321\322\323!\210\324\325\326\314\327 \"\"!\321 +\207" [tla-bookmarks-cookie tla-bookmarks-marked-list list tla-bookmarks-missing-buffer-list-elem dvc-temp-current-active-dvc tla-arch-branch error "Please, run this command from the bookmarks buffer%s" " (M-x tla-bookmarks RET)" ewoc-data ewoc-locate dvc-current-active-dvc mapcar #[(elem) "\302 \"B\207" [elem arg tla-bookmarks-read-local-tree] 4] dvc-get-buffer-create missing tla-revision-list-mode tla-missing-refresh make-local-variable tla-missing-buffer-todolist reverse apply append #[(elem) "\302@ A\303\211%\207" [elem arg tla-bookmarks-missing-elem t] 6] dvc-buffer-refresh-function] 6 (#$ . 121194) "P"]) #@135 Number of active processes in this buffer. Used internally as a counter to launch a global handler when all processes have finished. (defvar tla--nb-active-processes 1 (#$ . 122283)) #@175 Refreshed a *{tla|baz}-missing* buffer. Process the variable `tla-missing-buffer-todolist' and launches the tla processes with the appropriate handlers to fill in the ewoc. (defalias 'tla-missing-refresh #[nil "\306\300!\210\307\310\311 \210\306\302!\210\312\313\314!!\315p!\210 \310\211\203\362 @\211@\316=\203\265\fA@@\317\f8A\320\f8\211B\206@ACB\203O\321\322B\"\202S\323APD\324\n\325D\260\326E\"E\324\n\327\"\210@F\330F!\210T\331\332\333 \205z\334\335 \205\200\336G\205\206\337A\257\340\341\342\343\344\345\346\347\350\351ECD\257E\352\341\353\343\354\345\346\347\350\351CEDD\257E%\210.\202\f@\325=\203\325\fA@D\320\f8@\324\n\325D\355@F\"\210*\202\f@\356=\203\324\n\357\"p\360\n\361\"HIJ\fA@F\331\362\352\341\363\343\364\345\346\347\350\351HJIED\257E\340\341\365\343\366\345\346\347\350\351JIDD\257E%\210+\367\n\370\371\372\373\310\211\211KLMNOP\203\345\374O!QM9\205J\375\321\376\377M!\"!RK\203VK\202kL\205k\201UL!;\205k\201UL!SR\203\212S\203\205S\371\201V\371R\260\202\214R\202\214KTM9\203\232MJ\202\234MM\201W\201XQG\201NN\201YN\201ZM\205\313\201[\201\\\201MM\201]T\257L\205\326\201^LD\"BBBBQ$\210Q-\202\347O-P#\210 A\211\204!+eb\210S\201_!\205\201` \207" [tla--nb-active-processes buffer-read-only dvc-revlist-cookie tla-missing-buffer-todolist item #1=#:--cl-dolist-temp-- make-local-variable 1 nil erase-buffer ewoc-create dvc-ewoc-create-api-select dvc-revlist-printer dvc-kill-process-maybe missing 2 3 format "Missing patches from partner %s:" "Missing patches from archive " ewoc-enter-last separator partner (message "Checking for missing patches...") cd tla--run-tla-async "missing" tla-revisions-has-complete-log-option "--complete-log" tla-missing-has-full-option "--full" "--skip-present" :finished lambda (output error status arguments) apply #[(output error status arguments #2=#:dvc-gensym-uniq-98) "\306\307\"\205u\310\306\307\"!\205ur\311\307\"q\210\312 !\205t G\313Y\205t \314H\n>\205t \315 \f\"\316 \"\317 !\211 =\320\307\321\211\f \322&\210\323 \"\210\324 !\210\203e\315 \"\202g\211\205r\325!b.)\207" [tla-arch-branch dvc-revlist-cookie cl-struct-ewoc-tags cookie #2# to-delete dvc-get-buffer missing buffer-live-p dvc-get-buffer-create vectorp 8 0 ewoc-next ewoc-prev ewoc-locate tla--revisions-parse-list nil tla-revision-compute-merged-by dvc-ewoc-delete ewoc-refresh ewoc-location prev cur deleted output loc] 9] output error status arguments quote :error (output error status arguments) #[(output error status arguments #3=#:dvc-gensym-uniq-100 #4=#:dvc-gensym-uniq-99) "\306\307\"\203P\310\306\307\"!\203Pr\311\307\"q\210\312 !\203O G\313Y\203O \314H\n>\203O \315 \f\"\211\316\317\320 \321\322\323!\260D\324I\210,)\316\325\323!#\207" [tla-arch-branch dvc-revlist-cookie cl-struct-ewoc-tags cookie #4# to-delete dvc-get-buffer missing buffer-live-p dvc-get-buffer-create vectorp 8 0 ewoc-next message "Error in " tla-arch-branch-name " process for " ":\n" dvc-buffer-content 2 "Abnormal exit with code %d!\n%s" #5=#:--cl-x-- #3# error #6=#:--cl-store-- status] 9] bookmark changes (message "Checking for local changes...") ewoc-nth -1 ("changes") (output error status arguments) #[(output error status arguments #7=#:dvc-gensym-uniq-103 #8=#:dvc-gensym-uniq-102 #9=#:dvc-gensym-uniq-101) "rq\210\306 \n\"\307 !\211\n=\310 \"\210\311 \n\"\210\312 !\210 \203,\313 \"\202-\f\211\2058\314!b-\207" [#9# dvc-revlist-cookie #8# prev cur deleted ewoc-prev ewoc-locate tla-bookmarks-missing-parse-changes dvc-ewoc-delete ewoc-refresh ewoc-next ewoc-location output #7# loc] 4] (output error status arguments) #[(output error status arguments #10=#:dvc-gensym-uniq-105 #11=#:dvc-gensym-uniq-104) "rq\210\306 \n\"\307 !\211\n=\310 \n\"\210\311 !\210 \203%\312 \"\202&\f\211\f\2051\313\f!b-\207" [#11# dvc-revlist-cookie #10# prev cur deleted ewoc-prev ewoc-locate dvc-ewoc-delete ewoc-refresh ewoc-next ewoc-location loc] 4] ewoc-set-hf "" "\n" "end." dvc-separator copy-sequence substitute-command-keys "\\{%s}" symbol-name local-tree version bookmark-name shorttext text node default-directory tla-use-skip-present-option parent-node cur-buf to-delete help menu keymap face str dvc-highlight strcpy key-help prefix-help long-help cadr "================" add-text-properties 0 font-lock-face append mouse-face highlight help-echo dvc-cmenu zerop tla-revision-compute-merged-by] 19 (#$ . 122474) nil]) #@196 Invoke FUNCTION on 'entry-patch nodes of EWOC-LIST. Like (ewoc-map FUNCTION EWOC-LIST), but call FUNCTION only on 'entry-patch nodes. The argument passed to FUNCTION is the element of the ewoc. (defalias 'tla--revision-ewoc-map #[#'ewoc-list "\301\302\"\207" [ewoc-list ewoc-map #[(elem) "@\302=\205\n !\207" [elem function entry-patch] 2]] 3 (#$ . 127029)]) #@204 Invoke FUNCTION on 'entry-patch nodes of EWOC-LIST. Like (ewoc-map FUNCTION EWOC-LIST), but call FUNCTION only on 'entry-patch nodes. The argument passed to FUNCTION is a struct of type tla--revisions. (defalias 'tla--revision-ewoc-map-struct #[#'ewoc-list "\301\302\"\207" [ewoc-list ewoc-map #[(elem) "@\302=\205\f \3038!\207" [elem function entry-patch 3] 3]] 3 (#$ . 127400)]) #@56 Non-nil when the "merged-by" field have been computed. (defvar tla-revision-merge-by-computed nil (#$ . 127792)) #@194 Lint trap. (global value never used, always defined in a let) A hashtable Revision (as string) -> (cons patches merged by this revision . nil) We use a cons to be able to use setcar on it.  (defvar tla--merged-table nil (#$ . 127912)) #@322 Computes the field "merged-by:" for a revision. In a revision list buffer, with revisions containing the "merges:" information, compute another field "merged-by:", containing the reverse information. If revision-A is a merge of revision-B, then, you'll get revision-A merges: revision-B revision-B merged-by: revision-A (defalias 'tla-revision-compute-merged-by #[nil "\303\304\305\"\306\307 \"\210\306\310 \"\210\306\311 \"\210\312\302!\210\313\211)\207" [tla--merged-table dvc-revlist-cookie tla-revision-merge-by-computed make-hash-table :test equal tla--revision-ewoc-map #[(elem) "A@\302H >\204\303\304!\210A@\305\306I\207" [elem cl-struct-dvc-revlist-entry-patch-tags 0 error "dvc-revlist-entry-patch-merged-by storing a non-dvc-revlist-entry-patch" 5 nil] 3] tla--revision-fill-in-table tla--revision-set-merged-patches make-local-variable t] 3 (#$ . 128157) nil]) #@40 Fills in `tla--merged-table' for ELEM. (defalias 'tla--revision-fill-in-table #[(elem) "A@\306H >\204\307\310!\210A@\311H\211\306H >\204 \307\312!\210\n\313H\314\f!\n\306H >\2044\307\315!\210\n\316H\317\211\203q@\320\"\211\203] AB\240\210\202g\321 \317B#\210)A\211\204@-\317\207" [elem cl-struct-dvc-revlist-entry-patch-tags struct cl-struct-tla--revision-tags current-list current 0 error "dvc-revlist-entry-patch-struct accessing a non-dvc-revlist-entry-patch" 3 "tla--revision-revision accessing a non-tla--revision" 1 tla--name-construct "tla--revision-merges accessing a non-tla--revision" 5 nil gethash puthash merged-rev #1=#:--cl-dolist-temp-- tla--merged-table hash-elem] 6 (#$ . 129042)]) #@120 Set the "merged-by" field for other revisions according to ELEM. Adds ELEM to the list of all patches merged by ELEM. (defalias 'tla--revision-set-merged-patches #[(elem) "A@\306H >\204\307\310!\210A@\311H\211\306H >\204 \307\312!\210\n\313H\314\f!\315 \"\316\317!\210A@\306H >\204A\307\320!\210A@\321@\206L\322I,\207" [elem cl-struct-dvc-revlist-entry-patch-tags struct cl-struct-tla--revision-tags current-list current 0 error "dvc-revlist-entry-patch-struct accessing a non-dvc-revlist-entry-patch" 3 "tla--revision-revision accessing a non-tla--revision" 1 tla--name-construct gethash dvc-trace "let" "dvc-revlist-entry-patch-merged-by storing a non-dvc-revlist-entry-patch" 5 nobody tla--merged-table merged-patches] 4 (#$ . 129787)]) #@322 Show missing patches for DATA. ARG is currently ignored but is present for backwards compatibility. LOCAL-TREE is the local tree for which missing patches should be shown. HEADER is currently ignored but is present for backwards compatibility. If CHANGES-TOO is non-nil, show changes for DATA as well as missing patches. (defalias 'tla-bookmarks-missing-elem #[(data arg local-tree header &optional changes-too) "\306\303\nA\"\306\304\nA\"A\307\310 \311\"!\210\312!\210\313 \314\315\316\317\320\n@\321\f!#\322F\"\210\2039\314\315\323D\"\210\321\306\304\nA\"A! AB\313\211\203\207@\324\325\"\211@\204mA\203mA\211\202Z@\314\315\311F\"\210*A\211\204M* ,\207" [local-tree default-directory data partners location tla-arch-branch assoc dvc-switch-to-buffer dvc-get-buffer-create missing cd nil add-to-list item separator format "Bookmark %s (%s):" tla--name-construct bookmark changes mapcar #[(bookmark) "\302\303\304 \"A!\230\205 @\207" [partner bookmark tla--name-construct assoc location] 5] changes-too partner #1=#:--cl-dolist-temp-- tla-bookmarks-alist bookmark-list bookmark-name] 8 (#$ . 130553)]) #@603 Parse a list of revisions. TYPE can be either 'log, 'missing, but could be extended in the future. DETAILS must be non-nil if the buffer contains date, author and summary. MERGES must be non-nil if the buffer contains list of merged patches for each revision. BUFFER is the buffer to parse. PARENT-NODE is an ewoc node to which the new items will be appened. If nil, append at the end of the ewoc list. COOKIE must be the ewoc list containing PARENT-NODE. If CALLBACK is given, it should be a function (or symbol naming a function) that will be called once the revision list has been fully parsed. (defalias 'tla--revisions-parse-list #[(type details merges buffer parent-node cookie &optional callback) "r\306!q\210\307\301!\210\310)\nr q\210\311 )\306!\31045r4q\210eb\210\312\313\310\314#\210\315 \210d`V\203&\316`\317 \"\320y\210\321\322\323\f!\"6\324\325\326\327\3306\331\327\304\323\f!DD&D78\204t9\204t:\204t;\204t<\203 r q\210\332 \203\346\323\f!=\333\334=\"\211>\206\221\3354!?>\203\240\3364!\210\202\271\337=@=A@\340=8\341=8\342=8?&\2107A@\343H@>\204\311\344\345!\2107A@\341?I\210A\203\342\346B!\203\342A \210+\202\nBTB\347\323\f!\310\350\351\333\352\353\344\354\355\356A 7\f6\257D\257E#\210)5\203\310\357\360\2175\202\3617\"\210*\315 \210\2020\362p!\210)r\306!q\210BSBA\203F\346B!\203FA \210-\363!\207" [cookie tla-revision-merge-by-computed parent-node buffer revision parent-buffer ewoc-buffer make-local-variable nil clone-buffer re-search-forward ".*/.*--.*--.*--.*" t beginning-of-line buffer-substring-no-properties line-end-position 1 make-tla--revision :revision tla--name-split entry-patch make-dvc-revlist-entry-patch :dvc tla :struct :rev-id tla-revisions-has-complete-log-option apply tla--archive-tree-get-revision-struct tla--read-complete-log-struct tla--skip-complete-log tla--archive-tree-add-revision 2 3 4 0 error "dvc-revlist-entry-patch-struct storing a non-dvc-revlist-entry-patch" zerop tla--revlog-any lambda (output error status arguments) #[(output error status arguments #1=#:dvc-gensym-uniq-111 #2=#:dvc-gensym-uniq-110 #3=#:dvc-gensym-uniq-109 #4=#:dvc-gensym-uniq-108 #5=#:dvc-gensym-uniq-107 #6=#:dvc-gensym-uniq-106) "rq\210 \306\307!\n\310H\f>\204\311\312!\210\n\313 I\210* \306\314! \310H\f>\204/\311\315!\210 \316I\210* \306\317! \310H\f>\204K\311\320!\210\321 I\210* !\322\"\323\306\324!!\"#!\310H\f>\204n\311\325!\210!\326#I\210+\327\330 \"\210\327\331$\"\210r%q\210&S&'\203\233\332&!\203\233' \210)(\205\245\333(!)\334*!\210)\205\266\335)!b)\207" [output #6# #7=#:--cl-x-- #8=#:--cl-store-- cl-struct-tla--revision-tags #9=#:--cl-x-- tla--read-field "Standard-date" 0 error "tla--revision-date storing a non-tla--revision" 4 "Creator" "tla--revision-creator storing a non-tla--revision" 3 "Summary" "tla--revision-summary storing a non-tla--revision" 2 remove split-string "New-patches" "tla--revision-merges storing a non-tla--revision" 5 dvc-trace "rev-struct=%s" "elem=%s" zerop ewoc-locate ewoc-refresh ewoc-location #10=#:--cl-store-- #11=#:--cl-x-- #12=#:--cl-store-- #13=#:--cl-x-- #5# #14=#:--cl-store-- #4# #3# tla--nb-active-processes #2# dvc-revlist-cookie cur #1#] 5] output status arguments quote (ewoc-enter-after cookie last-node elem) ((error)) ewoc-enter-last kill-buffer ewoc-refresh buffer-to-parse last-node rev-struct elem dvc-revisions-shows-summary dvc-revisions-shows-creator dvc-revisions-shows-date tla-revisions-shows-merges tla-revisions-shows-merged-by rev-list tree-str log-str cl-struct-dvc-revlist-entry-patch-tags callback tla--nb-active-processes] 19 (#$ . 131712)]) #@71 Parse the output of `tla changes' from BUFFER and update PARENT-NODE. (defalias 'tla-bookmarks-missing-parse-changes #[(buffer parent-node) "rq\210eb\210\306\307\310\311#\205\312\313 d\" \211\205,r\314\f\315\"q\210\316 \317 \nE#)+\207" [buffer default-directory local-tree changes tla-arch-branch dvc-revlist-cookie re-search-forward "^[^\\*]" nil t buffer-substring-no-properties line-beginning-position dvc-get-buffer-create missing ewoc-enter-after entry-change parent-node] 7 (#$ . 135393)]) #@38 Open a local tree in a dired buffer. (defalias 'tla-bookmarks-open-tree #[nil "\300\301 !\207" [dired-other-window tla-bookmarks-read-local-tree] 2 (#$ . 135903) nil]) #@162 Find a file starting from the local tree of the current bookmark. This way, you can type C-x C-f in the bookmarks buffer to open a file of a bookmarked project. (defalias 'tla-bookmarks-find-file #[nil "\301\302 !\303\304!)\207" [default-directory dvc-uniquify-file-name tla-bookmarks-read-local-tree call-interactively find-file] 2 (#$ . 136078) nil]) #@186 Run `tla tag' on the current bookmark. If multiple bookmarks are marked, create a tag for each of them. If a prefix argument ARG is given, explicitly ask for the revision to tag from. (defalias 'tla-bookmarks-tag #[(arg) "\204 \306\307\310\"\210 \206\311\312!!C\313\314\n\"\211\315\211\203\215 @\211\211\"G\316U\2038\"\211A\"@\202@\317\320\315\"GD\"#\"\211A\"@$\"@%\321\322\323 \205X\324#$F\325\326\327\330\331\332\306\333\334\335#$%ED\257E\336\326\337\330\340\332\306\333\334\335#CD\257E%\210, A\211\204!+\315\341!)\207" [tla-bookmarks-cookie tla-bookmarks-marked-list list tags tag #1=#:--cl-dolist-temp-- error "Please, run this command from the bookmarks buffer%s" " (M-x tla-bookmarks RET)" ewoc-data ewoc-locate mapcar #[(bookmark) "\303\203\304\305\306\307\310\302 \"A\311\"#\202\310\302 \"A!\211\303\305\312\313\n\"\314\211\211\211%!\315\316!E)\207" [arg bookmark location tla--name-construct apply tla-name-read "Tag from revision: " append assoc (prompt) format "Tag version for '%s': " prompt read-string "Name of the bookmark for this tag: "] 9] nil 3 signal wrong-number-of-arguments tla--run-tla-async "tag" tla-tag-has-setup-option "--setup" :finished lambda (output error status arguments) apply #[(output error status arguments #2=#:dvc-gensym-uniq-114 #3=#:dvc-gensym-uniq-113 #4=#:dvc-gensym-uniq-112) "\304\305 !\"\210\306\307\n\" \310#\207" [#4# #3# tla-bookmarks-alist #2# tla-bookmarks-add tla--name-split tla-bookmarks-add-partner assoc t] 4] output status arguments quote :error (output error status arguments) #[(output error status arguments #5=#:dvc-gensym-uniq-115) "\301\302\"\207" [#5# error "Fail to create a tag for %s"] 3] ewoc-refresh #6=#:--cl-rest-- src destination name] 17 (#$ . 136439) "P"]) #@38 Run `tla inventory' on a local tree. (defalias 'tla-bookmarks-inventory #[nil "\301 \302\303\304\")\207" [default-directory tla-bookmarks-read-local-tree tla-inventory nil t] 3 (#$ . 138223) nil]) #@36 Run `tla-changes' on a local tree. (defalias 'tla-bookmarks-changes #[nil "\301 \302\303\211\")\207" [default-directory tla-bookmarks-read-local-tree tla-changes nil] 3 (#$ . 138427) nil]) #@100 Display xtla bookmarks in a buffer. With prefix argument ARG, reload the bookmarks file from disk. (defalias 'tla-bookmarks #[(&optional arg) "\306!\210\307\310 \311\"!\210`\312\313!\210\314 \210\315\303!\210\316\317\320!!\315\304!\210\321 \321\211\203B@\322 \"\210A\211\204.*\323 \210\ne\232\203b\324 \325\"\203\\\326\324 \325\"!\202d\327\330!\202d\nb)\207" [arg tla-arch-branch pos tla-bookmarks-cookie tla-bookmarks-marked-list tla-bookmarks-alist tla-bookmarks-load-from-file pop-to-buffer dvc-get-buffer-create bookmark toggle-read-only -1 erase-buffer make-local-variable ewoc-create dvc-ewoc-create-api-select tla-bookmarks-printer nil ewoc-enter-last tla-bookmarks-mode ewoc-nth 0 tla-bookmarks-cursor-goto message "You have no bookmarks, create some in the other buffers" elem #1=#:--cl-dolist-temp--] 4 (#$ . 138624) "P"]) #@411 Major mode to show xtla bookmarks. You can add a bookmark with '\\[tla-bookmarks-add]', and remove one with '\[tla-bookmarks-delete]'. After marking a set of files with '\[tla-bookmarks-mark]', make them partners with '\[tla-bookmarks-marked-are-partners]', and you will then be able to use '\[tla-bookmarks-missing]' to view the missing patches. Commands: \{tla-bookmarks-mode-map} (defalias 'tla-bookmarks-mode #[nil "\303!\210\304\305\306\307!\210\310\311!\207" [tla-bookmarks-mode-map major-mode mode-name use-local-map tla-bookmarks-mode "tla-bookmarks" toggle-read-only 1 run-hooks tla-bookmarks-mode-hook] 2 (#$ . 139488) nil]) #@52 Move cursor to the ewoc location of EWOC-BOOKMARK. (defalias 'tla-bookmarks-cursor-goto #[(ewoc-bookmark) "\301!b\210\302\303!\207" [ewoc-bookmark ewoc-location search-forward ":"] 2 (#$ . 140159) nil]) #@39 Move the cursor to the next bookmark. (defalias 'tla-bookmarks-next #[nil "\304 !\305 \n\"\206\n\306 !+\207" [tla-bookmarks-cookie cookie elem next ewoc-locate ewoc-next tla-bookmarks-cursor-goto] 3 (#$ . 140369) nil]) #@43 Move the cursor to the previous bookmark. (defalias 'tla-bookmarks-previous #[nil "\304 !\305 \n\"\206\n\306 !+\207" [tla-bookmarks-cookie cookie elem previous ewoc-locate ewoc-prev tla-bookmarks-cursor-goto] 3 (#$ . 140600) nil]) #@33 Move the current bookmark down. (defalias 'tla-bookmarks-move-down #[nil "\306 !\307\n!\211@\310 \n\"\211\204\311\312!\210\313 \n\"\210\314\315 #!b\210\316\211\203j\211@@)\f\230\203YA@B@BA\202a@BA\211\2043\317!*\320\321!-\207" [tla-bookmarks-cookie cookie elem data oldname next ewoc-locate ewoc-data ewoc-next error "Can't go lower" dvc-ewoc-delete ewoc-location ewoc-enter-after nil reverse search-forward ":" tla-bookmarks-alist newlist list x] 6 (#$ . 140843) nil]) #@31 Move the current bookmark up. (defalias 'tla-bookmarks-move-up #[nil "\306 !\307\n!\211@\310 \n\"\211\204\311\312!\210\313 \n\"\210\314\315 #!b\210\316\211\203kA\211@@)\f\230\203ZA@B@BA\202b@BA\211\2043\317!*\320\321!-\207" [tla-bookmarks-cookie cookie elem data oldname previous ewoc-locate ewoc-data ewoc-prev error "Can't go upper" dvc-ewoc-delete ewoc-location ewoc-enter-before nil reverse search-forward ":" tla-bookmarks-alist newlist list x] 6 (#$ . 141373) nil]) #@61 Construct an a/c--b--v--r string from the current bookmark. (defalias 'tla--get-location-as-string #[nil "\303\304!!\305\302 \"A\306\n!*\207" [tla-bookmarks-cookie elem location ewoc-data ewoc-locate assoc tla--name-construct] 3 (#$ . 141905)]) #@75 Run `tla get' on the bookmark under point, placing the tree in DIRECTORY. (defalias 'tla-bookmarks-get #[(directory) "\304\305!!\306\302 \"A\307 \310\311\n!\312\n!\313\n!\314\n!&*\207" [tla-bookmarks-cookie elem location directory ewoc-data ewoc-locate assoc tla-get t tla--name-archive tla--name-category tla--name-branch tla--name-version] 8 (#$ . 142159) (list (expand-file-name (dvc-read-directory-name (format "Get %s in directory: " (tla--get-location-as-string)))))]) #@45 Browse the archive of the current bookmark. (defalias 'tla-bookmarks-goto #[nil "\306\307!!\310\302 \"A\311\n!\312\n!\313\n!\314\n!\211\203+\315 \f $\202O \2037\316 \f #\202O\f\203B\317 \f\"\202O \203L\320 !\202O\321\322!.\207" [tla-bookmarks-cookie elem location archive category branch ewoc-data ewoc-locate assoc tla--name-archive tla--name-category tla--name-branch tla--name-version tla-revisions tla-versions tla-branches tla-categories error "Nothing specified for this bookmark" version] 6 (#$ . 142644) nil]) #@44 `tla-bookmarks-goto' with mouse interface. (defalias 'tla-bookmarks-goto-by-mouse #[(event) "\301!\210\302 \207" [event mouse-set-point tla-bookmarks-goto] 2 (#$ . 143187) "e"]) #@100 Star-merge the current bookmark to a local tree. Accepts prefix argument ARG for future extension. (defalias 'tla-bookmarks-star-merge #[(arg) "\304\305!!\306\302 \"A\307\310!\311\312\n! \"+\207" [tla-bookmarks-cookie elem location local-tree ewoc-data ewoc-locate assoc dvc-read-directory-name "Star-merge into: " tla-star-merge tla--name-construct] 3 (#$ . 143373) "P"]) #@99 Replay the current bookmark to some local tree. Accepts prefix argument ARG for future extension. (defalias 'tla-bookmarks-replay #[(arg) "\304\305!!\306\307\302 \"A!\310\311\312\n\"!\313\n \"+\207" [tla-bookmarks-cookie elem location local-tree ewoc-data ewoc-locate tla--name-construct assoc dvc-read-directory-name format "Replay %s into: " tla-replay] 4 (#$ . 143756) "P"]) #@98 Update the local tree of the current bookmark. Accepts prefix argument ARG for future extension. (defalias 'tla-bookmarks-update #[(arg) "p \206\f\305\306\n!!C\307\310 \"\311\312\f\"\210rq\210\313\314\n!,\207" [buf tla-bookmarks-marked-list tla-bookmarks-cookie work-list update-trees ewoc-data ewoc-locate mapcar #[(bookmark) "\302\303\"A\304 \204\305\306\307@\"\310\211\311$\202, A\203*\312\306\307@\" \310\311$\202, @!)\207" [bookmark local-trees assoc local-tree dvc-uniquify-file-name dvc-read-directory-name format "Local tree for '%s'?: " nil t dvc-completing-read] 6] mapc tla-update nil ewoc-refresh] 3 (#$ . 144144) "P"]) #@104 Add the association (NAME . INFO) to the list of bookmarks, and save it. This is an internal function. (defalias 'tla-bookmarks-add-elem #[(name info) "\305 \"\203 \306\307P!\210\nB\310\301 \311#\210\312 \210\313\f \")\207" [name tla-bookmarks-alist info elem tla-bookmarks-cookie assoc error "Already got a bookmark " dvc-add-to-list t tla-bookmarks-save-to-file ewoc-enter-last] 4 (#$ . 144798)]) #@46 Add a bookmark named NAME for REVISION-SPEC. (defalias 'tla-bookmarks-add #[(name revision-spec) "\304\305\"\204\n\306 \210r\307\305\"q\210\310 B\311\312 BD\313 \n\"*\207" [tla-arch-branch revision-spec info name dvc-get-buffer bookmark tla-bookmarks dvc-get-buffer-create location timestamp current-time-string tla-bookmarks-add-elem] 3 (#$ . 145208) (let* ((fq (tla-name-read "Version: " 'prompt 'prompt 'prompt 'prompt)) (n (read-string (format "Name of the bookmark for `%s': " (tla--name-construct fq))))) (list n fq))]) #@29 Mark the bookmark at point. (defalias 'tla-bookmarks-mark #[nil "`\302\303\304\305 !!\"\210\306 !\210b\210)\307 \207" [pos tla-bookmarks-cookie add-to-list tla-bookmarks-marked-list ewoc-data ewoc-locate ewoc-refresh tla-bookmarks-next] 5 (#$ . 145744) nil]) #@31 Unmark the bookmark at point. (defalias 'tla-bookmarks-unmark #[nil "`\303\304\305 !!\n\"\306 !\210b\210)\307 \207" [pos tla-bookmarks-cookie tla-bookmarks-marked-list delq ewoc-data ewoc-locate ewoc-refresh tla-bookmarks-next] 4 (#$ . 146011) nil]) #@41 Unmark all bookmarks in current buffer. (defalias 'tla-bookmarks-unmark-all #[nil "`\303\304\n!\210b)\207" [pos tla-bookmarks-marked-list tla-bookmarks-cookie nil ewoc-refresh] 2 (#$ . 146270) nil]) #@40 Make marked bookmarks mutual partners. (defalias 'tla-bookmarks-marked-are-partners #[nil "\306\307\"\310\211\203F @\311\312\313\n\"A!\314\f!\210 \310\211\203>@\f \230\2045\315\n \316#\210A\211\204%+ A\211\204 +\317 \210\320\213\207" [tla-bookmarks-marked-list list-arch book #1=#:--cl-dolist-temp-- myloc arch mapcar #[(x) "\301\302\303\304\305\"A!\"\207" [x format "%s" tla--name-construct assoc location] 6] nil tla--name-construct assoc location message tla-bookmarks-add-partner t tla-bookmarks-save-to-file ((tla-bookmarks)) #2=#:--cl-dolist-temp--] 6 (#$ . 146478) nil]) #@61 Remove LOCAL-TREE field from bookmarks if they don't exist. (defalias 'tla-bookmarks-cleanup-local-trees #[nil "\306\211\203D\n@\307\303 \"A\306\211\203<\f@\310 !\2045 \204/\311\312\313 @#!\2035\314 \315#\210\fA\211\204*\nA\211\204*\316 \210\317\213\207" [tla-bookmarks-alist book #1=#:--cl-dolist-temp-- local-tree #2=#:--cl-dolist-temp-- tla-bookmarks-cleanup-dont-prompt nil assoc file-exists-p y-or-n-p format "Remove tree %s from bookmarks %s? " tla-bookmarks-delete-tree t tla-bookmarks-save-to-file ((tla-bookmarks))] 7 (#$ . 147086) nil]) #@82 Delete the bookmark entry ELEM. If FORCE is non-nil, don't ask for confirmation. (defalias 'tla-bookmarks-delete #[(elem &optional force) "\306!\n\204\307\310\311 @\"!\205D\312 \"\210\f\313\211\203=\211@@) @\230\2044@ BA\211\204 \314 !*\315 )\207" [elem data force tla-bookmarks-cookie tla-bookmarks-alist newlist ewoc-data yes-or-no-p format "Delete bookmark \"%s\"? " dvc-ewoc-delete nil reverse tla-bookmarks-save-to-file list x] 5 (#$ . 147659) (list (ewoc-locate tla-bookmarks-cookie))]) #@58 Find the bookmark whose location is LOCATION (a string). (defalias 'tla-bookmarks-find-bookmark #[(location) "\305\211\203%\306\307\304\n\211@A)\"A!\f\230\203\n@\305\nA\211\204 *\207" [tla-bookmarks-alist result list x location nil tla--name-construct assoc] 5 (#$ . 148182)]) #@67 Return VERSION'S value of FIELD, or DEFAULT if there is no value. (defalias 'tla-bookmarks-get-field #[(version field default) "\300 \210\301\302\215\207" [tla-bookmarks-load-from-file --cl-block-dolist-- (byte-code "\306\211\203U\n@\307\303 \"A\310 !\310\f!\230\203M\311 !\311\f!\230\203M\312 !\312\f!\230\203M\313 !\313\f!\230\203M\314\315\307 A\"\211A@)\206K\"\210)\nA\211\204*\207" [tla-bookmarks-alist elem #1=#:--cl-dolist-temp-- location version field nil assoc tla--name-archive tla--name-category tla--name-branch tla--name-version throw --cl-block-dolist-- x default] 6)] 2 (#$ . 148477)]) #@83 Define an interactive function called NAME for editing FIELD of a bookmark entry. (defalias 'tla--bookmarks-make-edit-fn '(macro . #[(name field read-fn) "\303\304\305\306\307\310\311\312\313 \314BBD\315\316\315\n\317BEDD\320\312\321\313 \322BB\323BB\321\324\325\326 \327BB\330BBEFEE\331BBBBBB\207" [name field read-fn defun (bookmarks value &optional dont-save) "Adds the directory VALUE to the list of local trees of bookmark\nBOOKMARK.\nUnless DONT-SAVE is non-nil, save the bookmark file." (interactive (let* ((bookmarks (or tla-bookmarks-marked-list (list (ewoc-data (ewoc-locate tla-bookmarks-cookie))))) (bookmark (car bookmarks))) (list bookmarks nil))) dolist (bookmark bookmarks) let* field-contents assoc ((cdr bookmark)) value or ((car bookmark) (cadr field-contents)) if setcdr ((cdr bookmark)) ((list value)) bookmark cons list (value) ((cdr bookmark)) ((unless dont-save (tla-bookmarks-save-to-file) (save-window-excursion (tla-bookmarks))))] 18 (#$ . 149104)])) #@128 Adds the directory VALUE to the list of local trees of bookmark BOOKMARK. Unless DONT-SAVE is non-nil, save the bookmark file. (defalias 'tla-bookmarks-edit-summary #[(bookmarks value &optional dont-save) "\306\211\203H\n@\307\310 A\"\f\206& @\311 !\312\313\314\" \"* \2037\307\310 A\"\fC\241\210\202@ \310\fD AB\241\210*\nA\211\204*?\205T\315 \210\316\213\207" [bookmarks bookmark #1=#:--cl-dolist-temp-- field-contents value val nil assoc summary-format cadr read-string format "Summary for %s (use %%s for the merge string): " tla-bookmarks-save-to-file ((tla-bookmarks)) prompt dont-save] 5 (#$ . 150090) (let* ((bookmarks (or tla-bookmarks-marked-list (list (ewoc-data (ewoc-locate tla-bookmarks-cookie))))) (bookmark (car bookmarks))) (list bookmarks nil))]) #@221 Define a function called NAME for adding FIELD to a bookmark entry. This function will display MESSAGE-ALREADY if the user tries to add a field twice, and will display MESSAGE-ADD when a new field is successfully added. (defalias 'tla-bookmarks-make-add-fn '(macro . #[(name field message-already message-add) "\304\305\306\307\310\311 \312BBDC\313\310\313\314\315\nD\316\315 D\317BBF\316\315 D\320\321\322\323 \324BB\325BBEEF\326BBB\257\207" [name field message-already message-add defun (bookmark value &optional dont-save) "Adds the directory VALUE to the list of local trees of bookmark\nBOOKMARK.\nUnless DONT-SAVE is non-nil, save the bookmark file." let field-contents assoc ((cdr bookmark)) if (member value (cdr field-contents)) message progn ((setcdr field-contents (cons value (cdr field-contents)))) setcdr bookmark cons list (value) ((cdr bookmark)) ((unless dont-save (tla-bookmarks-save-to-file) (save-window-excursion (tla-bookmarks))))] 17 (#$ . 150883)])) #@128 Adds the directory VALUE to the list of local trees of bookmark BOOKMARK. Unless DONT-SAVE is non-nil, save the bookmark file. (defalias 'tla-bookmarks-add-tree #[(bookmark value &optional dont-save) "\304\305A\"\211\203&\n A\235\203\306\307!\210\2023\306\310!\210 \n AB\241\210\2023\306\310!\210\305\nDAB\241\210 ?\205=\311 \210\312\213)\207" [bookmark field-contents value dont-save assoc local-tree message "Local tree already in the list" "Local tree added to your bookmarks" tla-bookmarks-save-to-file ((tla-bookmarks))] 4 (#$ . 151866)]) #@128 Adds the directory VALUE to the list of local trees of bookmark BOOKMARK. Unless DONT-SAVE is non-nil, save the bookmark file. (defalias 'tla-bookmarks-add-partner #[(bookmark value &optional dont-save) "\304\305A\"\211\203&\n A\235\203\306\307!\210\2023\306\310!\210 \n AB\241\210\2023\306\310!\210\305\nDAB\241\210 ?\205=\311 \210\312\213)\207" [bookmark field-contents value dont-save assoc partners message "Partner already in the list" "Partner added to your bookmarks" tla-bookmarks-save-to-file ((tla-bookmarks))] 4 (#$ . 152427)]) #@128 Adds the directory VALUE to the list of local trees of bookmark BOOKMARK. Unless DONT-SAVE is non-nil, save the bookmark file. (defalias 'tla-bookmarks-add-group #[(bookmark value &optional dont-save) "\304\305A\"\211\203&\n A\235\203\306\307!\210\2023\306\310!\210 \n AB\241\210\2023\306\310!\210\305\nDAB\241\210 ?\205=\311 \210\312\213)\207" [bookmark field-contents value dont-save assoc groups message "Group already in the list" "Group added to your bookmarks" tla-bookmarks-save-to-file ((tla-bookmarks))] 4 (#$ . 152983)]) #@128 Adds the directory VALUE to the list of local trees of bookmark BOOKMARK. Unless DONT-SAVE is non-nil, save the bookmark file. (defalias 'tla-bookmarks-add-nickname #[(bookmark value &optional dont-save) "\304\305A\"\211\203&\n A\235\203\306\307!\210\2023\306\310!\210 \n AB\241\210\2023\306\310!\210\305\nDAB\241\210 ?\205=\311 \210\312\213)\207" [bookmark field-contents value dont-save assoc nickname message "Nickname already in the list" "Nickname added to your bookmark" tla-bookmarks-save-to-file ((tla-bookmarks))] 4 (#$ . 153531)]) #@73 Define a function called NAME for removing FIELD from bookmark entries. (defalias 'tla-bookmarks-make-delete-fn '(macro . #[(name field) "\302\303\304\305\306\307 \310BBDC\311\306\305\312\313\314\315\307 \316BBDEDC\317BBE\320BBB\257\207" [name field defun (bookmark value &optional dont-save) "Deletes the directory VALUE to the list of local trees of bookmark\nBOOKMARK." let local-trees assoc ((cdr bookmark)) when rem-list delete value cdr (bookmark) ((if rem-list (setcdr local-trees rem-list) (setcdr bookmark (delq local-trees (cdr bookmark))))) ((unless dont-save (tla-bookmarks-save-to-file) (save-window-excursion (tla-bookmarks))))] 16 (#$ . 154088)])) #@78 Deletes the directory VALUE to the list of local trees of bookmark BOOKMARK. (defalias 'tla-bookmarks-delete-tree #[(bookmark value &optional dont-save) "\305\306A\"\211\203'\307\n\305\306\"A\"\211\203 \241\210\202&\310 A\"\241\210)\f?\2051\311 \210\312\213)\207" [bookmark local-trees value rem-list dont-save assoc local-tree delete delq tla-bookmarks-save-to-file ((tla-bookmarks))] 6 (#$ . 154759)]) #@78 Deletes the directory VALUE to the list of local trees of bookmark BOOKMARK. (defalias 'tla-bookmarks-delete-partner #[(bookmark value &optional dont-save) "\305\306A\"\211\203'\307\n\305\306\"A\"\211\203 \241\210\202&\310 A\"\241\210)\f?\2051\311 \210\312\213)\207" [bookmark local-trees value rem-list dont-save assoc partners delete delq tla-bookmarks-save-to-file ((tla-bookmarks))] 6 (#$ . 155181)]) #@78 Deletes the directory VALUE to the list of local trees of bookmark BOOKMARK. (defalias 'tla-bookmarks-delete-group #[(bookmark value &optional dont-save) "\305\306A\"\211\203'\307\n\305\306\"A\"\211\203 \241\210\202&\310 A\"\241\210)\f?\2051\311 \210\312\213)\207" [bookmark local-trees value rem-list dont-save assoc groups delete delq tla-bookmarks-save-to-file ((tla-bookmarks))] 6 (#$ . 155604)]) #@78 Deletes the directory VALUE to the list of local trees of bookmark BOOKMARK. (defalias 'tla-bookmarks-delete-nickname #[(bookmark value &optional dont-save) "\305\306A\"\211\203'\307\n\305\306\"A\"\211\203 \241\210\202&\310 A\"\241\210)\f?\2051\311 \210\312\213)\207" [bookmark local-trees value rem-list dont-save assoc nickname delete delq tla-bookmarks-save-to-file ((tla-bookmarks))] 6 (#$ . 156023)]) #@51 Add a partner to the current or marked bookmarks. (defalias 'tla-bookmarks-add-partner-interactive #[nil "\206\n\306\307 !!C\310\311\312\313\211\211\211%!\211\314\211\203- @\315\f\n\316#\210 A\211\204*\317 \210\320\213*\207" [tla-bookmarks-marked-list tla-bookmarks-cookie partner bookmarks bookmark #1=#:--cl-dolist-temp-- ewoc-data ewoc-locate tla--name-construct tla-name-read "Add partner version: " prompt nil tla-bookmarks-add-partner t tla-bookmarks-save-to-file ((tla-bookmarks))] 9 (#$ . 156447) nil]) #@51 Add a partner to the current or marked bookmarks. (defalias 'tla-bookmarks-add-partners-from-file #[nil "\206\n\306\307 !!C\211\310\211\203C\f@\311\312 !!\211\310\211\203;@\313 \314#\210A\211\204&+\fA\211\204*\315 \210\316\213)\207" [tla-bookmarks-marked-list tla-bookmarks-cookie bookmarks bookmark #1=#:--cl-dolist-temp-- partners ewoc-data ewoc-locate nil tla-partner-list tla-bookmarks-read-local-tree tla-bookmarks-add-partner t tla-bookmarks-save-to-file ((tla-bookmarks)) partner #2=#:--cl-dolist-temp--] 7 (#$ . 156975) nil]) #@65 Add the partners recorded in the bookmarks to the partner file. (defalias 'tla-bookmarks-write-partners-to-file #[nil "\206\n\306\307 !!C\211\310\211\203}\f@\311 !\312 !r\313 !q\210db\210`\314 =\2042\315 \210\316\317 A\"A\310\211\203\\@\211\235\204S\320\261\210A\211\204A*\321 \203u\322p!\210\323\324\325\326 \"!\203u\327\326 !\210+\fA\211\204+\310\207" [tla-bookmarks-marked-list tla-bookmarks-cookie bookmarks bookmark #1=#:--cl-dolist-temp-- local-tree ewoc-data ewoc-locate nil tla-bookmarks-read-local-tree tla-partner-list tla-partner-find-partner-file line-beginning-position newline assoc partners "\n" buffer-modified-p switch-to-buffer y-or-n-p format "Save file %s? " buffer-file-name write-file partner #2=#:--cl-dolist-temp--] 6 (#$ . 157542) nil]) #@56 Delete a partner from the current or marked bookmarks. (defalias 'tla-bookmarks-delete-partner-interactive #[nil "\206\n\306\307 !!C\310\311\312\313\n\"\"\312\314 \"\315\316\f\"\n\317\211\203<@\320 \321#\210A\211\204'*\322 \210\323\213,\207" [tla-bookmarks-marked-list tla-bookmarks-cookie bookmarks choices choices-alist partner ewoc-data ewoc-locate apply append mapcar #[(x) "\301\302A\"A\207" [x assoc partners] 3] #[(x) "C\207" [x] 1] dvc-completing-read "Partner to remove: " nil tla-bookmarks-delete-partner t tla-bookmarks-save-to-file ((tla-bookmarks)) bookmark #1=#:--cl-dolist-temp--] 5 (#$ . 158346) nil]) #@54 Add a local tree to the current or marked bookmarks. (defalias 'tla-bookmarks-add-tree-interactive #[nil "\206\n\306\307 !!C\310\311!\312\313\n!\314P!\204\315\n\316P!\210 \317\211\2037 @\320\f\n\321#\210 A\211\204'*\322 \210\323\213*\207" [tla-bookmarks-marked-list tla-bookmarks-cookie local-tree bookmarks bookmark #1=#:--cl-dolist-temp-- ewoc-data ewoc-locate dvc-read-directory-name "Local tree to add: " file-exists-p file-name-as-directory "{arch}" error " is not an arch local tree." nil tla-bookmarks-add-tree t tla-bookmarks-save-to-file ((tla-bookmarks))] 5 (#$ . 158994) nil]) #@54 Add a local tree to the current or marked bookmarks. (defalias 'tla-bookmarks-delete-tree-interactive #[nil "\206\n\306\307 !!C\310\311\312\313\n\"\"\312\314 \"\315\316\f\"\n\317\211\203<@\320 \321#\210A\211\204'*\322 \210\323\213,\207" [tla-bookmarks-marked-list tla-bookmarks-cookie bookmarks choices choices-alist local-tree ewoc-data ewoc-locate apply append mapcar #[(x) "\301\302A\"A\207" [x assoc local-tree] 3] #[(x) "C\207" [x] 1] dvc-completing-read "Local tree to remove: " nil tla-bookmarks-delete-tree t tla-bookmarks-save-to-file ((tla-bookmarks)) bookmark #1=#:--cl-dolist-temp--] 5 (#$ . 159600) nil]) #@56 Return the list of groups currently used by bookmarks. (defalias 'tla-bookmarks-list-groups #[nil "\305\306\307\310\"\"\311\211\311\211\203!\f@\312\301 \"\210\fA\211\204* *\207" [tla-bookmarks-alist result list elem #1=#:--cl-dolist-temp-- apply append mapcar #[(x) "\301\302A\"A\207" [x assoc groups] 3] nil add-to-list] 6 (#$ . 160248)]) #@55 Add a group entry in the current or marked bookmarks. (defalias 'tla-bookmarks-add-group-interactive #[nil "\206\n\306\307 !!C\310\311\312\313\314 \"\"\n\315\211\203, @\316\f \317#\210 A\211\204,\320 \210\321\213\207" [tla-bookmarks-marked-list tla-bookmarks-cookie bookmarks group bookmark #1=#:--cl-dolist-temp-- ewoc-data ewoc-locate dvc-completing-read "Group of bookmarks: " mapcar #[(x) "C\207" [x] 1] tla-bookmarks-list-groups nil tla-bookmarks-add-group t tla-bookmarks-save-to-file ((tla-bookmarks))] 5 (#$ . 160605) nil]) #@72 Delete a group of bookmark entry from the current or marked bookmarks. (defalias 'tla-bookmarks-delete-group-interactive #[nil "\206\n\306\307 !!C\310\311\312\313\n\"\"\312\314 \"\315\316\f\"\n\317\211\203<@\320 \321#\210A\211\204'.\322 \210\323\213\207" [tla-bookmarks-marked-list tla-bookmarks-cookie bookmarks choices choices-alist group ewoc-data ewoc-locate apply append mapcar #[(x) "\301\302A\"A\207" [x assoc groups] 3] #[(x) "C\207" [x] 1] dvc-completing-read "Group to remove: " nil tla-bookmarks-delete-group t tla-bookmarks-save-to-file ((tla-bookmarks)) bookmark #1=#:--cl-dolist-temp--] 5 (#$ . 161155) nil]) #@32 Select all bookmarks in GROUP. (defalias 'tla-bookmarks-select-by-group #[(group) "\305\211\203!\n@ \306\307 \"A\235\203\310\311 \"\210\nA\211\204*\312\f!\207" [tla-bookmarks-alist bookmark #1=#:--cl-dolist-temp-- group tla-bookmarks-cookie nil assoc groups add-to-list tla-bookmarks-marked-list ewoc-refresh] 5 (#$ . 161809) (list (dvc-completing-read "Group to select: " (mapcar (lambda (x) (list x)) (tla-bookmarks-list-groups))))]) #@41 Add a nickname to the current bookmark. (defalias 'tla-bookmarks-add-nickname-interactive #[nil "\303\304!!\305\306\307\310\311 \"A!\"\312 \313\n!\314#\210\315 \210\316\213*\207" [tla-bookmarks-cookie bookmark prompt ewoc-data ewoc-locate format "Nickname for %s: " tla--name-construct assoc location tla-bookmarks-add-nickname read-string t tla-bookmarks-save-to-file ((tla-bookmarks))] 6 (#$ . 162261) nil]) #@46 Delete the nickname of the current bookmark. (defalias 'tla-bookmarks-delete-nickname-interactive #[nil "\304\305!!\306\303 \"\211A@)\307 \310#\210\311 \210\312\213*\207" [tla-bookmarks-cookie bookmark x nickname ewoc-data ewoc-locate assoc tla-bookmarks-delete-nickname t tla-bookmarks-save-to-file ((tla-bookmarks))] 5 (#$ . 162680) nil]) #@49 The bookmark manipulated in the current buffer. (defvar tla-buffer-bookmark nil (#$ . 163032)) #@29 Edit the bookmark at point. (defalias 'tla-bookmarks-edit #[nil "\304!\305 !\306\307\n@\310Q!\210\311 \210\312 \210\313\303!\210 \314c\210\315\np\"\210eb\210\316y\210\316u\210\317\320\321\"*\207" [tla-bookmarks-cookie elem data tla-buffer-bookmark ewoc-locate ewoc-data pop-to-buffer "*xtla bookmark " "*" erase-buffer emacs-lisp-mode make-local-variable ";; Edit the current bookmark. C-c C-c to finish\n\n" pp 2 local-set-key [(control 99) (control 99)] #[nil "eb\210\306p! \307\n!@\310p!\210\311\312\f\313\"!\210\307\n!@\240\210\307\n!A\241\210 \314\211\203X\211@@) \230\203GB\202O@BA\211\2041\315!*\316 \210\212\317 ,\207" [newval tla-buffer-bookmark elem oldname tla-arch-branch tla-bookmarks-alist read ewoc-data kill-buffer pop-to-buffer dvc-get-buffer-create bookmark nil reverse tla-bookmarks-save-to-file tla-bookmarks newlist list x] 5 nil nil]] 4 (#$ . 163133) nil]) #@193 Return version lists of partners in bookmarks for VERSION. Each version in the returned list has a list form. If no partner, return nil. VERSION is a fully qualified version string or a list. (defalias 'tla-bookmarks-get-partner-versions #[(version) "\303 \210:\203\304\305\211\211\211\211&\306!\307\302 \"A\310\311\n\"*\207" [version bookmark partners tla-bookmarks-load-from-file tla--name-mask t tla-bookmarks-find-bookmark assoc mapcar tla--name-split] 7 (#$ . 164058)]) (byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list tla-archives-list-cookie default-boundp set-default nil] 3) #@28 Start the archive browser. (defalias 'tla-archives #[nil "\306\307\310\"!\210\311 \210\312 !\313\314 \315\211\211\211\316\317!\210\320 \210\321\322!\210\323\324\325!!\326 \210\203g\211@@)\211@A)@A\f\230\211\203[`\327\f E\"\210\2023\330\331!\210`eV\203y\332\330!\210)\n\205\200\nb.\207" [tla-arch-branch tla--archive-tree p archive-locations archive-name defaultp dvc-switch-to-buffer dvc-get-buffer-create archives tla--archive-tree-build-archives reverse t tla-my-default-archive nil toggle-read-only -1 tla-archive-list-mode make-local-variable tla-archives-list-cookie ewoc-create dvc-ewoc-create-api-select tla-archives-list-printer erase-buffer ewoc-enter-last 1 ewoc-refresh delete-backward-char my-default-archive inhibit-read-only a-list x] 8 (#$ . 164689) nil]) #@135 Add an entry for ARCHIVE at LOCATIONS to the archive list. If DEFAULTP is non-nil, this item will be rendered as the default archive. (defalias 'tla-archives-list-printer #[(item) "@A@\3068`\307 \203\202\310\311\312 \313\314$\261\210\315 \210\f\307\211\203E@\316\317\261\210A\211\2040*\320\321!\210\322\n`\"\323 \324\325#\210\323 \326#\210\323 \327 #-\207" [item overlay start-pos defaultp locations archive 2 nil " " " " dvc-face-add-with-condition dvc-marked tla-archive-name newline " " "\n" backward-delete-char 1 make-overlay overlay-put category tla-default-button keymap tla-archive-info dvc-mark location #1=#:--cl-dolist-temp-- tla-archive-archive-map] 7 (#$ . 165513)]) #@33 Jump to the archive named NAME. (defalias 'tla-archives-goto-archive-by-name #[(name) "p\302\303\"=\204 \304\305!\210eb\210\306 !\210\307 \207" [tla-arch-branch name dvc-get-buffer archives error "`tla-archives-goto-archive-by-name' can only be called in *{tla|baz}-archives* buffer" search-forward beginning-of-line] 4 (#$ . 166241)]) #@70 Get some PROPERTY of the archive at point in an archive list buffer. (defalias 'tla-get-archive-info #[(&optional property) "\204\302\303`!@\211\205\304 \")\207" [property overlay tla-archive-info overlays-at overlay-get] 4 (#$ . 166585)]) #@345 Set or get the default archive. When called with a prefix argument NEW-DEFAULT: Ask the user for the new default archive. If NEW-DEFAULT IS A STRING: Set the default archive to this string. When called with no argument: return the name of the default argument. When called interactively, with no argument: Show the name of the default archive. (defalias 'tla-my-default-archive #[(&optional new-default) "\247\204<\203G\302V\203\303\304\305\"@t;\203-\306\307\"\210\310\311D\312\313#\202P\310\314\312\315\316\317\320\321\322\323\324\325 CD\257E\326\315\327\317\330\321\322\323\324\325 CD\257E%)\207" [new-default i-p 0 tla-name-read nil prompt message "Setting arch default archive to: %s" tla--run-tla-sync "my-default-archive" :finished dvc-null-handler ("my-default-archive") lambda (output error status arguments) apply #[(output error status arguments #1=#:dvc-gensym-uniq-116) "\303!\n\203 \304\305 \"\210 )\207" [output result #1# dvc-buffer-content message "Default arch archive: %s"] 3] output error status arguments quote :error (output error status arguments) #[(output error status arguments #2=#:dvc-gensym-uniq-117) "\305=\203 \203\306\307!\207\310\207\311\n \f$\207" [status #2# output error arguments 1 message "default archive not set" "" dvc-default-error-function] 5]] 15 (#$ . 166840) "P"]) #@38 Call tla whereis-archive on ARCHIVE. (defalias 'tla-whereis-archive #[(&optional archive) "\302 \204\303\304\305\306\"\307\310#\311\312 D\313\314#t\203!\315\316 #\210)\207" [location archive nil tla--name-mask tla-name-read "Archive: " prompt t :archive tla--run-tla-sync "whereis-archive" :finished #[(output error status arguments) "\301!\207" [output dvc-buffer-content] 2] message "archive location for %s: %s"] 4 (#$ . 168183) "P"]) #@79 If ffap-url-regexp doesn't match sftp URL, use another value that matches it. (defvar tla--ffap-url-regexp (byte-code "\303\304\n\205\305\n\"\205*\203\n\207\306\207" [string case-fold-search ffap-url-regexp "sftp://host" t string-match "\\`\\(news\\(post\\)?:\\|mailto:\\|file:\\|\\(s?ftp\\|https?\\|telnet\\|gopher\\|www\\|wais\\)://\\)."] 3) (#$ . 168636)) #@334 Read the location for an archive operation, prompting with PROMPT. The following forms are supported: * local path: e.g.: ~/archive2004 * ftp path: e.g.: ftp://user:passwd@host.name.com/remote-path * sftp path: e.g.: sftp://user:passwd@host.name.com/remote-path * HTTP/WebDAV path: e.g.: http://user:passwd@host.name.com/remote-path (defalias 'tla--read-location #[(prompt) "\304\n\305 \"\306\307 \"\203\310 !\202 *\207" [tla--ffap-url-regexp ffap-url-regexp prompt l ffap-read-file-or-url ffap-url-at-point string-match "^~" expand-file-name] 3 (#$ . 169012)]) #@75 Call `tla--register-archive' interactively and `tla-archives' on success. (defalias 'tla-register-archive #[nil "\304\305!\211@A@\3068 \205.\307 \210\310\311 !\210\312\313 \"\203)\314\315 \"\202*\n!\210\316 ,\207" [result archive-registered archive tla-response call-interactively tla--register-archive 3 tla-archives tla-archives-goto-archive-by-name message string-match ".+: \\(.+\\)" match-string-no-properties 1 dvc-flash-line] 5 (#$ . 169587) nil]) #@619 Register arch archive. LOCATION should be either a local directory or a remote path. When ffap is available the url at point is suggested for LOCATION. ARCHIVE is the name is archive. If ARCHIVE is not given or an empty string, the default name is used. The return value is a list. - The first element shows whether the archive is registered or not; t means that it is registered, already means that the archive was already registered, and nil means that it is not registered. - The second element shows archive name. - The third element shows archive location. - The fourth element is the command output string. (defalias 'tla--register-archive #[(location &optional archive) "\203 G\304=\203 \305\305\211\306\307 E\310\311\312\313%\210\n F*\207" [archive tla-response archive-registered location 0 nil tla--run-tla-sync "register-archive" :finished #[(output error status arguments) "\304 \305\306\307\310\n! #\207" [tla-response archive-registered output location dvc-get-process-output t message "%s (=> %s)" dvc-buffer-content] 4] :error #[(output error status arguments) "\306  \307=\203 \310\211\207\311 \f $\207" [tla-response status archive-registered output error arguments dvc-get-error-output 2 already dvc-default-error-function] 5]] 6 (#$ . 170058) (list (tla--read-location "Location: ") (when (eq tla-arch-branch 'tla) (read-string "Archive (empty for default): ")))]) #@106 Delete the registration of ARCHIVE. When ASK-FOR-CONFIRMATION is non nil, ask the user for confirmation. (defalias 'tla--unregister-archive #[(archive ask-for-confirmation) "\304!\204 \305 \210\304!\211A@) \203 \306\307\310\n#!\205(\311\312\313E\314\315#)\207" [archive x location ask-for-confirmation tla--archive-tree-get-archive tla--archive-tree-build-archives yes-or-no-p format "Delete the registration of %s(=> %s)? " tla--run-tla-sync "register-archive" "--delete" :finished #[(output error status arguments) "\302\303 #\207" [archive location message "Deleted the registration of %s (=> %s)"] 4]] 6 (#$ . 171471)]) #@31 Edit the location of ARCHIVE. (defalias 'tla--edit-archive-location #[(archive) "\303!\304\305\306\" \" \n\230?\205\307\310\"\210\311\n\"*\207" [archive old-location new-location tla-whereis-archive read-string format "New location for %s: " tla--unregister-archive nil tla--register-archive] 4 (#$ . 172111)]) #@67 Call `tla--make-archive' interactively then call `tla-archives'. (defalias 'tla-make-archive #[nil "\300\301!\210\302 \207" [call-interactively tla--make-archive tla-archives] 2 (#$ . 172436) nil]) (defalias 'tla--make-archive-read-location #[nil "\302\211 \204A\303\304!\305\306!\307=\203\310!\311!\203+\312\313\"\210\302\314\315!\210\311\316!!\204\312\317\"\210\302\314\315!\210\202*\207" [location path-ok nil tla--read-location "Location: " t tla--location-type local expand-file-name file-directory-p message "directory already exists: %s" sit-for 1 file-name-directory "parent directory doesn't exists for %s"] 3]) #@523 Create a new arch archive. NAME is the global name for the archive. It must be an email address with a fully qualified domain name, optionally followed by "--" and a string of letters, digits, periods and dashes. LOCATION specifies the path, where the archive should be created. Examples for name are: foo.bar@flups.com--public foo.bar@flups.com--public-2004 If SIGNED is non-nil, the archive will be created with --signed. If LISTING is non-nil, the archive will be created with --listing (Usefull for http mirrors). (defalias 'tla--make-archive #[(name location &optional signed listing) "\304\305\205\306 \205\f\307\n \257\310\311#\207" [listing signed name location tla--run-tla-sync "make-archive" "--listing" "--signed" :error #[(output error status arguments) "\302!\210\303 \210\300\304\305\306 #!\207" [error status dvc-show-error-buffer dvc-show-last-process-buffer format "%s failed: exits-status=%s" tla-arch-branch-name] 5]] 6 (#$ . 173087) (list (read-string "Archive name: ") (tla--make-archive-read-location) (y-or-n-p "Sign the archive? ") (y-or-n-p "Create .listing files? "))]) #@197 Create a mirror for ARCHIVE, at location LOCATION, named MIRROR. If SIGNED is non-nil, the archive will be signed. If LISTING is non-nil, .listing files will be created (useful for HTTP mirrors). (defalias 'tla-mirror-archive #[(&optional archive location mirror signed listing) "\206 \305\306\307\"@ \206\310\311\312\"!\313 ?\205%\n\206%\314\315\316P\" \206-\317\320!\f\2065\317\321!\322\323\f\205=\324 \205B\325\326\n \257!-\207" [archive location mirror signed listing tla-name-read "Archive to mirror: " prompt tla--read-location format "Location of the mirror for %s: " tla-use-baz-archive-registration read-string "Name of the mirror: " "-MIRROR" y-or-n-p "Sign mirror? " "Create .listing files? " tla--run-tla-sync "make-archive" "--listing" "--signed" "--mirror"] 8 (#$ . 174202) nil]) #@125 Create a mirror-from archive for FROM-ARCHIVE, at location LOCATION. The archive name FROM-ARCHIVE must end with "-SOURCE". (defalias 'tla-mirror-from-archive #[(&optional from-archive location) "\206 \302\303\304\"@ \206\305\306\307\"!\310!\311=\204\"\312\313\"\210\314\315\316 F!*\207" [from-archive location tla-name-read "Mirror from archive: " prompt read-string format "Location of the mirror for %s : " tla--archive-type source error "%s is not SOURCE archive" tla--run-tla-sync "make-archive" "--mirror-from"] 5 (#$ . 175022) nil]) #@50 Get a list of all mirrors for the given ARCHIVE. (defalias 'tla--get-mirrors-for-archive #[(archive) "\301 \210\302\303\304\305\"\"\207" [tla--archive-tree tla--archive-tree-build-archives delete nil mapcar #[(elem) "@\303 !\304=\205\n \305\nGO\230\205 )\207" [elem a-name archive tla--archive-type mirror 0] 4]] 5 (#$ . 175579)]) #@45 Return the base name of the mirror ARCHIVE. (defalias 'tla--mirror-base-name #[(archive) "\301!\302=\205\303\304\305\"O\207" [archive tla--archive-type mirror 0 string-match "-MIRROR.*$"] 5 (#$ . 175923)]) #@381 Use the ARCHIVE as default mirror. This function checks, if ARCHIVE is a mirror (contains -MIRROR). The default mirror ends with -MIRROR. Other mirrors have some other characters after -MIRROR (e.g.: -MIRROR-2. This function swaps the location of that -MIRROR and the -MIRROR-2. The effect of the swapping is, that the mirroring functions work per default on the default mirror. (defalias 'tla-use-as-default-mirror #[(archive) "\306!\307=\204 \310\311\"\210\312\313\"\203\314\315\"\207\316!\317 ! \320P\211\n\235\321!\f\2054\321 !\f\203C\314\322 #\210\202H\314\323\"\210\324\325\"\210\f\203V\324 \325\"\210\326 \"\210\f\205d\326\".\207" [archive archive-base-name mirror-list default-mirror default-mirror-present archive-location tla--archive-type mirror error "%s is not a mirror" string-match "-MIRROR$" message "%s is already the default mirror." tla--mirror-base-name tla--get-mirrors-for-archive "-MIRROR" tla-whereis-archive "swapping mirrors %s <-> %s." "using %s as default mirror." tla--unregister-archive nil tla--register-archive default-mirror-location] 5 (#$ . 176141) (list (tla--name-archive (tla-name-read "Mirror archive name: " 'prompt)))]) #@86 Change the name of ARCHIVE to ARCHIVE-SOURCE. Sets the archive location to LOCATION. (defalias 'tla--archive-convert-to-source-archive #[(archive &optional location) "\204\n\302 !A@\204\303\304 \"\210\305 !\306=\203 \303\307 \"\210\310 \311\"\210\312 \313P\"\207" [location archive tla--archive-tree-get-archive error "Location for `%s' is unknown" tla--archive-type source "%s is already source" tla--unregister-archive nil tla--register-archive "-SOURCE"] 4 (#$ . 177338)]) #@33 List the categories of ARCHIVE. (defalias 'tla-categories #[(archive) "\204\306 \307!\210\310\311 \312#!\210\313!\211AA)\314\211\2112\315\316!\210\317 \210\320\321\322G\323G\\\324\"#c\210\2122\2032@@`2A2\325 \326\314\211\21134% 56\203\365\3275!7%9\205t\330\320\331\332%!\"!83\203\2003\202\2214\205\221\3334!;\205\221\3334!98\203\2569\203\2519\334\335\3348\260\202\2608\202\2603:%9\203\276%J\202\300%%\336\3377G\340 \341 \342%\205\335\343\344\345%\346:\2574\205\346\3474D\"BBBB7$\2107-\202\3675-\261\210\350 \210\351\f`\"\352 \305\353#\210\352 \345;#\210\352 \354 #\210\2029\355\356!\210-\357 \210\360\361!\210\2111\207" [archive tla-arch-branch x overlay start-pos category tla-my-default-archive tla--archive-tree-build-categories dvc-switch-to-buffer dvc-get-buffer-create categories tla--archive-tree-get-archive nil toggle-read-only -1 erase-buffer format "Archive: %s\n%s\n" make-string "Archive: " 61 " " tla-category-name copy-sequence substitute-command-keys "\\{%s}" symbol-name cadr "\n" "================" add-text-properties 0 face font-lock-face append mouse-face highlight keymap help-echo dvc-cmenu newline make-overlay overlay-put tla-default-button tla-category-info delete-backward-char 1 tla-category-list-mode make-local-variable tla-buffer-archive-name list help menu str dvc-highlight strcpy key-help prefix-help long-help tla-category-category-map] 16 (#$ . 177828) (list (tla--name-archive (tla-name-read nil 'prompt)))]) #@30 In ARCHIVE, create CATEGORY. (defalias 'tla-make-category #[(archive category) "\303\304\305 \"D!\210\306\307!)\207" [archive category tla-buffer-archive-name tla--run-tla-sync "make-category" tla--name-construct run-hooks tla-make-category-hook] 5 (#$ . 179366) (let ((l (tla-name-read "New Category: " 'prompt 'prompt))) (list (tla--name-archive l) (tla--name-category l)))]) #@43 Display the branches of ARCHIVE/CATEGORY. (defalias 'tla-branches #[(archive category) "\306 \"\210\307\310\n\311\312 \"#!\210\313 \"A\314\211\211\211\211678\315\316!\210\317 \210G\320G\\7 G\321G\\6\322\323 \32476]\325\"$c\210\2128\20328@@`8A8\326 \327\230\203d\330\202e \331\314\211\2119:(#;<\203\332;!=(9\205\215\333\322\334\335(!\"!>9\203\2319\202\252:\205\252\336:!;\205\252\336:!?>\203\307?\203\302?\337\340\337>\260\202\311>\202\3119@(9\203\327(J\202\331((\341\342=G\343#\344#\345(\205\366\346\347\350(\351@\257:\205\377\352:D\"BBBB=$\210=-\202;-\261\210\353 \210\354\f`\"\355 \301\356#\210\355 \350A#\210\355 \357 #\210\202H\360\361!\210.\362 \210\363\364!\2104\363\365!\210 \2115\207" [archive category tla-arch-branch overlay start-pos branch tla--archive-tree-build-branches dvc-switch-to-buffer dvc-get-buffer-create branches tla--name-construct tla--archive-tree-get-category nil toggle-read-only -1 erase-buffer "Archive: " "Category: " format "Archive: %s\nCategory: %s\n%s\n" make-string 61 " " "" "" tla-branch-name copy-sequence substitute-command-keys "\\{%s}" symbol-name cadr "\n" "================" add-text-properties 0 face font-lock-face append mouse-face highlight keymap help-echo dvc-cmenu newline make-overlay overlay-put tla-default-button tla-branch-info delete-backward-char 1 tla-branch-list-mode make-local-variable tla-buffer-archive-name tla-buffer-category-name clength alength list help menu str dvc-highlight strcpy key-help prefix-help long-help tla-branch-branch-map] 15 (#$ . 179753) (let ((l (tla-name-read nil 'prompt 'prompt))) (list (tla--name-archive l) (tla--name-category l)))]) #@54 Make a new branch in ARCHIVE/CATEGORY called BRANCH. (defalias 'tla-make-branch #[(archive category branch) "\305\306\307 \n#D!\210 \310\311!*\207" [archive category branch tla-buffer-category-name tla-buffer-archive-name tla--run-tla-sync "make-branch" tla--name-construct run-hooks tla-make-branch-hook] 6 (#$ . 181485) (let ((l (tla-name-read "New Branch: " 'prompt 'prompt 'prompt))) (list (tla--name-archive l) (tla--name-category l) (tla--name-branch l)))]) #@53 Display the versions of ARCHIVE/CATEGORY in BRANCH. (defalias 'tla-versions #[(archive category branch) "\306 \n#\210\307\310 \311\312 \n##!\210\313 \n#A\314\211\211\211\211\2116789:\315\316!\210\317 \210G\320G\\9 G\321G\\8\nG\322G\\7\323\324 \n\32598]7]\326\"%c\210\212:\203=:@@6`:A:\3276\330\314\211\211;<'\"=>\203\331=!?'9\205\227\332\323\333\334'!\"!@;\203\243;\202\264<\205\264\335\204\f\307\310!\210\311H\306H >\204\307\312!\210\313H\211\314=\306H >\2040\307\315!\210\316H\203<\317 P\202=\3207\203\\\321\322\n\306H8>\204Q\307\323!\210\n\324H\"\203\\\325\202]\320\326\n\306H8>\204k\307\323!\210\n\324H!\f\203w\327\202x\330\3319\332:;)$<=\203!\333)9\205\240\334\335\336\337)!\"!?:\203\254:\202\275;\205\275\340;!;\205\275\340;!@?\203\332@\203\325@\341\342\341?\260\202\334?\202\334:A)9\203\352)J\202\354))\343\306>G\344$\345$\346)\205 \347\350\351)\352A\257;\205\353;D\"BBBB>$\210>-\202#<-\f\203\330\354\327\332\211\211:;)$<=\203\322\333)9\205Q\334\335\336\337)!\"!?:\203]:\202n;\205n\340;!;\205n\340;!@?\203\213@\203\206@\341\342\341?\260\202\215?\202\215:A)9\203\233)J\202\235))\343\306>G\344$\345$\346)\205\272\347\350\351)\352A\257;\205\303\353;D\"BBBB>$\210>-\202\324<-\202\331\355\261\210\n\306H8>\204\351\307\356!\210\n\316H\n\306H8>\204\371\307\357!\210\n\311H\n\306H8>\204 \307\360!\210\n\361HBC\211D\203!E\203!\362D\261\210C\2031F\2031\362C\261\210B\203AG\203A\362B\261\210+H\203\234\n\306H8>\204T\307\363!\210\n\313H\203\234\n\306H8>\204g\307\363!\210\n\313H@\203\234\364c\210\n\306H8>\204~\307\363!\210\n\313H\332\211I\203\233I@\365\261\210IA\211I\204\211*J\205\316 \204\251\332\202\316 <\205\316\366c\210 \332\211K\203\314K@\365\261\210KA\211K\204\272*\332+\207" [elem cl-struct-dvc-revlist-entry-patch-tags struct merged-by unmerged dvc-mark 0 error "dvc-revlist-entry-patch-struct accessing a non-dvc-revlist-entry-patch" 3 "dvc-revlist-entry-patch-merged-by accessing a non-dvc-revlist-entry-patch" 5 nobody "dvc-revlist-entry-patch-marked accessing a non-dvc-revlist-entry-patch" 2 " " " " apply tla--revlib-tree-get-revision "tla--revision-revision accessing a non-tla--revision" 1 "L " tla--name-construct dvc-unmerged dvc-revision-name tla-revision-revision-map nil copy-sequence substitute-command-keys format "\\{%s}" symbol-name cadr "\n" "================" add-text-properties face font-lock-face append mouse-face highlight keymap help-echo dvc-cmenu " [NOT MERGED]" "" "tla--revision-summary accessing a non-tla--revision" "tla--revision-creator accessing a non-tla--revision" "tla--revision-date accessing a non-tla--revision" 4 "\n " "tla--revision-merges accessing a non-tla--revision" "\n Merges:" "\n " "\n Merged-by:" tla-revisions-shows-library cl-struct-tla--revision-tags tla-revision-revision-menu help menu str dvc-highlight strcpy key-help prefix-help long-help date creator summary dvc-revisions-shows-summary dvc-revisions-shows-creator dvc-revisions-shows-date tla-revisions-shows-merges #1=#:--cl-dolist-temp-- tla-revisions-shows-merged-by #2=#:--cl-dolist-temp--] 18 (#$ . 184365)]) #@58 Goto tree revisions buffer or call `tla-tree-revisions'. (defalias 'tla-tree-revisions-goto #[(root) "\304\n\305\306 #\211\203\307 !\202\310!*\207" [root default-directory tla-arch-branch buffer dvc-get-buffer revisions tla-tree-version dvc-switch-to-buffer tla-tree-revisions] 5 (#$ . 187359) (list (dvc-read-project-tree-maybe "Revisions for tree: "))]) #@43 Call `tla-revisions' in the current tree. (defalias 'tla-tree-revisions #[(root) "\303 !\211\204\304\305!\210\306\307\n\"*\207" [root default-directory version tla-tree-version-list error "Not in a project tree" apply tla-revisions] 4 (#$ . 187729) (list (dvc-read-project-tree-maybe "Revisions for tree: "))]) #@115 List the revisions of ARCHIVE/CATEGORY--BRANCH--VERSION. UNUSED is left here to keep the position of FROM-REVLIB (defalias 'tla-revisions #[(archive category branch version &optional unused from-revlib) "\306 \307\310\311 \n \f$#\31234r3q\210\313 \210\314\315!\210\3165\317\320!\210 \317\321!\210\n\317\322!\210 \317\323!\210\f\324 G\nG\\ G\\\fG\\\325G\\\326\\\327\"\330\312\211\21167'\"89\203\371\3318!:'9\205x\332\333\334\335'!\"!;6\203\2046\202\2257\205\225\3367!;\205\225\3367!<;\203\262<\203\255<\337\340\337;\260\202\264;\202\2646='9\203\302'J\202\304''\341\326:G\342\"\343\"\344'\205\341\345\346\347'\350=\2577\205\352\3517D\"BBBB:$\210:-\202\3738-\352>\353 \n \f? &\337 P#\210)@\203\3543!\210?\203#\355\202$\356 \n \f\312\211\211\357\312\360\361\362\f \n ?3\257DEE&+\207" [tla-arch-branch archive category branch version separator dvc-current-active-dvc dvc-get-buffer-create revisions tla--name-construct nil tla-revision-list-mode toggle-read-only -1 tla-revision-refresh make-local-variable tla-buffer-archive-name tla-buffer-category-name tla-buffer-branch-name tla-buffer-version-name make-string " /------patch-4242" 0 32 dvc-separator copy-sequence substitute-command-keys format "\\{%s}" symbol-name cadr "\n" "================" add-text-properties face font-lock-face append mouse-face highlight keymap help-echo dvc-cmenu ewoc-set-hf tla--revisions-header dvc-switch-to-buffer tla--revlib-tree-build-revisions tla--archive-tree-build-revisions lambda apply #[(#1=#:dvc-gensym-uniq-123 #2=#:dvc-gensym-uniq-122 #3=#:dvc-gensym-uniq-121 #4=#:dvc-gensym-uniq-120 #5=#:dvc-gensym-uniq-119 #6=#:dvc-gensym-uniq-118) "\204\306 !\210\n\203\307\202\310 \f $Ar q\210\203.\311 \f \312\313&\210\203 \f \211@@)\257\211@A)\206[\314\315\312\211\211\211\211\211&\316\317\314\320\321\312\321\322DD\312\211\211&D\"\210*A\211\2043\323!\210\324\313!*\207" [dvc-switch-to-buffer-first #6# #5# #4# #3# #2# dvc-switch-to-buffer tla--revlib-tree-get-version tla--archive-tree-get-version tla--revlib-tree-build-revisions nil t vector cl-struct-tla--revision ewoc-enter-last entry-patch cl-struct-dvc-revlist-entry-patch tla revision ewoc-refresh toggle-read-only #1# list tla-revisions-shows-library x rev-list rev-struct dvc-revlist-cookie] 13] quote output-buf dvc-temp-current-active-dvc dvc-buffer-refresh-function help menu str dvc-highlight strcpy key-help prefix-help long-help dvc-revlist-cookie from-revlib dvc-switch-to-buffer-first] 19 (#$ . 188052) (let ((l (tla-name-read "Version: " 'prompt 'prompt 'prompt 'prompt))) (list (tla--name-archive l) (tla--name-category l) (tla--name-branch l) (tla--name-version l)))]) #@161 Construct a header for the revision ARCHIVE/CATEGORY--BRANCH--VERSION. Mark the revision as contained in FROM-REVLIB and use SEPARATOR to separate the entries. (defalias 'tla--revisions-header #[(archive category branch version from-revlib separator) "\306\307\310\211\211\"\203\223\311 !# 9\205\"\312\313\314\315 !\"!$ \203, \202:\n\205:\316\n!;\205:\316\n!%$\203W%\203R%\317\320\317$\260\202X$\202X & 9\203d J\202e \321\322#G\304\f\323\f\324 \205}\325\326\303 \327&\257\n\205\204\330\nD\"BBBB#$\210#-\202\224 -\331'\332\310\211\211\"\203)\311 !# 9\205\270\312\313\314\315 !\"!$ \203\302 \202\320\n\205\320\316\n!;\205\320\316\n!%$\203\355%\203\350%\317\320\317$\260\202\356$\202\356 & 9\203\372 J\202\373 \321\322#G\304\f\323\f\324 \205\325\326\303 \327&\257\n\205\330\nD\"BBBB#$\210#-\202* -\333(\334\310\211\211\"\203\277\311 !# 9\205N\312\313\314\315 !\"!$ \203X \202f\n\205f\316\n!;\205f\316\n!%$\203\203%\203~%\317\320\317$\260\202\204$\202\204 & 9\203\220 J\202\221 \321\322#G\304\f\323\f\324 \205\251\325\326\303 \327&\257\n\205\260\330\nD\"BBBB#$\210#-\202\300 -\333)\335\310\211\211\"\203U\311 !# 9\205\344\312\313\314\315 !\"!$ \203\356 \202\374\n\205\374\316\n!;\205\374\316\n!%$\203%\203%\317\320\317$\260\202$\202 & 9\203& J\202' \321\322#G\304\f\323\f\324 \205?\325\326\303 \327&\257\n\205F\330\nD\"BBBB#$\210#-\202V -\317\336*\203b\337\202c\340\341\310\211\211\"\203\364\311 !# 9\205\203\312\313\314\315 !\"!$ \203\215 \202\233\n\205\233\316\n!;\205\233\316\n!%$\203\270%\203\263%\317\320\317$\260\202\271$\202\271 & 9\203\305 J\202\306 \321\322#G\304\f\323\f\324 \205\336\325\326\303 \327&\257\n\205\345\330\nD\"BBBB#$\210#-\202\365 -\317+\317\260\207" [archive help menu keymap face str "Version: " tla-archive-name nil copy-sequence substitute-command-keys format "\\{%s}" symbol-name cadr "\n" "================" add-text-properties 0 font-lock-face append mouse-face highlight help-echo dvc-cmenu "/" tla-category-name "--" tla-branch-name tla-version-name "In Revision Library: " "Yes" "No" bold dvc-highlight strcpy key-help prefix-help long-help category branch version from-revlib separator] 24 (#$ . 190827)]) (defalias 'tla-revisions-string #[(string) "\306!\211@ A@\307 8\310 8\311\n \f $-\207" [string list archive category branch version tla--name-split 2 3 tla-revisions] 6]) (defalias 'tla-versions-string #[(string) "\305!\211@ A@\306 8\307\n \f#,\207" [string list archive category branch tla--name-split 2 tla-versions] 5]) (defalias 'tla-branches-string #[(string) "\304!\211@ A@\305\n \"+\207" [string list archive category tla--name-split tla-branches] 4]) (defalias 'tla-categories-string #[(string) "\303!\211@\304\n!*\207" [string list archive tla--name-split tla-categories] 3]) #@245 Search in directory LOCAL-TREE for missing patches from LOCATION. If the current buffers default directory is in an arch managed tree use that one unless called with a prefix arg. In all other cases prompt for the local tree and the location. (defalias 'tla-missing #[(local-tree location) "\306 \307\310 \311\"!\210\312!\210)\313 \314 \210)\315\316\317!\210\311\f\320 !\321BBBC\315 \207" [dir tla-arch-branch dvc-temp-current-active-dvc dvc-buffer-refresh-function local-tree location tla-tree-root pop-to-buffer dvc-get-buffer-create missing cd dvc-current-active-dvc tla-revision-list-mode tla-missing-refresh make-local-variable tla-missing-buffer-todolist tla--name-construct (nil)] 4 (#$ . 193774) (let ((dir (or (if (not current-prefix-arg) (tla-tree-root nil t)) (expand-file-name (dvc-read-directory-name "Search missing patches in directory: " default-directory default-directory t nil))))) (list dir (let ((default-directory dir)) (if current-prefix-arg (tla-name-read "From location: " 'prompt 'prompt 'prompt 'prompt) (tla-tree-version)))))]) #@77 Show all revisions for the current entry in the *{tla|baz}-missing* buffer. (defalias 'tla-missing-show-all-revisions #[nil "\203\302\303\304\305 \211A@)!\"\207\306\307\310 \"\207" [tla-missing-buffer-todolist x apply tla-revisions tla--name-split tla--revision-get-version-info-at-point message "Not in the *%s-missing* buffer, already all revisions visible." tla-arch-branch-name] 5 (#$ . 194843) nil]) #@92 Browse ARCHIVE. The interface is rather poor, but tla-browse does a better job anyway ... (defalias 'tla-browse-archive #[(archive) "\204\301 \302\303D!\207" [archive tla-my-default-archive tla--run-tla-sync "rbrowse"] 3 (#$ . 195258) (let ((l (tla-name-read nil 'prompt))) (list (tla--name-archive l)))]) #@150 Interactively read the arguments of `tla-build-config'and `tla-cat-config'. The string PROMPT-FILE will be used when prompting the user for a file. (defalias 'tla--read-config-file #[(prompt-file) "\306\307 \310=?\205 \n\311 \310=\205\312\313 !%\314 !\312 !\f\2039\315\f!\2039\316\317\320\321\f!\"!\2039\322\f!\210\323 ! +D\207" [prompt-file major-mode default-directory file buffer relative-conf-file read-file-name nil tla-bconfig-mode t tla-file-name-relative-to-root buffer-file-name get-file-buffer buffer-modified-p y-or-n-p format "Save buffer %s" buffer-name save-buffer tla-tree-root] 7 (#$ . 195577)]) #@219 Run tla build-config in TREE-ROOT, outputting to CONFIG-FILE. CONFIG-FILE is the relative path-name of the configuration. When called interactively, arguments are read with the function `dvc-read-project-tree-maybe'. (defalias 'tla-build-config #[(tree-root config-file) "\303\304\nD!)\207" [tree-root default-directory config-file tla--run-tla-async "build-config"] 3 (#$ . 196207) (tla--read-config-file "Build configuration: ")]) #@236 Run tla cat-config in TREE-ROOT, showing CONFIG-FILE. If SNAP is non-nil, then the --snap option of tla is used. When called interactively, arguments TREE-ROOT and CONFIG-FILE are read with the function `dvc-read-project-tree-maybe'. (defalias 'tla-cat-config #[(tree-root config-file snap) "\304\305\n\205 \306 E!)\207" [tree-root default-directory snap config-file tla--run-tla-async "cat-config" "--snap"] 4 (#$ . 196650) (byte-code "\300\301\302!\303\304!C\"\207" [append tla--read-config-file "Cat configuration: " y-or-n-p "Include revision number? "] 4)]) #@267 Run tla get in DIRECTORY. If RUN-DIRED-P is non-nil, display the new tree in dired. ARCHIVE, CATEGORY, BRANCH, VERSION and REVISION make up the revision to be fetched. If SYNCHRONOUSLY is non-nil, run the process synchronously. Else, run the process asynchronously. (defalias 'tla-get #[(directory run-dired-p archive category branch &optional version revision synchronously) "\306!\307!\203\310\311\"\210\312t\204 \203' ;\203'\n \f \257\2028\313\314\n \f \2034 \2025\315\315&!\203D\316\202E\317\320E\321\322\323\324\325\326\310\327\330\331 \f \n\257D\257E#)\207" [directory revision archive category branch version expand-file-name file-exists-p error "Directory %s already exists" tla--name-construct tla-name-read "Version--Revision for Get(if necessary): " maybe tla--run-tla-sync tla--run-tla-async "get" :finished lambda (output error status arguments) apply #[(output error status arguments #1=#:dvc-gensym-uniq-129 #2=#:dvc-gensym-uniq-128 #3=#:dvc-gensym-uniq-127 #4=#:dvc-gensym-uniq-126 #5=#:dvc-gensym-uniq-125 #6=#:dvc-gensym-uniq-124) "\306 \n $\307\f!\205\310 \n \f %\210\311 \")\207" [output error status arguments i #6# dvc-status-handler zerop tla--get-do-bookmark tla--do-dired #5# #4# #3# #2# #1#] 6] output status arguments quote name synchronously run-dired-p] 18 (#$ . 197224) (byte-code "\303\304\305\211\211\306\211&\307!\310\311\312 \"!\211\313+BB\207" [l name d tla-name-read "Get: " prompt maybe tla--name-construct dvc-read-directory-name format "Store \"%s\" to: " ask] 8)]) #@70 Add DIRECTORY to the bookmark for ARCHIVE/CATEGORY--BRANCH--VERSION. (defalias 'tla--get-do-bookmark #[(directory archive category branch version) "\306\307 \n $!\211\205\310\f \")\207" [archive category branch version bookmark directory tla-bookmarks-find-bookmark tla--name-construct tla-bookmarks-add-tree] 7 (#$ . 198781)]) #@156 Possible run dired in DIRECTORY. If RUN-DIRED-P is 'ask, ask the user whether to run dired. If RUN-DIRED-P is nil, do not run dired. Otherwise, run dired. (defalias 'tla--do-dired #[(directory run-dired-p) "\302! \303=\203\304\305\306\"!\205#\307!\207\310 \311\"\203 \312\207\307!\207" [directory run-dired-p expand-file-name ask y-or-n-p format "Run dired at %s? " dired memql 'nil nil] 4 (#$ . 199120)]) #@74 Cache the revision named by ARCHIVE/CATEGORY--BRANCH--VERSION--REVISION. (defalias 'tla-cache-revision #[(archive category branch version revision) "\305\306\307 \n \f%D!\207" [archive category branch version revision tla--run-tla-async "cacherev" tla--name-construct] 9 (#$ . 199541) (byte-code "\300\301\302\211\211\211\211&\207" [tla-name-read "Revision to cache: " prompt] 7)]) #@166 Using ID, add FILES to this tree. When called interactively, ask for the file to add. When called interactively with a prefix argument, ask additionally for the ID. (defalias 'tla-add #[(id &rest files) "\203\f\302\230\203\f\303\304\305 \"\306\307 \203\310\202\311\312\205$\313D \"B!\207" [id files "" nil mapcar expand-file-name tla--run-tla-sync tla-has-add-id-command "add-id" "add" append "--id"] 5 (#$ . 199932) (let ((name (read-file-name "Add file as source: " nil nil t (file-name-nondirectory (or (buffer-file-name) #1="")))) (id (if current-prefix-arg (read-string "id (empty for default): ") #1#))) (list id name))]) #@14 Run tla add. (defalias 'tla-dvc-add-files #[(&rest files) "\302\303\"\210\304 \305\306 \203\307\202\310C\"\311\312\313\314\315\316\317\320\321\322\323D\257E$\207" [files tla-arch-branch message "tla-add-files: %s" dvc-run-dvc-sync append tla-has-add-id-command "add-id" "add" :finished lambda (output error status arguments) apply #[(output error status arguments) "\300\301!\207" [message "tla add finished"] 2] output error status arguments quote nil] 14 (#$ . 200579)]) #@155 Remove the ids of FILES, possibly also deleting the files. If ONLY-ID is non-nil, remove the files as well as their ids. Otherwise, just remove the ids. (defalias 'tla-remove #[(only-id &rest files) "\304\305\"\211\306\211\2036\n@\307\310\311 E\312\313\314\313%\315\232\203'\307\316 D\312\313#\210 \204/\317 !\210\nA\211\204 *\306\207" [files f #1=#:--cl-dolist-temp-- only-id mapcar expand-file-name nil tla--run-tla-sync "id" "--explicit" :finished dvc-status-handler :error 0 "delete-id" delete-file] 8 (#$ . 201066) (let* ((name (read-file-name "Remove file from archive: " nil nil t (file-name-nondirectory (or (buffer-file-name) "")))) (only-id (not (y-or-n-p (format "Delete the \"%s\" locally also? " name))))) (list only-id name))]) #@73 Move the file FROM to TO. If ONLY-ID is non-nil, move only the ID file. (defalias 'tla-move #[(from to only-id) "\206\305\306\307 \"\310\211\211\311 !%\n\312=\203\313\314!?\202\n\315 !\315!\316 !\n\2033\317\2024\320\211\203C\212\fq\210\321!\210)\322 E\323\324\325\326\327\330\331\332\333\334 DD\257E#*\207" [to from only-id cmd buffer read-file-name format "Move file %S to: " nil file-name-nondirectory ask y-or-n-p "Move the file locally also? " expand-file-name get-file-buffer "move-id" "mv" set-visited-file-name tla--run-tla-sync :finished lambda (output error status arguments) apply #[(output error status arguments #1=#:dvc-gensym-uniq-131 #2=#:dvc-gensym-uniq-130) "\304!\211\203r q\210\305\306\n!!\210\307\n!\210)) \207" [#2# buf #1# status find-buffer-visiting rename-buffer file-name-nondirectory set-visited-file-name] 4] output error status arguments quote] 15 (#$ . 201825) (list (read-file-name "Move file: " nil nil t (file-name-nondirectory (or (dvc-get-file-info-at-point) ""))) nil nil)]) (defalias 'tla-mv 'tla-move) #@151 Precious version of the partner file. We strongly suggest keeping the default value since this is a convention used by other tla front-ends like Aba. (defvar tla-partner-file-precious "{arch}/+partner-versions" (#$ . 202897)) #@149 Source version of the partner file. We strongly suggest keeping the default value since this is a convention used by other tla front-ends like Aba. (defvar tla-partner-file-source "{arch}/=partner-versions" (#$ . 203130)) #@335 Do `find-file' tla-partners file and return the buffer. If the file `tla-partner-file-precious' exists, it is used in priority. Otherwise,use `tla-partner-file-source'. The precious one is meant for user configuration, whereas the source one is used for project-wide configuration. If LOCAL-TREE is not managed by arch, return nil. (defalias 'tla-partner-find-partner-file #[(&optional local-tree) "\206\306 \307\"\211\204\310\202%\311\306 \nP!\203!\306 \nP\202%\306 P\211\205-\312\f!\211\203Wr q\210\313 \203R\314p!\210\315\316\317\320 \"!\203O\321 \210\202R\322 \210 )\202^\f\205^\323\f!+\207" [local-tree default-directory tla-partner-file-precious tla-partner-file-source partner-file buffer-visiting tla-tree-root t nil file-exists-p find-buffer-visiting buffer-modified-p switch-to-buffer y-or-n-p format "Save file %s? " buffer-file-name save-buffer revert-buffer find-file-noselect] 5 (#$ . 203359) nil]) #@192 Add a partner for this xtla working copy. Return nil if PARTNER is alerady in partners file. Look for the parners file in LOCAL-TREE. For example: Franz.Lustig@foo.bar--public/tla--main--0.1 (defalias 'tla-partner-add #[(partner &optional local-tree) "\303!\n \235?\205r\304 q\210eb\210\nc\210\305 \210\306 \210)\n)\207" [local-tree list partner tla-partner-list tla-partner-find-partner-file newline save-buffer] 2 (#$ . 204300) (list (tla--name-construct (tla-name-read "Version to Add Partner File: " 'prompt 'prompt 'prompt 'prompt)))]) #@185 Read the partner list from partner files in LOCAL-TREE. If LOCAL-TREE is nil, use the `tla-tree-root' of `default-directory' instead. If LOCAL-TREE is not managed by arch, return nil. (defalias 'tla-partner-list #[(&optional local-tree) "\303!\211\205r q\210\304ed{\305\"\306\307\n\"*)\207" [local-tree buffer partners tla-partner-find-partner-file split-string "\n" remove ""] 4 (#$ . 204852)]) #@75 Predicate to check whether VERSION is in the partners file in LOCAL-TREE. (defalias 'tla--partner-member #[(version &optional local-tree) "\303!\n \235)\207" [local-tree list version tla-partner-list] 2 (#$ . 205259)]) #@602 Specialized version for `tla-name-read' to read a partner. - This function displays PROMPT, reads an archive/category--branch--version, and: - Return the result in a string form (not in a list form) and - Ask to the user whether adding the result to the partner file or not if the result is not in the partner file. If INCLUDING-SELF is non-nil, this function asks a question whether using self as partner or not. If the user answers `y' as the question, this function returns a symbol, `self'. If the user answers `n' as the question, this function runs as the same as if INCLUDING-SELF is nil. (defalias 'tla--partner-read-version #[(&optional prompt including-self) "\204\303 \203\304\305!\203\306\207\307\310\300\211\211\211%!\311\n!\204/\304\312\313\n\"!\203/\314\n!\210\n)\207" [prompt including-self version "Enter Xtla Partner: " y-or-n-p "Select `self' as partner? " self tla--name-construct tla-name-read tla--partner-member format "Add `%s' to Partner File? " tla-partner-add] 7 (#$ . 205487)]) #@68 Create the partner menu with ACTION using PROMPT as the menu name. (defalias 'tla--partner-create-menu #[(action &optional prompt) "\302 \303 \304\305\"\")\207" [list prompt tla-partner-list easy-menu-create-menu mapcar #[(item) "\303\304\305\"\211\306 I\210\307\n DI\210\310\311I\210)\207" [v item action make-vector 3 nil 0 1 2 t] 5]] 5 (#$ . 206516)]) #@671 Major Mode to show the inventory of a tla working copy. This allows you to view the list of files in your local tree. You can display only some particular kinds of files with 't' keybindings: '\\[tla-inventory-toggle-source]' to toggle show sources, '\[tla-inventory-toggle-precious]' to toggle show precious, ... Use '\[tla-inventory-mark-file]' to mark files, and '\[tla-inventory-unmark-file]' to unmark. If you commit from this buffer (with '\[tla-inventory-edit-log]'), then, the list of selected files in this buffer at the time you actually commit with \\[tla-log-edit-done]. Commands: \{tla-inventory-mode-map} (defalias 'tla-inventory-mode #[nil "\306!\210\307\310\311!\210\312\n!\210\313 \210\314\315\316\310\317!\210\320\310\321!\210\322\323\324!\210\325\326!\207" [tla-inventory-mode-map dvc-buffer-refresh-function tla-inventory-mode-menu major-mode mode-name mode-line-process use-local-map tla-inventory make-local-variable dvc-buffer-marked-file-list easy-menu-add dvc-install-buffer-menu tla-inventory-mode "tla-inventory" tla-mode-line-process dvc-get-file-info-at-point-function tla-inventory-get-file-info-at-point tla-generic-select-files-function tla--inventory-select-files toggle-read-only 1 run-hooks tla-inventory-mode-hook] 2 (#$ . 206884) nil]) #@47 Move cursor to the ewoc location of EWOC-INV. (defalias 'tla-inventory-cursor-goto #[(ewoc-inv) "\203\f\301!b\210\302u\207eb\207" [ewoc-inv ewoc-location 6] 2 (#$ . 208223) nil]) #@32 Go to the next inventory item. (defalias 'tla-inventory-next #[nil "\304 !\305 \n\"\206\n\306 !+\207" [tla-inventory-cookie cookie elem next ewoc-locate ewoc-next tla-inventory-cursor-goto] 3 (#$ . 208411) nil]) #@36 Go to the previous inventory item. (defalias 'tla-inventory-previous #[nil "\304 !\305 \n\"\206\n\306 !+\207" [tla-inventory-cookie cookie elem previous ewoc-locate ewoc-prev tla-inventory-cursor-goto] 3 (#$ . 208635) nil]) #@133 Wrapper around `tla-edit-log', setting the source buffer to current buffer. If INSERT-CHANGELOG is non-nil, insert a changelog too. (defalias 'tla-inventory-edit-log #[(&optional insert-changelog) "\301p\"\207" [insert-changelog tla-edit-log] 3 (#$ . 208872) "P"]) #@42 Create explicit inventory ids for FILES. (defalias 'tla-inventory-add-files #[(files) "\301\302\303#\210\304 \207" [files apply tla-add nil tla-inventory] 4 (#$ . 209144) (list (if dvc-buffer-marked-file-list (progn (unless (y-or-n-p (if (eq 1 (length dvc-buffer-marked-file-list)) (format "Add %s? " (car dvc-buffer-marked-file-list)) (format "Add %s files? " (length dvc-buffer-marked-file-list)))) (error "Not adding any file")) dvc-buffer-marked-file-list) (list (read-file-name "Add file: " default-directory nil nil (dvc-get-file-info-at-point)))))]) #@86 Remove explicit inventory ids of FILES. If ID-ONLY is nil, remove the files as well. (defalias 'tla-inventory-remove-files #[(files id-only) "\302\303 #\210\304 \207" [id-only files apply tla-remove tla-inventory] 4 (#$ . 209708) (let ((read-files (if dvc-buffer-marked-file-list (progn (unless (yes-or-no-p (format "Remove %d MARKED file%s from archive? " (length dvc-buffer-marked-file-list) (if (< (length dvc-buffer-marked-file-list) 2) #1="" "s"))) (error "Not removing any file")) dvc-buffer-marked-file-list) (list (let ((file (dvc-get-file-info-at-point))) (if (yes-or-no-p (format "Remove %s? " file)) file (error "Not removing any file"))))))) (list read-files (not (y-or-n-p (format "Delete %d %sfile%s also locally? " (length read-files) (if dvc-buffer-marked-file-list "MARKED " #1#) (if (< (length read-files) 2) #1# "s"))))))]) #@329 Delete FILES locally. This is here for convenience to delete left over, temporary files or files avoiding a commit or conflicting with tree-lint. It is not meant to delete tla managed files, i.e. files with IDs will be passed to `tla-inventory-remove-files'! When called with a prefix arg NO-QUESTIONS, just delete the files. (defalias 'tla-inventory-delete-files #[(files no-questions) "\203E@\304\305 D\306\307\310\307%\311U\203+\n\204\"\312\313\314 \"!\203=\315 C\316\"\210\202=\317 !\2039\316\320\321\217\210\202=\322 !\210)A\211\204 \203K\316\323 \207" [files f no-questions dvc-buffer-marked-file-list tla--run-tla-sync "id" :finished dvc-status-handler :error 0 y-or-n-p format "File %s is arch managed! Delete it with its id?" tla-inventory-remove-files nil file-directory-p (delete-directory f) ((file-error (byte-code "\204 \302\303\304 \"!\203\305 \306\"\210\302\207" [no-questions f y-or-n-p format "Delete non-empty directory %S? " dired-delete-file always] 4))) delete-file tla-inventory] 7 (#$ . 210559) (list (if dvc-buffer-marked-file-list (progn (or current-prefix-arg (unless (yes-or-no-p (format "Delete %d files permanently? " (length dvc-buffer-marked-file-list))) (error "Not deleting any files"))) dvc-buffer-marked-file-list) (if (or current-prefix-arg (yes-or-no-p (format "Delete file %S permanently? " (dvc-get-file-info-at-point)))) (list (dvc-get-file-info-at-point)))) current-prefix-arg)]) #@74 Rename file at the current point and update its inventory id if present. (defalias 'tla-inventory-move #[nil "\300\301 \302\303#\304=\203\305 \207\306 \207" [tla-move dvc-get-file-info-at-point nil ask 0 dvc-generic-refresh dvc-show-last-process-buffer] 4 (#$ . 212009) nil]) #@40 Reverts file at point or marked files. (defalias 'tla-inventory-revert #[(files) "\301\302\"\207" [files mapcar tla-inventory-revert-file] 3 (#$ . 212293) (list (if dvc-buffer-marked-file-list (progn (unless (yes-or-no-p (format "Revert %d MARKED file%s? " (length dvc-buffer-marked-file-list) (if (< (length dvc-buffer-marked-file-list) 2) "" "s"))) (error "Not reverting any file")) dvc-buffer-marked-file-list) (list (let ((file (dvc-get-file-info-at-point))) (if (yes-or-no-p (format "Revert %s? " file)) file (error "Not reverting any file"))))))]) #@15 Reverts FILE. (defalias 'tla-inventory-revert-file #[(file) "\303!\203\n\202\304\305 !P!\306\n!)\207" [file default-directory absolute file-name-absolute-p expand-file-name file-name-as-directory tla-file-revert] 3 (#$ . 212854)]) #@249 Undo whole local tree associated with the current inventory buffer. If prefix arg, SPECIFY-REVISION is non-nil, read a revision and use it to undo. The changes are saved in an ,,undo directory. You can restore them again via `tla-inventory-redo'. (defalias 'tla-inventory-undo #[(specify-revision) "\304\305\"\n\203\306\307 \"\202\310\211\211\211\211\257\311\312 \310\211 %*\207" [default-directory tree specify-revision revision tla-tree-root t tla--read-revision-with-default-tree "Undo against archive: " nil apply tla--undo-internal] 6 (#$ . 213099) "P"]) #@97 Return the directory name under point if it may be an ,,undo-? directory. Return nil otherwise. (defalias 'tla-inventory-maybe-undo-directory #[nil "\300\301 !\302 \235@\207" [expand-file-name dvc-get-file-info-at-point tla--get-undo-changeset-names] 2 (#$ . 213674)]) #@137 Redo whole local tree associated with the current inventory buffer. This function restores the saved changes from `tla-inventory-undo'. (defalias 'tla-inventory-redo #[nil "\300\301 !\207" [tla-redo tla-inventory-maybe-undo-directory] 2 (#$ . 213950) nil]) #@44 Return non-nil if FILE-NAME has conflicts. (defalias 'tla-file-has-conflict-p #[(file-name) "\303 !\304Q\305\n!)\207" [default-directory file-name rej-file-name file-name-nondirectory ".rej" file-exists-p] 3 (#$ . 214213)]) #@35 Visit the current inventory file. (defalias 'tla-inventory-find-file #[nil "\301 \211\204 \302\303!\202!\304!@\305=\203\306\307!!\202!\310!)\207" [file dvc-get-file-info-at-point error "No file at point" file-attributes t tla-inventory expand-file-name find-file] 4 (#$ . 214445) nil]) #@43 Go to parent directory in inventory mode. (defalias 'tla-inventory-parent-directory #[nil "\300\301\302!!\207" [tla-inventory expand-file-name ".."] 3 (#$ . 214746) nil]) #@49 Create a mirror of version of the current tree. (defalias 'tla-inventory-mirror #[nil "\301 \302\303!\304!\305!\306!$)\207" [tree-version tla-tree-version-list tla-archive-mirror tla--name-archive tla--name-category tla--name-branch tla--name-version] 6 (#$ . 214923) nil]) #@113 Run tla star-merge. Either use a partner in the tree's "++tla-partners" file or ask the user for MERGE-PARTNER. (defalias 'tla-inventory-star-merge #[(&optional merge-partner) "\301\302\303\"!\205\f\304!\207" [merge-partner y-or-n-p format "Star-merge with %s ? " tla-star-merge] 4 (#$ . 215209) (list (tla--partner-read-version "Star-merge with: "))]) #@490 Run tla changes. A prefix argument decides whether the user is asked for a diff partner and whether only a summary without detailed diffs will be shown. When called without a prefix argument: Show the changes for your tree. When called with C-u as prefix: Ask the user for a diff partner via `tla--partner-read-version'. When called with a negative prefix: Show only a summary of the changes. When called with C-- C-u as prefix: Ask the user for a diff partner, show only change summary. (defalias 'tla-inventory-changes #[(summary) "\205<\211\203\303\304\305\"\202\306\211\306=\203\307\202%\310\311\n!D<\203-@\312\n\"*\207" [summary ask-for-compare-partner compare-partner tla--partner-read-version "Compare with (default is your tree): " t self nil revision tla--name-split tla-changes] 4 (#$ . 215572) "P"]) #@108 Run tla replay. Either use a partner in the tree's ++tla-partners file, or ask the user for MERGE-PARTNER. (defalias 'tla-inventory-replay #[(&optional merge-partner) "\301\302\303\"!\205\f\304!\207" [merge-partner y-or-n-p format "Replay from %s ? " tla-replay] 4 (#$ . 216411) (list (tla--partner-read-version "Replay from: "))]) #@17 Run tla update. (defalias 'tla-inventory-update #[nil "\301!\207" [default-directory tla-update] 2 (#$ . 216752) nil]) #@110 Run tla missing in `default-directory'. With an prefix ARG, do this for the archive of one of your partners. (defalias 'tla-inventory-missing #[(&optional arg) "\203\303\304!\305\306\307 \"!\205\310\n \")\207\310\n\311 \"\207" [arg missing-partner default-directory tla--partner-read-version "Check missing against: " y-or-n-p format "Check missing against %s ? " tla-missing tla-tree-version] 4 (#$ . 216879) "P"]) #@22 Run `ediff' on FILE. (defalias 'tla-inventory-file-ediff #[(&optional file) "\301!\207" [file tla-file-ediff] 2 (#$ . 217307) (list (car (cddr (ewoc-data (ewoc-locate tla-inventory-cookie)))))]) #@49 `tla-inventory-find-file' with mouse interface. (defalias 'tla-inventory-find-file-by-mouse #[(event) "\301!\210\302 \207" [event mouse-set-point tla-inventory-find-file] 2 (#$ . 217509) "e"]) #@151 Run tla delta. Use the head revision of the version associated with the current inventory buffer as modified tree. Give the base tree interactively. (defalias 'tla-inventory-delta #[nil "\305 \306\307\"\310\311!\312!\313!\314! %\315\316\317\n\"\320\211\211\211\211&\310 !\321\f\n\322#-\207" [modified modified-revision modified-fq base base-fq tla-tree-version-list apply tla--version-head tla--name-construct tla--name-archive tla--name-category tla--name-branch tla--name-version tla-name-read format "Revision for delta to %s(HEAD) from: " prompt tla-delta ask] 7 (#$ . 217710) nil]) #@125 Apply changeset to the tree visited by the current inventory buffer. With a prefix argument REVERSE, reverse the changeset. (defalias 'tla-inventory-apply-changeset #[(reverse) "p\305 \306 \206 \307\310\311!!\204\307\312\313\314\211#!)\315 \316\"\210\317\320\321\f\203/\322\2020\307\"!\205B\323 \n\f#\210r q\210\324 )+\207" [changeset-dir changeset target inventory-buffer reverse tla-tree-root dvc-get-file-info-at-point "" file-directory-p expand-file-name dvc-uniquify-file-name dvc-read-directory-name "Changeset directory: " tla-show-changeset nil yes-or-no-p format "Apply the changeset%s? " " in REVERSE" tla-apply-changeset dvc-generic-refresh] 7 (#$ . 218316) "P"]) #@60 Apply the changeset in FILE to the currently visited tree. (defalias 'tla-inventory-apply-changeset-from-tgz #[(file) "p\303 \304\n\305#\210r q\210\306 +\207" [target inventory-buffer file tla-tree-root tla-apply-changeset-from-tgz t dvc-generic-refresh] 4 (#$ . 219010) (list (let ((changeset-tarball (or (dvc-get-file-info-at-point) ""))) (read-file-name "Apply changeset from tarball: " nil changeset-tarball t changeset-tarball)))]) #@256 Get the list of marked files and ask confirmation of the user. PROMPT-SINGULAR or PROMPT-PLURAL is used as prompt. If no file is under the point MSG-ERR is passed to `error'. MSG-PROMPT NO-GROUP IGNORE-MARKED NO-PROMPT and Y-OR-N are currently ignored. (defalias 'tla--inventory-select-files #[(prompt-singular prompt-plural msg-err &optional msg-prompt no-group ignore-marked no-prompt y-or-n) "\203\202 \305 C\211\204\306\n!\210\307\310 G\311V\203! \202\"\f G\311V\203. G\2020 @\"!\2039 \202<\306\n!)\207" [dvc-buffer-marked-file-list files msg-err prompt-plural prompt-singular dvc-get-file-info-at-point error y-or-n-p format 1] 6 (#$ . 219457)]) #@123 Prompts and make the FILES junk. If marked files are, use them as FIELS. If not, a file under the point is used as FILES. (defalias 'tla-inventory-make-junk #[(files) "\301\302\"\207" [files tla-tree-lint-put-file-prefix ",,"] 3 (#$ . 220131) (list (tla--inventory-select-files "Make `%s' junk? " "Make %s files junk? " "Not making any file junk"))]) #@127 Prompts and make the FILES precious. If marked files are, use them as FILES. If not, a file under the point is used as FILES. (defalias 'tla-inventory-make-precious #[(files) "\301\302\"\207" [files tla-tree-lint-put-file-prefix "++"] 3 (#$ . 220490) (list (tla--inventory-select-files "Make `%s' precious? " "Make %s files precious? " "Not making any file precious"))]) #@276 Exclude the file/directory under point by adding it to =TAGGING-METHOD. Adds an entry for the file to .arch-inventory or =tagging-method. If prefix argument =TAGGING-METHOD is non-nil, the entry is added to "=tagging-method" file. Else it is added to ".arch-inventory" file. (defalias 'tla-generic-add-to-exclude #[(=tagging-method) "\301\302\"\207" [=tagging-method tla--generic-add-to-* "exclude"] 3 (#$ . 220869) "P"]) #@311 Exclude the file/directory with the same extension as the one under point by adding it to =TAGGING-METHOD. Adds an entry for the file to .arch-inventory or =tagging-method. If prefix argument =TAGGING-METHOD is non-nil, the entry is added to "=tagging-method" file. Else it is added to ".arch-inventory" file. (defalias 'tla-generic-add-ext-to-exclude #[(=tagging-method) "\301\302\"\207" [=tagging-method tla--generic-add-ext-to-* "exclude"] 3 (#$ . 221299) "P"]) #@259 Add the file/directory under point to =TAGGING-METHOD. Adds an entry for the file to .arch-inventory or =tagging-method. If prefix argument =TAGGING-METHOD is non-nil, the entry is added to "=tagging-method" file. Else it is added to ".arch-inventory" file. (defalias 'tla-generic-add-to-junk #[(=tagging-method) "\301\302\"\207" [=tagging-method tla--generic-add-to-* "junk"] 3 (#$ . 221772) "P"]) #@294 Add the file/directory with the same extension as the one under point to =TAGGING-METHOD. Adds an entry for the file to .arch-inventory or =tagging-method. If prefix argument =TAGGING-METHOD is non-nil, the entry is added to "=tagging-method" file. Else it is added to ".arch-inventory" file. (defalias 'tla-generic-add-ext-to-junk #[(=tagging-method) "\301\302\"\207" [=tagging-method tla--generic-add-ext-to-* "junk"] 3 (#$ . 222179) "P"]) #@263 Add the file/directory under the point to =TAGGING-METHOD. Adds an entry for the file to .arch-inventory or =tagging-method. If prefix argument =TAGGING-METHOD is non-nil, the entry is added to "=tagging-method" file. Else it is added to ".arch-inventory" file. (defalias 'tla-generic-add-to-backup #[(=tagging-method) "\301\302\"\207" [=tagging-method tla--generic-add-to-* "backup"] 3 (#$ . 222629) "P"]) #@298 Add the file/directory with the same extension as the one under the point to =TAGGING-METHOD. Adds an entry for the file to .arch-inventory or =tagging-method. If prefix argument =TAGGING-METHOD is non-nil, the entry is added to "=tagging-method" file. Else it is added to ".arch-inventory" file. (defalias 'tla-generic-add-ext-to-backup #[(=tagging-method) "\301\302\"\207" [=tagging-method tla--generic-add-ext-to-* "backup"] 3 (#$ . 223044) "P"]) #@263 Add the file/directory under the point to =TAGGING-METHOD. Adds an entry for the file to .arch-inventory or =tagging-method. If prefix argument =TAGGING-METHOD is non-nil, the entry is added to "=tagging-method" file. Else it is added to ".arch-inventory" file. (defalias 'tla-generic-add-to-precious #[(=tagging-method) "\301\302\"\207" [=tagging-method tla--generic-add-to-* "precious"] 3 (#$ . 223502) "P"]) #@273 Add files with the same extension as the current to =TAGGING-METHOD. Adds an entry for the file to .arch-inventory or =tagging-method. If prefix argument =TAGGING-METHOD is non-nil, the entry is added to "=tagging-method" file. Else it is added to ".arch-inventory" file. (defalias 'tla-generic-add-ext-to-precious #[(=tagging-method) "\301\302\"\207" [=tagging-method tla--generic-add-ext-to-* "precious"] 3 (#$ . 223921) "P"]) #@246 Add the file/directory under the point as an unrecognized entry of .arch-inventory or =tagging-method file. If prefix argument =TAGGING-METHOD is non-nil, the entry is added to "=tagging-method" file. Else it is added to ".arch-inventory" file. (defalias 'tla-generic-add-to-unrecognized #[(=tagging-method) "\301\302\"\207" [=tagging-method tla--generic-add-to-* "unrecognized"] 3 (#$ . 224358) "P"]) #@281 Add the file/directory with the same extension as the one under the point as an unrecognized entry of .arch-inventory or =tagging-method file. If prefix argument =TAGGING-METHOD is non-nil, the entry is added to "=tagging-method" file. Else it is added to ".arch-inventory" file. (defalias 'tla-generic-add-ext-to-unrecognized #[(=tagging-method) "\301\302\"\207" [=tagging-method tla--generic-add-ext-to-* "unrecognized"] 3 (#$ . 224768) "P"]) #@183 Categorize currently marked files or the file under point. Each file is categorized as CATEGORY by adding it to =TAGGING-METHOD. If EXT-ONLY is non-nil, add only the file extension. (defalias 'tla--generic-add-to-* #[(category =tagging-method) "\203\303\202 \304\305\n\306\307\310\n #\307\311\n #\307\312\n #\307\313\n #$\314$)\207" [=tagging-method write-in category "=tagging-method" ".arch-inventory" tla-generic-add-files-to-* tla--generic-select-files format "Make `%%s' %s in %s file? " "Make %%s files %s in %s file? " "Not making any file %s in %s file " "Make file %s in %s file: " nil] 11 (#$ . 225221)]) #@183 Categorize currently marked files or the file under point. Each file is categorized as CATEGORY by adding it to =TAGGING-METHOD. If EXT-ONLY is non-nil, add only the file extension. (defalias 'tla--generic-add-ext-to-* #[(category =tagging-method) "\203\303\202 \304\305\n\306\307\310\n #\307\311\n #\307\312\n #\307\313\n #$\314$)\207" [=tagging-method write-in category "=tagging-method" ".arch-inventory" tla-generic-add-files-to-* tla--generic-select-files format "Make files with same extension as `%%s' %s in %s file? " "Make %%s file extensions %s in %s file? " "Not making any file extensions %s in %s file " "Make file extension %s in %s file: " t] 11 (#$ . 225849)]) #@321 Categorize FILES as CATEGORY in =TAGGING-METHOD. If =TAGGING-METHOD is t, entries for the files are added to =tagging-method. Else, they are added to .arch-inventory. CATEGORY is one of the following strings: "unrecognized", "precious", "backup","junk" or "exclude". If EXT-ONLY is non-nil, add only the file extension. (defalias 'tla-generic-add-files-to-* #[(category =tagging-method files &optional ext-only) "`\304!\212\305\306 \"\210)\307 \ndW\203\nb\210*\207" [default-directory basedir point files expand-file-name mapc #[(file) "\203\n\305 \210\202\306 \307\n!P!\210\310 \311\f\203#\312\313\314\315\n!#\202&\315\n!!\f#\210\316 \207" [=tagging-method basedir file category ext-only tla-edit-=tagging-method-file tla-edit-\.arch-inventory-file file-name-directory tla--inventory-file-add-file dvc-regexp-quote replace-regexp-in-string "^.*\\." "." file-name-nondirectory save-buffer] 8] dvc-generic-refresh] 3 (#$ . 226539)]) #@58 Set the id tagging method of the current tree to METHOD. (defalias 'tla-generic-set-id-tagging-method #[(method) "\301!\210\302 \207" [method tla--id-tagging-method-set dvc-generic-refresh] 2 (#$ . 227488) (list (tla--id-tagging-method-read (tla-id-tagging-method nil)))]) #@86 Interactively set the id tagging method of the current tree. DUMMY-EVENT is ignored. (defalias 'tla-generic-set-id-tagging-method-by-mouse #[(dummy-event) "\300\301!\207" [call-interactively tla-generic-set-id-tagging-method] 2 (#$ . 227768) "e"]) #@56 Run tla set-tree-version, setting the tree to VERSION. (defalias 'tla-generic-set-tree-version #[(&optional version) "\203 \301!\210\202\302\301!\210\303 \207" [version tla-set-tree-version call-interactively dvc-generic-refresh] 2 (#$ . 228022) nil]) #@77 Major Mode to show a specific log message. Commands: \{tla-revlog-mode-map} (defalias 'tla-revlog-mode #[nil "\306 \210\307!\210\310\301!\210\311\310\302!\210\312\310\303!\210\212eb\210\313\314!\210\315`\316 \"\317eb\210\313\320!\210\315`\316 \"Q)\321\322\323\324!\210\325 \210\326\327!\207" [tla-revlog-mode-map font-lock-defaults tla-button-marker-list tla-current-revision major-mode mode-name kill-all-local-variables use-local-map make-local-variable (tla-revlog-font-lock-keywords t) nil re-search-forward "^Archive: " buffer-substring-no-properties line-end-position "/" "^Revision: " tla-revlog-mode "tla-revlog" toggle-read-only 1 tla-add-buttons run-hooks tla-revlog-mode-hook] 5 (#$ . 228285) nil]) #@122 Major Mode to show a specific annotate message. Mostly similar to `tla-annotate-mode'. Commands: \{tla-revlog-mode-map} (defalias 'tla-annotate-mode #[nil "\305 \210\306!\210\307\301!\210\310\307\302!\210\311\312\313\314\315!\210\316 \210\317\320!\207" [tla-revlog-mode-map font-lock-defaults tla-button-marker-list major-mode mode-name kill-all-local-variables use-local-map make-local-variable (tla-revlog-font-lock-keywords t) nil tla-revlog-mode "tla-revlog" toggle-read-only 1 tla-add-buttons run-hooks tla-revlog-mode-hook] 2 (#$ . 229008) nil]) (defalias 'tla-dvc-revlog-get-revision #[(rev-id) "\302\303!@!r q\210\304 *\207" [rev-id buf tla--revlog-any dvc-revision-get-data buffer-string] 4]) (byte-code "\301B\302\301!\2047\303\301\304\305\306\211#\307B\304\310\306\211#\311B\304\312\306\211#\313B\304\314\306\211#\315B\304\316\306\211#\317B\320BBBBB\"\210\321B\302\321!\204F\303\321\322\"\210\322\207" [current-load-list tla-button-alist default-boundp set-default tla-make-name-regexp 0 t (1 t tla-categories-string 1) 1 (1 t tla-branches-string 1) 2 (1 t tla-versions-string 1) 3 (1 t tla-revisions-string 1) 4 (1 t tla--button-revision-fn 1) (("Creator: \\(.*\\)$" 1 t tla-revlog-send-comments 1) ("Archive: \\(.*\\)$" 1 t tla-categories-string 1)) tla-button-marker-list nil] 10) (defalias 'tla--button-revision-fn #[(revision) " !\207" [tla-button-revision-fn revision] 2]) (defalias 'tla-revlog-send-comments #[(email) "\302\303\304!\305!\306!\307!\310!% \"\207" [tla-current-revision email tla-revision-send-comments tla--archive-tree-get-revision-struct tla--name-archive tla--name-category tla--name-branch tla--name-version tla--name-revision] 8 nil (list (save-excursion (goto-char (point-min)) (re-search-forward "^Creator: \\(.*\\)$") (match-string-no-properties 1)))]) #@67 Return the first entry in `tla-button-alist' matching this place. (defalias 'tla-button-entry #[nil "\303\n\203\"\n\211A@\304\305 @!!\203\303\211\202\303\202 *\207" [tla-button-alist entry alist nil looking-at eval] 4 (#$ . 230828)]) #@40 Say whether PROP exists in the region. (defalias 'tla-button-in-region-p #[(b e prop) "\303 \n\304$\207" [b e prop text-property-not-all nil] 5 (#$ . 231082)]) #@163 Find external references in the article and make buttons of them. "External references" are things like Message-IDs and URLs, as specified by `tla-button-alist'. (defalias 'tla-add-buttons #[(&optional buffer force) "r\206pq\210\306\307\306\211 \307\211\211\307\211\211\211A@\211\203jeW\204?dY\203IB\202$b\210\310 \211\203a\311 A@\224 A@\225\312\307$\210\307\211\223\210\202$+eb\210` \211A@\211\205\331\313 @!\fb\210\314\n\307\306#\203t \205\226 A@\224 \205\240 A@\225\315\224\316 8\306=\204\266\313\316 8!\203\325\317\312#\204\325\320\321\322 \307\223B\211@$\210+\202\206. \207" [buffer tla-button-alist regexp entry beg alist t nil tla-button-entry put-text-property tla-callback eval re-search-forward 0 2 tla-button-in-region-p tla-add-button tla-button-push make-marker case-fold-search inhibit-point-motion-hooks o inhibit-read-only new-list marker tla-button-marker-list start end from] 8 (#$ . 231250) (list (current-buffer) 'force)]) (defalias 'tla-button-push #[(marker) "\212b\210\305 \306\307 8\310\311\312 \233\"\313 !\203!\314 \f\"\202<\315 !\2036\313 J!\2036\314 J\f\"\202<\316\317 \fB\"-\207" [marker entry inhibit-point-motion-hooks fun args tla-button-entry t 3 mapcar #[(group) "\302!\303\304 G\305 $\210 )\207" [group string match-string set-text-properties 0 nil] 5] 4 fboundp apply boundp message "You must define `%S' to use this button"] 4]) #@70 Create a button between FROM and TO with callback FUN and data DATA. (defalias 'tla-add-button #[(from to fun &optional data) "\203 \306\307 \n\"\310#\210\311 \n \205\f D\312 D\244\205$\313D\244#\210\314\315 \n\316\317\320\321&\207" [dvc-button-face from to dvc-mouse-face dvc-mouse-face-prop fun dvc-overlay-put dvc-make-overlay face dvc-add-text-properties tla-callback tla-data widget-convert-button link :action tla-widget-press-button :button-keymap nil data] 8 (#$ . 232717)]) (defalias 'tla-widget-press-button #[(elems el) "\301\302\"b\210\303 \207" [elems widget-get :from tla-press-button] 3]) #@184 Check text under the mouse pointer for a callback function. If the text under the mouse pointer has a `tla-callback' property, call it with the value of the `tla-data' text property. (defalias 'tla-push-button #[(event) "\204\306\307!\210\211:\203A@\202\310 `\311\312F)\211@)\211\205(\313\n!)\314 !\210 q\210\211:\203>A@\202D\310 `\311\312F)\315 8\206] A@:\203Z A@@\202] A@)\206d\306\316!\317\f\320\"\317\f\321\"\f\203w\fb\210\205\200 !,\207" [event position window buffer pos data error "Event is nil" selected-window (0 . 0) 0 window-buffer pop-to-buffer 5 "No way to determine point" get-text-property tla-data tla-callback fun] 5 (#$ . 233340) "e"]) #@154 Check text at point for a callback function. If the text at point has a `tla-callback' property, call it with the value of the `tla-data' text property. (defalias 'tla-press-button #[nil "\302`\303\"\302`\304\"\205 !*\207" [fun data get-text-property tla-data tla-callback] 4 (#$ . 234035) nil]) #@33 Show the log for REVISION-SPEC. (defalias 'tla-revlog #[(revision-spec) "\301\302D\303\304#\210\305\306\307#\207" [revision-spec tla--run-tla-sync "cat-log" :finished dvc-finish-function-without-buffer-switch dvc-show-last-process-buffer revlog tla-revlog-mode] 4 (#$ . 234343) (list (tla--name-construct (tla-name-read "Revision spec: " 'prompt 'prompt 'prompt 'prompt 'prompt)))]) (defalias 'tla-cat-log 'tla-revlog) #@40 Run cat-archive-log for REVISION-SPEC. (defalias 'tla-cat-archive-log #[(revision-spec) "\301\302D\303\304#\210\305\306\307#\207" [revision-spec tla--run-tla-sync "cat-archive-log" :finished dvc-finish-function-without-buffer-switch dvc-show-last-process-buffer revlog tla-revlog-mode] 4 (#$ . 234770) (list (tla--name-construct (tla-name-read "Revision spec: " 'prompt 'prompt 'prompt 'prompt 'prompt)))]) #@168 Must be called from the buffer containing the log for REVISION. Saves this buffer to the corresponding file in the log-library if `tla-log-library-greedy' is non-nil. (defalias 'tla--maybe-save-log #[(revision) "\203B\306\307 !\n@P!\310\nA!\311\f!\204\312\f!\210\313\314\n!\315Q\316\317\307\f! P!\210\320\307\f! P!\210\321\316!\210\322!\210p,\207\323 \207" [tla-log-library-greedy tla-log-library revision file dir make-backup-files expand-file-name file-name-as-directory tla--name-construct-semi-qualified file-directory-p make-directory " *tla-log-rev-" tla--name-construct "*" nil write-file set-visited-file-name set-buffer-modified-p rename-buffer clone-buffer name] 3 (#$ . 235186)]) #@494 Create a buffer containing the log file for REVISION. Either call cat-log, cat-archive-log, or read the log from the log library. REVISION must be specified as a list. If TREE is provided, try a cat-log in TREE preferably. Otherwise, try a cat-log in the local directory. If both are impossible, run cat-archive-log. (same result, but needs to retrieve something from the archive). Call the function ASYNC-HANDLER in the created buffer, with arguments (output error status arguments). (defalias 'tla--revlog-any #[(revision &optional tree async-handler) "\203\306 !\204\307 !\210\n;\203\n\202\310\n!\n<\203$\n\202'\311\n!\312 ! P\313 !\206b\314 !\205b\315 \316Q*\317*!\206ar\320*!q\210\321 !\210\322 !\210\323*!\210\324\325!\210p))\211+\203},\203x,+\325\326\327$\202\320+\202\320,\203\206\330\202\207\331,\203\240\332\333\334\335\336\337\340\341\342,\fDD\257E\202\257\332\343\334\344\336\337\340\341\342\fCD\257E-.\331\345 D\346-\347\332\350\334\351\336\337\340\341\342- .ED\257E%*,\207" [tla-log-library-greedy tla-log-library revision rev-str rev-list lib-log file-directory-p make-directory tla--name-construct tla--name-split file-name-as-directory get-file-buffer file-exists-p " *tla-log(" ")*" get-buffer get-buffer-create insert-file-contents set-visited-file-name rename-buffer set-buffer-modified-p nil 0 "cat-log" tla--run-tla-async tla--run-tla-sync lambda (output error status arguments) apply #[(output error status arguments #1=#:dvc-gensym-uniq-133 #2=#:dvc-gensym-uniq-132) "rq\210\306 !\210)\n \f $\207" [output #2# #1# error status arguments tla--maybe-save-log] 5] output error status arguments quote (output error status arguments) #[(output error status arguments #3=#:dvc-gensym-uniq-134) "rq\210\302 !)\207" [output #3# tla--maybe-save-log] 2] "revlog" :finished :error (output error status arguments) #[(output error status arguments #4=#:dvc-gensym-uniq-137 #5=#:dvc-gensym-uniq-136 #6=#:dvc-gensym-uniq-135) "\303 D\304\n#\207" [#6# #5# #4# "cat-archive-log" :finished] 4] name buffer async-handler handler run-mode] 18 (#$ . 235895)]) #@58 Get and show the changeset whose log is being displayed. (defalias 'tla-log-get-changeset #[nil "\301\302\"\207" [tla-current-revision tla-get-changeset t] 3 (#$ . 238021) nil]) #@36 Go to next field in a log edition. (defalias 'tla-log-edit-next-field #[(&optional notab) "\305\306\307 `{\"`\211\203\305\310\307 `{\"\203\311y\210 \203%\312 \210\202(\313y\210\314\315!\2034\316\225b\206|\314\317!\203G\316\225b\203G\320c\210\321\202|\212\322\323\n\323Q\311\321#\205`eb\210\324\325\311\321#\210\313y\210`)\211\205n `V\205n b)\206|b\210\f?\205|\326c*\207" [oldpoint in-field dvc-log-edit-file-list-marker body notab string-match "^\\([A-Z][A-Za-z]*\\(: ?\\)?\\)?$" line-beginning-position "^[A-Z][A-Za-z]*: $" nil beginning-of-line 1 looking-at "^[A-Z][a-zA-Z]*: " 0 "^[A-Z][a-zA-Z]*:$" " " t search-forward "\n" re-search-forward "^$" " "] 5 (#$ . 238206) nil]) #@28 Go to FIELD in a log file. (defalias 'tla-log-goto-field #[(field) "eb\210\301!\210\212\302\303!\204\303c\210)\304u\207" [field re-search-forward looking-at " " 1] 2 (#$ . 238910)]) #@40 Go to the Summary field in a log file. (defalias 'tla-log-goto-summary #[nil "\300\301!\207" [tla-log-goto-field "^Summary:"] 2 (#$ . 239101) nil]) #@41 Go to the Keywords field in a log file. (defalias 'tla-log-goto-keywords #[nil "\300\301!\207" [tla-log-goto-field "^Keywords:"] 2 (#$ . 239255) nil]) #@31 Go to the Body in a log file. (defalias 'tla-log-goto-body #[nil "eb\210\300y\207" [3] 1 (#$ . 239412) nil]) #@40 Kill the content of the log file body. (defalias 'tla-log-kill-body #[nil "\300 \210\301`d\"\207" [tla-log-goto-body kill-region] 3 (#$ . 239527) nil]) (byte-code "\302\303\304\"\210\305\306N\204\307\305\306\310#\210\311\312!\204\307\312\313\314#\210\312B\315\312!\204-\316\312\317 \"\210\311\320!\2049\307\320\313\314#\210\320B\315\320!\204I\316\320\321 \"\210\307\301\313\314#\210\301B\315\301!\204c\316\301\322\301\323\"\210 \"\210\307\314\324\325#\207" [current-load-list tla-log-edit-mode-abbrev-table add-to-list auto-mode-alist ("\\+\\+log\\." . tla-log-edit-mode) tla-log-edit-mode-hook variable-documentation put "Hook run when entering tla-log-edit mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp tla-log-edit-mode-map definition-name tla-log-edit-mode default-boundp set-default make-sparse-keymap tla-log-edit-mode-syntax-table make-syntax-table define-abbrev-table nil derived-mode-parent dvc-log-edit-mode] 5) #@244 Major Mode to edit xtla log messages. Commands: \{tla-log-edit-mode-map} In addition to any hooks its parent mode `dvc-log-edit-mode' might have run, this mode runs the hook `tla-log-edit-mode-hook', as the final step during initialization. (defalias 'tla-log-edit-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315 !\204'\316 \317 \"\210\320\f!\211\2036 \321 =\203<\322\f\323 \"\210)\324 !\210\325\f!\210\324 !\210\326 !\210\327 \210\306\330!\210\331\332!\333\334!\210)\335\334!\207" [delay-mode-hooks major-mode mode-name tla-log-edit-mode-map tla-log-edit-mode-syntax-table parent make-local-variable t dvc-log-edit-mode tla-log-edit-mode "tla-log-edit" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table use-local-map set-syntax-table easy-menu-add dvc-install-buffer-menu font-lock-defaults (tla-log-edit-font-lock-keywords t) 73 run-hooks tla-log-edit-mode-hook run-mode-hooks tla-log-edit-mode-abbrev-table local-abbrev-table tla-log-edit-mode-menu fill-column] 6 (#$ . 240565) nil]) #@29 Abort the current log edit. (defalias 'tla-log-edit-abort #[nil "\301 \210\302!\207" [tla-pre-commit-window-configuration bury-buffer set-window-configuration] 2 (#$ . 241709) nil]) (autoload 'dvc-tips-popup-maybe "dvc-tips") #@41 Finish the current log edit and commit. (defalias 'tla-log-edit-done #[nil "\300\301!\207" [tla-log-edit-done-internal nil] 2 (#$ . 241942) nil]) #@62 Finish the current log edit and commit with sealing(--seal). (defalias 'tla-log-edit-done-with-sealing #[nil "\300\301\302\303 \"!\203\304\305!\207\306\307!\207" [yes-or-no-p format "Do you really want to seal: \"%s\" ?" tla-tree-version tla-log-edit-done-internal seal error "Abort to seal this version"] 4 (#$ . 242094) nil]) #@60 Finish the current log edit and commit with fixing(--fix). (defalias 'tla-log-edit-done-with-fixing #[nil "\300\301\302\303 \"!\203\304\305!\207\306\307!\207" [yes-or-no-p format "Do you really want to fix: \"%s\" ?" tla-tree-version tla-log-edit-done-internal fix error "Abort to fix this version"] 4 (#$ . 242430) nil]) #@107 Finish the current log edit and commit. `nil' or a symbol(`seal' or `fix') is acceptable as VERSION-FLAG. (defalias 'tla-log-edit-done-internal #[(version-flag) "\304 \210\305 \210p\306 \210\n\307\310\311\312\313\314\315\316\317\320 CD\257E \"+\207" [default-directory log-buffer dir version-flag tla-edit-log-delete-file-list save-buffer dvc-tips-popup-maybe tla-commit lambda (output error status args) apply #[(output error status args #1=#:dvc-gensym-uniq-138) "\301!\207" [#1# kill-buffer] 2] output error status args quote] 11 (#$ . 242761)]) #@199 Return the maintainer name for a given VERSION. This function looks in the bookmarks file for the nickname field and returns it. If the nickname field is not present, just return VERSION as string. (defalias 'tla-archive-maintainer-name #[(version) "\301\302\303\304\211\211\211\211&#\207" [version tla-bookmarks-get-field nickname tla--name-mask t] 10 (#$ . 243323)]) #@198 Return my-id substring from ARCHIVE. If SHORTER is non-nil, return login name part of the my-id substring. E.g. If ARCHIVE is x@y.z--a, the result is x@y.z. If SHORTER is non-nil, the result is x. (defalias 'tla-archive-maintainer-id #[(archive &optional shorter) "\302\303\"\205 \203\304\305\"\207\304\306\"\207" [archive shorter string-match "\\(\\(.+\\)@.+\\)--.+" match-string 2 1] 3 (#$ . 243702)]) #@169 Return a suitable maintainer name or version name for VERSION. Either the nickname if defined in the bookmarks, or the left hand side of the email in the archive name. (defalias 'tla-archive-default-maintainer-name #[(version) "\301!\206\f\302\303!\304\"\207" [version tla-archive-maintainer-name tla-archive-maintainer-id tla--name-archive t] 3 (#$ . 244120)]) #@153 Pretty-print a range of merged patches. STRING is an identifier for this merge, while LOW and HIGH are the lowest and highest patches that were merged. (defalias 'tla--merge-summary-end-of-sequence #[(string low high) " U\203\f\304!\202\305\306 # \307\230\203\310\nP\202\" \311\nQ)\207" [low high elem string int-to-string format "%d-%d" "" "patch " ", "] 4 (#$ . 244492)]) #@254 Create a suitable log summary line for a list of merges. MERGELIST is an alist in the form ((maintainer1 12 13 14 25 26) ... (maintainerN num42)) The return value is a string in the form "maintainer1 (patch 12-14, 25-26), maintainerN (patch-num42)" (defalias 'tla-merge-summary-line #[(mergelist) "\306 \203}\307 \211@A)\310\"\306\311\211\211\203O\f\204(@@S T@U\2038@\202B\312 \f #@@A\211\204\312 \f #\311\313\314 \211@@) #\306\230\203n\202s\315Q), A\211\204)\207" [res mergelist x last-patch-number-high last-patch-number-low list-string "" sort < nil tla--merge-summary-end-of-sequence format "%s (%s)" ", " patch-list maint] 5 (#$ . 244883)]) #@203 Return an appropriate "Merged from" summary line for STRING. Gets the 'summary-format field for that version in the bookmarks (or use "Merged from %s" by default), and calls (format summary-format S). (defalias 'tla--merge-summary-default-format-function #[(string) "\302\303 \304\305#\306 \")\207" [format-string string tla-bookmarks-get-field tla-tree-version-list summary-format "Merged from %s" format] 4 (#$ . 245594)]) #@1084 Generate an appropriate summary line after a merge. The generated line is of the form "Merged from Robert (167-168, 170), Masatake (209, 213-215, 217-218)". The names "Robert" and "Masatake" in this example are nicknames defined in the bookmarks for the corresponding versions. First, an alist A like (("Robert" 167 168 170) ("Masatake" 209 213 214 215 217 218)) is generated. If `tla-version-to-name-function' is non-nil, then it must be a function that is called with the version as an argument, and must return a string that will be used to instead of the nickname. Then, a string S like "Robert (167-168, 170), Masatake (209, 213-215, 217-218)" is generated. This is done by default by `tla-merge-summary-line', which can be overridden by `tla-generate-line-function'. Then, the function `tla-format-line-function' is called with this string S as an argument. If `tla-format-line-function' is nil, then, `tla--merge-summary-default-format-function' is called. It retrieves the fields summary-format from the bookmark for the tree version, and calls (format summary-format S). (defalias 'tla-merge-summary-line-for-log #[nil "\212\306\211\211\211eb\210\307\310\306\311#\2038\312\313\314!!\f\206\315 !\316\317 !\320\"\211A@)\321\300\n D\"\210\202\f\306\203~@\322@\"\211\203d\323\211A@)!AB\241\210\202v@\323\211A@)!DB*A\211\204?\206\204\324\206\212\325!!.\207" [patch-list rev maintainer rev-list tla-version-to-name-function x nil re-search-forward "^ \\* \\(.+@.+--.+/.+--.+\\)$" t tla--name-split match-string-no-properties 1 tla-archive-default-maintainer-name split-string tla--name-revision "-" add-to-list assoc string-to-number tla--merge-summary-default-format-function tla-merge-summary-line alist elem patch-number-list tla-format-line-function tla-generate-line-function] 5 (#$ . 246030)]) #@61 Call `tla-log-edit-insert-log-for-merge' with a prefix arg. (defalias 'tla-log-edit-insert-log-for-merge-and-headers #[nil "\300\301!\207" [tla-log-edit-insert-log-for-merge t] 2 (#$ . 247897) nil]) #@176 Insert the output of tla log-for-merge at POINT. When called with a prefix argument ARG, create a standard Merged from line as Summary with `tla-merge-summary-line-for-log'. (defalias 'tla-log-edit-insert-log-for-merge #[(arg) "p\301\302\303\304\305\306\307\310\311\312\313\314CD\257E#)\207" [cur-buf tla--run-tla-sync ("log-for-merge") :finished lambda (output error status arguments) apply #[(output error status arguments #1=#:dvc-gensym-uniq-139) "\306!\211G\307U\203\310\311!\210r\nq\210\312e`\"\313U`\211\203&\314 \210\202) b\210 c\210+ \205O\315 \210`\316 |\210rq\210\317 )c\210\320 \210`\316 |\210\321c\210\315 )\207" [output content #1# old-pos on-summary-line arg dvc-buffer-content 0 error "There was no merge!" count-lines 1 tla-log-goto-body tla-log-goto-summary line-end-position tla-merge-summary-line-for-log tla-log-goto-keywords "merge"] 4] output error status arguments quote] 13 (#$ . 248103) "P"]) #@33 Insert a memorized log message. (defalias 'tla-log-edit-insert-memorized-log #[nil "\203\303 \210`\304 |\210c\210 \205=\305 \210\n\203/\306\307!\203&\310y\210\202/\311 \210\312\313\n\"c\210\306\314!\203;\315\210\316 \210 c\207" [dvc-memorized-log-header dvc-memorized-log-message dvc-memorized-patch-sender tla-log-goto-summary line-end-position tla-log-goto-body looking-at "Patch from " 1 undo-boundary format "Patch from %s\n" "* .+: " nil newline] 3 (#$ . 249042) nil]) #@45 If ELEM is a keyword, print it differently. (defalias 'tla-log-edit-keywords-printer #[(elem) " \235\203\f\n\303P\202 \304\261\207" [elem tla-log-edit-keywords-marked-list dvc-mark " " " "] 2 (#$ . 249532)]) #@127 Add keywords listed in variable `tla-log-edit-keywords'. When called with a prefix argument ARG, delete all current keywords. (defalias 'tla-log-edit-keywords #[(arg) "\212\306 \210`\307 {)p\310\311\312\313\n\310\314%\315\316\317\320\n\321Q!\"\322\323\324 \325Q!\210\326\327!\210\330 \210\331\332!\210\331\304!\210\331\305!\210\331\303!\210 \n\333\334\335!\336\337\340\341 !\"#\n\203a\342\332\n@\"\210\nA\211\204T\211\203{\342\332@\"\210\343 @\"\210A\211\204h+\344*!\210\345+\346,\326\347!\210\350\351!\210eb\210\347y\207" [keywords log-buffer current-keywords tla-log-edit-keywords-log-buffer tla-log-edit-keywords-marked-list tla-log-edit-keywords-cookie tla-log-goto-keywords line-end-position nil replace-regexp-in-string "," " " t mapcar #[(k) "\301\302\"\207" [k format "%s"] 3] read "(" ")" switch-to-buffer " *" tla-arch-branch-name "log-keywords*" toggle-read-only 0 erase-buffer make-local-variable tla-log-edit-keywords ewoc-create dvc-ewoc-create-api-select tla-log-edit-keywords-printer "List of keywords from `tla-log-edit-keywords':\n" format "type C-c C-c to insert the marked keywords to the buffer\n%s" buffer-name add-to-list ewoc-enter-last use-local-map tla-log-edit-keywords-mode "tla-log-keywords" 1 message "Type C-c C-c to finish." tla-log-edit-keywords-mode-map major-mode mode-name] 8 (#$ . 249753) "P"]) #@31 Jump to the location of ELEM. (defalias 'tla-log-edit-keywords-cursor-goto #[(elem) "\301!b\210\302\303!\207" [elem ewoc-location re-search-forward "^"] 2 (#$ . 251115) nil]) #@25 Go to the next keyword. (defalias 'tla-log-edit-keywords-next #[nil "\304 !\305 \n\"\206\n\306 !+\207" [tla-log-edit-keywords-cookie cookie elem next ewoc-locate ewoc-next tla-log-edit-keywords-cursor-goto] 3 (#$ . 251297) nil]) #@29 Go to the previous keyword. (defalias 'tla-log-edit-keywords-previous #[nil "\304 !\305 \n\"\206\n\306 !+\207" [tla-log-edit-keywords-cookie cookie elem previous ewoc-locate ewoc-prev tla-log-edit-keywords-cursor-goto] 3 (#$ . 251538) nil]) #@27 Mark the current keyword. (defalias 'tla-log-edit-keywords-mark #[nil "`\302\303\304\305 !!\"\210\306 !\210b\210)\307 \207" [pos tla-log-edit-keywords-cookie add-to-list tla-log-edit-keywords-marked-list ewoc-data ewoc-locate ewoc-refresh tla-log-edit-keywords-next] 5 (#$ . 251791) nil]) #@29 Unmark the current keyword. (defalias 'tla-log-edit-keywords-unmark #[nil "`\303\304\305 !!\n\"\306 !\210b\210)\307 \207" [pos tla-log-edit-keywords-cookie tla-log-edit-keywords-marked-list delete ewoc-data ewoc-locate ewoc-refresh tla-log-edit-keywords-next] 4 (#$ . 252088) nil]) #@29 Unmark all marked keywords. (defalias 'tla-log-edit-keywords-unmark-all #[nil "`\303\304\n!\210b)\207" [pos tla-log-edit-keywords-marked-list tla-log-edit-keywords-cookie nil ewoc-refresh] 2 (#$ . 252379) nil]) #@20 Mark all keywords. (defalias 'tla-log-edit-keywords-mark-all #[nil "` \304 !\210b)\207" [pos tla-log-edit-keywords tla-log-edit-keywords-marked-list tla-log-edit-keywords-cookie ewoc-refresh] 2 (#$ . 252599) nil]) #@40 Toggle marking of the current keyword. (defalias 'tla-log-edit-keywords-toggle-mark #[nil "`\303\304 !!\n\235\203\305 \210\202\306 \210\307 !\210b)\207" [pos tla-log-edit-keywords-cookie tla-log-edit-keywords-marked-list ewoc-data ewoc-locate tla-log-edit-keywords-unmark tla-log-edit-keywords-mark ewoc-refresh] 3 (#$ . 252822) nil]) #@41 Insert marked keywords into log buffer. (defalias 'tla-log-edit-keywords-insert #[nil "\303\n!\210\304\305\306 \307Q!\210\212\310 \210`\311 |\210\312\313\314 !\315#c*\207" [tla-log-edit-keywords-marked-list keywords tla-log-edit-keywords-log-buffer switch-to-buffer kill-buffer " *" tla-arch-branch-name "log-keywords*" tla-log-goto-keywords line-end-position mapconcat identity reverse ", "] 4 (#$ . 253169) nil]) #@30 Mirror the archive at point. (defalias 'tla-archive-mirror-archive #[nil "\301 \211\205 \302!\210\303 )\207" [archive-info tla-get-archive-info tla-mirror-archive tla-archives] 3 (#$ . 253592) nil]) #@51 Synchronizes the mirror for the archive at point. (defalias 'tla-archive-synchronize-archive #[nil "\301 \211\205\n\302!)\207" [archive-info tla-get-archive-info tla-archive-mirror] 3 (#$ . 253800) nil]) #@64 Major Mode to show arch archives: \{tla-archive-list-mode-map} (defalias 'tla-archive-list-mode #[nil "\305 \210\306!\210\307 !\210\310 \210\311\312\313\314!\210\315\316!\210\317\304!\210\320\321\322!\207" [tla-archive-list-mode-map tla-archive-list-mode-menu major-mode mode-name dvc-get-revision-info-at-point-function kill-all-local-variables use-local-map easy-menu-add dvc-install-buffer-menu tla-archive-list-mode "tla-archives" toggle-read-only 1 set-buffer-modified-p nil make-local-variable tla--get-archive-info-at-point run-hooks tla-archive-list-mode-hook] 2 (#$ . 254013) nil]) #@26 Get archive information. (defalias 'tla--get-archive-info-at-point #[nil "\300\301 D\207" [archive tla-get-archive-info] 2 (#$ . 254614)]) #@29 Select the default archive. (defalias 'tla-archive-select-default #[nil "\301 \205`\302\301 !\210\303 \210b)\207" [pos tla-get-archive-info tla-my-default-archive tla-archives] 2 (#$ . 254759) nil]) #@50 Delete the registration of the selected archive. (defalias 'tla-archive-unregister-archive #[nil "\301 \211\203\302\303\"\210\304 \202\305\306!)\207" [archive tla-get-archive-info tla--unregister-archive t tla-archives error "No archive under the point"] 4 (#$ . 254968) nil]) #@139 Edit the archive location for a archive. This is done by unregistering the archive, followed by a new registration with the new location. (defalias 'tla-archive-edit-archive-location #[nil "\301 \302!\210\212\303 *\207" [archive tla-get-archive-info tla--edit-archive-location tla-archives] 2 (#$ . 255258) nil]) #@43 Use the mirror archive as default mirror. (defalias 'tla-archive-use-as-default-mirror #[nil "\301 \302!\210\212\303 *\207" [archive tla-get-archive-info tla-use-as-default-mirror tla-archives] 2 (#$ . 255579) nil]) #@46 List the categories for the current archive. (defalias 'tla-archive-list-categories #[nil "\301 \211\203 \302!\202\303\304!)\207" [archive tla-get-archive-info tla-categories error "No archive under the point"] 3 (#$ . 255803) nil]) #@53 `tla-archive-list-categories' with mouse interface. (defalias 'tla-archive-list-categories-by-mouse #[(event) "\301!\210\302 \207" [event mouse-set-point tla-archive-list-categories] 2 (#$ . 256047) "e"]) #@29 Browse the current archive. (defalias 'tla-archive-browse-archive #[nil "\301 \211\203 \302!\202\303\304!)\207" [archive tla-get-archive-info tla-browse-archive error "No archive under the point"] 3 (#$ . 256259) nil]) (defalias 'tla-archive-next #[nil "\303!\304 \"\206\f \211\203*\305\n!@\306=\203*\304\n\"\203*\304\n\"\211\204\n\203@\305\n!@\306=\203@\307\n\"\211\204.\n\205H\310\n!b*\207" [tla-archives-list-cookie elem next ewoc-locate ewoc-next ewoc-data separator ewoc-prev ewoc-location] 4 nil nil]) (defalias 'tla-archive-previous #[nil "\303!\304 \"\206\f \211\203*\305\n!@\306=\203*\304\n\"\203*\304\n\"\211\204\n\203@\305\n!@\306=\203@\307\n\"\211\204.\n\205H\310\n!b*\207" [tla-archives-list-cookie elem next ewoc-locate ewoc-prev ewoc-data separator ewoc-next ewoc-location] 4 nil nil]) #@56 Save the name of the current archive to the kill ring. (defalias 'tla-save-archive-to-kill-ring #[nil "\302 \206\206\303\304\305\306\"!\211\204\307\310!\210\311 !\210t\203%\312\313 \"\210 )\207" [tla-buffer-archive-name archive tla-get-archive-info tla--name-archive tla-tree-version-list nil no-error error "No archive name associated with current buffer" kill-new message "%s"] 5 (#$ . 257109) nil]) #@41 Save tla tree-version to the kill ring. (defalias 'tla-save-version-to-kill-ring #[nil "\301 \302!\210t\203\303\304\"\210)\207" [version tla-tree-version kill-new message "%s"] 3 (#$ . 257526) nil]) #@41 Save tla tree-version to the kill ring. (defalias 'tla-save-revision-to-kill-ring #[nil "\301 \302!\210t\203\303\304\"\210)\207" [revision tla-tree-id kill-new message "%s"] 3 (#$ . 257737) nil]) #@67 Major Mode to show arch categories: \{tla-category-list-mode-map} (defalias 'tla-category-list-mode #[nil "\305 \210\306!\210\307 !\210\310 \210\311\312\313\314\315\"\210\316\317!\210\320\321!\210\322\304!\210\323\324\325!\207" [tla-category-list-mode-map tla-category-list-mode-menu major-mode mode-name dvc-get-revision-info-at-point-function kill-all-local-variables use-local-map easy-menu-add dvc-install-buffer-menu tla-category-list-mode "tla-category" add-hook tla-make-category-hook tla-category-refresh toggle-read-only 1 set-buffer-modified-p nil make-local-variable tla--get-category-info-at-point run-hooks tla-category-list-mode-hook] 3 (#$ . 257945) nil]) #@43 Get archive/category--branch information. (defalias 'tla--get-category-info-at-point #[nil "\302\303\304!\"\305 )D\207" [tla-buffer-archive-name buffer-version tla--name-construct tla-get-archive-info tla-category-info category] 4 (#$ . 258626)]) #@40 List branches of the current category. (defalias 'tla-category-list-branches #[nil "\302\303!\211\203\304 \"\202\305\306!)\207" [category tla-buffer-archive-name tla-get-archive-info tla-category-info tla-branches error "No category under the point"] 4 (#$ . 258881) nil]) #@52 `tla-category-list-branches' with mouse interface. (defalias 'tla-category-list-branches-by-mouse #[(event) "\301!\210\302 \207" [event mouse-set-point tla-category-list-branches] 2 (#$ . 259166) "e"]) #@39 Create a new category named CATEGORY. (defalias 'tla-category-make-category #[(category) "\302 \"\207" [tla-buffer-archive-name category tla-make-category] 3 (#$ . 259375) "sCategory name: "]) #@36 Refresh the current category list. (defalias 'tla-category-refresh #[nil "\301!\207" [tla-buffer-archive-name tla-categories] 2 (#$ . 259575) nil]) #@28 Move to the next category. (defalias 'tla-category-next #[nil "\300y\210\301 \207" [1 beginning-of-line] 1 (#$ . 259730) nil]) #@32 Move to the previous category. (defalias 'tla-category-previous #[nil "\300y\210\301 \210\302\303!?\205\304y\207" [-1 beginning-of-line looking-at "^ " 1] 2 (#$ . 259863) nil]) #@30 Mirror the current category. (defalias 'tla-category-mirror-archive #[nil "\302\303!\211\204\f\304\305!\210\306 \")\207" [category tla-buffer-archive-name tla-get-archive-info tla-category-info error "No category at point" tla-archive-mirror] 4 (#$ . 260050) nil]) #@46 Add a bookmark named NAME for this category. (defalias 'tla-category-bookmarks-add-here #[(name) "\302 \303\304!\305\211\211\257\"\210\306\307\"\207" [name tla-buffer-archive-name tla-bookmarks-add tla-get-archive-info tla-category-info nil message "bookmark %s added."] 7 (#$ . 260324) "sBookmark name: "]) #@46 Add a bookmark named NAME for this category. (defalias 'tla-category-bookmarks-add #[(name) "\302 \303\211\211F\"\210\304\305\"\207" [name tla-buffer-archive-name tla-bookmarks-add nil message "bookmark %s added."] 6 (#$ . 260641) "sBookmark name: "]) #@63 Major Mode to show arch branches: \{tla-branch-list-mode-map} (defalias 'tla-branch-list-mode #[nil "\305 \210\306!\210\307 !\210\310 \210\311\312\313\314\315\"\210\316\317!\210\320\321!\210\322\304!\210\323\324\325!\207" [tla-branch-list-mode-map tla-branch-list-mode-menu major-mode mode-name dvc-get-revision-info-at-point-function kill-all-local-variables use-local-map easy-menu-add dvc-install-buffer-menu tla-branch-list-mode "tla-branch" add-hook tla-make-branch-hook tla-branch-refresh toggle-read-only 1 set-buffer-modified-p nil make-local-variable tla--get-branch-info-at-point run-hooks tla-branch-list-mode-hook] 3 (#$ . 260901) nil]) #@52 Get archive/category--branch--version information. (defalias 'tla--get-branch-info-at-point #[nil "\303 \304\305!#\306\n)D\207" [tla-buffer-archive-name tla-buffer-category-name buffer-version tla--name-construct tla-get-archive-info tla-branch-info branch] 5 (#$ . 261560)]) #@35 Create a new branch named BRANCH. (defalias 'tla-branch-make-branch #[(branch) "\303 \n#\207" [tla-buffer-archive-name tla-buffer-category-name branch tla-make-branch] 4 (#$ . 261844) "sBranch name: "]) #@34 Refresh the current branch list. (defalias 'tla-branch-refresh #[nil "\302 \"\207" [tla-buffer-archive-name tla-buffer-category-name tla-branches] 3 (#$ . 262054) nil]) #@49 List the parent category of the current branch. (defalias 'tla-branch-list-parent-category #[nil "\301!\207" [tla-buffer-archive-name tla-categories] 2 (#$ . 262230) nil]) #@42 List the versions of the current branch. (defalias 'tla-branch-list-versions #[nil "\303\304!\211\203\305 \n#\202\306\307!)\207" [branch tla-buffer-archive-name tla-buffer-category-name tla-get-archive-info tla-branch-info tla-versions error "No branch under the point"] 5 (#$ . 262409) nil]) #@50 `tla-branch-list-versions' with mouse interface. (defalias 'tla-branch-list-versions-by-mouse #[(event) "\301!\210\302 \207" [event mouse-set-point tla-branch-list-versions] 2 (#$ . 262714) "e"]) #@28 Mirror the current branch. (defalias 'tla-branch-mirror-archive #[nil "\303\304!\211\204\f\305\306!\210\307 \n#)\207" [branch tla-buffer-archive-name tla-buffer-category-name tla-get-archive-info tla-branch-info error "No branch under the point" tla-archive-mirror] 5 (#$ . 262917) nil]) #@51 Get the current branch and place it in DIRECTORY. (defalias 'tla-branch-get-branch #[(directory) "\304\305!\211\203\306 \307\n %\202\310\311!)\207" [branch directory tla-buffer-archive-name tla-buffer-category-name tla-get-archive-info tla-branch-info tla-get t error "No branch under the point"] 7 (#$ . 263214) (list (expand-file-name (dvc-read-directory-name (format "Restore \"%s\" to: " (let ((branch (tla-get-archive-info 'tla-branch-info))) (unless branch (error "No branch under the point")) (tla--name-construct tla-buffer-archive-name tla-buffer-category-name branch))))))]) #@51 Add a bookmark named NAME for the current branch. (defalias 'tla-branch-bookmarks-add-here #[(name) "\303 \n\304\305!\306\211\257\"\210\307\310\"\207" [name tla-buffer-archive-name tla-buffer-category-name tla-bookmarks-add tla-get-archive-info tla-branch-info nil message "bookmark %s added."] 7 (#$ . 263811) "sBookmark name: "]) #@51 Add a bookmark named NAME for the current branch. (defalias 'tla-branch-bookmarks-add #[(name) "\303 \n\304\211\211\257\"\210\305\306\"\207" [name tla-buffer-archive-name tla-buffer-category-name tla-bookmarks-add nil message "bookmark %s added."] 7 (#$ . 264152) "sBookmark name: "]) #@64 Major Mode to show arch versions: \{tla-version-list-mode-map} (defalias 'tla-version-list-mode #[nil "\305 \210\306!\210\307 !\210\310 \210\311\312\313\314\315\"\210\316\317!\210\320\321!\210\322\304!\210\323\324\325!\207" [tla-version-list-mode-map tla-version-list-mode-menu major-mode mode-name dvc-get-revision-info-at-point-function kill-all-local-variables use-local-map easy-menu-add dvc-install-buffer-menu tla-version-list-mode "tla-version" add-hook tla-make-version-hook tla-version-refresh toggle-read-only 1 set-buffer-modified-p nil make-local-variable tla--get-version-info-at-point run-hooks tla-version-list-mode-hook] 3 (#$ . 264446) nil]) #@62 Get archive/category--branch--version--revision information. (defalias 'tla--get-version-info-at-point #[nil "\304 \n\305\306!$\307 )D\207" [tla-buffer-archive-name tla-buffer-category-name tla-buffer-branch-name buffer-version tla--name-construct tla-get-archive-info tla-version-info version] 6 (#$ . 265115)]) #@35 Refresh the current version list. (defalias 'tla-version-refresh #[nil "\303 \n#\207" [tla-buffer-archive-name tla-buffer-category-name tla-buffer-branch-name tla-versions] 4 (#$ . 265436) nil]) #@41 List the parent branch of this version. (defalias 'tla-version-list-parent-branch #[nil "\302 \"\207" [tla-buffer-archive-name tla-buffer-category-name tla-branches] 3 (#$ . 265638) nil]) #@37 List the revisions of this version. (defalias 'tla-version-list-revisions #[nil "\304\305!\211\203\306 \n $\202\307\310!)\207" [version tla-buffer-archive-name tla-buffer-category-name tla-buffer-branch-name tla-get-archive-info tla-version-info tla-revisions error "No version under the point"] 6 (#$ . 265833) nil]) #@52 `tla-version-list-revisions' with mouse interface. (defalias 'tla-version-list-revisions-by-mouse #[(event) "\301!\210\302 \207" [event mouse-set-point tla-version-list-revisions] 2 (#$ . 266163) "e"]) #@37 Create a new version named VERSION. (defalias 'tla-version-make-version #[(version) "\304 \n $\207" [tla-buffer-archive-name tla-buffer-category-name tla-buffer-branch-name version tla-make-version] 5 (#$ . 266372) "sVersion name: "]) #@52 Add a bookmark named NAME for the current version. (defalias 'tla-version-bookmarks-add-here #[(name) "\304 \n \305\306!\307\257\"\210\310\311\"\207" [name tla-buffer-archive-name tla-buffer-category-name tla-buffer-branch-name tla-bookmarks-add tla-get-archive-info tla-version-info nil message "bookmark %s added."] 7 (#$ . 266614) "sBookmark name: "]) #@52 Add a bookmark named NAME for the current version. (defalias 'tla-version-bookmarks-add #[(name) "\304 \n \305\211\257\"\210\306\307\"\207" [name tla-buffer-archive-name tla-buffer-category-name tla-buffer-branch-name tla-bookmarks-add nil message "bookmark %s added."] 7 (#$ . 266978) "sBookmark name: "]) #@36 Save the version to the kill-ring. (defalias 'tla-version-save-version-to-kill-ring #[nil "\302 \211A@)\303 !\210t\203\304\305 \"\210 )\207" [x version tla--get-version-info-at-point kill-new message "%s"] 4 (#$ . 267294) nil]) #@42 Get a version and place it in DIRECTORY. (defalias 'tla-version-get-version #[(directory) "\305\306!\211\203\307 \310\n \f&\202\311\312!)\207" [version directory tla-buffer-archive-name tla-buffer-category-name tla-buffer-branch-name tla-get-archive-info tla-version-info tla-get t error "No version under the point"] 8 (#$ . 267532) (list (expand-file-name (dvc-read-directory-name (format "Restore \"%s\" to: " (let ((version (tla-get-archive-info 'tla-version-info))) (unless version (error "No version under the point")) (tla--name-construct tla-buffer-archive-name tla-buffer-category-name tla-buffer-branch-name version))))))]) #@29 Mirror the current version. (defalias 'tla-version-mirror-archive #[nil "\304\305!\211\205\306 \n $)\207" [version tla-buffer-archive-name tla-buffer-category-name tla-buffer-branch-name tla-get-archive-info tla-version-info tla-archive-mirror] 6 (#$ . 268179) nil]) #@127 Run tla tag from the current location in version buffer. The tag is created in TO-ARCHIVE/TO-CATEGORY--TO-BRANCH--TO-VERSION. (defalias 'tla-version-tag #[(to-archive to-category to-branch to-version) "\306 \n $\307\310\311! \f\204\312\313!\210\306\f$\314  \"+\207" [to-archive to-category to-branch to-version from-version from-fq tla--name-construct nil tla-get-archive-info tla-version-info error "No version under the point" tla--version-tag-internal to-fq tla-buffer-archive-name tla-buffer-category-name tla-buffer-branch-name] 5 (#$ . 268457) (let ((l (tla-name-read "Tag to: " 'prompt 'prompt 'prompt 'prompt))) (list (tla--name-archive l) (tla--name-category l) (tla--name-branch l) (tla--name-version l)))]) #@148 Create a tag from FROM-FQ to TO-FQ. If SYNCHRONOUSLY is non-nil, internal `tla-tag' and `tla-get' runs synchronously. Else it runs asynchronously. (defalias 'tla--version-tag-internal #[(from-fq to-fq &optional synchronously) "\204 \306\307!\210\202!;\204\306\310!\210\202!\311\230\203!\306\312!\210\313\314\315 #!\205\253\316 \2034\317\2025\320 \321 \n$\204B\306\322!\210\323\324!\205\253\325\326\211\326'\f\204\214\327 \f\"\330\331\f!\332P!\333 !\204w\334\335 \"\210\336\337!\210\326\211\202R\340\f!\203Q\334\341\f\"\210\336\337!\210\326\211\203U\342 !'\343\f\344'@'A@\337'8\345'8\346'8\n&,\207" [from-fq to-fq synchronously prompt dir parent error "from-fq is not specified" "from-fq is not string" "" "from-fq is an empty string" yes-or-no-p format "Create a tag from `%s' to `%s'? " tla-has-branch-command baz-branch tla-tag tla--tag-does-cacherev "Fail to create a tag" y-or-n-p "Tag created. Get a copy of this revision? " "Get a copy in: " nil dvc-read-directory-name expand-file-name file-name-as-directory ".." file-directory-p message "`%s' is not directory" sit-for 2 file-exists-p "`%s' exists already" tla--name-split tla-get ask 3 4 to-fq-split] 10 (#$ . 269196)]) (byte-code "\302\303!\210\304\305N\204\306\304\305\307#\210\310\311!\204\306\311\312\313#\210\311B\314\311!\204,\315\311\316 \"\210\310\317!\2048\306\317\312\313#\210\317B\314\317!\204H\315\317\320 \"\210\306\301\312\313#\210\301B\314\301!\204b\315\301\321\301\322\"\210 \"\210\306\313\323\324#\207" [current-load-list tla-revision-list-mode-abbrev-table require dvc-revlist tla-revision-list-mode-hook variable-documentation put "Hook run when entering tla-revisions mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp tla-revision-list-mode-map definition-name tla-revision-list-mode default-boundp set-default make-sparse-keymap tla-revision-list-mode-syntax-table make-syntax-table define-abbrev-table nil derived-mode-parent dvc-revlist-mode] 5) #@245 Major mode to show Arch revision lists: \{tla-revision-list-mode-map}. In addition to any hooks its parent mode `dvc-revlist-mode' might have run, this mode runs the hook `tla-revision-list-mode-hook', as the final step during initialization. (defalias 'tla-revision-list-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315 !\204'\316 \317 \"\210\320\f!\211\2036 \321 =\203<\322\f\323 \"\210)\324 !\210\325\f!\210\324 !\210)\326\327!\207" [delay-mode-hooks major-mode mode-name tla-revision-list-mode-map tla-revision-list-mode-syntax-table parent make-local-variable t dvc-revlist-mode tla-revision-list-mode "tla-revisions" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table use-local-map set-syntax-table run-mode-hooks tla-revision-list-mode-hook tla-revision-list-mode-abbrev-table local-abbrev-table] 6 (#$ . 271274) nil]) #@148 Get archive/category--branch--version--revision information. Returns nil if not on a revision list, or not on a revision entry in a revision list. (defalias 'tla--revision-get-version-info-at-point #[nil "\301\302\303\304 \211A@)!\305\211\211\211\211&D\207" [x version tla--name-mask tla--name-split dvc-revlist-get-rev-at-point t] 9 (#$ . 272251)]) #@57 Save the name of the current revision to the kill ring. (defalias 'tla-revision-save-revision-to-kill-ring #[nil "\302 \211A@)\211\204\303\304!\210\305 !\210t\203\306\307 \"\210 )\207" [x rev dvc-revlist-get-rev-at-point error "No revision at point" kill-new message "%s"] 4 (#$ . 272609) nil]) #@56 Save the name of the current version to the kill ring. (defalias 'tla-revision-save-version-to-kill-ring #[nil "\302 \211A@)\211\204\303\304!\210\305 !\210t\203\306\307 \"\210 )\207" [x rev tla--revision-get-version-info-at-point error "No version at point" kill-new message "%s"] 4 (#$ . 272916) nil]) #@40 Refresh the current list of revisions. (defalias 'tla-revision-refresh #[nil "\304 \n $\207" [tla-buffer-archive-name tla-buffer-category-name tla-buffer-branch-name tla-buffer-version-name tla-revisions] 5 (#$ . 273231) nil]) #@51 List the versions of the parent of this revision. (defalias 'tla-revision-list-parent-version #[nil "\303 \n#\207" [tla-buffer-archive-name tla-buffer-category-name tla-buffer-branch-name tla-versions] 4 (#$ . 273465) nil]) #@113 Get a revision and place it in DIRECTORY. The revision is named by ARCHIVE/CATEGORY--BRANCH--VERSION--REVISION. (defalias 'tla-revision-get-revision #[(directory archive category branch version revision) "\203\306 \307\n \f &\207\310\311!\207" [revision directory archive category branch version tla-get t error "No revision under the point"] 8 (#$ . 273697) (let* ((elem (ewoc-data (ewoc-locate dvc-revlist-cookie))) (full (tla--revision-revision (dvc-revlist-entry-patch-struct (nth 1 elem)))) (revision (tla--name-revision full)) (archive (tla--name-archive full)) (category (tla--name-category full)) (branch (tla--name-branch full)) (version (tla--name-version full)) dir) (unless revision (error "No revision under the point")) (setq dir (expand-file-name (dvc-read-directory-name (format "Restore \"%s\" to: " (tla--name-construct archive category branch version revision))))) (if (file-exists-p dir) (error "Directory %s already exists" dir)) (list dir archive category branch version revision))]) #@53 Create a cached revision for the revision at point. (defalias 'tla-revision-cache-revision #[(archive category branch version revision) "\203\f\305 \n \f%\207\306\307!\207" [revision archive category branch version tla-cache-revision error "No revision under the point"] 6 (#$ . 274714) (let* ((elem (ewoc-data (ewoc-locate dvc-revlist-cookie))) (full (tla--revision-revision (car (cddr elem)))) (archive (tla--name-archive full)) (category (tla--name-category full)) (branch (tla--name-branch full)) (version (tla--name-version full)) (revision (tla--name-revision full))) (unless revision (error "No revision under the point")) (list archive category branch version revision))]) #@39 Add the revision at point to library. (defalias 'tla-revision-add-to-library #[(archive category branch version revision) "\203\f\305 \n \f%\207\306\307!\207" [revision archive category branch version tla-library-add error "No revision under the point"] 6 (#$ . 275404) (let* ((elem (ewoc-data (ewoc-locate dvc-revlist-cookie))) (full (tla--revision-revision (car (cddr elem)))) (archive (tla--name-archive full)) (category (tla--name-category full)) (branch (tla--name-branch full)) (version (tla--name-version full)) (revision (tla--name-revision full))) (unless revision (error "No revision under the point")) (list archive category branch version revision))]) #@195 Refresh the revision list if new information is available. If the current ewoc doesn't contain creator, date, and summary, and if these values should now be displayed, run the refresh function. (defalias 'tla-revision-refresh-maybe #[nil "\204 \204\n\204 \204\f\205\306\307 \310\"\203E\204E\311!\211@\312=\203:\313\202A\314 \")\202\205~\311!A@\211\310H>\204_\315\316!\210\317H)\211\310H>\204s\315\320!\210\321H)?\205~\322 *\207" [dvc-revisions-shows-date dvc-revisions-shows-creator dvc-revisions-shows-summary tla-revisions-shows-merges tla-revisions-shows-merged-by dvc-revlist-cookie nil ewoc-nth 0 ewoc-data entry-patch t ewoc-next error "dvc-revlist-entry-patch-struct accessing a non-dvc-revlist-entry-patch" 3 "tla--revision-summary accessing a non-tla--revision" 2 dvc-generic-refresh ewoc-elem stop elem cl-x cl-struct-dvc-revlist-entry-patch-tags cl-struct-tla--revision-tags] 5 (#$ . 276078)]) #@62 Toggle display of the revision library in the revision list. (defalias 'tla-revision-toggle-library #[nil "?\302 !\207" [tla-revisions-shows-library dvc-revlist-cookie ewoc-refresh] 2 (#$ . 277044) nil]) #@52 Toggle display of the merges in the revision list. (defalias 'tla-revision-toggle-merges #[nil "?\302 \210\303 !\207" [tla-revisions-shows-merges dvc-revlist-cookie tla-revision-refresh-maybe ewoc-refresh] 2 (#$ . 277256) nil]) #@51 Toggle display of merged-by in the revision list. (defalias 'tla-revision-toggle-merged-by #[nil "? \204\203\303 \210\304 \210\305\n!\207" [tla-revisions-shows-merged-by tla-revision-merge-by-computed dvc-revlist-cookie tla-revision-refresh-maybe tla-revision-compute-merged-by ewoc-refresh] 2 (#$ . 277492) nil]) #@61 If file-diff buffer is visible, scroll. Otherwise, show it. (defalias 'tla-revision-scroll-or-show-changeset #[(up-or-down) "\306\307 !!\211AA)@\211\310H\f>\204\311\312!\210 \313H)\314 !\211\204,\311\315!\210\316\317#\320\321$\210\322\"?\205K\323 ,\207" [dvc-revlist-cookie cookie x cl-x cl-struct-tla--revision-tags full ewoc-data ewoc-locate 0 error "tla--revision-revision accessing a non-tla--revision" 1 tla--name-construct "No revision info at point." dvc-get-buffer changeset dvc-trace "buffer=%S revision=%S tla-arch-branch=%S" dvc-scroll-maybe tla-revision-changeset revision tla-arch-branch buffer up-or-down] 6 (#$ . 277819) nil]) (defalias 'tla-revision-scroll-up-or-show-changeset #[nil "\300\301!\207" [tla-revision-scroll-or-show-changeset scroll-up] 2 nil nil]) (defalias 'tla-revision-scroll-down-or-show-changeset #[nil "\300\301!\207" [tla-revision-scroll-or-show-changeset scroll-down] 2 nil nil]) #@140 Gets and display the changeset at point in a revision list buffer. If used with a prefix arg ARG, don't include the diffs from the output. (defalias 'tla-revision-changeset #[(&optional arg) "\306\307!\210\310 p\n\311\312 !!A@\211\313H >\204\306\314!\210\f\315H)\211\313H>\2041\306\316!\210\f\317H)\320!\321\322\323$\210\324\325# \326\327 \"\210r q\210  )\330\310 \"\205k\331 \332\"-\207" [window-conf cur-buf dvc-revlist-cookie cookie cl-x cl-struct-dvc-revlist-entry-patch-tags error "tla-revision-changeset should be handled by DVC now..." current-window-configuration ewoc-data ewoc-locate 0 "dvc-revlist-entry-patch-struct accessing a non-dvc-revlist-entry-patch" 3 "tla--revision-revision accessing a non-tla--revision" 1 tla--name-construct tla-get-changeset t nil dvc-get-buffer-create changeset dvc-trace "before with. dvc-partner-buffer=%S" compare-window-configurations dvc-scroll-maybe scroll-up cl-struct-tla--revision-tags full revision arg tla-arch-branch dvc-partner-buffer] 6 (#$ . 278771) "P"]) #@127 Store a delta between two marked revisions. If prefix argument ACROSS-VERSIONS is given, read revision details from the user. (defalias 'tla-revision-store-delta #[(across-versions) "\301\302\"\207" [across-versions tla-revision-delta t] 3 (#$ . 279822) "P"]) #@433 Run tla delta from marked revision to revision at point. If prefix-argument ACROSS-VERSIONS is nil, read a revision in the current version. If ACROSS-VERSIONS is non-nil, read an archive, a category, a branch, a version, and a revision to specify the revision. If STORED-TO-DIRECTORY is nil, ask the user whether the changeset is stored to or not. If STORED-TO-DIRECTORY is non-nil, don't ask the use and the changeset is stored. (defalias 'tla-revision-delta #[(across-versions &optional stored-to-directory) "\306\307!!\211AA)@\211\310H >\204\311\312!\210\n\313H)\314\f!\315 #\313#GW\2031\311\316!\210#\203R#A\204R#@\310H >\204J\311\312!\210#@\313H\202\225\317\320\321$\203^ \202a\322\f!\"$\203k\323\202n\324\f!$\203w\323\202z\325\f!$\203\203\323\202\206\326\f!$\203\217\323\202\222\327\f!\330&)%\324%!\204\243\311\331!\210\325%!\204\256\311\332!\210\326%!\204\271\311\333!\210\327%!\204\304\311\334!\210\322%!\204\343\335%\233\336\324%!\325%!\326%!\327%!$\240\210&\204\363&\204\366\337\340!\203\366\341&\342\314%! &#+\207" [dvc-revlist-cookie x cl-x cl-struct-tla--revision-tags modified modified-fq ewoc-data ewoc-locate 0 error "tla--revision-revision accessing a non-tla--revision" 1 tla--name-construct dvc-revision-marked-revisions "Delta can be run against one marked revision as the base revision" tla-name-read format "Revision for delta to %s from: " tla--name-revision prompt tla--name-archive tla--name-category tla--name-branch tla--name-version maybe "Archive for the base is not specified" "Cateogory for the base is not specified" "Branch for the base is not specified" "Version for the base is not specified" 4 tla--version-head y-or-n-p "Store the delta to a directory? " ask tla-delta marked across-versions base stored-to-directory] 8 (#$ . 280090) "P"]) #@53 Add a bookmark named NAME for the current revision. (defalias 'tla-revision-bookmarks-add #[(name) "\305\306\307 !!\211AA)@\211\310H\f>\204\311\312!\210 \313H)\"\210\314\315\"\207" [name dvc-revlist-cookie x cl-x cl-struct-tla--revision-tags tla-bookmarks-add ewoc-data ewoc-locate 0 error "tla--revision-revision accessing a non-tla--revision" 1 message "bookmark %s added."] 6 (#$ . 281933) "sBookmark name: "]) #@111 Unify a tree's patch log with the current revision. With prefix argument ARG, use the latest version instead. (defalias 'tla-revision-sync-tree #[(arg) "\306 \211\203rq\210 )\202 \307 !\211\203:\310\f!@\311=\2031\310\f!\211AA)@\312=\204:\313 \f\"\211\204\f\203`\310\f!@\311=\203`\310\f!\211AA)@\312=\203`\310\f!\211AA)A@\314\315\n\"\310\307 !!\211A@\316H>\204|\317\320!\210A@\321H\316H>\204\216\317\322!\210A@\316H>\204\236\317\320!\210A@\321H\323H\324\325\203\266\326!\202\270!\".\207" [last-inventory default-directory local-tree dvc-revlist-cookie current x tla--last-visited-inventory-buffer ewoc-locate ewoc-data separator bookmark ewoc-prev dvc-read-directory-name "Sync with tree: " 0 error "dvc-revlist-entry-patch-struct accessing a non-dvc-revlist-entry-patch" 3 "tla--revision-revision accessing a non-tla--revision" 1 tla-sync-tree tla--name-construct butlast to-tree elem cl-struct-dvc-revlist-entry-patch-tags cl-struct-tla--revision-tags full arg] 5 (#$ . 282360) "P"]) #@42 Run star-merge for the version at point. (defalias 'tla-revision-star-merge-version #[nil "\300\301!\207" [tla-revision-star-merge t] 2 (#$ . 283404) nil]) #@117 Run star-merge from the revision at point. With prefix argument ARG, merge all missing revisions from this version. (defalias 'tla-revision-star-merge #[(arg) "\306 \211\203rq\210 )\202 \307 !\211\203:\310\f!@\311=\2031\310\f!\211AA)@\312=\204:\313 \f\"\211\204\f\203`\310\f!@\311=\203`\310\f!\211AA)@\312=\203`\310\f!\211AA)A@\314\315\n\211\316$\310\307 !!\211A@\317H>\204~\320\321!\210A@\322H\317H>\204\220\320\323!\210A@\317H>\204\240\320\321!\210A@\322H\324H\325\326\203\270\327!\202\272!\".\207" [last-inventory default-directory local-tree dvc-revlist-cookie current x tla--last-visited-inventory-buffer ewoc-locate ewoc-data separator bookmark ewoc-prev dvc-read-directory-name "Merge to tree: " t 0 error "dvc-revlist-entry-patch-struct accessing a non-dvc-revlist-entry-patch" 3 "tla--revision-revision accessing a non-tla--revision" 1 tla-star-merge tla--name-construct butlast to-tree elem cl-struct-dvc-revlist-entry-patch-tags cl-struct-tla--revision-tags full arg] 6 (#$ . 283567) "P"]) #@47 Call `tla-revision-replay' with a prefix arg. (defalias 'tla-revision-replay-version #[nil "\300\301!\207" [tla-revision-replay all] 2 (#$ . 284627) nil]) #@226 Compares REV1 and REV2 as strings. Similar to `string-lessp', but sorts numerical substring according to numerical value instead of lexicographical order. (tla-revision-lessp "patch-2" "patch-10") will be true for example. (defalias 'tla-revision-lessp #[(rev1 rev2) "\306 \307\")\n\306 \307\")\310 \310=\203l \204&\f\204&\311\211\202 \2040\311\211\202\f\204:\307\211\202\312 @!\203Q\312\f@!\203Q\313 \f\"\211\202 @\f@=\204c @\f@W\211\202 A\fA\202 +\207" [rev1 string rev2 result s2 s1 append nil dont-know t dvc-digit-char-p tla-revision-lessp-digit] 5 (#$ . 284789)]) #@118 Compare S1 and S2 (as lists of char) starting with a number. For example, '(?1 ?2 ?f ?o? ?o) and '(?4 ?2 ?b ?a ?r). (defalias 'tla-revision-lessp-digit #[(s1 s2) "\306\211\n\203\307\n@!\203\n@ B\nA\211\204 \2032\307 @!\2032 @B A\211\204\310 \237\260!\310\237\260!\f \232\203M\311\n \"\202P\f W,\207" [sub2 sub1 s1 s2 num1 num2 nil dvc-digit-char-p string-to-number tla-revision-lessp] 4 (#$ . 285401)]) #@550 Run replay from the current location. If there are marked revisions, these are replayed. If these are marked revisions and ARG is `reversely', these are replayed reversely. If ARG is `all', all missing revisions from this version are replayed. If there are no marked revisions is given, and ARG is `nil', the revision under the point is replayed. If you call this function interactively, give a positive prefix argument to set ARG `all' or give a negative prefix argument to set ARG `reversely'. If no prefix argument is given, ARG is set to `nil'. (defalias 'tla-revision-replay #[(arg) "\306 \211\203rq\210 )\202 \307 !\310\f\203=\311\f!@\312=\2034\311\f!\211(AA)@\313=\204=\314 \f\"\211\204\f\203e\311\f!@\312=\203e\311\f!\211(AA)@\313=\203e\311\f!\211(AA)A@\315 \316\317\320)\321=\203\216 \203\212\317\322 G G\323=\203\205\324\202\206\325#\202\262\326\202\262)\327=\203\231\330\202\262 \203\261\317\331 G G\323=\203\254\324\202\255\325#\202\262\332\"\n\"* \203\331\333\334 \"+\335\336\333\337+\"\340\"*)\321=\205\324\341#)\202*\311\307 !!\211,\211(AA)@\206\365,\211(A@)\342H\211-\343H.>\204\344\345!\210-\323H)/\335\346)\327=\203\347/!\202/!*)\321=\205(\341#*-\207" [last-inventory default-directory local-tree dvc-revlist-cookie current marked tla--last-visited-inventory-buffer ewoc-locate nil ewoc-data separator bookmark ewoc-prev dvc-revision-marked-revisions dvc-read-directory-name format "Replay%s to tree: " reversely " %d MARKED revision%s REVERSELY" 1 "" "s" " a revision under the point REVERSELY" all " ALL missing revisions" " %d MARKED revision%s" " a revision under the point" mapcar tla--revision-revision tla-replay sort #[(revision) "\301!\207" [revision tla--name-construct] 2] tla-revision-lessp t 3 0 error "tla--revision-revision accessing a non-tla--revision" tla--name-construct butlast x arg to-tree revisions elem cl-x cl-struct-tla--revision-tags full] 9 (#$ . 285836) (list (cond ((eq current-prefix-arg nil) nil) ((or (eq current-prefix-arg '-) (and (numberp current-prefix-arg) (> 0 current-prefix-arg))) 'reversely) (current-prefix-arg 'all)))]) #@58 Run tla tag from the newest revision in revision buffer. (defalias 'tla-revision-tag-from-head #[nil "\205\n\305 \n $\211\204\306\307!\210\310\f!)\207" [tla-buffer-archive-name tla-buffer-category-name tla-buffer-branch-name tla-buffer-version-name from tla--name-construct error "No head revision" tla--revision-tag-internal] 6 (#$ . 287991) nil]) #@59 Run tla tag from the current location in revision buffer. (defalias 'tla-revision-tag-from-here #[nil "\205\304\305!!\306\307 \211AA)@\310H\")\211\204 \311\312!\210\313 !)\207" [dvc-revlist-cookie elem x from ewoc-data ewoc-locate apply tla--name-construct 1 error "No revision here" tla--revision-tag-internal] 5 (#$ . 288352) nil]) #@39 Tag from FROM-FQ to some destination. (defalias 'tla--revision-tag-internal #[(from-fq) "\303\304\305\211\211\211%\306!\307\n \"*\207" [to to-fq from-fq tla-name-read "Tag to: " prompt tla--name-construct tla--version-tag-internal] 6 (#$ . 288700)]) #@47 Show the log entry for the revision at point. (defalias 'tla-revision-revlog #[nil "\306\307!!\211A@\310H\n>\204\311\312!\210 A@\313H\310H >\204$\311\314!\210 A@\310H\n>\2042\311\312!\210 A@\313H\315Hp\316\f!\317\320\321\f!#\322!\210\323\324 \210rq\210\325 )c\210eb\210)\326 \210\327=\205q\327 !-\207" [dvc-revlist-cookie elem cl-struct-dvc-revlist-entry-patch-tags cl-struct-tla--revision-tags full cur-buf ewoc-data ewoc-locate 0 error "dvc-revlist-entry-patch-struct accessing a non-dvc-revlist-entry-patch" 3 "tla--revision-revision accessing a non-tla--revision" 1 tla--revlog-any dvc-get-buffer-create revlog tla--name-construct dvc-switch-to-buffer t erase-buffer buffer-string tla-revlog-mode pop-to-buffer log-buf tla-arch-branch display-buf inhibit-read-only dvc-switch-to-buffer-mode] 6 (#$ . 288959) nil]) #@45 Show the log entry for REVISION (a string). (defalias 'tla-revlog-any #[(revision) "\305!\306\n\307#\310 !\210\311\312 \210r q\210\313 )c\210eb\210)\314 *\207" [revision log-buf tla-arch-branch display-buf inhibit-read-only tla--revlog-any dvc-get-buffer-create revlog dvc-switch-to-buffer t erase-buffer buffer-string tla-revlog-mode] 4 (#$ . 289806) (list (tla--name-construct (tla-name-read "Revision spec: " 'prompt 'prompt 'prompt 'prompt 'prompt)))]) #@35 Run tla update for this revision. (defalias 'tla-revision-update #[nil "\306 !\n\203*\307\n!@\310=\203!\307\n!\211AA)@\311=\204*\312 \n\"\211\204\n\n\203P\307\n!@\310=\203P\307\n!\211AA)@\311=\203P\307\n!\211AA)A@p\313\314\315 \"\316\317\320\321\322 CDEE\"+\207" [default-directory dvc-revlist-cookie current local-tree x buffer ewoc-locate ewoc-data separator bookmark ewoc-prev tla-update dvc-read-directory-name "Update tree: " lambda nil apply #[(#1=#:dvc-gensym-uniq-140) "\301!\210\302 \207" [#1# pop-to-buffer dvc-generic-refresh] 2] quote] 9 (#$ . 290274) nil]) #@306 Sends comments to the author of REVISION. The email is extracted from the archive name. A new mail message is opened with a description of the revision. REVISION must be the same structure as the elem of `dvc-revlist-cookie', or a string. When called interactively, REVISION is the revision at point. (defalias 'tla-revision-send-comments #[(revision &optional email) "\306H >\204\f\307\310!\210\311H\312\n!\f\206!\313\314 \"\210\315\311 \"\306H >\204.\307\316!\210\317H\320\321\211 \203\\ @\322@\323A!# A\211 \204@*\324\f\"\210\212\325\326\n!\327\330 \327\330\306H >\204y\307\331!\210\332H\327\330\306H >\204\212\307\333!\210\334H\327\261\f.\207" [revision cl-struct-tla--revision-tags full-rev archive email summary 0 error "tla--revision-revision accessing a non-tla--revision" 1 tla--name-archive string-match "\\(.*\\)--\\([^-]\\|-[^-]\\)" match-string "tla--revision-summary accessing a non-tla--revision" 2 (("%f" tla--name-construct full-rev) ("%a" . archive) ("%c" tla--name-category full-rev) ("%b" tla--name-branch full-rev) ("%v" tla--name-version full-rev) ("%r" tla--name-revision full-rev) ("%s" . summary) ("%t" if (> (string-width summary) tla-send-comments-width) (concat (truncate-string-to-width summary 25) "...") summary)) nil replace-regexp-in-string eval compose-mail "\n\n" tla--name-construct "\n" " " "tla--revision-date accessing a non-tla--revision" 4 "tla--revision-creator accessing a non-tla--revision" 3 tla-send-comments-format subject pair #1=#:--cl-dolist-temp--] 12 (#$ . 290868) (list (car (cddr (ewoc-data (ewoc-locate dvc-revlist-cookie)))))]) #@61 Remove what-changed directory part from FILE and return it. (defalias 'tla--changes-what-changed-original-file #[(file) "\301\302\"\203\303\304\224O\304\225\305OP\207\207" [file string-match "\\(/,,what-changed[^/]+/new-files-archive\\)" 0 1 nil] 4 (#$ . 292505)]) #@76 Jump to the master *{tla|baz}-changes* buffer for a nested changes buffer. (defalias 'dvc-diff-master-buffer #[nil "\204\301\302!\210\303!\207" [tla--changes-buffer-master-buffer error "No master buffer" dvc-switch-to-buffer] 2 (#$ . 292782) nil]) #@376 Show the corresponding file and location of the change. This function does not switch to the file, but it places the cursor temporarily at the location of the change and will stay in the changes buffer. Thus you can quickly see more context on a specific change without switching buffers. The prefix argument OTHER-FILE controls whether the original or new file is visited. (defalias 'dvc-diff-view-source #[(&optional other-file) "\302 \212\303 !\210\304 \210\305 \210\306!*\207" [diff-window other-file selected-window diff-goto-source recenter dvc-flash-line select-window] 2 (#$ . 293041) "P"]) #@109 Copy the function name for the change at point to the kill-ring. That function uses `add-log-current-defun' (defalias 'dvc-diff-save-current-defun-as-kill #[nil "\301 \211\203\302!\210\303\304\"\202\303\305!)\207" [func-name add-log-current-defun kill-new message "Copied %S" "No current defun detected."] 4 (#$ . 293650) nil]) #@22 Jump to the changes. (defalias 'dvc-diff-jump-to-change-by-mouse #[(event &optional other-file) "\302!\210\303 !\207" [event other-file mouse-set-point dvc-diff-jump-to-change] 2 (#$ . 293991) "e\nP"]) (byte-code "\302\303\304\"\210\305\306N\204\307\305\306\310#\210\311\312!\204\307\312\313\314#\210\312B\315\312!\204-\316\312\317 \"\210\311\320!\2049\307\320\313\314#\210\320B\315\320!\204I\316\320\321 \"\210\307\301\313\314#\210\301B\315\301!\204c\316\301\322\301\323\"\210 \"\210\307\314\324\325#\207" [current-load-list tla-changelog-mode-abbrev-table defalias tla-changes-revert tla-inventory-revert tla-changelog-mode-hook variable-documentation put "Hook run when entering tla-changelog mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp tla-changelog-mode-map definition-name tla-changelog-mode default-boundp set-default make-sparse-keymap tla-changelog-mode-syntax-table make-syntax-table define-abbrev-table nil derived-mode-parent change-log-mode] 5) #@513 Major mode derived from `change-log-mode' by `define-derived-mode'. It inherits all of the parent's attributes, but has its own keymap, abbrev table and syntax table: `tla-changelog-mode-map', `tla-changelog-mode-abbrev-table' and `tla-changelog-mode-syntax-table' which more-or-less shadow change-log-mode's corresponding tables. In addition to any hooks its parent mode might have run, this mode runs the hook `tla-changelog-mode-hook', as the final step during initialization. \{tla-changelog-mode-map} (defalias 'tla-changelog-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315 !\204'\316 \317 \"\210\320\f!\211\2036 \321 =\203<\322\f\323 \"\210)\324 !\210\325\f!\210\306\326!\210\327\307\330\211\331\257\324 !\210\306\332!\210\330 \204i\333 \210)\334\335!\207" [delay-mode-hooks major-mode mode-name tla-changelog-mode-map tla-changelog-mode-syntax-table parent make-local-variable t change-log-mode tla-changelog-mode "tla-changelog" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table use-local-map set-syntax-table font-lock-defaults tla-changelog-font-lock-keywords nil backward-paragraph tla-button-marker-list tla-add-buttons run-mode-hooks tla-changelog-mode-hook tla-changelog-mode-abbrev-table local-abbrev-table tla-dont-hyperlink-changelog] 6 (#$ . 295068) nil]) (byte-code "\301B\302\303!\207" [current-load-list tla-changelog-start-regexp (lambda (#1=#:defconst-tmp-var) (defconst tla-changelog-start-regexp #1#)) "^[0-9][0-9][0-9][0-9]-[0-9][0-9]-[0-9][0-9] "] 2) #@98 Go to the next entry in the changelog. If called with a prefix argument, skip n entries forward. (defalias 'tla-changelog-next-entry #[(n) "\302\303\304 $\210\305\306\303\304#\207" [tla-changelog-start-regexp n re-search-forward nil t search-forward "Summary:"] 5 (#$ . 296712) "p"]) #@103 Go to the previous entry in the changelog. If called with a prefix argument, skip n entries backward. (defalias 'tla-changelog-previous-entry #[(n) "\302\210\303!\210\303\302\304 $\210\305\306!\207" [tla-changelog-start-regexp n nil re-search-backward t search-forward "Summary:"] 5 (#$ . 297004) "p"]) #@61 Return the patch number at point in a tla changelog buffer. (defalias 'tla-changelog-revision-at-point #[nil "\212\303\210\304!\210\305\306!\210\307\310!eb\210\311\312!\210\313`\314 \" \315\nQ+\207" [tla-changelog-start-regexp version patch-nr nil re-search-backward re-search-forward "\\(\\(patch\\|base\\|version\\)-[0-9]+\\)$" match-string-no-properties 1 search-forward "arch-tag: automatic-ChangeLog--" buffer-substring-no-properties line-end-position "--"] 4 (#$ . 297316)]) #@56 Return the version at point in a tla changelog buffer. (defalias 'tla-changelog-version-at-point #[nil "\300\301\302 !\303\211\211\211\211\304&\207" [tla--name-mask tla--name-split tla-changelog-revision-at-point t nil] 8 (#$ . 297807)]) #@52 Show the changeset for the actual changelog entry. (defalias 'tla-changelog-show-changeset #[nil "\300\301 \302\"\207" [tla-get-changeset tla-changelog-revision-at-point t] 3 (#$ . 298052) nil]) #@59 Return the log message summary string at point as string. (defalias 'tla-changelog-log-summary-at-point #[nil "\212\301!\210\302\303!\210\304`\305 \")\207" [tla-changelog-start-regexp re-search-backward re-search-forward "Summary:\n +" buffer-substring-no-properties line-end-position] 3 (#$ . 298253)]) #@44 Return the log message at point as string. (defalias 'tla-changelog-log-message-at-point #[nil "\212\303!\210`\304\305!\210\306y\210\307 \310\n \"+\207" [tla-changelog-start-regexp end-pos start-pos re-search-backward re-search-forward "\\(modified\\|new\\) files:" -2 line-end-position buffer-substring-no-properties] 3 (#$ . 298564)]) #@44 Save the log message for the actual patch. (defalias 'tla-changelog-save-log-message-as-kill #[nil "\300\301 !\210\302\303\304 \"\207" [kill-new tla-changelog-log-message-at-point message "Copied log message for %s" tla-changelog-revision-at-point] 3 (#$ . 298910) nil]) #@58 Save the revision for the actual patch to the kill-ring. (defalias 'tla-changelog-save-revision-as-kill #[nil "\300\301 !\210\302\303\301 \"\207" [kill-new tla-changelog-revision-at-point message "Copied %s"] 3 (#$ . 299187) nil]) #@57 Save the version for the actual patch to the kill-ring. (defalias 'tla-changelog-save-version-as-kill #[nil "\300\301 !\210\302\303\301 \"\207" [kill-new tla-changelog-version-at-point message "Copied %s"] 3 (#$ . 299424) nil]) #@76 Major mode to edit tla inventory files (=tagging-method, .arch-inventory). (defalias 'tla-inventory-file-mode #[nil "\304 \210\305\300!\210\306\305\301!\210\307\310\311\312\313!\207" [font-lock-defaults comment-start major-mode mode-name kill-all-local-variables make-local-variable (tla-inventory-file-font-lock-keywords t) "# " tla-inventory-file-mode "tla-inventory-file" run-hooks tla-inventory-file-mode-hook] 2 (#$ . 299658) nil]) #@46 Search CATEGORY from the head of the buffer. (defalias 'tla--inventory-file-jump-from-head #[(category) "\212eb\210\302\303P\304\305#)\211\205 b)\207" [category p re-search-forward "^" nil t] 5 (#$ . 300105)]) #@83 Search CATEGORY from the tail of the buffer. Return nil if CATEGORY is not found. (defalias 'tla--inventory-file-jump-from-tail #[(category) "\212db\210\302\303P\304\305#)\211\205 b)\207" [category p re-search-backward "^" nil t] 5 (#$ . 300325)]) #@25 Added FILE to CATEGORY. (defalias 'tla--inventory-file-add-file #[(category file &optional ext-only) "\303!\204 eb\210\212\304\305!\210)\306 \203\307\202\310\n#c\207" [category ext-only file tla--inventory-file-jump-from-tail open-line 1 format "%s %s$" "%s ^(%s)$"] 4 (#$ . 300583)]) #@247 Follow a symbolic link. If the current buffer visits a symbolic link, this function makes it visit the real file instead. If the real file is already visited in another buffer, make that buffer current, and kill the buffer that visits the link. (defalias 'tla-follow-link #[nil "\304\305!!\306 !p\n =\203\307 !\210\310 !q\202#\nq\210\307 !+\207" [buffer-file-name truename true-buffer this-buffer abbreviate-file-name file-truename find-buffer-visiting kill-buffer find-file-noselect] 3 (#$ . 300882)]) #@136 Hook executed when opening a file. Follow symlinked files/directories to the actual location of a file. See also `dvc-find-file-hook'. (defalias 'tla-find-file-hook #[nil "\306\211\211\307\303!\203 ?\202\310\205\250\311\312!\203#\312\305 !?\202$\310\205\250\f\205\250 \211\205\250\313 !\211 \230?\205\250\n\f\314\232\203K\315 \310\"\202\\\f\316\232\205\\\317\320 D\321\322\323\322%\324U\211\205\250\"\325=\203o\326\327 \"\202\250\"\330=\204|\331 !\203\206\332 \210\326\333 \"\202\250\"\334=\203\243\335\336!\203\235\332 \210\326\333 \"\202\250\326\337!\202\250\340\341\"\"+\207" [result file link vc-ignore-vc-files tla-follow-symlinks buffer-file-name nil boundp t fboundp file-remote-p file-truename tree tla-tree-root id tla--run-tla-sync "id" :finished dvc-status-handler :error 0 warn message "Warning: symbolic link to arch-controlled source file: %s" follow find-buffer-visiting tla-follow-link "Followed link to arch-controlled %s" ask y-or-n-p "Follow symbolic link to arch-controlled source file? " "Warning: editing through the link bypasses version control" error "Unknown mode for tla-follow-symlinks-mode=%s" tla-follow-symlinks-mode] 7 (#$ . 301400)]) #@303 Alist containing per mode specialized functions for inserting arch-tag. Key stands for a major mode. Value is a function which inserts arch-tag. The function takes two arguments. The first argument is an uuid string. The second argument is a boolean showing whether the point is in a comment or not. (defvar tla--insert-arch-tag-functions '((autoconf-mode . tla--insert-arch-tag-for-autoconf-mode) (makefile-mode . tla--insert-arch-tag-for-makefile-mode) (texinfo-mode . tla--insert-arch-tag-for-texinfo-mode)) (#$ . 302609)) #@64 To avoid having the string a-r-c-h--t-a-g: in this buffer ;-). (defconst tla--arch-tag-string "arch-tag: " (#$ . 303143)) #@73 Candidate for `tla-tag-function'. Returns a unique string using uuidgen (defalias 'tla-tag-uuid #[nil "\300\301\302!!\207" [dvc-strip-final-newline shell-command-to-string "uuidgen"] 3 (#$ . 303271)]) #@414 Candidate for `tla-tag-function'. Returns a string containing the name of the user, the precise date, and the name of the current file. This should be unique worldwide, has the advantage of containing usefull information in addition to the unique identifier. The inconvenient in comparison to `tla-tag-uuid' is that an unfortunate modification of the tag is more easily made (sed script or manual modification) (defalias 'tla-tag-name-date-filename #[nil "\300 \301\302\303!\304\305\306 !\307\260\207" [user-full-name ", " format-time-string "%c" " (" file-name-nondirectory buffer-file-name ")"] 6 (#$ . 303479)]) #@278 Return a suitable string for an arch-tag. Actually calls `tla-tag-function', which defaults to `tla-tag-uuid' to generate string (and possibly add a comment-end after). Interactively, you should call `tla-tag-insert', but this function can be usefull to write template files. (defalias 'tla-tag-string #[nil " \207" [tla-tag-function] 1 (#$ . 304104)]) #@173 Insert a unique arch-tag in the current file. Actually calls `tla-tag-function', which defaults to `tla-tag-uuid' to generate string (and possibly add a comment-end after) (defalias 'tla-tag-insert #[nil "\306 \307\310`e\"8\311\211\312 \"\nA\203\"\nA \"\202p \204h\203>\313\314\"\2039\311\202:\315P\202?\311\203f\311\230\204f\316\317\320\fG\321\"\313\322\"\203a\311\202b\315$\202g\311\f Rc-\207" [major-mode tla--insert-arch-tag-functions handler footer header in-comment-p tla-tag-string 4 parse-partial-sexp "" assoc string-match " $" " " format "\n%s(do not change this comment)%s%s" make-string 32 "^ " the-tag-itself comment-start comment-end tla--arch-tag-string] 7 (#$ . 304466) nil]) #@260 Find an arch tag in the current buffer and regenerates it. This means changing the ID of the file, which will usually be done after copying a file in the same tree to avoid duplicates ID. Raises an error when multiple tags are found or when no tag is found. (defalias 'tla-tag-regenerate #[nil "\212eb\210\303\304\305#\204\306\307!\210`\304\210`|\210 c\210\303\304\305#\205$`)\211\2053\nb\210\310 \210\306\311!)\207" [tla--arch-tag-string tla-tag-function second-tag search-forward nil t error "No arch tag in this buffer" beginning-of-line "Multiple tag in this buffer"] 5 (#$ . 305206) nil]) #@480 Create a new id for the file FILE. Does roughly $ tla delete file $ tla add file But also works for the tagline method. When the tagline method is used, the file is opened in a buffer. If the file had modifications, the tag is modified in the buffer, and the user is prompted for saving. If the file had no unsaved modifications, the modification is done in the buffer and the file is saved without prompting. FILE must be an absolute filename. It can also be a directory (defalias 'tla-regenerate-id-for-file #[(file) "\305!\203\306\307!\310P!\210\311\312\"\207\313\314\"\203!\315\316\317\"!\207\313\320\"\2035\315\316\317\"\321\316\322\"Q!\207\323!\324! \307\325!\n\326R\327 !\203V\306 !\210\311\312\"\202xr\330!q\210\331 \332 \210\f\203u\333\334\335\336 \"!\205w\337 \202w\337 *+\207" [file dir basename id-file modif file-directory-p delete-file file-name-as-directory ".arch-ids/=id" tla-add nil string-match "^\\(.*\\)/\\.arch-ids/=id" tla-regenerate-id-for-file match-string 1 "^\\(.*\\)/\\.arch-ids/\\([^/]*\\)\\.id" "/" 2 file-name-directory file-name-nondirectory ".arch-ids" ".id" file-exists-p find-file-noselect buffer-modified-p tla-tag-regenerate y-or-n-p format "Save buffer %s? " buffer-name save-buffer] 6 (#$ . 305817) "f"]) #@128 Insert arch-tag, UUID to the current `autoconf-mode' buffer. IN-COMMENT-P indicates whether we are currently inside a comment. (defalias 'tla--insert-arch-tag-for-autoconf-mode #[(uuid in-comment-p) "\203\305\306!\210\307\310\211\311 \f \260c*\207" [in-comment-p footer header tla--arch-tag-string uuid error "Comment prefix \"dnl\" is not suitable for gnuarch" "m4_if(dnl Do not change this comment\n" "\n)dnl\n" " "] 6 (#$ . 307100)]) #@285 Insert arch-tag, UUID to the current `makefile-mode' buffer. If the file is Makefile.am, input for automake, use `##' as `comment-start'. Comment started with `##' in Makefile.am is automatically stripped by automake. IN-COMMENT-P indicates whether we are currently inside a comment. (defalias 'tla--insert-arch-tag-for-makefile-mode #[(uuid in-comment-p) "\302\303\304!\"\305 \203\306\307\305 \"\203\310\202 \311 *\207" [tla--insert-arch-tag-functions comment-start assq-delete-all makefile-mode copy-sequence buffer-file-name string-match "Makefile.am$" "##" tla-tag-insert] 4 (#$ . 307553)]) #@127 Insert arch-tag, UUID to the current `texinfo-mode' buffer. IN-COMMENT-P indicates whether we are currently inside a comment. (defalias 'tla--insert-arch-tag-for-texinfo-mode #[(uuid in-comment-p) "\203\305\306!\210\307\310\211\311 \f \260c*\207" [in-comment-p footer header tla--arch-tag-string uuid error "Comment prefix \"@c\" is not suitable for gnuarch" "@ignore\n" "\n@end ignore\n" " "] 6 (#$ . 308164)]) #@18 Add a log entry. (defalias 'tla-ediff-add-log-entry #[nil "\301!\210\302 \207" [ediff-buffer-A pop-to-buffer dvc-add-log-entry] 2 (#$ . 308591) nil]) #@37 Ewoc cookie used in tree-lint mode. (defvar tla--tree-lint-cookie nil (#$ . 308748)) (byte-code "\302\303N\204\f\304\302\303\305#\210\306\307!\204\304\307\310\311#\210\307B\312\307!\204(\313\307\314 \"\210\306\315!\2044\304\315\310\311#\210\315B\312\315!\204D\313\315\316 \"\210\304\301\310\311#\210\301B\312\301!\204^\313\301\317\301\320\"\210 \"\210\304\311\321\320#\207" [current-load-list tla-tree-lint-mode-abbrev-table tla-tree-lint-mode-hook variable-documentation put "Hook run when entering tla-tree-lint mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp tla-tree-lint-mode-map definition-name tla-tree-lint-mode default-boundp set-default make-sparse-keymap tla-tree-lint-mode-syntax-table make-syntax-table define-abbrev-table nil derived-mode-parent] 5) #@170 Major mode to view tree-lint warnings. Commands: \{tla-tree-lint-mode-map} This mode runs the hook `tla-tree-lint-mode-hook', as the final step during initialization. (defalias 'tla-tree-lint-mode #[nil "\306\300!\210\307\310 \210\311\312\313 !\210\314\f!\210 \315 \210\307\316 \210) \210\317!\306\320!\210\321\322\323!!\306\324!\210\325\306\326!\210\327\306\330!\210\327\306\331!\210\332\333\307!\210)\334\335!\207" [delay-mode-hooks major-mode mode-name tla-tree-lint-mode-map tla-tree-lint-mode-syntax-table tla-tree-lint-mode-abbrev-table make-local-variable t kill-all-local-variables tla-tree-lint-mode "tla-tree-lint" use-local-map set-syntax-table dvc-install-buffer-menu erase-buffer #[nil "\301!\207" [default-directory tla-tree-lint] 2 nil nil] tla--tree-lint-cookie ewoc-create dvc-ewoc-create-api-select tla--tree-lint-printer dvc-get-file-info-at-point-function tla-tree-lint-get-file-at-point dvc-buffer-marked-file-list nil dvc-buffer-all-marked-file-list tla-generic-select-files-function tla--tree-lint-select-files toggle-read-only run-mode-hooks tla-tree-lint-mode-hook local-abbrev-table inhibit-read-only default-directory dvc-buffer-refresh-function] 3 (#$ . 309625) nil]) #@73 Find file at point in *{tla|baz}-tree-lint*. Error when not on a file. (defalias 'tla-tree-lint-get-file-at-point #[nil "\303\304!!\211@\305=?\205 \211A@))\207" [tla--tree-lint-cookie data x ewoc-data ewoc-locate message] 4 (#$ . 310849)]) #@155 Prepare the buffer to display the tree-lint warnings for tree ROOT. If FUNCTION is provided, it will be ran when all warnings will have been eliminated. (defalias 'tla--tree-lint-prepare-buffer #[(root &optional function) "\306\307 # \206 \fr\nq\210\310 \210\311\304!\210 \312 \313\314\315 \"D\"\210\n+\207" [tla-arch-branch root buffer function tla--tree-lint-nowarning-fn tla--tree-lint-cookie dvc-get-buffer-create tree-lint tla-tree-lint-mode make-local-variable ewoc-enter-last message format "Running tree-lint in %s ..."] 6 (#$ . 311102)]) #@47 Goto tree-lint buffer or run `tla-tree-lint'. (defalias 'tla-tree-lint-goto #[(root) "\304\n\305 #\211\203\306 !\202\307!*\207" [root default-directory tla-arch-branch buffer dvc-get-buffer tree-lint dvc-switch-to-buffer tla-tree-lint] 5 (#$ . 311661) (list (dvc-read-project-tree-maybe "Run tla tree-lint in: "))]) #@38 Run tla tree-lint in directory ROOT. (defalias 'tla-tree-lint #[(root) "\305  \306 !\f\203\307\n!\210\310\311 \203\312\202\313C\314\n\315\316\317\320\321\322\323\324\325\326 \nDD\257E\327\316\330\320\331\322\323\324\325\326\nCD\257E&*\207" [tla-pre-tree-lint-window-configuration root buffer default-directory dvc-switch-to-buffer-first current-window-configuration tla--tree-lint-prepare-buffer dvc-switch-to-buffer tla--run-tla-async tla-has-lint-command "lint" "tree-lint" :related-buffer :finished lambda (output error status arguments) apply #[(output error status arguments #1=#:dvc-gensym-uniq-142 #2=#:dvc-gensym-uniq-141) "\306!\307V\203\212\310 \"\210)r q\210\311\312\n\307\"!)\207\313\314 \"\210r q\210\315\316 \210\317\n\313\320\314 \"D\"\210*\321 !\210\205E \210\322\211\207" [output #2# tla--tree-lint-cookie #1# inhibit-read-only tla-pre-tree-lint-window-configuration buffer-size 0 tla--tree-lint-parse-buffer tla--tree-lint-cursor-goto ewoc-nth message "No tree-lint warnings for %s." t erase-buffer ewoc-enter-last format set-window-configuration nil tla--tree-lint-nowarning-fn] 6] output error status arguments quote :error (output error status arguments) #[(output error status arguments #3=#:dvc-gensym-uniq-143) "\306\232\203,r q\210\307\310\311!!\312\313 \210)\314\n\315\316\317\f!\317 !QD\"\210\320\n!\210eb)\207\212\321\f \"\210)r q\210\322\323\n\324\"!)\207" [status #3# tla--tree-lint-cookie inhibit-read-only output error 2 ewoc-create dvc-ewoc-create-api-select tla--tree-lint-printer t erase-buffer ewoc-enter-last message "* Error running lint:\n" dvc-buffer-content ewoc-refresh tla--tree-lint-parse-buffer tla--tree-lint-cursor-goto ewoc-nth 0] 7]] 17 (#$ . 311991) (list (dvc-read-project-tree-maybe "Run tla tree-lint in: "))]) (byte-code "\301B\302\303!\207" [current-load-list tla--tree-lint-message-alist (lambda (#1=#:defconst-tmp-var) (defconst tla--tree-lint-message-alist #1#)) (("^These files would be source but lack inventory ids" missing-file) ("^These explicit ids have no corresponding file:" id-without-file) ("^These files violate naming conventions:" unrecognized) ("^These symlinks point to nonexistent files:" broken-link) ("^Duplicated ids among each group of files listed here:" duplicate-id))] 2) #@69 Return a symbol saying which type of message the string MESSAGE is. (defalias 'tla--tree-lint-message-type #[(message) "\305 \203'\n\204'\306 \211@@)\f\"\203 \211@A)@ A\211\204\n\206,\307*\207" [tla--tree-lint-message-alist iterator result x message nil string-match unknown] 4 (#$ . 314281)]) #@98 Parse the output of tla tree-lint in BUFFER. Show in in the tree-lint-mode buffer OUTPUT-BUFFER. (defalias 'tla--tree-lint-parse-buffer #[(buffer output-buffer) "rq\210\306\307 \210\310\311\n\"\312\313\211\21101\203\243\3140!2 9\2050\315\310\316\317 !\"!3 \203: \202H\f\205H\320\f!;\205H\320\f!43\203e4\203`4\321\322\3213\260\202f3\202f 5 9\203r J\202s \323\3242G\325\326\327 \205\215\330\331\305 \3325\257\f\205\224\333\fD\"BBBB2$\2102-\202\2450-c\210)\334\335\336!!6)r7q\210eb\210rq\2106)8\337\340\313\306#\203`\341 b\210\342`\343 \"&\344&!9\3458\346&D\"\210\347y\2109\350=\203@\351\352!\203\\\353\354!:\353\347!;\3458\350\355:!;\306\313\257\"\210\354y\210\313f\356=\2049\342`\343 \":\354y\210\3458\350\355:!;\313\211f\356=\257\"\210)\202\354y\210*\202\356\313f\356=\204\\\34589\355\342`\343 \"!D\"\210\354y\210\202@*\202\302\306\3578!+\207" [output-buffer inhibit-read-only default-directory help menu keymap t erase-buffer format "Tree lint warnings in %s\n" dvc-messages nil copy-sequence substitute-command-keys "\\{%s}" symbol-name cadr "\n" "================" add-text-properties 0 face font-lock-face append mouse-face highlight help-echo dvc-cmenu ewoc-create dvc-ewoc-create-api-select tla--tree-lint-printer re-search-forward "^." line-beginning-position buffer-substring-no-properties line-end-position tla--tree-lint-message-type ewoc-enter-last message 2 duplicate-id looking-at "\\([^ ]*\\)[ ]+\\(.*\\)" match-string 1 tla-unescape 10 ewoc-refresh str dvc-highlight strcpy key-help prefix-help long-help tla--tree-lint-cookie buffer cookie type file id] 14 (#$ . 314595)]) #@96 Internal variable. non-nil when the ewoc printer is printing the first group of duplicate ID's (defvar tla--tree-lint-printer-first-duplicate nil (#$ . 316274)) #@55 Ewoc printer for the tree-lint buffer. Displays ELEM. (defalias 'tla--tree-lint-printer #[(elem) "@\306=\204\211A@)\n\235\203\307 \307Q\202\310c\210@\306=\203\325\311\211A@)\312\313\211\211/0\203\311\314/!19\205P\315\316\317\320!\"!2\f\203Z\f\202h \205h\321 !;\205h\321 !32\203\2053\203\2003\311\322\3112\260\202\2062\202\206\f49\203\224J\202\226\323\3241G\325\326\327\205\263\330\331\332\3334\257 \205\272\334 D\"BBBB1$\2101-\202\313/-\311\261\210\335\2115\207@\336=\203\207\211A@)\337\3406\313/0\203\202\314/!19\205 \315\316\317\320!\"!2\f\203\f\202! \205!\321 !;\205!\321 !32\203>3\20393\311\322\3112\260\202?2\202?\f49\203MJ\202O\323\3241G\325\326\327\205l\330\331\332\3334\257 \205s\334 D\"BBBB1$\2101-\202\204/-c\207@\341=\2039\211A@)\337\3406\313/0\2034\314/!19\205\273\315\316\317\320!\"!2\f\203\305\f\202\323 \205\323\321 !;\205\323\321 !32\203\3603\203\3533\311\322\3112\260\202\3612\202\361\f49\203\377J\202\323\3241G\325\326\327\205\330\331\332\3334\257 \205%\334 D\"BBBB1$\2101-\2026/-c\207@\342=\203\353\211A@)\343\3406\313/0\203\346\314/!19\205m\315\316\317\320!\"!2\f\203w\f\202\205 \205\205\321 !;\205\205\321 !32\203\2423\203\2353\311\322\3112\260\202\2432\202\243\f49\203\261J\202\263\323\3241G\325\326\327\205\320\330\331\332\3334\257 \205\327\334 D\"BBBB1$\2101-\202\350/-c\207@\344=\203\235\211A@)\345\3406\313/0\203\230\314/!19\205\315\316\317\320!\"!2\f\203)\f\2027 \2057\321 !;\2057\321 !32\203T3\203O3\311\322\3112\260\202U2\202U\f49\203cJ\202e\323\3241G\325\326\327\205\202\330\331\332\3334\257 \205\211\334 D\"BBBB1$\2101-\202\232/-c\207@\346=\203O\211A@)\343\3406\313/0\203J\314/!19\205\321\315\316\317\320!\"!2\f\203\333\f\202\351 \205\351\321 !;\205\351\321 !32\2033\2033\311\322\3112\260\2022\202\f49\203J\202\323\3241G\325\326\327\2054\330\331\332\3334\257 \205;\334 D\"BBBB1$\2101-\202L/-c\207@\347=\203\275\211A@)\350\3406\313/0\203\374\314/!19\205\203\315\316\317\320!\"!2\f\203\215\f\202\233 \205\233\321 !;\205\233\321 !32\203\2703\203\2633\311\322\3112\260\202\2712\202\271\f49\203\307J\202\311\323\3241G\325\326\327\205\346\330\331\332\3334\257 \205\355\334 D\"BBBB1$\2101-\202\376/-c\210\3518\203\264\352\211AA)@\353\313\211\211/0\203\256\314/!19\2055\315\316\317\320!\"!2\f\203?\f\202M \205M\321 !;\205M\321 !32\203j3\203e3\311\322\3112\260\202k2\202k\f49\203yJ\202{\323\3241G\325\326\327\205\230\330\331\332\3334\257 \205\237\334 D\"BBBB1$\2101-\202\260/-\261\210\3548\205\300\311c\207\355\356!\207" [elem x dvc-buffer-marked-file-list dvc-mark help menu message " " " " "\n" dvc-messages nil copy-sequence substitute-command-keys format "\\{%s}" symbol-name cadr "================" add-text-properties 0 face font-lock-face append mouse-face highlight keymap help-echo dvc-cmenu t missing-file dvc-to-add tla-tree-lint-file-map id-without-file unrecognized dvc-unrecognized broken-link dvc-broken-link unknown duplicate-id dvc-duplicate 3 " " dvc-id 4 error "Unimplemented type of tree-lint error" str dvc-highlight strcpy key-help prefix-help long-help tla--tree-lint-printer-first-duplicate tla-tree-lint-file-menu] 16 (#$ . 316441)]) #@53 Move cursor to the ewoc location of EWOC-TREE-LINT. (defalias 'tla--tree-lint-cursor-goto #[(ewoc-tree-lint) "\203\301!b\210\302\303\304\305#\210\306u\207eb\207" [ewoc-tree-lint ewoc-location re-search-forward "." nil t -1] 4 (#$ . 320072) nil]) #@34 Move to the next tree lint item. (defalias 'tla-tree-lint-next #[nil "\304 !\305 \n\"\206\n\306 !+\207" [tla--tree-lint-cookie cookie elem next ewoc-locate ewoc-next tla--tree-lint-cursor-goto] 3 (#$ . 320328) nil]) #@38 Move to the previous tree lint item. (defalias 'tla-tree-lint-previous #[nil "\304 !\305 \n\"\206\n\306 !+\207" [tla--tree-lint-cookie cookie elem previous ewoc-locate ewoc-prev tla--tree-lint-cursor-goto] 3 (#$ . 320556) nil]) #@34 Mark the current tree-lint file. (defalias 'tla-tree-lint-mark-file #[nil "\305!\306\307\211\211\211\211\310\211& \2034 \307\211\203/\f@\311\312 \"\210\311\313 \"\210\fA\211\204*\314!\210\315\316\n!@\317=\203B\n\202F\320\n\"!*\207" [tla--tree-lint-cookie files current file #1=#:--cl-dolist-temp-- ewoc-locate tla--tree-lint-select-files nil t add-to-list dvc-buffer-marked-file-list dvc-buffer-all-marked-file-list ewoc-refresh tla--tree-lint-cursor-goto ewoc-data message ewoc-next] 9 (#$ . 320796) nil]) #@36 Unmark the current tree-lint file. (defalias 'tla-tree-lint-unmark-file #[nil "\306!\307\310\211\211\211\211\311\211& \2036 \310\211\2031\f@\312 \"\312 \"\fA\211\204*\313!\210\314\315\n!@\316=\203D\n\202H\317\n\"!*\207" [tla--tree-lint-cookie files current file #1=#:--cl-dolist-temp-- dvc-buffer-all-marked-file-list ewoc-locate tla--tree-lint-select-files nil t delete ewoc-refresh tla--tree-lint-cursor-goto ewoc-data message ewoc-next dvc-buffer-marked-file-list] 9 (#$ . 321325) nil]) #@29 Unmark all tree-lint files. (defalias 'tla-tree-lint-unmark-all #[nil "\304!\305\211\306!\210\307 !)\207" [tla--tree-lint-cookie current dvc-buffer-marked-file-list dvc-buffer-all-marked-file-list ewoc-locate nil ewoc-refresh tla--tree-lint-cursor-goto] 3 (#$ . 321843) nil]) #@517 Get the list of files under cursor, and ask confirmation of the user. Prompt with either MSG-SINGULAR, MSG-PLURAL, MSG-ERR OR MSG-PROMPT. If NO-GROUP is nil and if the cursor is on a message, all the files belonging to this message are selected. If some files are marked (i.e. `dvc-buffer-marked-file-list' is non-nil) and IGNORE-MARKED is non-nil, the list of marked files is returned. If NO-PROMPT is non-nil, don't ask for confirmation. If Y-OR-N is non-nil, then this function is used instead of `y-or-n-p'. (defalias 'tla--tree-lint-select-files #[(msg-singular msg-plural msg-err msg-prompt &optional no-group ignore-marked no-prompt y-or-n) "\203O \204O\n\306\307!\203\310\202\311\312\313\314\315 !\"\")\204O \204L\206-\316\fG\317=\203=\313\f@\"\202C\313\fG\"!\204L\320!\210\f)\207\321!\322!\211@\323=\203\334\203l\320!\210\310\324\"\211\205~\322!\203\256@\323=\204\256\325\304\211A@)\"\210\324\"\211\205\251\322!\202\200 \204\327\206\270\316\fG\317=\203\310\313\f@\"\202\316\313\fG\"!\204\327\320!\210\f)\202 \204\366\206\346\316\313\211A@)\"!\203\211A@)\202\320!C*\207" [dvc-buffer-marked-file-list ignore-marked last-input-event event list no-prompt featurep xemacs nil string-match "mouse" format "%S" event-basic-type y-or-n-p 1 error ewoc-locate ewoc-data message ewoc-next add-to-list y-or-n msg-singular msg-plural msg-err tla--tree-lint-cookie ewoc-elem elem no-group x] 7 (#$ . 322131)]) #@85 Prompts and add FILES. If on a message field, add all the files below this message. (defalias 'tla-tree-lint-add-files #[(files) "\302\303\304#\210\305 !\207" [files default-directory apply tla-add nil tla-tree-lint] 4 (#$ . 323653) (list (tla--tree-lint-select-files "Add %s? " "Add %s files? " "Not adding any file" "Add file: "))]) #@91 Prompts and delete FILES. If on a message field, delete all the files below this message. (defalias 'tla-tree-lint-delete-files #[(files) "\302\303\"\210\304 !\207" [files default-directory mapcar delete-file tla-tree-lint] 3 (#$ . 323995) (list (tla--tree-lint-select-files "Delete %s? " "Delete %s files? " "Not deleting any file" "Delete file: " nil nil nil 'yes-or-no-p))]) #@70 Prompts and regenerate an ID (either explicit or tagline) for FILES. (defalias 'tla-tree-lint-regenerate-id #[(files) "\302\303\"\210\304 !\207" [files default-directory mapcar tla-regenerate-id-for-file tla-tree-lint] 3 (#$ . 324380) (list (tla--tree-lint-select-files "Regenerate ID for %s? " "Regenerate ID for %s files? " "Not regenerating ID for any file" "Regenerate ID for file: " t))]) #@190 Prompts and make the FILES junk. If marked files are, use them as FIELS. If not, a file under the point is used as FILES. If on a message field, make all the files below this message junk. (defalias 'tla-tree-lint-make-junk #[(files) "\301\302\"\207" [files tla-tree-lint-put-file-prefix ",,"] 3 (#$ . 324782) (list (tla--tree-lint-select-files "Make %s junk(prefixing \",,\")? " "Make %s files junk? " "Not making any file junk" "Make file junk: " nil nil nil 'yes-or-no-p))]) #@198 Prompts and make the FILES precious. If marked files are, use them as FIELS. If not, a file under the point is used as FILES. If on a message field, make all the files below this message precious. (defalias 'tla-tree-lint-make-precious #[(files) "\301\302\"\207" [files tla-tree-lint-put-file-prefix "++"] 3 (#$ . 325268) (list (tla--tree-lint-select-files "Make %s precious(prefixing \"++\")? " "Make %s files precious? " "Not making any file precious? " "Make file precious: " nil nil nil 'yes-or-no-p))]) #@83 Rename FILES with adding prefix PREFIX. Visited buffer associations also updated. (defalias 'tla-tree-lint-put-file-prefix #[(files prefix) "\301\302\"\210\303 \207" [files mapcar #[(from) "\304!\305!\n\306!Q\307 \"\210 \205\"r q\210\310 !\210\311 !)*\207" [from buf prefix to find-buffer-visiting file-name-directory file-name-nondirectory rename-file rename-buffer set-visited-file-name] 4] dvc-generic-refresh] 3 (#$ . 325783)]) #@54 Prompts an archive location and add it to kill ring. (defalias 'tla-to-kill-ring #[nil "\300\301\302\303\304\211\211\211\211&!!\207" [kill-new tla--name-construct tla-name-read "Save to kill ring: " maybe] 9 (#$ . 326229) nil]) #@74 Prompts an archive location and insert it on the current point location. (defalias 'tla-insert-location #[nil "\300\301\302\303\211\211\211\211&!c\207" [tla--name-construct tla-name-read "Insert string: " maybe] 8 (#$ . 326464) nil]) #@87 Prompts an archive location and insert its description at point. LOCATION is a list. (defalias 'tla-insert-description #[(patch-id) "\306\211\203q\n@\211\303=\203\307 !c\210\202j \310=\203R\311 !\203j\312\313 !\314 !\315 !\316 !\317\306\317&\210\320\321 \"\211\322H >\204I\323\324!\210\f\325H)c\210\202j \326=\203b\327\313 !!c\210\202j ;\203j c\210\nA\211\204*\306\207" [tla-description-format element #1=#:--cl-dolist-temp-- patch-id cl-x cl-struct-tla--revision-tags nil tla--name-construct summary tla--name-revision tla--archive-tree-build-revisions tla--name-archive tla--name-category tla--name-branch tla--name-version t apply tla--archive-tree-get-revision-struct 0 error "tla--revision-summary accessing a non-tla--revision" 2 location tla-whereis-archive] 9 (#$ . 326705) (list (tla-name-read "Insert description for: " 'maybe 'maybe 'maybe 'maybe 'maybe))]) #@25 Version of tla version. (defvar tla-command-version nil (#$ . 327601)) #@32 Return the TLA (arch) version. (defalias 'tla-command-version #[nil "\301\302\303\304#t\203\305!\210\207" [tla-command-version tla--run-tla-sync ("-V") :finished #[(output error status arguments) "\301!\207" [output dvc-buffer-content] 2] message] 4 (#$ . 327678) nil]) #@17 Version of xtla (defvar tla-version nil (#$ . 327960)) #@26 Return the Xtla version. (defalias 'tla-version #[nil "\303\304!\203\305\304!\210\306\300!\203\206\307\303\310!!\311 \211)\211\2046\312\313!\210\314\315!\210\312\316!\210\314\315!\202?t\203>\312!\210)\207" [tla-version default-directory version locate-library "dvc-version" load-library boundp file-name-directory "tla" tla-tree-id message "We did not find dvc-version.el nor the arch-tree containing xtla.el!" sit-for 2 "Are you using a developer version of Xtla?"] 4 (#$ . 328021) nil]) (byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list tla-patch-data default-boundp set-default nil] 3) #@573 Submit a patch to a tla working copy (at TLA-TREE-ROOT) via email. With this feature it is not necessary to tag an tla archive. You simply edit your checked out copy from your project and call this function. The function will create a patch as *.tar.gz file (based on TARBALL-BASE-NAME) and send it to the given email address EMAIL. VERSION-STRING should indicate the version of tla that the patch applies to. DESCRIPTION is a brief descsription of the patch. SUBJECT is the subject for the email message. For an example, how to use this function see: `tla-submit-patch'. (defalias 'tla-prepare-patch-submission #[(tla-tree-root tarball-base-name email version-string &optional description subject) "\211\nP\211\306P\307 !\210\310\311!\210\312 \210\313 \314\211\211\211&\210\315\316!\210\fD\317\261\210db\210\320\f\321\"\210\322\f!\210\323\324!\210eb\210\325\326!\210\206L\327c+\207" [tla-tree-root default-directory tarball-base-name tarball-full-base-name tarball-full-name email ".tar.gz" tla-changes-save-as-tgz require reporter delete-other-windows reporter-submit-bug-report nil make-local-variable tla-patch-data "[VERSION] " mml-attach-file "application/octet-stream" tla-show-changeset-from-tgz other-window 1 mail-position-on-field "Subject" "[PATCH] " description version-string subject] 8 (#$ . 328663) nil]) #@208 Clean up after sending a patch via mail. That function is usually called via `message-sent-hook'. Its purpose is to revert the sent changes or to delete sent changeset tarball (see: `tla-patch-sent-action'. (defalias 'tla-submit-patch-done #[nil "\205? \303\235\203\304\305@\"\210\306@\307\211#\210 \310\235\2030\304\311\211A@)\"\210\312\211A@)!\210 \313\235\205?\304\314\211A@)\"\207" [tla-patch-data tla-patch-sent-action x (keep-tarball keep-none) message "Reverting the sent changes in %s" tla--undo-internal t (keep-changes keep-none) "Deleting the sent tarball %s" delete-file (keep-both) "Keeping the sent changes and the sent tarball %s"] 5 (#$ . 330007)]) #@466 Submit a patch for the current arch project. With this feature it is not necessary to tag an arch archive. You simply edit your checked out copy and call this function. The function will create a patch as *.tar.gz file and prepare a buffer to send the patch via email. The variable `tla-submit-patch-mapping' allows to specify the target email address and the base name of the sent tarball. After the user has sent the message, `tla-submit-patch-done' is called. (defalias 'tla-submit-patch #[nil "\305 \210\306\307\310 !\"\211@\206\311 A@\206\312\313\314\315 !\316 \317\320\321\322 \"R\n\323 \f%+\207" [tla-submit-patch-mapping submit-patch-info mail-address patch-base-file-name dvc-patch-email-message-body-template tla-command-version tla--name-match-from-list tla--name-split tla-tree-version "" "arch" tla-prepare-patch-submission dvc-uniquify-file-name tla-tree-root "++" "-patch-" format-time-string "%Y-%m-%d_%H-%M-%S" current-time tla-tree-id] 9 (#$ . 330693) nil]) #@290 Send a commit notification email for the changelog entry at point. `tla-mail-notification-destination' can be used to specify a prefix for the subject line, the rest of the subject line contains the summary line of the commit. Additionally the destination email address can be specified. (defalias 'tla-send-commit-notification #[nil "\306\307\310 !\"\310 \311 \312 \313\314 \"\210\315\f\203$\f\211A@)\202%\316\f\203.\f@\202/\316\"\210\317 \210\nc\210\320 \210\321 \322Qc\210 c\210\320 ,\207" [tla-mail-notification-destination log-message summary rev dest-specs x tla--name-match-from-list tla--name-split tla-changelog-revision-at-point tla-changelog-log-summary-at-point tla-changelog-log-message-at-point message "Preparing commit email for %s" compose-mail "" message-goto-subject message-goto-body "Committed " "\n\n"] 5 (#$ . 331686) nil]) (provide 'tla)