X-Git-Url: https://git.donarmstrong.com/?p=org-ref.git;a=blobdiff_plain;f=doi-utils.org;h=c18345d947bcd29103cb50b8b3b4f7995fd8cc86;hp=48fe3b613f90d447e2df37d723b7609a732a567e;hb=dbf4fc3bfed591ebffab129abc3ad6359bea97fa;hpb=1ffc15fef433defae05f41f408d3d556eafb24c2 diff --git a/doi-utils.org b/doi-utils.org index 48fe3b6..c18345d 100644 --- a/doi-utils.org +++ b/doi-utils.org @@ -1148,7 +1148,7 @@ The idea here is to perform a query on Crossref, get a helm buffer of candidates #+END_EXAMPLE -#+BEGIN_SRC emacs-lisp :var data=json :results value raw +#+BEGIN_SRC emacs-lisp :var data=json :results value raw :tangle no (let ((json-object-type 'plist) (json (json-read-from-string data))) (aref json 0)) @@ -1160,14 +1160,15 @@ The idea here is to perform a query on Crossref, get a helm buffer of candidates Here is a list of helm candidates -#+BEGIN_SRC emacs-lisp :var data=json :results code +#+BEGIN_SRC emacs-lisp :var data=json :results code :tangle no (let (;(json-object-type 'plist) (json (json-read-from-string data))) (mapcar (lambda (x) (cons (assoc 'fullCitation x) x)) json)) #+END_SRC #+RESULTS: -#+BEGIN_SRC emacs-lisp +#+BEGIN_SRC emacs-lisp :tangle no + (((fullCitation . "Ann M. Deml, Vladan Stevanovi\304\207, Christopher L. Muhich, Charles B. Musgrave, Ryan O'Hayre, 2014, 'Oxide enthalpy of formation and band gap energy as accurate descriptors of oxygen vacancy formation energetics', Energy & Environmental Science, vol. 7, no. 6, p. 1996") (year . "2014") (coins . "ctx_ver=Z39.88-2004&rft_id=info%3Adoi%2Fhttp%3A%2F%2Fdx.doi.org%2F10.1039%2Fc3ee43874k&rfr_id=info%3Asid%2Fcrossref.org%3Asearch&rft.atitle=Oxide+enthalpy+of+formation+and+band+gap+energy+as+accurate+descriptors+of+oxygen+vacancy+formation+energetics&rft.jtitle=Energy+%26+Environmental+Science&rft.date=2014&rft.volume=7&rft.issue=6&rft.spage=1996&rft.aufirst=Ann+M.&rft.aulast=Deml&rft_val_fmt=info%3Aofi%2Ffmt%3Akev%3Amtx%3Ajournal&rft.genre=article&rft.au=Ann+M.+Deml&rft.au=+Vladan+Stevanovi%C4%87&rft.au=+Christopher+L.+Muhich&rft.au=+Charles+B.+Musgrave&rft.au=+Ryan+O%27Hayre") @@ -1260,7 +1261,7 @@ I found this on the web. It can be handy, but the bibtex entry has a lot of stuf #+BEGIN_SRC emacs-lisp :tangle doi-utils.el (defun isbn-to-bibtex-lead (isbn) "Search lead.to for ISBN bibtex entry. You have to copy the entry if it is on the page to your bibtex file." - (interactive "ISBN: ") + (interactive "sISBN: ") (browse-url (format "http://lead.to/amazon/en/?key=%s+&si=all&op=bt&bn=&so=sa&ht=us" isbn))) #+END_SRC @@ -1362,25 +1363,3 @@ entry with the generated key already exists in the file." #+RESULTS: : Loaded doi-utils.el - - - - - -#+BEGIN_SRC emacs-lisp -(setq data '(("John" . "john@email.com") - ("Jim" . "jim@email.com") - ("Jane" . "jane@email.com") - ("Jill" . "jill@email.com"))) - -(setq some-helm-source - `((name . "HELM at the Emacs") - (candidates . ,(mapcar 'car data)) - (action . (lambda (candidate) - (message-box "%s" (cdr (assoc candidate data))))))) - -(message-box "you chose %s" (helm :sources '(some-helm-source))) -#+END_SRC - -#+RESULTS: -: you chose jim@email.com