Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
(defun list-to-hash (coll)
(let ((rtnval (make-hash-table :test 'equal)))
(cl-loop for r across coll
when r
do (puthash (elt r 1) nil rtnval))
rtnval))
(defun jdee-open-source-resource-in-archive-p (archive resource)
""
(interactive)
(when (and (file-exists-p archive)
(not (file-directory-p archive)))
(let ((buffer (find-file-noselect archive)))
(when buffer
(with-current-buffer buffer
(let* ((files archive-files)
(r (list-to-hash files)))
(if (eq 'missing (gethash resource r 'missing))
nil
(list archive resource))))))))
(defun jdee-open-source-resource-in-classpath (resource)
(cl-loop for p in jdee-global-classpath
for rtnval = (jdee-open-source-resource-in-archive-p r resource)
when rtnval
return rtnval))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.