dmj

;; Copyright 2011 Erik Hetzner
;;
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;;
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

dmj

<?xml version="1.0" encoding="UTF-8"?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
		xmlns:explain="http://explain.z3950.org/dtd/2.0/"
		xmlns:zs="http://www.loc.gov/zing/srw/"
		version="1.0">
  <xsl:output indent="yes" method="xml"/>
  <xsl:param name="host" select="''"/>
  <xsl:param name="port" select="''"/>
  <xsl:param name="database" select="''"/>

dmj

;; Shimbun
;; Setup Feeds based on ~/.feeds
(let ((feedbuf (find-file-noselect "~/.feeds")))
  (with-current-buffer feedbuf
    (goto-char (point-min))
    (while (re-search-forward "^\\([a\\|r]\\) \\([[:alnum:]]+\\) \\(.+\\)$" nil t)
      (let ((sha (sha1-string (match-string 3))))
	(cond
	 ((equal (match-string 1) "a")
	  (add-to-list 'shimbun-atom-hash-group-path-alist 

dmj

(defun dmj/zotero-export-bibtex ()
  "Ask for a search query, export matching items to bibtex."
  (interactive)
  (require 'moz)
  (let* ((query (read-string "Query: "))
	 (tmpfile (make-temp-name
		   (expand-file-name "zotemacs" temporary-file-directory)))
	 (js (list
	      "var file = Components.classes['@mozilla.org/file/local;1'].createInstance(Components.interfaces.nsILocalFile);"
	      (concat