Tim,
i wonder if the emacs variable `load-history` might be of (approximate)
help? i submit a starter routine below. as the comments say: caveat,
caveat, caveat.
i don't think something as uncertain as this would be a candidate for
normal run-time checking (and, i'm not even sure when one would want to
run such a thing -- maybe as each module is loaded, if it were faster).
but, maybe it could be run as part of `M-x org-submit-bug-report`?
either to notify the user, or to include with the bug report?
wdyt? (such a nice acronym!)
cheers, Greg
----
notice the canned list of files. one could, i suspect, go find where
org.el came from, then use all the .el files there. (or the union of
all the files in *all* the directories that loaded an org.el.)
----
(defun org--check-load-history (&optional where)
"check to see if there *appears* to *maybe* have be a \"mixed
installation\" of org-mode running. if there appear to be more than
one directory holding org package(-like) files, the names of those
directories, along with the relevant files in each, are returned as
a vector of explanatory strings.
this routine is subject to both type I and type II errors (false
positives, false negatives). we have a canned list of org .el file
names, and we look to see if those files exist in more than one
directory that has been loaded (using the `load-list` variable).
if there does not appear to be the possibility of a \"mixed
installation\", the if the optional argument WHERE is non-nil, and
there is only one directory containing org package(-like) files,
that directory name is returned. if WHERE is nil, nil is returned."
(require 'seq)
(require 's)
(let* ((org-files
'("ob-lob.el" "oc-bibtex.el" "org-crypt.el" "org-persist.el"
"ob-C.el" "ob-lua.el" "oc-csl.el" "org-ctags.el" "org-plot.el"
"ob-R.el" "ob-makefile.el" "oc-natbib.el" "org-datetree.el"
"org-protocol.el"
"ob-awk.el" "ob-matlab.el" "oc.el" "org-duration.el" "org-refile.el"
"ob-calc.el" "ob-maxima.el" "ol-bbdb.el" "org-element.el"
"org-src.el"
"ob-clojure.el" "ob-ocaml.el" "ol-bibtex.el" "org-entities.el"
"org-table.el"
"ob-comint.el" "ob-octave.el" "ol-docview.el" "org-faces.el"
"org-tempo.el"
"ob-core.el" "ob-org.el" "ol-doi.el" "org-feed.el" "org-timer.el"
"ob-css.el" "ob-perl.el" "ol-eshell.el" "org-footnote.el"
"org-version.el"
"ob-ditaa.el" "ob-plantuml.el" "ol-eww.el" "org-goto.el"
"org-version.el~"
"ob-dot.el" "ob-processing.el" "ol-gnus.el" "org-habit.el" "org.el"
"ob-emacs-lisp.el" "ob-python.el" "ol-info.el" "org-id.el"
"ox-ascii.el"
"ob-eshell.el" "ob-ref.el" "ol-irc.el" "org-indent.el"
"ox-beamer.el"
"ob-eval.el" "ob-ruby.el" "ol-man.el" "org-inlinetask.el"
"ox-html.el"
"ob-exp.el" "ob-sass.el" "ol-mhe.el" "org-install.el"
"ox-icalendar.el"
"ob-forth.el" "ob-scheme.el" "ol-rmail.el" "org-keys.el"
"ox-koma-letter.el"
"ob-fortran.el" "ob-screen.el" "ol-w3m.el" "org-lint.el"
"ox-latex.el"
"ob-gnuplot.el" "ob-sed.el" "ol.el" "org-list.el" "ox-man.el"
"ob-groovy.el" "ob-shell.el" "org-agenda.el" "org-loaddefs.el"
"ox-md.el"
"ob-haskell.el" "ob-sql.el" "org-archive.el" "org-loaddefs.el~"
"ox-odt.el"
"ob-java.el" "ob-sqlite.el" "org-attach-git.el" "org-macro.el"
"ox-org.el"
"ob-js.el" "ob-table.el" "org-attach.el" "org-macs.el"
"ox-publish.el"
"ob-julia.el" "ob-tangle.el" "org-capture.el" "org-mobile.el"
"ox-texinfo.el"
"ob-latex.el" "ob.el" "org-clock.el" "org-mouse.el" "ox.el"
"ob-lilypond.el" "oc-basic.el" "org-colview.el" "org-num.el"
"ob-lisp.el" "oc-biblatex.el" "org-compat.el" "org-pcomplete.el"))
(possibles
(seq-map (lambda (x)
(cons (file-name-directory (car x))
(list (file-name-base (car x)))))
(seq-filter
(lambda (x)
(let ((bn (file-name-nondirectory (car x))))
(seq-contains-p org-files bn
(lambda (e elt) (s-match (concat "^" e
"$") elt)))))
load-history))))
(let ((uniques (seq-uniq (seq-map 'car possibles))))
(if (eq 1 (length uniques))
(if where ; this is the good outcome
(car uniques))
(seq-map
(lambda (dir)
(let ((joined
(s-join " "
(seq-map 'cadr
(seq-filter
(lambda (e)
(progn
(equal (car e) dir)))
possibles)))))
(s-lex-format "from ${dir} have: ${joined}")))
uniques)))))
