続・月の平日を数えるlispではcalendarexを直接直してたけど、よく考えると.xyzzyで書き換えればいいだけでした。 .xyzzyの(require "calendarex")の下あたりに以下を追加 ;;; ;自社休日追加 (setq ed::*calendar-japanese-holiday-list* (concatenate 'list…

続・月の平日を数えるlisp ((lambda (oy om od ny nm nd) ;基点日付作成 (setq olddate (encode-universal-time 0 0 0 od om oy)) (setq newdate (encode-universal-time 0 0 0 nd nm ny)) ;初期値設定 (setq x od) (setq cnt 0) (setq cnt2 0) ;祝日取得 (s…

月の平日を数えるlisp ((lambda (y m) ;基点日付作成 (setq date (encode-universal-time 0 0 0 1 m y)) ;月替わりの検出 (setq wDate (format-date-string "%m" date)) ;初期値設定 (setq x 0) (setq cnt 0) (setq cnt2 0) ;祝日取得 (setq holiday (make-v…

見つけたのでメモ

;;;; ;;;; 確認しないバージョン追加 ;;;; (defun form-post-no-ask () (interactive) (2ch::form-post t) ) (define-key 2ch::*form-map* '(#\C-w) 'form-post-no-ask) (define-key 2ch::*form-new-map* '(#\C-w) 'form-post-no-ask) なんとなく確認せずに…

(defun insert-all-file (folder wild) (interactive "DFolder: \n1sWild: " :default1 "*.txt") (dolist (filename (directory folder :wild wild :absolute t :recursive t) ) (insert "*****" (file-namestring filename) "*****" #\C-j ) (insert-file f…

form.l のform-format-post-vars を (setq post (format nil "submit=~A&FROM=~A&mail=~A&MESSAGE=~A&time=~D&bbs=~A&hana=mogera"こうすると良いらしいと xyzzy Part13 の912に書いてありました、ありがとうございます。

最終的に (defun compile-and-delete-dump-file2 () (interactive) (if (cdr (list-xyzzy-windows)) (msgbox "先に他のxyzzyを閉じてください") (compile-and-delete-dump-file) ) ) としてキーバインドをこっちにした これでバイトコンパイルはOKっぽい色々…

http://d.hatena.ne.jp/NYRL/20060320/1142829068 で書いていた問題ですが (setq ed::*history-file-loaded* nil) とするとよいらしいと大分昔に書かれていたのを今頃発見したので試してみます。 で試すというのは c-c b(バイトコンパイル) 今のxyzzy閉じる(…

(defun set-proxy (host port) ;www-mode用 (require "www/www") (setq www::*www-proxy-host* host) (setq www::*www-proxy-port* port) ;2chとか用 (setq ni::*http-proxy-host* host) ; PROXY のホスト (setq ni::*http-proxy-port* port) ; PROXY のポー…

新しいlispをインストールしてバイトコンパイルまでしたけど二つ開いているxyzzyの古いほうを後から閉じて.historyがおかしくなって・・・ いつも二つxyzzy立ち上げて片方は仕事のメモとか色々入ったセッションを開いてもう一つでソースGREPしたりしているの…

少なくても三人は使ってくれていることが確認できた(^^; それはそうとコピー部分が簡単に (copy-region-to-clipboard (point-min) (point-max)) こう書けるらしいので ;;; ;;;バッファ全体をクリップボードに送る。 ;;; (defun copy-all-to-clipboard () (in…

探し方が悪いのか見つからなかった 仕方が無いので作った ;;; ;;; base64-encode-region ;;; (defun text-encode-region (decode from to) (or (< from to) (rotatef from to)) (insert (with-output-to-string (s) (with-input-from-buffer ((selected-buff…

なんとなく検索したら入れたという日記を見かけて少し嬉しくなりました。 使ってる人は数人しかいないですし今なら「isql-mode」というのが存在するので存在価値ないのですが最初に書いたまとまったLispだったので嬉しいな(^^;

http://www.opensource.jp/licenses/mit-license.html なんかかなり緩いライセンスなんですねぇ つまりこれをLinuxとかMonaとかMacとか超漢字とかに移植して配布するのも自由ってことですか誰か移植してください、私には無理ですよ(^^;

早速コンパイルしようと思ったのだが正式版が出るので.netのβ2アンインストールしているのでIDEは使えない。 ならコマンドラインでどうだとやってみた。 まずパスを通し エラーを見つつLIBとINCLUDEを設定で少し進んだが rcが無くて挫折しました。 家の2003…

バージョンアップしていました。 今回の更新はライセンスがメインですかね ソースもダウンロードしやすい位置になっています。

某所より 251 [2005/12/02(金) 09:34:46 ID:5o5USXua0] 名無しさん＠お腹いっぱい。 左右の画面を同時にスクロールさせる機能はあるでしょうか？253 [2005/12/02(金) 10:30:02 ID:hO+A9ipk0] 名無しさん＠お腹いっぱい。 shift+ctrlでカーソル ctrl+shift+矢…

;;; ;;; 指定日前から変更したファイルのみ抽出 ;;; (defun changed-file (path out x) (setq timestamp (-(get-universal-time) (* (* 24 60 60) x))) (setq files (directory path :wild "*.*" :absolute t :recursive t)) (dolist (filename files ) (and…

何回かやったけどだめバイトコンパイルもちゃんとしたし 念のため立ち上げなおしたりもしたけど現在の記事の取得はできるけど 書き込めない・・・

2chで質問があったので途中まで作ってみる。 (defun save-file-sjis () (interactive) (set-buffer-fileio-encoding *encoding-sjis*) (if (file-visited-p) (save-buffer) (call-interactively 'emacs-write-file) ) ) minibufferからの読み込みが分からな…

302になる。 なんでかなぁと思ったら はてなにログインし直してしまって、はてなダイアリーモードで編集できなくなった はてなダイアリーモードで保持しているCookieは、自動で更新されません。これは前述した「ブラウザとの情報のズレを起こさないようにす…

bufmenuを便利に使用しているので足してみた。 ;;bufmenuにも足す (add-hook '*bufmenu-add-context-menu-middle-hook* #'(lambda () (let (menu) (setq menu *buffer-bar-context-menu*) (flet ((buf () *buffer-bar-context-menu-buffer*)) (add-menu-sepa…

;;; ;;;csc 一行目にコメントでコンパイル文字列を書いてみる。 ;;; //xxx/csc.exe xxx.cs (defun csc-comment-exec () (interactive) ;;保存済みか判断 (if(need-buffer-save-p (selected-buffer)) (if (yes-no-or-cancel-p (concat "~Aの内容は変更されて…

comLv = comLv.concat("00").concat(msg.substring(idx,idx + 1)); というのがずらずらあるソースを comLv = comLv.concat("00") .concat(msg.substring(idx,idx + 1)); に整形したくて書いてみた (defun digit-arrangement (args-string) (interactive "sre…

DOMAIN ERRORに捕捉された。 というかハテナで書いてる以上遅かれ早かれ捕捉されるわけなのですが(^^;)

2chがウィルスの影響でCookie必須らしいので書き込めなくなった xyzzy Part12 696さんありがとう

全て選択→コピーが面倒だったので作成。 ;;; ;;;バッファ全体をクリップボードに送る。 ;;; (defun copy-all-to-clipboard () (interactive) (let ((cc)(cl)) (setq cc (current-column) cl (current-line-number)) (selection-whole-buffer) (copy-selectio…

C-x-q で上書き禁止にしたら、 同時に背景色を #cccccc にし、 C-x-q で解除したら背景色を元に戻したんだけど どうしたらいいんでしょう？ こんな感じ (defun toggle-read-only2 () (interactive) (if (eq buffer-read-only t) (set-buffer-colors nil) (se…

とりあえず hatena-diary-mode elxa crylib CAPICOM ※特にこれを忘れないように と依存するので注意家で設定したら忘れてて302になった(^^;)