diff options
author | Tom Willemsen | 2011-03-23 11:14:27 +0100 |
---|---|---|
committer | Tom Willemsen | 2011-03-23 11:14:27 +0100 |
commit | 0d342f0aee3f2f800e486c0051dabe718a7b2841 (patch) | |
tree | 1f55afabb8f4876dbe564f7ed5d8e573ddc78df3 /emacs.d/nxhtml/etc/schema/schema-path-patch.el | |
parent | d4510153b17625a3dd2f1852cc6392fc26efecf6 (diff) | |
download | dotfiles-0d342f0aee3f2f800e486c0051dabe718a7b2841.tar.gz dotfiles-0d342f0aee3f2f800e486c0051dabe718a7b2841.zip |
I don't like nxhtml
Diffstat (limited to 'emacs.d/nxhtml/etc/schema/schema-path-patch.el')
-rw-r--r-- | emacs.d/nxhtml/etc/schema/schema-path-patch.el | 95 |
1 files changed, 0 insertions, 95 deletions
diff --git a/emacs.d/nxhtml/etc/schema/schema-path-patch.el b/emacs.d/nxhtml/etc/schema/schema-path-patch.el deleted file mode 100644 index a6d59fc..0000000 --- a/emacs.d/nxhtml/etc/schema/schema-path-patch.el +++ /dev/null @@ -1,95 +0,0 @@ -;;; 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 |