DeaR

(defun css+-set-local-variable ()
  "css+-modeのlocal-variable設定"
  (setf mode-name (format nil "CSS+~A" ed::*css-level*))
  (setf ed::*css+-completion-list (ed::css-completion-list))
  (and (ed::css-keyword-file)
       (null (ed::css-keyword-hash-table))
       (setf (ed::css-keyword-hash-table)
             (load-keyword-file (ed::css-keyword-file) t)))
  (when (ed::css-keyword-hash-table)
    (make-local-variable 'keyword-hash-table)

DeaR

(defun relative-pathnames (fn dir)
  "dirを基準にしたfnの相対パスを返す"
  (if (string-equal (pathname-device #0=(merge-pathnames fn))
                    (pathname-device #1=(merge-pathnames dir)))
      (let ((fn (split-string #0# #\/))
            (dir (split-string #1# #\/)))
        (dotimes (i (length fn))
          (unless (string-equal (nth i fn) (nth i dir))
            (return (format nil "~{~A/~}~{~A/~}~{~A~}"
                            (make-list (- (length dir) i) :initial-element "..")

DeaR

;; -*- mode: lisp; package: user; encoding: shift_jis -*-

;; @name        siteinit.l
;; @description xyzzy 設定ファイル
;; @namespace   http://kuonn.mydns.jp/
;; @author      DeaR
;; @timestamp   <2012-06-29 22:49:56 DeaR>

;;■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□
;; load-first

DeaR

;; -*- mode: lisp; package: outline-tree2; encoding: shift_jis -*-

;; @name        outline-tree-multiple-frames-fix.l
;; @description マルチフレーム版対応
;; @namespace   http://kuonn.mydns.jp/
;; @author      DeaR
;; @timestamp   <2012-04-09 18:05:37 DeaR>

(provide "outline-tree-multiple-frames")

DeaR

; (eval-when (:compile-toplevel :load-toplevel :execute)
;   (require "app-menu"))
(require "app-menu")

(provide "app-menu2")

(in-package "editor")


(defvar *original-init-app-menus* #'ed::init-app-menus

DeaR

;; -*- mode:lisp; package:markdown-mode -*-

;; markdown.l ( http://www.geocities.jp/kiaswebsite/xyzzy/markdown.html )
;; Rev: 227 を元に改変
;;
;; License
;; =======
;;
;; Copyright (c) 2011 Yousuke Ushiki <citrus.yubeshi@gmail.com>
;; Copyright (c) 2005,2006 kia