Skip to content

Instantly share code, notes, and snippets.

Nayuri Aohime DeaR

Block or report user

Report or block DeaR

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
@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.