From 94d2fc1815a919734353c942f224db1de4b4fcb8 Mon Sep 17 00:00:00 2001
From: Tom Willemsen
Date: Mon, 7 Mar 2011 09:04:49 +0100
Subject: Django, org

  * Added nxhtml, mostly for django support.

  * Changed some org settings.
---
 emacs.d/nxhtml/etc/schema/schema-path-patch.el | 95 ++++++++++++++++++++++++++
 1 file changed, 95 insertions(+)
 create mode 100644 emacs.d/nxhtml/etc/schema/schema-path-patch.el

(limited to 'emacs.d/nxhtml/etc/schema/schema-path-patch.el')

diff --git a/emacs.d/nxhtml/etc/schema/schema-path-patch.el b/emacs.d/nxhtml/etc/schema/schema-path-patch.el
new file mode 100644
index 0000000..a6d59fc
--- /dev/null
+++ b/emacs.d/nxhtml/etc/schema/schema-path-patch.el
@@ -0,0 +1,95 @@
+;;; schema-path-patch.el --- Patch schema paths
+;;
+;; Author: Lennart Borgman (lennart O borgman A gmail O com)
+;; Created: 2008-08-08T20:21:31+0200 Fri
+;; Version: 0.2
+;; Last-Updated: 2008-08-19T00:21:25+0200 Mon
+;; URL:
+;; Keywords:
+;; Compatibility:
+;;
+;; Features that might be required by this library:
+;;
+;;   Cannot open load file: schema-path-patch.
+;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;
+;;; Commentary:
+;;
+;; Schemas here may include parts from nxml and need to know the path.
+;; This file can be used to patch the paths.
+;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;
+;;; Change log:
+;;
+;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;
+;; 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 GNU
+;; General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with this program; see the file COPYING.  If not, write to
+;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth
+;; Floor, Boston, MA 02110-1301, USA.
+;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;
+;;; Code:
+
+(defvar rncpp-this-dir
+  (file-name-as-directory
+   (file-name-directory
+    (if load-file-name load-file-name buffer-file-name))))
+
+(defun rncpp-get-nxml-schema-dir ()
+  ;; First look for nxml-mode included with Emacs
+  (let ((schema-dir (file-name-as-directory
+                     (expand-file-name "schema" data-directory))))
+    (unless (file-directory-p schema-dir)
+      ;; This is an old nxml-mode, look for its schemas dir.
+      (let ((nxml-mode-dir (file-name-as-directory
+                            (file-name-directory (locate-library "nxml-mode")))))
+        (setq schema-dir (file-name-as-directory
+                          (expand-file-name "schema" nxml-mode-dir)))))
+    (unless (file-directory-p schema-dir)
+      (error "Can't find schema-dir=%s" schema-dir))
+    schema-dir))
+
+;; Use xhtml-loader.rnc (an idea from Bryan Waite):
+(defun rncpp-patch-xhtml-loader ()
+  "Patch xhtml-loader.rnc so genshi and mjt rnc files works."
+  ;;(interactive)
+  (let* ((default-directory rncpp-this-dir)
+         (loader-path (expand-file-name "xhtml-loader.rnc"))
+         (loader-buf (find-buffer-visiting loader-path))
+         (schema-dir (rncpp-get-nxml-schema-dir))
+         (schema-relative-dir (file-relative-name schema-dir))
+         (loader-string (concat "include \""
+                                schema-relative-dir
+                                "xhtml.rnc\"\n")))
+    (when loader-buf (kill-buffer loader-buf))
+    (setq loader-buf (find-file-noselect loader-path))
+    (with-current-buffer loader-buf
+      (unless (file-exists-p loader-path)
+        (insert loader-string))
+      ;; Test if correct
+      (if (string= (buffer-substring-no-properties (point-min) (point-max))
+                       loader-string)
+          (message "xhtml-loader.rnc was ok")
+        (message "Patching xhtml-loader.rnc")
+        (delete-region (point-min) (point-max))
+        (insert loader-string))
+      (basic-save-buffer)
+      (kill-buffer (current-buffer)))))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;; schema-path-patch.el ends here
-- 
cgit v1.2.3-54-g00ecf