debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-21 18:38:08 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

contrib: pick: move lisp names from pick to tree

Browse source 
This changes all the lisp names from pick to tree (variables,
functions etc). It also changes the lisp in the emacs-pick test files
to match the new names.
This commit is contained in:
Mark Walters 2013-10-26 23:02:05 +01:00 committed by David Bremner
parent 516efb7807
commit 5ad17f1fb7
2 changed files with 370 additions and 370 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

666
contrib/notmuch-pick/notmuch-pick.el → contrib/notmuch-pick/notmuch-tree.el
View file

File diff suppressed because it is too large Load diff

74
contrib/notmuch-pick/test/emacs-pick
View file

@ -16,8 +16,8 @@ test_expect_equal_file OUTPUT EXPECTED
test_begin_subtest "Basic notmuch-pick view in emacs" test_begin_subtest "Basic notmuch-pick view in emacs"
test_emacs '(add-to-list (quote load-path) "'$PICK_DIR'") test_emacs '(add-to-list (quote load-path) "'$PICK_DIR'")
(require (quote notmuch-pick)) (require (quote notmuch-tree))
(notmuch-pick "tag:inbox") (notmuch-tree "tag:inbox")
(notmuch-test-wait) (notmuch-test-wait)
(test-output) (test-output)
(delete-other-windows)' (delete-other-windows)'
@ -25,10 +25,10 @@ test_expect_equal_file OUTPUT $EXPECTED/notmuch-pick-tag-inbox
test_begin_subtest "Refreshed notmuch-pick view in emacs" test_begin_subtest "Refreshed notmuch-pick view in emacs"
test_emacs '(add-to-list (quote load-path) "'$PICK_DIR'") test_emacs '(add-to-list (quote load-path) "'$PICK_DIR'")
(require (quote notmuch-pick)) (require (quote notmuch-tree))
(notmuch-pick "tag:inbox") (notmuch-tree "tag:inbox")
(notmuch-test-wait) (notmuch-test-wait)
(notmuch-pick-refresh-view) (notmuch-tree-refresh-view)
(notmuch-test-wait) (notmuch-test-wait)
(test-output) (test-output)
(delete-other-windows)' (delete-other-windows)'
@ -40,11 +40,11 @@ test_expect_equal_file OUTPUT $EXPECTED/notmuch-pick-tag-inbox
test_begin_subtest "Tag message in notmuch pick view (display)" test_begin_subtest "Tag message in notmuch pick view (display)"
test_emacs '(add-to-list (quote load-path) "'$PICK_DIR'") test_emacs '(add-to-list (quote load-path) "'$PICK_DIR'")
(require (quote notmuch-pick)) (require (quote notmuch-tree))
(notmuch-pick "tag:inbox") (notmuch-tree "tag:inbox")
(notmuch-test-wait) (notmuch-test-wait)
(forward-line) (forward-line)
(notmuch-pick-tag (list "+test_tag")) (notmuch-tree-tag (list "+test_tag"))
(test-output) (test-output)
(delete-other-windows)' (delete-other-windows)'
test_expect_equal_file OUTPUT $EXPECTED/notmuch-pick-tag-inbox-tagged test_expect_equal_file OUTPUT $EXPECTED/notmuch-pick-tag-inbox-tagged
@ -55,11 +55,11 @@ test_expect_equal "$output" "id:877h1wv7mg.fsf@inf-8657.int-evry.fr"
test_begin_subtest "Untag message in notmuch pick view" test_begin_subtest "Untag message in notmuch pick view"
test_emacs '(add-to-list (quote load-path) "'$PICK_DIR'") test_emacs '(add-to-list (quote load-path) "'$PICK_DIR'")
(require (quote notmuch-pick)) (require (quote notmuch-tree))
(notmuch-pick "tag:inbox") (notmuch-tree "tag:inbox")
(notmuch-test-wait) (notmuch-test-wait)
(forward-line) (forward-line)
(notmuch-pick-tag (list "-test_tag")) (notmuch-tree-tag (list "-test_tag"))
(test-output) (test-output)
(delete-other-windows)' (delete-other-windows)'
test_expect_equal_file OUTPUT $EXPECTED/notmuch-pick-tag-inbox test_expect_equal_file OUTPUT $EXPECTED/notmuch-pick-tag-inbox
@ -70,12 +70,12 @@ test_expect_equal "$output" ""
test_begin_subtest "Tag thread in notmuch pick view" test_begin_subtest "Tag thread in notmuch pick view"
test_emacs '(add-to-list (quote load-path) "'$PICK_DIR'") test_emacs '(add-to-list (quote load-path) "'$PICK_DIR'")
(require (quote notmuch-pick)) (require (quote notmuch-tree))
(notmuch-pick "tag:inbox") (notmuch-tree "tag:inbox")
(notmuch-test-wait) (notmuch-test-wait)
;; move to a sizable thread ;; move to a sizable thread
(forward-line 26) (forward-line 26)
(notmuch-pick-tag-thread (list "+test_thread_tag")) (notmuch-tree-tag-thread (list "+test_thread_tag"))
(test-output) (test-output)
(delete-other-windows)' (delete-other-windows)'
test_expect_equal_file OUTPUT $EXPECTED/notmuch-pick-tag-inbox-thread-tagged test_expect_equal_file OUTPUT $EXPECTED/notmuch-pick-tag-inbox-thread-tagged
@ -93,12 +93,12 @@ id:20091117190054.GU3165@dottiness.seas.harvard.edu"
test_begin_subtest "Untag thread in notmuch pick view" test_begin_subtest "Untag thread in notmuch pick view"
test_emacs '(add-to-list (quote load-path) "'$PICK_DIR'") test_emacs '(add-to-list (quote load-path) "'$PICK_DIR'")
(require (quote notmuch-pick)) (require (quote notmuch-tree))
(notmuch-pick "tag:inbox") (notmuch-tree "tag:inbox")
(notmuch-test-wait) (notmuch-test-wait)
;; move to the same sizable thread as above ;; move to the same sizable thread as above
(forward-line 26) (forward-line 26)
(notmuch-pick-tag-thread (list "-test_thread_tag")) (notmuch-tree-tag-thread (list "-test_thread_tag"))
(test-output) (test-output)
(delete-other-windows)' (delete-other-windows)'
test_expect_equal_file OUTPUT $EXPECTED/notmuch-pick-tag-inbox test_expect_equal_file OUTPUT $EXPECTED/notmuch-pick-tag-inbox
@ -113,7 +113,7 @@ test_emacs '(notmuch-hello)
(re-search-forward "inbox") (re-search-forward "inbox")
(widget-button-press (1- (point))) (widget-button-press (1- (point)))
(notmuch-test-wait) (notmuch-test-wait)
(notmuch-pick-from-search-current-query) (notmuch-tree-from-search-current-query)
(notmuch-test-wait) (notmuch-test-wait)
(test-output) (test-output)
(delete-other-windows)' (delete-other-windows)'
@ -125,7 +125,7 @@ test_emacs '(notmuch-hello)
(re-search-forward "inbox") (re-search-forward "inbox")
(widget-button-press (1- (point))) (widget-button-press (1- (point)))
(notmuch-test-wait) (notmuch-test-wait)
(notmuch-pick-from-search-thread) (notmuch-tree-from-search-thread)
(notmuch-test-wait) (notmuch-test-wait)
(test-output) (test-output)
(delete-other-windows)' (delete-other-windows)'
@ -138,7 +138,7 @@ test_emacs '(notmuch-hello)
(widget-button-press (1- (point))) (widget-button-press (1- (point)))
(notmuch-test-wait) (notmuch-test-wait)
(notmuch-search-show-thread) (notmuch-search-show-thread)
(notmuch-pick-from-show-current-query) (notmuch-tree-from-show-current-query)
(notmuch-test-wait) (notmuch-test-wait)
(test-output) (test-output)
(delete-other-windows)' (delete-other-windows)'
@ -151,9 +151,9 @@ test_emacs '(notmuch-hello)
(widget-button-press (1- (point))) (widget-button-press (1- (point)))
(notmuch-test-wait) (notmuch-test-wait)
(notmuch-search-next-thread) (notmuch-search-next-thread)
(notmuch-pick-from-search-thread) (notmuch-tree-from-search-thread)
(notmuch-test-wait) (notmuch-test-wait)
(select-window notmuch-pick-message-window) (select-window notmuch-tree-message-window)
(test-output) (test-output)
(delete-other-windows)' (delete-other-windows)'
cp OUTPUT /tmp/mjwout cp OUTPUT /tmp/mjwout
@ -161,49 +161,49 @@ test_expect_equal_file OUTPUT $EXPECTED/notmuch-pick-show-window
test_begin_subtest "Stash id" test_begin_subtest "Stash id"
output=$(test_emacs '(add-to-list (quote load-path) "'$PICK_DIR'") output=$(test_emacs '(add-to-list (quote load-path) "'$PICK_DIR'")
(require (quote notmuch-pick)) (require (quote notmuch-tree))
(notmuch-pick "id:1258498485-sup-142@elly") (notmuch-tree "id:1258498485-sup-142@elly")
(notmuch-test-wait) (notmuch-test-wait)
(notmuch-show-stash-message-id)') (notmuch-show-stash-message-id)')
test_expect_equal "$output" "\"Stashed: id:1258498485-sup-142@elly\"" test_expect_equal "$output" "\"Stashed: id:1258498485-sup-142@elly\""
test_begin_subtest "Move to next matching message" test_begin_subtest "Move to next matching message"
output=$(test_emacs '(add-to-list (quote load-path) "'$PICK_DIR'") output=$(test_emacs '(add-to-list (quote load-path) "'$PICK_DIR'")
(require (quote notmuch-pick)) (require (quote notmuch-tree))
(notmuch-pick "from:cworth") (notmuch-tree "from:cworth")
(notmuch-test-wait) (notmuch-test-wait)
(notmuch-pick-next-matching-message) (notmuch-tree-next-matching-message)
(notmuch-show-stash-message-id)') (notmuch-show-stash-message-id)')
test_expect_equal "$output" "\"Stashed: id:878we4qdqf.fsf@yoom.home.cworth.org\"" test_expect_equal "$output" "\"Stashed: id:878we4qdqf.fsf@yoom.home.cworth.org\""
test_begin_subtest "Move to next thread" test_begin_subtest "Move to next thread"
output=$(test_emacs '(add-to-list (quote load-path) "'$PICK_DIR'") output=$(test_emacs '(add-to-list (quote load-path) "'$PICK_DIR'")
(require (quote notmuch-pick)) (require (quote notmuch-tree))
(notmuch-pick "tag:inbox") (notmuch-tree "tag:inbox")
(notmuch-test-wait) (notmuch-test-wait)
(forward-line 26) (forward-line 26)
(notmuch-pick-next-thread) (notmuch-tree-next-thread)
(notmuch-show-stash-message-id)') (notmuch-show-stash-message-id)')
test_expect_equal "$output" "\"Stashed: id:1258471718-6781-1-git-send-email-dottedmag@dottedmag.net\"" test_expect_equal "$output" "\"Stashed: id:1258471718-6781-1-git-send-email-dottedmag@dottedmag.net\""
test_begin_subtest "Move to previous thread" test_begin_subtest "Move to previous thread"
output=$(test_emacs '(add-to-list (quote load-path) "'$PICK_DIR'") output=$(test_emacs '(add-to-list (quote load-path) "'$PICK_DIR'")
(require (quote notmuch-pick)) (require (quote notmuch-tree))
(notmuch-pick "tag:inbox") (notmuch-tree "tag:inbox")
(notmuch-test-wait) (notmuch-test-wait)
(forward-line 26) (forward-line 26)
(notmuch-pick-prev-thread) (notmuch-tree-prev-thread)
(notmuch-show-stash-message-id)') (notmuch-show-stash-message-id)')
test_expect_equal "$output" "\"Stashed: id:20091117190054.GU3165@dottiness.seas.harvard.edu\"" test_expect_equal "$output" "\"Stashed: id:20091117190054.GU3165@dottiness.seas.harvard.edu\""
test_begin_subtest "Move to previous previous thread" test_begin_subtest "Move to previous previous thread"
output=$(test_emacs '(add-to-list (quote load-path) "'$PICK_DIR'") output=$(test_emacs '(add-to-list (quote load-path) "'$PICK_DIR'")
(require (quote notmuch-pick)) (require (quote notmuch-tree))
(notmuch-pick "tag:inbox") (notmuch-tree "tag:inbox")
(notmuch-test-wait) (notmuch-test-wait)
(forward-line 26) (forward-line 26)
(notmuch-pick-prev-thread) (notmuch-tree-prev-thread)
(notmuch-pick-prev-thread) (notmuch-tree-prev-thread)
(notmuch-show-stash-message-id)') (notmuch-show-stash-message-id)')
test_expect_equal "$output" "\"Stashed: id:1258493565-13508-1-git-send-email-keithp@keithp.com\"" test_expect_equal "$output" "\"Stashed: id:1258493565-13508-1-git-send-email-keithp@keithp.com\""