#299 xml-mode でスタイル適用が出来なかった件解決

xyzzy で快適 XML 研究環境強化月間の続き。

ででで出来ました! ご教授下さった shiki さんに感謝です。

結局、xyzzy でタグ打ってる人スレの 527 さんの設定 をコピペした迄は良かったんですが。xt.exe の設定をしているのにも関わらず。コピった記述が msxsl.exe の設定だと分かっていたにも関わらず。その記述を xt.exe 用に書き換えて無かっただけという。まじアフォ杉な話。

;; xt.exe を利用。
(setq *xsl-transform-command* *xsl-xt*)
;;コマンド定義。
(push '(xml::xt
"~A ~S ~S ~A"
*xt-command*
(get-buffer-file-name)
(read-file-name "stylesheet: " :history 'stylesheet)
(or xml::*xml-user-option* *xt-default-options*))
*xml-command-alist*)

上記の設定でばっちし動いてくれたのでありました。shiki さんに教えて貰わなかったら、いつ迄経っても気付かずに悩み続けてたと思います。ほんとに感謝です。

そして調子こいてついでに特殊バッファを一発削除のやつに *XML Command output* と *XML Command error* を追加してみたり。

;; 特殊バッファを一発削除。
(defun cleanup-window()
  (interactive)
  (let ((bufl (buffer-list)) buf name)
    (loop
      (setq buf (pop bufl))
      (if (null buf) (return nil))
      (setq name (buffer-name buf))
      (if (member-if
           #'(lambda (str) (string= name str))
           '("*grep*" "*Help*" " *Completion* " "*Shell output*"
             "nDiary output" "*FTP LOG*" "*dictionary*"
             "*XML Command output*" "*XML Command error*"))
          (delete-buffer buf)))
    (delete-other-windows)))
(global-set-key #\S-F11 'cleanup-window)

むへー。こりゃまた Ctrl+c t でサクっと出力。いらんかったら Shift + F11 でサクっと削除。いやもうサクサクサクっと。いけますぜよ～。全て xyzzy 使いの皆様のお陰。有り難過ぎるます。