;ELC ;;; Compiled by mwolson@grepfind.mwolson.org on Thu Jan 24 00:15:30 2008 ;;; from file /stuff/proj/emacs/dvc/mwolson/lisp/dvc-tips.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 "`dvc-tips.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@26 List of tips. Add more ! (defconst dvc-tips-array ["Welcome to DVC. I'm the tip buffer. I will appear from time to time\nto show you interesting features that you may have missed! Disable me\nby setting the variable `dvc-tips-enabled' to nil.\n\nPress q to exit, n to view next tip, p to view previous tip." "For the available tla commands Xtla provides a corresponding interactive\nfunction.\nSome examples:\n\nM-x tla-inventory ... runs tla inventory\nM-x tla-undo ... runs tla undo\nM-x tla-changes ... runs tla changes\n\nXtla prompts for the needed parameters." "Most interesting commands are available through a global keyboard\nshortcut. Try \"C-x V C-h\" to get a list" "Xtla provides several major modes for different buffers. Each mode\nhas its own keybindings. Get help with \"C-h m\"" "When Xtla is loaded, C-M-h in a minibuffer prompt gives you help\nabout the command being run." "When you are prompted for an archive, category, branch, version or\nrevision name, lots of keybindings are available. Get a list with \"C-h\"." "Xtla allows you to manage a list of bookmarks. Try \"C-x V b\" and add\nbookmarks from the menu. You may also add bookmarks from an archives,\ncategory, version or revision buffer as well as from the tla-browse\nbuffer." "From the bookmark buffer, you can select some bookmarks and make\nthem partners with M-p. Afterwards, pressing 'M m' on a bookmark will\nshow you the missing patches from his partners." "You can add changelog style comments to your commit log by \"C-x V a\"." "You can enable ispell, flyspell or other useful mode for editing\nlog files by \"M-x customize-variable RET tla-log-edit-mode-hook RET\"." "By default, Xtla caches any log file you retrieve with\n`tla-revlog' or `tla-cat-archive-log' in ~/.arch-log-library. This\nspeeds up many Xtla operations.\n\nYou can disable this by setting `tla-log-library-greedy' to nil." "Xtla can use both tla and bazaar implementations of GNU Arch.\n\"M-x customize-variable RET tla-arch-branch RET\" to choose.\n\"M-x tla-use-tla RET\" and \"M-x tla-use-baz RET\" to switch.\n\nSee bazaar homepage for more info on bazaar:\nhttp://bazaar.canonical.com/" "Xtla is highly customizable.\nStart it by \"M-x customize-group RET xtla RET\"." "In a *tla-changes* buffer you can quickly jump to the source file by\n\"RET\", or view the source file in another window by \"v\", or start\nan ediff session by \"e\" to inspect/reject parts of the changes." "In a *tla-changes* buffer, you can quickly jump from the list of\nfiles to the corresponding patch hunk, and come back with \"j\"" "From a revision list buffer or a *tla-changes* buffer, \"=\" will\nshow the diffs for the thing at point. M-= and M-RET allows you to\nnavigate in this diff while keeping your cursor in the same buffer." "After committing, you can review the last committed patch with\n\"M-x tla-changes-last-revision RET\".\n\nUsefull to review and fix a patch you've just merged without mixing\nmanual modifications and merge in the same patch." "After a merge, typing \"C-c m\" in the log buffer will generate\nfor you a summary line, keyword and body. This is highly\ncustomizable." "Report bugs using M-x dvc-submit-bug-report RET, or using the bug\ntracker at https://gna.org/bugs/?group=xtla-el" "You've got a nice, graphical, archive browser one M-x tla-browse\nRET away." "In the bookmark buffer, pressing \"C-x C-f\" starts with the local\ntree of the bookmark at point for the default directory." "SMerge mode is an Emacs minor mode usefull to resolve conflicts\nafter a --three-way merge. Xtla will enter this mode automatically\nwhen you open a file with conflicts. Type M-x tla-conflicts-finish RET\nto exit smerge mode and delete the corresponding .rej file." "\"C-x V e\" in a source file will open an ediff session with the\nunmodified version of the file. From here, you can undo patch hunks\none by one with the key \"b\"" "In the *tree-lint* buffer, with your cursor on a message, most\ncommands will apply to all the files listed under this message." "M-x baz-annotate RET will show you an annotated version of your\nsource file to track the origin of each line of code." "After running M-x baz-annotate RET, you cat run\n\nM-x baz-trace-line RET => Gives you the revision in which the line was\n last modified in the minibuffer.\n\nM-x baz-trace-line-show-log RET => Displays the log file of this\n revision." "Xtla is well integrated with Gnus. Revision names are buttonized,\nyou can apply a changeset sent to you as attachment easily, ...\n\nAdd\n\n (tla-insinuate-gnus)\n\nto your ~/.gnus.el or your ~/.emacs.el."] (#$ . 594)) #@58 Number of the last tip viewed. Will be saved in state.el (defvar dvc-tips-number 0 (#$ . 5291)) #@48 Return the message number NUMBER, as a string. (defalias 'dvc-tips-message-number #[(number) "\302 G\" H)\207" [number dvc-tips-array mod] 3 (#$ . 5393)]) (byte-code "\306B\307\306!\204+\310\306\311 \312 \n\313#\210\312 \314#\210\312 \f\315#\210\312 \316\317#\210 )\"\210\320\321N\2047\322\320\321\323#\210\324\306!\204C\322\306\325\326#\210\306B\307\306!\204S\310\306\311 \"\210\324\327!\204_\322\327\325\326#\210\327B\307\327!\204o\310\327\330 \"\210\322\305\325\326#\210\305B\307\305!\204\211\310\305\331\305\332\"\210 \"\210\322\326\333\332#\207" [current-load-list map dvc-keyvec-quit dvc-keyvec-next dvc-keyvec-previous dvc-tips-mode-abbrev-table dvc-tips-mode-map default-boundp set-default make-sparse-keymap define-key dvc-buffer-quit dvc-tips-next-tip dvc-tips-previous-tip [99] dvc-tips-customize dvc-tips-mode-hook variable-documentation put "Hook run when entering dvc-tips mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp definition-name dvc-tips-mode dvc-tips-mode-syntax-table make-syntax-table define-abbrev-table nil derived-mode-parent] 6) #@171 Major mode for buffers displaying tip of the day. Commands: \{dvc-tips-mode-map} This mode runs the hook `dvc-tips-mode-hook', as the final step during initialization. (defalias 'dvc-tips-mode #[nil "\306\300!\210\307\310 \210\311\312\313 !\210\314\f!\210 \315\316!\210)\317\320!\207" [delay-mode-hooks major-mode mode-name dvc-tips-mode-map dvc-tips-mode-syntax-table dvc-tips-mode-abbrev-table make-local-variable t kill-all-local-variables dvc-tips-mode "dvc-tips" use-local-map set-syntax-table toggle-read-only 1 run-mode-hooks dvc-tips-mode-hook local-abbrev-table] 2 (#$ . 6571) nil]) #@28 Pops up tip number NUMBER. (defalias 'dvc-tips-popup-number #[(number &optional noswitch) "\306!\307\310\311\312\"!\210\313 \210\314\315 \210\316\317\320\211\211+,\203\252\321+!- 9\2057\322\323\324\325 !\"!. \203A \202O\f\205O\326\f!;\205O\326\f!/.\203l/\203g/\327\330\327.\260\202m.\202m 0 9\203y J\202z \331\332-G\333\334\335 \205\224\336\337\305 \3400\257\f\205\233\341\fD\"BBBB-$\210--\202\254+-\342\261\210 c\210\343\344!\210\345\317\320\211\211+,\203O\321+!- 9\205\334\322\323\324\325 !\"!. \203\346 \202\364\f\205\364\326\f!;\205\364\326\f!/.\203/\203\f/\327\330\327.\260\202.\202 0 9\203 J\202 \331\332-G\333\334\335 \2059\336\337\305 \3400\257\f\205@\341\fD\"BBBB-$\210--\202Q+-c\210eb\210)1?\205s2\346=\205s\347 G\350U\203p\351 \210\352\350!)\207" [number message inhibit-read-only help menu keymap dvc-tips-message-number switch-to-buffer dvc-get-buffer-create dvc tips dvc-tips-mode t erase-buffer "************************* Did you know? *************************" dvc-messages nil 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 "\n\n" newline 2 "*********************************************************************" single-window window-list 1 split-window-vertically other-window str dvc-highlight strcpy key-help prefix-help long-help noswitch dvc-switch-to-buffer-mode] 14 (#$ . 7176)]) #@74 Pop up a buffer with a tip if tips are enabled. see `dvc-tips-enabled'. (defalias 'dvc-tips-popup-maybe #[nil "\205\301 \207" [dvc-tips-enabled dvc-tips-popup] 1 (#$ . 8731)]) #@80 *Alternate function to show a tip. Must insert the text in the current buffer (custom-declare-variable 'dvc-tips-function 'nil '(#$ . -8917) :type 'function :group 'dvc-tips) #@143 Make a lisp function from a shell command. SHELL-COMMAND is the name of a shell command, return a function suitable for `dvc-tips-function'. (defalias 'dvc-tips-make-function-from-exec #[(shell-command header footer) "\303\304\305\306\307\310 D\nF\257\207" [header shell-command footer lambda nil "Function to display a message." (interactive) insert shell-command-to-string] 8 (#$ . 9100)]) #@170 Wrapper for `dvc-tips-make-function-from-exec'. Shows a nice header and footer in addition. Try (setq dvc-tips-function (dvc-tips-make-fortune-from-exec "fortune"))  (defalias 'dvc-tips-make-fortune-from-exec #[(shell-command) "\306\307\310\311\211\211\203\224\312 ! 9\205#\313\314\315\316 !\"! \203- \202;\n\205;\317\n!;\205;\317\n!\203X\203S\320\321\320\260\202Y\202Y  9\203e J\202f \322\323G\304\f\324\f\325 \205~\326\327\303 \330 \257\n\205\205\331\nD\"BBBB$\210-\202\225 -\332P\320\333\310\311\211\211\203+\312 ! 9\205\272\313\314\315\316 !\"! \203\304 \202\322\n\205\322\317\n!;\205\322\317\n!\203\357\203\352\320\321\320\260\202\360\202\360  9\203\374 J\202\375 \322\323G\304\f\324\f\325 \205\326\327\303 \330 \257\n\205\331\nD\"BBBB$\210-\202, -P#\207" [shell-command help menu keymap face str dvc-tips-make-function-from-exec "**************************** Fortune ****************************" dvc-messages 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 "\n\n" "*********************************************************************" dvc-highlight strcpy key-help prefix-help long-help] 18 (#$ . 9502)]) #@109 Pop up a buffer with a tip message. Don't use this function from Xtla. Use `dvc-tips-popup-maybe' instead. (defalias 'dvc-tips-popup #[(&optional direction noswitch) "\n\203\306\307\310\311\"!\210\312\313 \210\n \210)\314 \210\2025\315 \210\316\f \"\210\317\f\206,\320\\G\"\321 \210 \211)\207" [default-directory work-dir dvc-tips-function inhibit-read-only dvc-tips-number noswitch switch-to-buffer dvc-get-buffer-create dvc tips t erase-buffer dvc-tips-mode dvc-load-state dvc-tips-popup-number mod 1 dvc-save-state direction dvc-tips-array] 4 (#$ . 10868) nil]) #@16 Show next tip. (defalias 'dvc-tips-next-tip #[nil "\300\301\302\"\207" [dvc-tips-popup 1 t] 3 (#$ . 11453) nil]) #@20 Show previous tip. (defalias 'dvc-tips-previous-tip #[nil "\300\301\302\"\207" [dvc-tips-popup -1 t] 3 (#$ . 11572) nil]) #@35 Run customize group for dvc-tips. (defalias 'dvc-tips-customize #[nil "\300\301!\207" [customize-group dvc-tips] 2 (#$ . 11700) nil]) (provide 'dvc-tips)