Bug: org-insert-link doesn't work for URL links [9.1.4 (9.1.4-13-g84cb63-elpaplus @ /Users/ag.ibragimov/.emacs.d/elpa/26.0/develop/org-plus-contrib-20171218/)]

Bug: org-insert-link doesn't work for URL links [9.1.4 (9.1.4-13-g84cb63-elpaplus @ /Users/ag.ibragimov/.emacs.d/elpa/26.0/develop/org-plus-contrib-20171218/)]

[Ag Ibragimov]

Remember to cover the basics, that is, what you expected to happen and
what in fact did happen.  You don't know how to make a good report?  See

     http://orgmode.org/manual/Feedback.html#Feedback

Your bug report will be posted to the Org mailing list.
------------------------------------------------------------------------

# Description:
After you store a link to a heading that itself contains a URL link,
and then insert that stored link to another .org document - it mangles the link.

# To reproduce

1) In a document A:
 create a heading, make the title of the heading a link, eg.

    * [[https://www.google.com/][google]]

2) Store the link to the heading: `M-x org-store-link`
3) Insert the link in a document B: `M-x org-insert-last-stored-link`
4) Examine the inserted item, see that the URL is encoded and jumping
back to the heading in document A doesn't work

Emacs  : GNU Emacs 26.0.90 (build 1, x86_64-apple-darwin16.7.0, NS appkit-1504.83 Version 10.12.6 (Build 16G29))
 of 2017-12-19
Package: Org mode version 9.1.4 (9.1.4-13-g84cb63-elpaplus @ /Users/ag.ibragimov/.emacs.d/elpa/26.0/develop/org-plus-contrib-20171218/)

current state:
==============
(setq
 org-src-mode-hook '(org-src-babel-configure-edit-buffer org-src-mode-configure-edit-buffer)
 org-after-todo-state-change-hook '(org-clock-out-if-current)
 org-blank-before-new-entry nil
 org-babel-after-execute-hook '(spacemacs/ob-fix-inline-images)
 org-twbs-format-inlinetask-function 'ignore
 org-metadown-hook '(org-babel-pop-to-session-maybe)
 org-clock-out-hook '(org-clock-remove-empty-clock-drawer)
 org-refile-targets '((nil :maxlevel . 3) (org-agenda-files :maxlevel . 3))
 org-html-format-inlinetask-function 'org-html-format-inlinetask-default-function
 org-enforce-todo-dependencies t
 org-src-tab-acts-natively t
 org-odt-format-headline-function 'org-odt-format-headline-default-function
 org-imenu-depth 8
 org-download-annotate-function 'org-download-annotate-default
 org-agenda-files "~/Dropbox/org/.agenda-files"
 org-ascii-format-inlinetask-function 'org-ascii-format-inlinetask-default
 org-clock-report-include-clocking-task t
 org-blocker-hook '(org-block-todo-from-checkboxes org-block-todo-from-children-or-siblings-or-parent)
 org-mode-hook '(er/add-org-mode-expansions abbrev-mode spacemacs/toggle-visual-line-navigation-on ag/org-mode-hook
                 org-clock-load
                 #[0 "\300\301\302\303\304$\207" [add-hook change-major-mode-hook org-show-block-all append local] 5]
                 #[0 "\300\301\302\303\304$\207"
                   [add-hook change-major-mode-hook org-babel-show-result-all append local] 5]
                 org-babel-result-hide-spec org-babel-hide-all-hashes spacemacs/load-yasnippet toc-org-enable
                 org-download-enable org-bullets-mode dotspacemacs//prettify-spacemacs-docs
                 spacemacs//org-babel-do-load-languages flyspell-mode spacemacs/add-org-surrounds
                 spacemacs//evil-org-mode spacemacs/delay-emoji-cheat-sheet-hook org-eldoc-load
                 spacemacs//init-company-org-mode company-mode)
 org-clock-persist t
 org-odt-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME CONTENTS)"]
 org-archive-hook '(org-attach-archive-delete-maybe)
 org-agenda-restore-windows-after-quit t
 org-confirm-elisp-link-function 'yes-or-no-p
 org-src-fontify-natively nil
 org-startup-with-inline-images t
 org-reverse-note-order t
 org-timer-done-hook '((lambda nil (hs-alert "-- timer done! --")))
 org-agenda-before-write-hook '(org-agenda-add-entry-text)
 org-metaup-hook '(org-babel-load-in-session-maybe)
 org-bibtex-headline-format-function #[257 "\300.\236A\207" [:title] 3 "\n\n(fn ENTRY)"]
 org-from-is-user-regexp "\\<ag\\.ibragimov@C02PQ1QFFVH8\\>\\|\\<Ag Ibragimov\\>"
 org-latex-format-drawer-function #[514 "\207" [] 3 "\n\n(fn _ CONTENTS)"]
 org-babel-pre-tangle-hook '(save-buffer)
 org-tab-first-hook '(org-babel-hide-result-toggle-maybe org-babel-header-arg-expand)
 org-babel-load-languages '((emacs-lisp . t) (shell . t) (js . t) (clojure . t) (ruby . t))
 org-log-done 'time
 org-babel-post-tangle-hook '(ag/set-tangled-file-permissions)
 org-ascii-format-drawer-function #[771 ".\207" [] 4 "\n\n(fn NAME CONTENTS WIDTH)"]
 org-ellipsis " ↴"
 org-list-demote-modify-bullet '(("+" . "-") ("-" . "+") ("*" . "+"))
 org-agenda-span 3
 org-fast-tag-selection-single-key t
 org-src-lang-modes '(("http" . "ob-http") ("ocaml" . tuareg) ("elisp" . emacs-lisp) ("ditaa" . artist)
                      ("asymptote" . asy) ("dot" . fundamental) ("sqlite" . sql) ("calc" . fundamental) ("C" . c)
                      ("cpp" . c++) ("C++" . c++) ("screen" . shell-script) ("shell" . sh) ("bash" . sh))
 org-catch-invisible-edits 'smart
 org-occur-hook '(org-first-headline-recenter)
 org-log-into-drawer t
 org-enforce-todo-checkbox-dependencies t
 org-structure-template-alist '(("n" "#+begin_notes\n?\n#+end_notes") ("s" "#+begin_src ?\n\n#+end_src")
                                ("e" "#+begin_example\n?\n#+end_example") ("q" "#+begin_quote\n?\n#+end_quote")
                                ("v" "#+begin_verse\n?\n#+end_verse") ("V" "#+begin_verbatim\n?\n#+end_verbatim")
                                ("c" "#+begin_center\n?\n#+end_center") ("C" "#+begin_comment\n?\n#+end_comment")
                                ("l" "#+begin_export latex\n?\n#+end_export") ("L" "#+latex: ")
                                ("h" "#+begin_export html\n?\n#+end_export") ("H" "#+html: ")
                                ("a" "#+begin_export ascii\n?\n#+end_export") ("A" "#+ascii: ") ("i" "#+index: ?")
                                ("I" "#+include: %file ?"))
 org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers org-cycle-show-empty-lines
                  org-optimize-window-after-visibility-change)
 org-todo-keywords '((sequence "TODO" "ONGOING" "DONE"))
 org-speed-command-hook '(org-speed-command-activate org-babel-speed-command-activate)
 org-clock-persist-file "/Users/ag.ibragimov/.emacs.d/.cache/org-clock-save.el"
 org-M-RET-may-split-line '((headline))
 org-odt-format-inlinetask-function 'org-odt-format-inlinetask-default-function
 org-show-notification-handler 'message
 org-babel-tangle-lang-exts '(("ruby" . "rb") ("clojure" . "clj") ("emacs-lisp" . "el") ("elisp" . "el"))
 org-publish-timestamp-directory "/Users/ag.ibragimov/.emacs.d/.cache/.org-timestamps/"
 org-refile-allow-creating-parent-nodes 'confirm
 org-export-async-init-file "/Users/ag.ibragimov/.emacs.d/layers/+emacs/org/local/org-async-init.el"
 org-src-ask-before-returning-to-edit-buffer nil
 org-id-locations-file "~/Dropbox/org/.org-id-locations"
 org-confirm-shell-link-function 'yes-or-no-p
 org-link-parameters '(("message" :follow org-mac-message-open)
                       ("x-devonthink-item" :follow org-devonthink-item-open)
                       ("mac-evernote" :follow org-mac-evernote-note-open)
                       ("mac-outlook" :follow org-mac-outlook-message-open) ("acrobat" :follow org-mac-acrobat-open)
                       ("skim" :follow org-mac-skim-open) ("addressbook" :follow org-mac-addressbook-item-open)
                       ("x-together-item" :follow org-mac-together-item-open) ("id" :follow org-id-open)
                       ("rmail" :follow org-rmail-open :store org-rmail-store-link)
                       ("mhe" :follow org-mhe-open :store org-mhe-store-link)
                       ("irc" :follow org-irc-visit :store org-irc-store-link)
                       ("info" :follow org-info-open :export org-info-export :store org-info-store-link)
                       ("gnus" :follow org-gnus-open :store org-gnus-store-link)
                       ("docview" :follow org-docview-open :export org-docview-export :store org-docview-store-link)
                       ("bibtex" :follow org-bibtex-open :store org-bibtex-store-link)
                       ("bbdb" :follow org-bbdb-open :export org-bbdb-export :complete org-bbdb-complete-link :store
                        org-bbdb-store-link)
                       ("w3m" :store org-w3m-store-link) ("file+sys") ("file+emacs")
                       ("orgit-rev" :store orgit-rev-store :follow orgit-rev-open :export orgit-rev-export :complete
                        orgit-rev-complete-link)
                       ("orgit-log" :store orgit-log-store :follow orgit-log-open :export orgit-log-export :complete
                        orgit-log-complete-link)
                       ("orgit" :store orgit-status-store :follow orgit-status-open :export orgit-status-export
                        :complete orgit-status-complete-link)
                       ("doi" :follow org--open-doi-link) ("elisp" :follow org--open-elisp-link)
                       ("file" :complete org-file-complete-link)
                       ("ftp" :follow (lambda (path) (browse-url (concat "ftp:" path))))
                       ("help" :follow org--open-help-link)
                       ("http" :follow (lambda (path) (browse-url (concat "http:" path))))
                       ("https" :follow (lambda (path) (browse-url (concat "https:" path))))
                       ("mailto" :follow (lambda (path) (browse-url (concat "mailto:" path))))
                       ("news" :follow (lambda (path) (browse-url (concat "news:" path))))
                       ("shell" :follow org--open-shell-link))
 org-agenda-skip-scheduled-if-done t
 org-log-states-order-reversed nil
 org-latex-format-headline-function 'org-latex-format-headline-default-function
 org-link-translation-function 'toc-org-unhrefify
 org-todo-keyword-faces '(("ONGOING" . "orange"))
 org-latex-format-inlinetask-function 'org-latex-format-inlinetask-default-function
 org-twbs-format-drawer-function '(lambda (name contents) contents)
 org-html-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME CONTENTS)"]
 org-image-actual-width nil
 org-clock-in-switch-to-state "ONGOING"
 org-html-format-headline-function 'org-html-format-headline-default-function
 org-src-window-setup 'current-window
 org-confirm-babel-evaluate nil
 org-directory "~/Dropbox/org"
 org-twbs-format-headline-function 'ignore
 org-goto-interface 'outline-path-completion
 org-agenda-skip-deadline-if-done t
 org-default-notes-file "~/Dropbox/org/notes.org"
 org-ctrl-k-protect-subtree t
 org-list-allow-alphabetical t
 org-descriptive-links nil
 org-clock-persist-query-resume nil
 )

Re: Bug: org-insert-link doesn't work for URL links [9.1.4 (9.1.4-13-g84cb63-elpaplus @ /Users/ag.ibragimov/.emacs.d/elpa/26.0/develop/org-plus-contrib-20171218/)]

[Nicolas Goaziou]

Hello,

Ag Ibragimov <agzam.ibragimov@gmail.com> writes:

> # Description:
> After you store a link to a heading that itself contains a URL link,
> and then insert that stored link to another .org document - it mangles the link.
>
> # To reproduce
>
> 1) In a document A:
>  create a heading, make the title of the heading a link, eg.
>
>     * [[https://www.google.com/][google]]
>
> 2) Store the link to the heading: `M-x org-store-link`
> 3) Insert the link in a document B: `M-x org-insert-last-stored-link`
> 4) Examine the inserted item, see that the URL is encoded and jumping
> back to the heading in document A doesn't work

Fixed. Thank you.

Regards,

-- 
Nicolas Goaziou