diff options
| -rw-r--r-- | org-link-edit.el | 16 | ||||
| -rw-r--r-- | test-org-link-edit.el | 252 |
2 files changed, 134 insertions, 134 deletions
diff --git a/org-link-edit.el b/org-link-edit.el index 8eb3e52..d4d6f5e 100644 --- a/org-link-edit.el +++ b/org-link-edit.el @@ -129,12 +129,12 @@ movement, return nil. Otherwise, return t." (defun org-link-edit-forward-slurp (&optional n) "Slurp N trailing blobs into link's description. - The \[\[http://orgmode.org/\]\[Org mode\]\] site + The \[\[https://orgmode.org/\]\[Org mode\]\] site | v - The \[\[http://orgmode.org/\]\[Org mode site\]\] + The \[\[https://orgmode.org/\]\[Org mode site\]\] A blob is a block of non-whitespace characters. When slurping forward, trailing punctuation characters are not considered part @@ -173,12 +173,12 @@ If N is negative, slurp leading blobs instead of trailing blobs." (defun org-link-edit-backward-slurp (&optional n) "Slurp N leading blobs into link's description. - The \[\[http://orgmode.org/\]\[Org mode\]\] site + The \[\[https://orgmode.org/\]\[Org mode\]\] site | v - \[\[http://orgmode.org/\]\[The Org mode\]\] site + \[\[https://orgmode.org/\]\[The Org mode\]\] site A blob is a block of non-whitespace characters. @@ -249,12 +249,12 @@ N, 'other' is nil." (defun org-link-edit-forward-barf (&optional n) "Barf N trailing blobs from link's description. - The \[\[http://orgmode.org/\]\[Org mode\]\] site + The \[\[https://orgmode.org/\]\[Org mode\]\] site | v - The \[\[http://orgmode.org/\]\[Org\]\] mode site + The \[\[https://orgmode.org/\]\[Org\]\] mode site A blob is a block of non-whitespace characters. @@ -288,12 +288,12 @@ If N is negative, barf leading blobs instead of trailing blobs." (defun org-link-edit-backward-barf (&optional n) "Barf N leading blobs from link's description. - The \[\[http://orgmode.org/\]\[Org mode\]\] site + The \[\[https://orgmode.org/\]\[Org mode\]\] site | v - The Org \[\[http://orgmode.org/\]\[mode\]\] site + The Org \[\[https://orgmode.org/\]\[mode\]\] site A blob is a block of non-whitespace characters. diff --git a/test-org-link-edit.el b/test-org-link-edit.el index 25b980d..27f864b 100644 --- a/test-org-link-edit.el +++ b/test-org-link-edit.el @@ -51,106 +51,106 @@ otherwise place the point at the beginning of the inserted text." ;; Slurp one blob into plain link. (should (string= - "\[\[http://orgmode.org/\]\[Org's\]\] website is" + "\[\[https://orgmode.org/\]\[Org's\]\] website is" (org-test-with-temp-text - "http://orgmode.org/ Org's website is" + "https://orgmode.org/ Org's website is" (org-link-edit-forward-slurp) (buffer-string)))) ;; Slurp one blob into empty bracket link. (should (string= - "\[\[http://orgmode.org/\]\[Org's\]\] website is" + "\[\[https://orgmode.org/\]\[Org's\]\] website is" (org-test-with-temp-text - "\[\[http://orgmode.org/\]\] Org's website is" + "\[\[https://orgmode.org/\]\] Org's website is" (org-link-edit-forward-slurp) (buffer-string)))) ;; Slurp one blob into bracket link. (should (string= - "\[\[http://orgmode.org/\]\[Org's website\]\] is" + "\[\[https://orgmode.org/\]\[Org's website\]\] is" (org-test-with-temp-text - "\[\[http://orgmode.org/\]\[Org's\]\] website is" + "\[\[https://orgmode.org/\]\[Org's\]\] website is" (org-link-edit-forward-slurp) (buffer-string)))) ;; Slurp one blob, but not trailing punctuation, into bracket link. (should (string= - "\[\[http://orgmode.org/\]\[Org's website\]\]." + "\[\[https://orgmode.org/\]\[Org's website\]\]." (org-test-with-temp-text - "\[\[http://orgmode.org/\]\[Org's\]\] website." + "\[\[https://orgmode.org/\]\[Org's\]\] website." (org-link-edit-forward-slurp) (buffer-string)))) ;; Slurp all-punctuation blob into bracket link. (should (string= - "\[\[http://orgmode.org/\]\[Org's .?.?\]\]" + "\[\[https://orgmode.org/\]\[Org's .?.?\]\]" (org-test-with-temp-text - "\[\[http://orgmode.org/\]\[Org's\]\] .?.?" + "\[\[https://orgmode.org/\]\[Org's\]\] .?.?" (org-link-edit-forward-slurp) (buffer-string)))) ;; Slurping blob with point beyond link, but technically still ;; within link element. (should (string= - "Org's \[\[http://orgmode.org/\]\[website is\]\]" + "Org's \[\[https://orgmode.org/\]\[website is\]\]" (org-test-with-temp-text - "Org's \[\[http://orgmode.org/\]\[website\]\] <point> is" + "Org's \[\[https://orgmode.org/\]\[website\]\] <point> is" (org-link-edit-forward-slurp) (buffer-string)))) ;; Slurp two blobs into plain link. (should (string= - "\[\[http://orgmode.org/\]\[Org's website\]\] is" + "\[\[https://orgmode.org/\]\[Org's website\]\] is" (org-test-with-temp-text - "http://orgmode.org/ Org's website is" + "https://orgmode.org/ Org's website is" (org-link-edit-forward-slurp 2) (buffer-string)))) ;; Slurp two blobs into bracket link. (should (string= - "\[\[http://orgmode.org/\]\[Org's website is\]\]" + "\[\[https://orgmode.org/\]\[Org's website is\]\]" (org-test-with-temp-text - "\[\[http://orgmode.org/\]\[Org's\]\] website is" + "\[\[https://orgmode.org/\]\[Org's\]\] website is" (org-link-edit-forward-slurp 2) (buffer-string)))) ;; Slurp new line as space. (should (string= - "\[\[http://orgmode.org/\]\[Org's website\]\] is" + "\[\[https://orgmode.org/\]\[Org's website\]\] is" (org-test-with-temp-text - "\[\[http://orgmode.org/\]\[Org's\]\] + "\[\[https://orgmode.org/\]\[Org's\]\] website is" (org-link-edit-forward-slurp 1) (buffer-string)))) ;; Collapse stretches of new lines. (should (string= - "\[\[http://orgmode.org/\]\[Org's website is\]\]" + "\[\[https://orgmode.org/\]\[Org's website is\]\]" (org-test-with-temp-text - "\[\[http://orgmode.org/\]\[Org's\]\] + "\[\[https://orgmode.org/\]\[Org's\]\] \n\nwebsite\n\n\nis" (org-link-edit-forward-slurp 2) (buffer-string)))) ;; Slurp blob that has no whitespace. (should (string= - "\[\[http://orgmode.org/\]\[website\]\]" + "\[\[https://orgmode.org/\]\[website\]\]" (org-test-with-temp-text - "\[\[http://orgmode.org/\]\]website" + "\[\[https://orgmode.org/\]\]website" (org-link-edit-forward-slurp 1) (buffer-string)))) ;; Slurp blob that isn't separated from link by whitespace. (should (string= - "\[\[http://orgmode.org/\]\[-website\]\]" + "\[\[https://orgmode.org/\]\[-website\]\]" (org-test-with-temp-text - "\[\[http://orgmode.org/\]\]-website" + "\[\[https://orgmode.org/\]\]-website" (org-link-edit-forward-slurp 1) (buffer-string)))) ;; Slurp beyond the number of present blobs. (should-error (org-test-with-temp-text - "\[\[http://orgmode.org/\]\[Org's\]\] website is" + "\[\[https://orgmode.org/\]\[Org's\]\] website is" (org-link-edit-forward-slurp 3)) :type 'user-error)) @@ -159,106 +159,106 @@ website is" ;; Slurp one blob into plain link. (should (string= - "Here \[\[http://orgmode.org/\]\[is\]\] Org's website" + "Here \[\[https://orgmode.org/\]\[is\]\] Org's website" (org-test-with-temp-text - "Here is <point>http://orgmode.org/ Org's website" + "Here is <point>https://orgmode.org/ Org's website" (org-link-edit-backward-slurp) (buffer-string)))) ;; Slurp one blob into empty bracket link. (should (string= - "Here \[\[http://orgmode.org/\]\[is\]\] Org's website" + "Here \[\[https://orgmode.org/\]\[is\]\] Org's website" (org-test-with-temp-text - "Here is <point>\[\[http://orgmode.org/\]\] Org's website" + "Here is <point>\[\[https://orgmode.org/\]\] Org's website" (org-link-edit-backward-slurp) (buffer-string)))) ;; Slurp one blob into bracket link. (should (string= - "Here \[\[http://orgmode.org/\]\[is Org's\]\] website" + "Here \[\[https://orgmode.org/\]\[is Org's\]\] website" (org-test-with-temp-text - "Here is <point>\[\[http://orgmode.org/\]\[Org's\]\] website" + "Here is <point>\[\[https://orgmode.org/\]\[Org's\]\] website" (org-link-edit-backward-slurp) (buffer-string)))) ;; Slurp one blob with trailing punctuation into bracket link. (should (string= - "Here \[\[http://orgmode.org/\]\[is: Org's\]\] website." + "Here \[\[https://orgmode.org/\]\[is: Org's\]\] website." (org-test-with-temp-text - "Here is: <point>\[\[http://orgmode.org/\]\[Org's\]\] website." + "Here is: <point>\[\[https://orgmode.org/\]\[Org's\]\] website." (org-link-edit-backward-slurp) (buffer-string)))) ;; Slurp all-punctuation blob into bracket link. (should (string= - "Here \[\[http://orgmode.org/\]\[... Org's\]\] website." + "Here \[\[https://orgmode.org/\]\[... Org's\]\] website." (org-test-with-temp-text - "Here ... <point>\[\[http://orgmode.org/\]\[Org's\]\] website." + "Here ... <point>\[\[https://orgmode.org/\]\[Org's\]\] website." (org-link-edit-backward-slurp) (buffer-string)))) ;; Slurping blob with point beyond link, but technically still ;; within link element. (should (string= - "\[\[http://orgmode.org/\]\[Org's website\]\] is" + "\[\[https://orgmode.org/\]\[Org's website\]\] is" (org-test-with-temp-text - "Org's \[\[http://orgmode.org/\]\[website\]\] <point> is" + "Org's \[\[https://orgmode.org/\]\[website\]\] <point> is" (org-link-edit-backward-slurp) (buffer-string)))) ;; Slurp two blobs into plain link. (should (string= - "\[\[http://orgmode.org/\]\[Here is\]\] Org's website" + "\[\[https://orgmode.org/\]\[Here is\]\] Org's website" (org-test-with-temp-text - "Here is <point>http://orgmode.org/ Org's website" + "Here is <point>https://orgmode.org/ Org's website" (org-link-edit-backward-slurp 2) (buffer-string)))) ;; Slurp two blobs into bracket link. (should (string= - "\[\[http://orgmode.org/\]\[Here is Org's\]\] website" + "\[\[https://orgmode.org/\]\[Here is Org's\]\] website" (org-test-with-temp-text - "Here is <point>\[\[http://orgmode.org/\]\[Org's\]\] website" + "Here is <point>\[\[https://orgmode.org/\]\[Org's\]\] website" (org-link-edit-backward-slurp 2) (buffer-string)))) ;; Slurp new line as space. (should (string= - "Here \[\[http://orgmode.org/\]\[is Org's website\]\]" + "Here \[\[https://orgmode.org/\]\[is Org's website\]\]" (org-test-with-temp-text "Here is -<point>\[\[http://orgmode.org/\]\[Org's website\]\]" +<point>\[\[https://orgmode.org/\]\[Org's website\]\]" (org-link-edit-backward-slurp 1) (buffer-string)))) ;; Collapse stretches of new lines. (should (string= - "\[\[http://orgmode.org/\]\[Here is Org's website\]\]" + "\[\[https://orgmode.org/\]\[Here is Org's website\]\]" (org-test-with-temp-text "Here\n\nis\n\n\n -<point>\[\[http://orgmode.org/\]\[Org's website\]\]" +<point>\[\[https://orgmode.org/\]\[Org's website\]\]" (org-link-edit-backward-slurp 2) (buffer-string)))) ;; Slurp blob that has no whitespace. (should (string= - "Here \[\[http://orgmode.org/\]\[is\]\] Org's website" + "Here \[\[https://orgmode.org/\]\[is\]\] Org's website" (org-test-with-temp-text - "Here is<point>\[\[http://orgmode.org/\]\] Org's website" + "Here is<point>\[\[https://orgmode.org/\]\] Org's website" (org-link-edit-backward-slurp 1) (buffer-string)))) ;; Slurp blob that isn't separated from link by whitespace. (should (string= - "Here \[\[http://orgmode.org/\]\[is-\]\] Org's website" + "Here \[\[https://orgmode.org/\]\[is-\]\] Org's website" (org-test-with-temp-text - "Here is-<point>\[\[http://orgmode.org/\]\] Org's website" + "Here is-<point>\[\[https://orgmode.org/\]\] Org's website" (org-link-edit-backward-slurp 1) (buffer-string)))) ;; Slurp beyond the number of present blobs. (should-error (org-test-with-temp-text - "Here is <point>\[\[http://orgmode.org/\]\[Org's\]\] website" + "Here is <point>\[\[https://orgmode.org/\]\[Org's\]\] website" (org-link-edit-backward-slurp 3)) :type 'user-error)) @@ -268,21 +268,21 @@ website is" (should (string= (org-test-with-temp-text - "Here is <point>\[\[http://orgmode.org/\]\[Org's\]\] website" + "Here is <point>\[\[https://orgmode.org/\]\[Org's\]\] website" (org-link-edit-forward-slurp 1) (buffer-string)) (org-test-with-temp-text - "Here is <point>\[\[http://orgmode.org/\]\[Org's\]\] website" + "Here is <point>\[\[https://orgmode.org/\]\[Org's\]\] website" (org-link-edit-backward-slurp -1) (buffer-string)))) (should (string= (org-test-with-temp-text - "Here is <point>\[\[http://orgmode.org/\]\[Org's\]\] website" + "Here is <point>\[\[https://orgmode.org/\]\[Org's\]\] website" (org-link-edit-forward-slurp -1) (buffer-string)) (org-test-with-temp-text - "Here is <point>\[\[http://orgmode.org/\]\[Org's\]\] website" + "Here is <point>\[\[https://orgmode.org/\]\[Org's\]\] website" (org-link-edit-backward-slurp) (buffer-string))))) @@ -294,56 +294,56 @@ website is" ;; Barf last blob. (should (string= - "Org's \[\[http://orgmode.org/\]\] website is" + "Org's \[\[https://orgmode.org/\]\] website is" (org-test-with-temp-text - "Org's <point>\[\[http://orgmode.org/\]\[website\]\] is" + "Org's <point>\[\[https://orgmode.org/\]\[website\]\] is" (org-link-edit-forward-barf) (buffer-string)))) ;; Barfing last blob with point beyond link, but technically still ;; within link element. (should (string= - "Org's \[\[http://orgmode.org/\]\] website is" + "Org's \[\[https://orgmode.org/\]\] website is" (org-test-with-temp-text - "Org's \[\[http://orgmode.org/\]\[website\]\] <point> is" + "Org's \[\[https://orgmode.org/\]\[website\]\] <point> is" (org-link-edit-forward-barf) (buffer-string)))) ;; Barf last blob with puctuation. (should (string= - "Org's \[\[http://orgmode.org/\]\] website," + "Org's \[\[https://orgmode.org/\]\] website," (org-test-with-temp-text - "Org's <point>\[\[http://orgmode.org/\]\[website,\]\]" + "Org's <point>\[\[https://orgmode.org/\]\[website,\]\]" (org-link-edit-forward-barf) (buffer-string)))) ;; Barf last blob, all punctuation. (should (string= - "Org's \[\[http://orgmode.org/\]\] ..." + "Org's \[\[https://orgmode.org/\]\] ..." (org-test-with-temp-text - "Org's <point>\[\[http://orgmode.org/\]\[...\]\]" + "Org's <point>\[\[https://orgmode.org/\]\[...\]\]" (org-link-edit-forward-barf) (buffer-string)))) ;; Barf two last blobs. (should (string= - "Org's \[\[http://orgmode.org/\]\] website is" + "Org's \[\[https://orgmode.org/\]\] website is" (org-test-with-temp-text - "Org's <point>\[\[http://orgmode.org/\]\[website is\]\]" + "Org's <point>\[\[https://orgmode.org/\]\[website is\]\]" (org-link-edit-forward-barf 2) (buffer-string)))) ;; Barf one blob, not last. (should (string= - "Org's \[\[http://orgmode.org/\]\[website\]\] is" + "Org's \[\[https://orgmode.org/\]\[website\]\] is" (org-test-with-temp-text - "Org's <point>\[\[http://orgmode.org/\]\[website is\]\]" + "Org's <point>\[\[https://orgmode.org/\]\[website is\]\]" (org-link-edit-forward-barf 1) (buffer-string)))) ;; Barf beyond the number of present blobs. (should-error (org-test-with-temp-text - "Org's <point>\[\[http://orgmode.org/\]\[website is\]\]" + "Org's <point>\[\[https://orgmode.org/\]\[website is\]\]" (org-link-edit-forward-barf 3)) :type 'user-error)) @@ -352,64 +352,64 @@ website is" ;; Barf last blob. (should (string= - "Org's website \[\[http://orgmode.org/\]\] is" + "Org's website \[\[https://orgmode.org/\]\] is" (org-test-with-temp-text - "Org's <point>\[\[http://orgmode.org/\]\[website\]\] is" + "Org's <point>\[\[https://orgmode.org/\]\[website\]\] is" (org-link-edit-backward-barf) (buffer-string)))) ;; Barfing last blob with point beyond link, but technically still ;; within link element. (should (string= - "Org's website \[\[http://orgmode.org/\]\] is" + "Org's website \[\[https://orgmode.org/\]\] is" (org-test-with-temp-text - "Org's \[\[http://orgmode.org/\]\[website\]\] <point> is" + "Org's \[\[https://orgmode.org/\]\[website\]\] <point> is" (org-link-edit-backward-barf) (buffer-string)))) ;; Barf last blob with puctuation. (should (string= - "Org's website: \[\[http://orgmode.org/\]\]" + "Org's website: \[\[https://orgmode.org/\]\]" (org-test-with-temp-text - "Org's <point>\[\[http://orgmode.org/\]\[website:\]\]" + "Org's <point>\[\[https://orgmode.org/\]\[website:\]\]" (org-link-edit-backward-barf) (buffer-string)))) ;; Barf last all-puctuation blob. (should (string= - "Org's ... \[\[http://orgmode.org/\]\]" + "Org's ... \[\[https://orgmode.org/\]\]" (org-test-with-temp-text - "Org's <point>\[\[http://orgmode.org/\]\[...\]\]" + "Org's <point>\[\[https://orgmode.org/\]\[...\]\]" (org-link-edit-backward-barf) (buffer-string)))) ;; Barf two last blobs. (should (string= - "Org's website is \[\[http://orgmode.org/\]\]" + "Org's website is \[\[https://orgmode.org/\]\]" (org-test-with-temp-text - "Org's <point>\[\[http://orgmode.org/\]\[website is\]\]" + "Org's <point>\[\[https://orgmode.org/\]\[website is\]\]" (org-link-edit-backward-barf 2) (buffer-string)))) ;; Barf one blob, not last. (should (string= - "Org's website \[\[http://orgmode.org/\]\[is\]\]" + "Org's website \[\[https://orgmode.org/\]\[is\]\]" (org-test-with-temp-text - "Org's <point>\[\[http://orgmode.org/\]\[website is\]\]" + "Org's <point>\[\[https://orgmode.org/\]\[website is\]\]" (org-link-edit-backward-barf 1) (buffer-string)))) ;; Barf one blob with punctuation, not last. (should (string= - "Org's website. \[\[http://orgmode.org/\]\[is\]\]" + "Org's website. \[\[https://orgmode.org/\]\[is\]\]" (org-test-with-temp-text - "Org's <point>\[\[http://orgmode.org/\]\[website. is\]\]" + "Org's <point>\[\[https://orgmode.org/\]\[website. is\]\]" (org-link-edit-backward-barf 1) (buffer-string)))) ;; Barf beyond the number of present blobs. (should-error (org-test-with-temp-text - "Org's <point>\[\[http://orgmode.org/\]\[website is\]\]" + "Org's <point>\[\[https://orgmode.org/\]\[website is\]\]" (org-link-edit-backward-barf 3)) :type 'user-error)) @@ -419,21 +419,21 @@ website is" (should (string= (org-test-with-temp-text - "Here is <point>\[\[http://orgmode.org/\]\[Org's\]\] website" + "Here is <point>\[\[https://orgmode.org/\]\[Org's\]\] website" (org-link-edit-forward-barf 1) (buffer-string)) (org-test-with-temp-text - "Here is <point>\[\[http://orgmode.org/\]\[Org's\]\] website" + "Here is <point>\[\[https://orgmode.org/\]\[Org's\]\] website" (org-link-edit-backward-barf -1) (buffer-string)))) (should (string= (org-test-with-temp-text - "Here is <point>\[\[http://orgmode.org/\]\[Org's\]\] website" + "Here is <point>\[\[https://orgmode.org/\]\[Org's\]\] website" (org-link-edit-forward-barf -1) (buffer-string)) (org-test-with-temp-text - "Here is <point>\[\[http://orgmode.org/\]\[Org's\]\] website" + "Here is <point>\[\[https://orgmode.org/\]\[Org's\]\] website" (org-link-edit-backward-barf) (buffer-string))))) @@ -452,30 +452,30 @@ website is" "Test `org-link-edit-forward-barf' and `org-link-edit-backward-barf' reversibility." (should - (string= "Here is \[\[http://orgmode.org/\]\[Org's\]\] website" + (string= "Here is \[\[https://orgmode.org/\]\[Org's\]\] website" (org-test-with-temp-text - "Here is <point>\[\[http://orgmode.org/\]\[Org's\]\] website" + "Here is <point>\[\[https://orgmode.org/\]\[Org's\]\] website" (org-link-edit-forward-barf 1) (org-link-edit-forward-slurp 1) (buffer-string)))) (should - (string= "Here is \[\[http://orgmode.org/\]\] Org's website" + (string= "Here is \[\[https://orgmode.org/\]\] Org's website" (org-test-with-temp-text - "Here is <point>\[\[http://orgmode.org/\]\] Org's website" + "Here is <point>\[\[https://orgmode.org/\]\] Org's website" (org-link-edit-forward-slurp 1) (org-link-edit-forward-barf 1) (buffer-string)))) (should - (string= "Here is \[\[http://orgmode.org/\]\[Org's\]\] website" + (string= "Here is \[\[https://orgmode.org/\]\[Org's\]\] website" (org-test-with-temp-text - "Here is <point>\[\[http://orgmode.org/\]\[Org's\]\] website" + "Here is <point>\[\[https://orgmode.org/\]\[Org's\]\] website" (org-link-edit-backward-barf 1) (org-link-edit-backward-slurp 1) (buffer-string)))) (should - (string= "Here is \[\[http://orgmode.org/\]\[Org's\]\] website" + (string= "Here is \[\[https://orgmode.org/\]\[Org's\]\] website" (org-test-with-temp-text - "Here is <point>\[\[http://orgmode.org/\]\[Org's\]\] website" + "Here is <point>\[\[https://orgmode.org/\]\[Org's\]\] website" (org-link-edit-backward-slurp 1) (org-link-edit-backward-barf 1) (buffer-string)))) @@ -489,9 +489,9 @@ website is" (buffer-string)))) ;; Failed round trip because of newline. (should - (string= "Here is \[\[http://orgmode.org/\]\[Org's\]\] website" + (string= "Here is \[\[https://orgmode.org/\]\[Org's\]\] website" (org-test-with-temp-text - "Here is <point>\[\[http://orgmode.org/\]\[Org's\]\] + "Here is <point>\[\[https://orgmode.org/\]\[Org's\]\] website" (org-link-edit-forward-slurp 1) (org-link-edit-forward-barf 1) @@ -499,9 +499,9 @@ website" ;; Failed round trip because of empty description and more than one ;; whitespace. (should - (string= "Here is \[\[http://orgmode.org/\]\] website" + (string= "Here is \[\[https://orgmode.org/\]\] website" (org-test-with-temp-text - "Here is <point>\[\[http://orgmode.org/\]\] website" + "Here is <point>\[\[https://orgmode.org/\]\] website" (org-link-edit-forward-slurp 1) (org-link-edit-forward-barf 1) (buffer-string))))) @@ -513,68 +513,68 @@ website" "Test `org-link-edit-transport-next-link'." ;; Transport next link to word at point. (should - (string= "Here is \[\[http://orgmode.org/\]\[Org's\]\] website " + (string= "Here is \[\[https://orgmode.org/\]\[Org's\]\] website " (org-test-with-temp-text - "Here is <point>Org's website http://orgmode.org/" + "Here is <point>Org's website https://orgmode.org/" (org-link-edit-transport-next-link) (buffer-string)))) ;; Transport previous link to word at point. (should - (string= " Here is \[\[http://orgmode.org/\]\[Org's\]\] website" + (string= " Here is \[\[https://orgmode.org/\]\[Org's\]\] website" (org-test-with-temp-text - "http://orgmode.org/ Here is <point>Org's website" + "https://orgmode.org/ Here is <point>Org's website" (org-link-edit-transport-next-link 'previous) (buffer-string)))) ;; Transport next link to the active region. (should - (string= "\[\[http://orgmode.org/\]\[Here is Org's\]\] website " + (string= "\[\[https://orgmode.org/\]\[Here is Org's\]\] website " (org-test-with-temp-text - "Here is Org's<point> website http://orgmode.org/" + "Here is Org's<point> website https://orgmode.org/" (org-link-edit-transport-next-link nil (point-min) (point)) (buffer-string)))) ;; When a lisp caller gives BEG and END explicitly, they take ;; precedence over point. (should - (string= "Here is \[\[http://orgmode.org/\]\[Org's\]\] website " + (string= "Here is \[\[https://orgmode.org/\]\[Org's\]\] website " (org-test-with-temp-text - "<point>Here is Org's website http://orgmode.org/" + "<point>Here is Org's website https://orgmode.org/" (org-link-edit-transport-next-link nil 9 14) (buffer-string)))) ;; Transport previous link to the active region. (should - (string= " Here is \[\[http://orgmode.org/\]\[Org's website\]\]" + (string= " Here is \[\[https://orgmode.org/\]\[Org's website\]\]" (org-test-with-temp-text - "http://orgmode.org/ Here is <point>Org's website" + "https://orgmode.org/ Here is <point>Org's website" (org-link-edit-transport-next-link 'previous (point) (point-max)) (buffer-string)))) ;; Transport next link with point on whitespace. (should - (string= "Here is\[\[http://orgmode.org/\]\] Org's website " + (string= "Here is\[\[https://orgmode.org/\]\] Org's website " (org-test-with-temp-text - "Here is<point> Org's website http://orgmode.org/" + "Here is<point> Org's website https://orgmode.org/" (org-link-edit-transport-next-link) (buffer-string)))) ;; Transported links are allow to have an existing description when ;; point is on whitespace. (should (string= - "Here is\[\[http://orgmode.org/\]\[description\]\] Org's website " + "Here is\[\[https://orgmode.org/\]\[description\]\] Org's website " (org-test-with-temp-text - "Here is<point> Org's website \[\[http://orgmode.org/\]\[description\]\]" + "Here is<point> Org's website \[\[https://orgmode.org/\]\[description\]\]" (org-link-edit-transport-next-link) (buffer-string)))) ;; Fail if point is on a link. (should-error (org-test-with-temp-text - "Here is Org's website http://orgmode.org/<point>" + "Here is Org's website https://orgmode.org/<point>" (org-link-edit-transport-next-link)) :type 'user-error) (should-error (org-test-with-temp-text - "Here is Org's website <point>http://orgmode.org/" + "Here is Org's website <point>https://orgmode.org/" (org-link-edit-transport-next-link nil (point-min) (point))) :type 'user-error) @@ -582,20 +582,20 @@ website" ;; the overwrite. (should-error (org-test-with-temp-text - "Here is <point>Org's website \[\[http://orgmode.org/\]\[description\]\]" + "Here is <point>Org's website \[\[https://orgmode.org/\]\[description\]\]" (cl-letf (((symbol-function 'y-or-n-p) (lambda (_) nil))) (call-interactively #'org-link-edit-transport-next-link))) :type 'user-error) (should-error (org-test-with-temp-text - "Here is <point>Org's website \[\[http://orgmode.org/\]\[description\]\]" + "Here is <point>Org's website \[\[https://orgmode.org/\]\[description\]\]" (org-link-edit-transport-next-link)) :type 'user-error) (should (string= - "Here is \[\[http://orgmode.org/\]\[Org's\]\] website " + "Here is \[\[https://orgmode.org/\]\[Org's\]\] website " (org-test-with-temp-text - "Here is <point>Org's website \[\[http://orgmode.org/\]\[description\]\]" + "Here is <point>Org's website \[\[https://orgmode.org/\]\[description\]\]" (org-link-edit-transport-next-link nil nil nil 'overwrite) (buffer-string))))) @@ -606,19 +606,19 @@ website" "Test `org-link-edit--on-link-p'." ;; On plain link (should - (org-test-with-temp-text "http://orgmode.org/" + (org-test-with-temp-text "https://orgmode.org/" (org-link-edit--on-link-p))) ;; On bracket link (should - (org-test-with-temp-text "\[\[http://orgmode.org/\]\[org\]\]" + (org-test-with-temp-text "\[\[https://orgmode.org/\]\[org\]\]" (org-link-edit--on-link-p))) ;; Point beyond link, but technically still within link element. (should - (org-test-with-temp-text "\[\[http://orgmode.org/\]\[org\]\] <point>" + (org-test-with-temp-text "\[\[https://orgmode.org/\]\[org\]\] <point>" (org-link-edit--on-link-p))) ;; Not on a link (should-not - (org-test-with-temp-text " \[\[http://orgmode.org/\]\[org\]\]" + (org-test-with-temp-text " \[\[https://orgmode.org/\]\[org\]\]" (org-link-edit--on-link-p))) (should-not (org-test-with-temp-text "not a link" @@ -628,15 +628,15 @@ website" "Test `org-link-edit--link-data'." ;; Plain link (cl-multiple-value-bind (beg end link desc) - (org-test-with-temp-text "http://orgmode.org/" + (org-test-with-temp-text "https://orgmode.org/" (org-link-edit--link-data)) - (should (string= link "http://orgmode.org/")) + (should (string= link "https://orgmode.org/")) (should-not desc)) ;; Bracket link (cl-multiple-value-bind (beg end link desc) - (org-test-with-temp-text "\[\[http://orgmode.org/\]\[org\]\]" + (org-test-with-temp-text "\[\[https://orgmode.org/\]\[org\]\]" (org-link-edit--link-data)) - (should (string= link "http://orgmode.org/")) + (should (string= link "https://orgmode.org/")) (should (string= desc "org")))) (ert-deftest test-org-link-edit/forward-blob () |