I've pushed one more revision to https://code.launchpad.net/~bojan-bnikolic/dvc/dev, this one is useful for when working with checkouts of local branches.
------------------------------------------------------------ revno: 440 committer: Bojan Nikolic <[email protected]> branch nick: nikolic timestamp: Mon 2009-06-08 19:02:53 +0100 message: Add function to find the root of a checkout branch
# Bazaar merge directive format 2 (Bazaar 0.90) # revision_id: [email protected]\ # qwt90wi5h4y0v9dz # target_branch: http://bzr.xsteve.at/dvc/ # testament_sha1: 4229034734537de40109f625c03e35bdc76e1764 # timestamp: 2009-06-09 07:24:48 +0100 # source_branch: ../main/ # base_revision_id: [email protected] # # Begin patch === modified file 'lisp/bzr.el' --- lisp/bzr.el 2009-03-15 14:09:56 +0000 +++ lisp/bzr.el 2009-06-08 18:02:53 +0000 @@ -156,7 +156,11 @@ (defun bzr-push (&optional repo-path) "Run bzr push. When called with a prefix argument, add the --remember option" - (interactive (list (read-string (format "Push %sto bzr repository: " (if current-prefix-arg "--remember " ""))))) + (interactive (list (let ((push-branch (bzr-info-branchinfo "push"))) + (read-string (format "Push %sto bzr repository [%s]: " + (if current-prefix-arg "--remember " "") + push-branch) + )))) (when (string= repo-path "") (setq repo-path nil)) (dvc-run-dvc-async 'bzr (list "push" repo-path (when current-prefix-arg "--remember")) @@ -1033,11 +1037,26 @@ (setq new-nick (read-string (format "Change nick from '%s' to: " nick) nil nil nick))) (dvc-run-dvc-sync 'bzr (list "nick" new-nick))))) +;;;###autoload (defun bzr-info () "Run bzr info." (interactive) (dvc-run-dvc-display-as-info 'bzr '("info"))) +(defun bzr-parse-info-key (kname) + "Parse the output of bzr info buffer and return value kname" + (progn + (re-search-forward (concat"\\s-+ " kname " branch: \\([^\n]*\\)?$") nil 't) + (match-string-no-properties 1))) + +(defun bzr-info-branchinfo (kname) + (dvc-run-dvc-sync 'bzr (list "info") + :finished + (dvc-capturing-lambda (output error status arguments) + (with-current-buffer output + (beginning-of-buffer) + (bzr-parse-info-key kname))))) + (defun bzr-testament () "Run bzr testament." (interactive) @@ -1227,6 +1246,12 @@ (bzr-switch-checkout target)) ) +(defun bzr-goto-checkout-root () + "Find the directory containing the checkout source branch" + (interactive) + (find-file (bzr-info-branchinfo "checkout of"))) + + (defun bzr-create-bundle (rev file-name &optional extra-parameter-list) "Call bzr send --output to create a file containing a bundle" (interactive (list (bzr-read-revision "Create bundle for revision: ") # Begin bundle IyBCYXphYXIgcmV2aXNpb24gYnVuZGxlIHY0CiMKQlpoOTFBWSZTWWSR19oAEVtfgHgwX/v///Oj Sg+////wYBN9Pvu6Mvu+uvUz7UlAoAAUKAAFpMatizHRtgyJptaVEqJTu7kbcJJBKfok0aeT1CD0 J6iMyjyh6h6hk0aDCBoZP1RkabSeRqGj0QaABoBpoGjBDI0MNVP1TxGkGmmgAYgAAAGQNAA0CTSp pT0mo8qafqnppPNU3lIyNA9NEaDIMgyaGmgiiEEDUyAyGIpPT0U9inqnoxTaPVNABoegVKQaAhoC ATQyaSnpMyI0GgAA2kbTPQNPbcYg0pAxCJByyRf77lyZgTl4zo4rXtyWxqMzsrpR50HVfLLCCVAy O7r7TyJj/8NAbwGPIakbtZojpDYIjCsrMlTBZO0xyaX27+7hH1vhhg7EMIihDwJRDXyo38fLhFSl LrluNt9Ndy4imEA1gtjy0EDXcN2MyBBUHM18bTBmRLcGCJeEnMc1JOPDhanYCoswt6j/SfoqO83I NkLmYbjMqF4vKKIywPKRgw5b1N+oo72INrkJsk4BrVLAVVGLEh3vkkhplDPNEC0gii+3I3oYd/Tl lx4Wd1hxxq1Lx2cpDTO3AkucmdOV15FKXKmJNWrUbNoTd2zf7Mufdv1V5+q8/WSufrhmN01KA6Zv KmMIU/dmBuBv0Zjwjfk5sAc8TiYSSDRDT7Li6P0wwi9DVS1SaZ7Ie8iiiiiiiggiiiGMHJt0xyEA aGHEJMRESABCMgKrpUOQkHYjpMhwA7VGdQabbCkti3VlK+Xjz9N1zU4sj57QVAJ1SC5BWgxxV5lh a1ps4LILBPA8FBEKkogUqaJ1M1cxFRCSHQWEQZEEUzwVqnDAwDbEWnHbrdhifFIA3q68FdcbHE51 gswK8C3URcgIVkWAiHd6zzY9QmgRhOwz19VinVPFQZgT2Nre1tnpDitWltMFhp8y0URSGLr29QYP D5bsjoXETxEP+odQhrCASksiQwsMKrqUWpLSG0pEYg0olo0Qg2oRm1CKlrvqi3WmFwqgTkEzv3Vn QJvDEG2gToZ2Z3YYzYdpWV2aNZnpkubRHuw5LE25KxT4IKZ0ckFMyCZKPmhIZZERiSAgEO9ITn69 LVW222222221bbev4PFpn2dfXp+gSTHQbtxtgE6b25PjQu7pHh5ubwiDLCxEj0cUfojWF03EdGxI Ji1UanINxU0FT8DJS8ulhGSzjf2GSs0UkvVVk0cv31Xzi3lrWT1m+ElZowc7SXgrRRsoyPqW0JiC QWgUIUcROVyDAMREsNSTW3yIpnXkhhpmEm2woXL3JWIsmy9Viuk/lJgscXU1cGi9kXPDktWsEL2D cj2R8TeRcjyR80eidk8+xskUvrsgoITAhYxQ6boLrXqNmxpKqdoLps53ukli1kvkcpGJYZIuk5vK X8H+q1ulJLpXe2Y8G7Ondnw3cdMM/Ct1L7sSWtjacOJiwkwcfPc0k5bsPCI5tyTWTijivksRzb1S 2WKZ7NlMENc7ZRY0aPhFLqYzej0wTO5bpPbbHhKVmZVFrV2ZzCTCGXCIwVXMXZa5OTNoybb1WzBc wQquZGb7zxRnLEVJEkTeJbHbiXUaaK5ByPKgX04KqFXqUc3NWTMi1GLJcjCTjNKouRUwlqOa1dVR JMCOS5dDcXL1F1KWLKrZY3m5nImMvhzZO/VFRf2vUzXotRbdmq3qM5mzlqm6qmC+Fi3gwLJDBcFU GyGTcwXFrc4KqvHxxZsnH4R7SfyR7TPbBub1rZbNKURZDrJqvv6rr+jmxZ6SJ2WWnipN0KqGt5g6 qoskzWKVXM2DtrWVdMmjNddfwW3KztI3sEWvTVGjDiyVbmy6St+5vbLKyXLV7wQtyWr3FYwsYrHN c0YL5LmzFbNz4ktc97FuWm5gyeiMZPkjl5272knWiOSqi/LTlvlKbopSShekWHBfXt583RqqzaTh NJKIvRq3pq4ObbORLV8mS2aNHeubnLVKKDBKSU3rEZTBqrC1GV7Vm1WMGBb31kzURvYyqTBuVVOX FvbmDV6o2xKZtr5n9Z8Pk+q9HPPc0blrrEdWvd1OBewdHnDJVjj4OrvaNzq1ZKlj8JPWWI+iefLz 5aaca9uvCSlApONThzI7IOiEO3QJcJoiShTNjxinTmzX9C8MdFsyRx0tkS+iSaMm5c9pi8u+lozY zZMSyU1Zeni3Ysb+rBRbfdwuR0W2u9xca3y1xbJGbcxaX9kUxzYc3VR1UpDfk6HFRcSix9rGzwR5 TBxbnEzUaoaLm93p9UeUl1O93bMAidOujmEwz31U33oAxCgUjCVvE2yYYypkcGKGOlba9VEY3uK1 Fte1NEWtHVp3KKNm2LeyZCVSMG93qsFzkqq1b16xR1ZMGTFs0L1GhPFH2R6ycMkorRJ9u63ftzRa jhquQsUI3snBRg6I7WclEZ9GUiaunTfYwXLYmh8vWq/0k0vvuY4TgozceldIXKWbkYQMG9c4LXJy cFrGUc+ilrVRi9pVHdPjLbaTupJaqlm3dodFiVWmPmsSF9uLDnjYqli1msuZvLNwaZ9/fqssyaXM 9zCazvcG5e7KWMG5kopRY2hSyTSSl7S5muoYVyd5MIa7ne7MzeclGy9k4L1WLBRcufKT6S8+iN5m jxRn04U58tuml9cJOaL78FuMMHQTkxWIFp8kznXBfJjdXNzX3S9ehbOrfCyXO+pqq4aXIsuWGFIo ikYN72RddiqhnvUWvml1+Sw18zE5m/TNwavBcbNFirZY6rnCGaP/k7lzFg6tHBuadJ+p9MU30jBI 4hYj9fIlyRxgXdoi6G2CCzaD8z8JBgENYMIgeoMCvPq3gwSpCJyASyUPqCPc6WAsWLFiiwFjBVEh CgkI/Yh/VYYF7QfQGgNwMolSGAvBkGgNQfhVBKakFJR1NE2wgsEJGT1ZaBMmvgpEJY1PL5S/xn/2 New89JA7MDmgUKQBIGOO7MViqsVUpDnq9nq5vF7qMojCTzQsiKMH5lX3ZPxWvm0fRk+6xRzb3qye 7VYvVL1GbBY/ptXMmTjPxhIxZM3v7z9y5s0WbKyYGr5flg8kHOIGIm75vp56kFPTio3A/IHbCCQk zEyfP87YSNEZ+e6/ogerH+Npux0n1lnlEog5uybsvXtDAT79baH0Q9DsCOxglkklkkoNiUGxKDYl BsSg2JY4+Yh0T5s1p+1ns8H0WPm9nuykuUmK9csWMVi9iseaPuvXuie6xRgxZKsDNRotWMlj7mBi yUn14PHF5NHz6zoZuj9eTrJwc2a2TKbf8whvm/eiizeWUpQbEoNna6YuAlsOaydwnxX/NQNjDBF6 GKEIdAayEyB3/AE+MIlrIRHCT97egm9BSm44G4vN5xPoJKrS+ZKvNmVej1Xvk+rmjNgv6ellzGGC Ks3o1Ucm9szZuS5ziEtb9/0fEJHr5c/hHRsijPuU3tnF1XKKr1rs/HTtLn9vFozUd7QyE53hV33A nNikpzkzoox0ApoxLQsiBEhLPRjJjMMrlEW3Lt1vJbcU20tvfs8nR62K444LncWPFo9FirBY62u9 4LXBI9F65q3wLyZrze0ano7ySa98mM971jc8fPgxaPwRxcm9/o4l5U4mpCTt3u3aIayTAoei5l5k T6OPvEklmvHLvAFt9jc6/Z0FvnnFz1FBHmiQBqG2DP2Pp+VGNFs+X3uiaQ4Pk71jL238r+X9GPlr 7uGj1bni4tT6QosPsVXvmz07bduXTo6b+d+XS7Dphdrszfb7cnZ0fD5IybM2xY5k5Q5xHmJ58Y1o HyJ5wvQebV5tzK9Hdb4KoclisXU7vdeqqryc1rBWYyqFrZ2fHFJw/BVq72S+W/ZH8yj0ljGFe8EK SgvW1k1OBtO6M/XerV/Udvh7UB+xB4ZIhqmCmKMoI8dS0FeVvCfhMHFDXDte8nN4uhFitfV4MHqo hotVYsFx9Fqj4Zvf3zWWZquqM2ejVmuZvFWDVrro1ZL2Stdy9wcZYJmla+y5ziPvLX5IewSwnH1Q 8UOInvz6S553yE4qFxegzb2hTfc4g4tXQCdpiPQvc7ajAi+IkrwXHRNY1g31s8QVPrir+W0YZhhm BnMJTEXCuEZ01LhEuNlHmWiHhtql1zKbZp5nkbTeCxSkzMkTObvWpUvGF5chNwm59wihXtB+oLNZ rCXfN0E/QmCSD0lPqj6km2QnV1/j8KDUIDgWTYElndpcA+w32Gw1MuGYdIK8CkE48SUKRJHOdrtP 2wicScesxfkTOXbOSLIX4CbkR7oErmDyE8VyExE4OXT3xAPegLUfrRslUYT6IOrwUfqRIZxVFh09 pE/L7S5FiOkD9k1uJKadkSG0+kFHuu5Qc4X4ZMtfEHIGcKwgprd50KOiK7HNFicaRFrKv7yfUnET MmqTzRvLUZgfcieaClA8j7cbgdJmiko6odd7ddUHctzPO9Asolwo/lIK+0elE0vx8BLZYAP2uoJa IJkWBxoI6AdqCfyB+SClrcYz9kWGMj3NehNb5YQpRElCF8qnBRSKClJTLCEjpCPJHejNH4o83v5c TdE5PiDzoJ3idYihr62/kF5kX5QgJMiU8UXETYpgg5uxJ+qloix+nWa9N8c/tF75WQ+D07hNwN/Y sIeAPgD4IBS94CfXBE1oDw6eSTuCoYGyNIOkBgHLyWviXZHx2vz94ne5P8BPeJxfa8HuDIbz2RDG yTnihAoUe6KSS1B9xPKEjwwdazxLHxy6/mhe3r56TJA8I9CfuJZD5EoiLUPZF7eclmdGlrGwVmdX PlnvqgOrywc2cYQc8AOIaWxJzKEury/hX4/l5W/niSwShLll8JvbqTBu+/3N0LIjlEb+akImy2Hl ugfKtYO0QjEJT5eWKKLPnhNxSAcm2aZaZbPxHcWYJM4eQGe4rZ9dkgfNkKCjANYjmFYCpBXgN6Gw QjQL5ibLNgfrZHtjpBwZR5hMyXzJbI5coSwT660T4RkuivNbIMVdCF0r1rLrdbITSkDEnrhreJ1k /gj8Z/P+IZ+Dev3iAHMDm5NtG34yz5tujWvUdLH6FAKkEProl4Dt5XqOqIR2ghCCPoJe1q8S1ZSy wfQT0ceWK8wk9gaRnmj0xF/ISh5O8cRLA57AXJ0JbRGMRwBiS6kJhJSKOknBkkxaS0tJT809Uay4 vJQl87eyLEbN7hYsVV5yFDOTB75DjtCYhIf+LuSKcKEgySOvtA==
_______________________________________________ Dvc-dev mailing list [email protected] https://mail.gna.org/listinfo/dvc-dev
