nist-webbook.el

;;; nist-webbook.el --- Integration of Emacs with NIST Webbook -*- lexical-binding: t; -*-
;; Integration of Emacs with NIST webbook

;;; Commentary:
;; nist-webbook-name :: search for a chemical name
;; nist-webbook-formula :: search by chemical formula

;;; Code:

(require 'org)
(require 'org-ref-utils)

;;;###autoload
(defun nist-webbook-formula (formula)
  "Search NIST webbook for FORMULA."
  (interactive "sFormula: ")
  (browse-url
   (concat
    "http://webbook.nist.gov/cgi/cbook.cgi?Formula="
    formula
    "&NoIon=on&Units=SI")))

;;;###autoload
(defun nist-webbook-name (name)
  "Search NIST webbook for NAME."
  (interactive "sChemical Name: ")
  (browse-url
   (concat "http://webbook.nist.gov/cgi/cbook.cgi?Name="
           (url-hexify-string name)
           "&Units=SI")))

(org-link-set-parameters "nist-wb-name"
			 :follow (lambda (name)
				   (nist-webbook-name name)))

(org-link-set-parameters "nist-wb-formula"
			 :follow (lambda (formula)
				   (nist-webbook-formula formula)))

(provide 'nist-webbook)

;;; nist-webbook.el ends here