This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
function! s:unbold() | |
redir => l:hl | |
silent highlight | |
redir END | |
for l:hl2 in map(filter(split(hl, '[\r\n]'), 'v:val =~ "term=\\S*bold"'), 'substitute(substitute(substitute(v:val, "\\<xxx\\>", "", ""), "term=\\S*\\zs\\%(,bold\\|bold,\\)", "", "g"), "term=\\zsbold", "NONE", "g")') | |
execute 'highlight' l:hl2 | |
endfor | |
endfunction | |
autocmd Syntax,ColorScheme * call s:unbold() |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;; -*- 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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;; -*- 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") |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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 "..") |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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*)))) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;; -*- 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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
-- 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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
-- 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 |
OlderNewer