Bug: org-git-link.el broken [9.0.5 (release_9.0.5 @ /home/leo/.emacs.d/elisp/org-mode.git/lisp/)]

Bug: org-git-link.el broken [9.0.5 (release_9.0.5 @ /home/leo/.emacs.d/elisp/org-mode.git/lisp/)]

[Leo Alekseyev]

[-- Attachment #1: Type: text/plain, Size: 9662 bytes --]

org-store-link fails inside org-git-link if org-git-link is enabled with
(require 'org-git-link)

From what I can tell in the debugger, the code walks up the directory tree
looking for .git files in a parent directory.  However, when I am inside
e.g. "~/foo.el", at some point the code will execute (org-git-split-dirpath
"~/")  (org-git-link.el line 129), which evaluates to (nil, "~").  dir will
subsequently be set to nil on line 132, which results in an error.


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.
------------------------------------------------------------------------



Emacs  : GNU Emacs 26.0.50 (build 2, x86_64-pc-linux-gnu, GTK+ Version
3.18.9)
 of 2017-03-20
Package: Org mode version 9.0.5 (release_9.0.5 @
/home/leo/.emacs.d/elisp/org-mode.git/lisp/)

current state:
==============
(setq
 org-babel-results-keyword "results"
 org-src-mode-hook '((lambda nil (auto-save-mode t)) (lambda nil
(define-key org-src-mode-map " @" (quote
org-src-do-key-sequence-at-code-block)))
                     org-src-babel-configure-edit-buffer
org-src-mode-configure-edit-buffer)
 org-after-todo-state-change-hook '(org-clock-out-if-current)
 org-metadown-hook '(org-babel-pop-to-session-maybe)
 org-clock-out-hook '(org-clock-remove-empty-clock-drawer)
 org-edit-src-content-indentation 0
 org-src-tab-acts-natively t
 org-agenda-files '("~/My Dropbox/notes.org/memos.txt")
 org-shiftup-final-hook '(windmove-up)
 org-cycle-include-plain-lists nil
 org-mode-hook '(er/add-org-mode-expansions turn-on-font-lock flyspell-mode
                 (lambda nil (auto-fill-mode t) (setq adaptive-fill-regexp
nil) (setq comment-start nil))
                 (closure
                  (org-inlinetask-min-level org-mode-abbrev-table
org-mode-syntax-table buffer-face-mode-face org-mode-map org-tbl-menu
org-org-menu
                   org-struct-menu org-entities org-last-state
org-id-track-globally org-clock-start-time texmathp-why remember-data-file
                   org-agenda-tags-todo-honor-ignore-options
iswitchb-temp-buflist calc-embedded-open-mode calc-embedded-open-formula
                   calc-embedded-close-formula align-mode-rules-list
org-emphasis-alist org-emphasis-regexp-components
org-export-registered-backends
                   org-modules org-babel-load-languages t)
                  nil (add-hook (quote change-major-mode-hook) (quote
org-show-block-all) (quote append) (quote local)))
                 (closure
                  (org-bracket-link-regexp org-src-window-setup *this*
org-babel-confirm-evaluate-answer-no org-src-preserve-indentation
org-src-lang-modes
                   org-edit-src-content-indentation
org-babel-library-of-babel t)
                  nil (add-hook (quote change-major-mode-hook) (quote
org-babel-show-result-all) (quote append) (quote local)))
                 org-babel-result-hide-spec org-babel-hide-all-hashes)
 org-outline-path-complete-in-steps nil
 org-archive-hook '(org-attach-archive-delete-maybe)
 org-confirm-elisp-link-function 'yes-or-no-p
 org-agenda-before-write-hook '(org-agenda-add-entry-text)
 org-metaup-hook '(org-babel-load-in-session-maybe)
 org-shiftdown-final-hook '(windmove-down)
 org-babel-pre-tangle-hook '(save-buffer)
 org-file-apps '(("\\.nb\\'" .
"/opt/Wolfram/Mathematica/8.0/Executables/Mathematica %s") ("\\.xoj\\'" .
"xournal %s") ("\\.pdf\\'" . "evince %s")
                 (" \\.pdf::\\([0-9]+\\)\\'" . "evince %s -p %1")
(auto-mode . emacs) ("\\.x?html?\\'" . default) ("\\.nb\\'" . "mathematica
%s"))
 org-tab-first-hook '(org-babel-hide-result-toggle-maybe
org-babel-header-arg-expand)
 org-hide-leading-stars t
 org-babel-load-languages '((R . t) (shell . t) (python . t) (perl . t) (C
. t) (matlab . t) (latex . t) (scheme . t) (scala . t) (ruby . t) (sqlite .
t)
                            (java . t) (js . t) (elasticsearch . t))
 org-shiftright-final-hook '(windmove-right)
 org-occur-hook '(org-first-headline-recenter)
 outline-minor-mode-hook '(th-outline-minor-mode-init
                           (lambda nil (define-key outline-minor-mode-map
(kbd "TAB") (quote org-cycle))
                            (define-key outline-minor-mode-map [(tab)]
(quote org-cycle))
                            (define-key outline-minor-mode-map [(shift
tab)] (quote org-global-cycle))
                            (define-key outline-minor-mode-map [backtab]
(quote org-global-cycle)))
                           )
 org-structure-template-alist '(("s" "#+begin_src ?\n\n#+end_src" "<src
lang=\"?\">\n\n</src>")
                                ("e" "#+begin_example\n?\n#+end_example"
"<example>\n?\n</example>")
                                ("q" "#+begin_quote\n?\n#+end_quote"
"<quote>\n?\n</quote>") ("v" "#+begin_verse\n?\n#+end_verse"
"<verse>\n?\n</verse>")
                                ("c" "#+begin_center\n?\n#+end_center"
"<center>\n?\n</center>")
                                ("l" "#+begin_latex\n?\n#+end_latex"
"<literal style=\"latex\">\n?\n</literal>")
                                ("L" "#+latex: " "<literal
style=\"latex\">?</literal>")
                                ("h" "#+begin_html\n?\n#+end_html"
"<literal style=\"html\">\n?\n</literal>")
                                ("H" "#+html: " "<literal
style=\"html\">?</literal>") ("a" "#+begin_ascii\n?\n#+end_ascii") ("A"
"#+ascii: ")
                                ("i" "#+index: ?" "#+index: ?") ("I"
"#+include %file ?" "<include file=%file markup=\"?\">"))
 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" "WAIT" "|" "DONE" "CANCELED"))
 org-speed-command-hook '(org-speed-command-default-hook
org-babel-speed-command-hook)
 org-replace-disputed-keys t
 org-shiftleft-final-hook '(windmove-left)
 org-babel-tangle-lang-exts '(("es" . "es") ("java" . "java") ("ruby" .
"rb") ("scala" . "scala") ("latex" . "tex") ("D" . "d") ("C++" . "cpp")
                              ("perl" . "pl") ("python" . "py")
("emacs-lisp" . "el") ("elisp" . "el"))
 org-return-follows-link t
 org-src-ask-before-returning-to-edit-buffer nil
 org-confirm-shell-link-function 'yes-or-no-p
 org-link-parameters '(("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) ("man" :follow
org-man-open :export org-man-export :store org-man-store-link)
                       ("git" :follow org-git-open :store
org-git-store-link) ("gitbare" :follow org-gitbare-open)
                       ("occur" :follow org-occur-open :export nil)
("file+sys") ("file+emacs") ("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))))
                       ("message" :follow (lambda (path) (browse-url
(concat "message:" path))))
                       ("news" :follow (lambda (path) (browse-url (concat
"news:" path)))) ("shell" :follow org--open-shell-link))
 org-disputed-keys '(([(shift up)] . [(meta p)]) ([(shift down)] . [(meta
n)]) ([(shift left)] . [(meta -)]) ([(shift right)] . [(meta +)])
                     ([(meta return)] . [(control meta return)]) ([(control
shift right)] . [(meta shift +)]) ([(control shift left)] . [(meta shift
-)]))
 org-entities-user '(("bbE" "\\mathbb{E}" t "E" "E" "E" "E") ("bbR"
"\\mathbb{R}" t "R" "R" "R" "ℝ") ("bbC" "\\mathbb{C}" t "C" "C" "C" "ℂ")
                     ("bbZ" "\\mathbb{Z}" t "Z" "Z" "Z" "ℤ") ("bbP"
"\\mathbb{P}" t "P" "P" "P" "ℙ") ("bbQ" "\\mathbb{Q}" t "Q" "Q" "Q" "ℚ")
                     ("bbN" "\\mathbb{N}" t "N" "N" "N" "ℕ") ("calN"
"\\mathcal{N}" t "N" "N" "N" "N") ("calO" "\\mathcal{O}" t "O" "O" "O" "O")
                     ("calF" "\\mathcal{F}" t "F" "F" "F" "ℱ") ("hbar"
"\\hbar" t "&#8463;" "hbar" "hbar" "ℏ")
                     ("sqrt" "\\sqrt{\\,}" t "&radic;" "[square root]"
"[square root]" "√"))
 org-src-window-setup 'current-window
 org-confirm-babel-evaluate nil
 org-directory "~/Dropbox/org/"
 org-goto-interface 'outline-path-completion
 org-use-speed-commands t
 org-default-notes-file "~/Dropbox/org//org-capture.org"
 )

[-- Attachment #2: Type: text/html, Size: 13767 bytes --]