Skip to content

Instantly share code, notes, and snippets.

@DeaR
DeaR / markdown-mode.l
Created Apr 17, 2012 — forked from youz/markdown-mode.l
改変 markdown-mode for #xyzzy (色付け & メジャーモード化)
View markdown-mode.l
;; -*- 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
@DeaR
DeaR / app-menu2.lisp
Created Apr 25, 2012
2012/2/24に晒した物纏め #xyzzy
View app-menu2.lisp
; (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
DeaR / outline-tree-multiple-frames.lisp
Created Apr 25, 2012
2012/3/5に晒した物纏め #xyzzy
View outline-tree-multiple-frames.lisp
;; -*- 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
DeaR / siteinit.lisp
Created Apr 25, 2012
私のsiteinit.l #xyzzy
View siteinit.lisp
;; -*- 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
DeaR / relative-pathnames.lisp
Created Apr 25, 2012
file-relative-name相当…のつもり #xyzzy
View relative-pathnames.lisp
(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
DeaR / css+3.lisp
Created May 11, 2012
#xyzzy 0.2.2.236で実装したCSS3キーワードをcss+-modeで使う
View css+3.lisp
(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
DeaR / coding.lisp
Created Jun 29, 2012
encodingマジックコメントで-dos等を何とかしてみた #xyzzy
View coding.lisp
(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
DeaR / z.lua
Last active Dec 11, 2015
Porting z.sh for NYAOS 3.x
View z.lua
-- Porting z.sh for NYAOS 3.x
--
-- Maintainer: DeaR <nayuri@kuonn.mydns.jp>
-- Last Change: 13-Aug-2013.
-- License: MIT License {{{
-- Copyright (c) 2013 DeaR <nayuri@kuonn.mydns.jp>
--
-- 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
DeaR / galias.lua
Last active Dec 11, 2015
Global alias for NYAOS 3.x
View galias.lua
-- Global alias for NYAOS 3.x
--
-- Maintainer: DeaR <nayuri@kuonn.mydns.jp>
-- Last Change: 13-Aug-2013.
-- License: MIT License {{{
-- Copyright (c) 2013 DeaR <nayuri@kuonn.mydns.jp>
--
-- 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
DeaR / abbreviations.lua
Last active Dec 11, 2015
Abbreviations for NYAOS 3.x
View abbreviations.lua
-- Abbreviations for NYAOS 3.x
--
-- Maintainer: DeaR <nayuri@kuonn.mydns.jp>
-- Last Change: 13-Aug-2013.
-- License: MIT License {{{
-- Copyright (c) 2013 DeaR <nayuri@kuonn.mydns.jp>
--
-- 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
You can’t perform that action at this time.