[muse fixes, add tramp config
clinton@unknownlamer.org**20070215050020] {
addfile ./init.d/tramp-cke.el
hunk ./init.d/muse.el 23
+(require 'psgml-html)
hunk ./init.d/muse.el 27
-  (randomsig-signature (cons "web-only" randomsig-files)))
+  (with-temp-buffer
+    (insert (randomsig-signature (cons "web-only" randomsig-files)))
+    (html-quote-region (point-min) (point-max))
+    (buffer-substring-no-properties (point-min) (point-max))))
+
hunk ./init.d/muse.el 72
+
+;;; src tag (ripped from trunk muse; remove when other bugs are fixed)
+(add-to-list 'muse-html-markup-tags
+	     '("src"   t t nil muse-html-src-tag))
+
+(defun muse-html-src-tag (beg end attrs)
+  "Publish the region using htmlize.
+The language to use may be specified by the \"lang\" attribute.
+
+Muse will look for a function named LANG-mode, where LANG is the
+value of the \"lang\" attribute.
+
+This tag requires htmlize 1.34 or later in order to work."
+  (if (condition-case nil
+          (progn
+            (require 'htmlize)
+            (if (fboundp 'htmlize-region-for-paste)
+                nil
+              (muse-display-warning
+               (concat "The `htmlize-region-for-paste' function was not"
+                       " found.\nThis is available in htmlize.el 1.34"
+                       " or later."))
+              t))
+        (error nil t))
+      ;; if htmlize.el was not found, treat this like an example tag
+      (muse-publish-example-tag beg end)
+    (let* ((mode (and (assoc "lang" attrs)
+                      (intern (concat (cdr (assoc "lang" attrs))
+                                      "-mode"))))
+           (text (delete-and-extract-region beg end))
+           (htmltext
+            (with-temp-buffer
+              (insert text)
+              (if (functionp mode)
+                  (funcall mode)
+                (fundamental-mode))
+              (font-lock-fontify-buffer)
+              ;; silence the byte-compiler
+              (when (fboundp 'htmlize-region-for-paste)
+                ;; transform the region to HTML
+                (htmlize-region-for-paste (point-min) (point-max))))))
+      (save-restriction
+        (narrow-to-region (point) (point))
+        (insert htmltext)
+        (goto-char (point-min))
+        (re-search-forward "<pre\\([^>]*\\)>\n?" nil t)
+        (replace-match "<pre class=\"src\">")
+        (goto-char (point-max))
+        (muse-publish-mark-read-only (point-min) (point-max))))))
hunk ./init.d/tramp-cke.el 1
-
+(require 'tramp)
+
+(setq tramp-default-method "ssh")
}