DeaR

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

;; markdown.l ( http://www.geocities.jp/kiaswebsite/xyzzy/markdown.html )
;; Rev: 227 を元に改変
;;
;; License
;; =======
;;
;; Copyright (c) 2011 Yousuke Ushiki <[email protected]>
;; Copyright (c) 2005,2006 kia

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: 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

;; -*- 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

(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

(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 find-file-buffer-encoding (arg)
  "エンコーディングの自動判定"
  (let ((encoding (gethash (substitute-string arg "-\\(dos\\|mac\\|unix\\)$" "" :case-fold t)
                            *mime-charset-name-hash-table*))
        (eol (cond ((string-matchp "-dos$" arg)
                    *eol-crlf*)
                   ((string-matchp "-mac$" arg)
                    *eol-cr*)
                   ((string-matchp "-unix$" arg)
                    *eol-lf*))))

DeaR

-- Porting z.sh for NYAOS 3.x
--
-- Maintainer:   DeaR <[email protected]>
-- Last Change:  13-Aug-2013.
-- License:      MIT License {{{
--     Copyright (c) 2013 DeaR <[email protected]>
--
--     Permission is hereby granted, free of charge, to any person obtaining a
--     copy of this software and associated documentation files (the
--     "Software"), to deal in the Software without restriction, including

DeaR

-- Global alias for NYAOS 3.x
--
-- Maintainer:   DeaR <[email protected]>
-- Last Change:  13-Aug-2013.
-- License:      MIT License {{{
--     Copyright (c) 2013 DeaR <[email protected]>
--
--     Permission is hereby granted, free of charge, to any person obtaining a
--     copy of this software and associated documentation files (the
--     "Software"), to deal in the Software without restriction, including

DeaR

-- Abbreviations for NYAOS 3.x
--
-- Maintainer:   DeaR <[email protected]>
-- Last Change:  13-Aug-2013.
-- License:      MIT License {{{
--     Copyright (c) 2013 DeaR <[email protected]>
--
--     Permission is hereby granted, free of charge, to any person obtaining a
--     copy of this software and associated documentation files (the
--     "Software"), to deal in the Software without restriction, including