Griever

// ==UserScript==
// @name           uAutoPagerize
// @namespace      http://d.hatena.ne.jp/Griever/
// @description    loading next page and inserting into current page.
// @include        main
// @compatibility  Firefox 4.0
// @version        0.1.9.1
// @note           0.1.9.1 Yahoo! 用の例外処理を修正
// @note           0.1.9 セキュリティ上の問題を修正
// @note           0.1.9 細部を調整

miyamuko

;; 今開いているソースを GitHub で開く

;; xyzzy 0.2.2.235 のソース
(defvar *github-xyzzy-src*
  "http://github.com/southly/xyzzy.src/blob/0.2.2.235")

(defun show-current-source-on-github ()
  (interactive)
  (let ((file (get-buffer-file-name))
        (lineno (current-line-number)))

youz

;;; -*- mode:lisp; package:shobon -*-

;;; forked from http://pc12.2ch.net/test/read.cgi/software/1226425897/809
;;;
;;; *usage*
;;; M-x shobon
;;; M-x shobon-toggle-status
;;; M-x shobon-toggle-modeline

(defpackage :shobon

miyamuko

;; 指定したシンボルの refwiki を開く

(defun refwiki (symbol)
  (interactive "SSymbol: ")
  (shell-execute (format nil "http://xyzzy.s53.xrea.com/reference/wiki.cgi?p=~A"
                         (si:www-url-encode (string symbol) nil "0-9A-Za-z._~ "))
                 t))

miyamuko

;; xyzzy Lisp から現在のアプリケーションのデバッガに文字列を送信
;;
;; == 送信した文字列を見る方法 ==
;;
;;   * 方法1:
;;     VisualStudio から xyzzy をデバッグ実行すると
;;     VisualStudio のウィンドウ内で見れるとおもう（たぶん）
;;
;;   * 方法2:
;;     Sysinternals Suite に含まれる DebugView.exe を起動

ecerulm

#!/bin/sh
# Use SourceGear DiffMerge as mergetool for git in cygwin.
# 	git config --global mergetool.diffmerge.cmd "diffmergetool.sh \"\$LOCAL\" \"\$REMOTE\" \"\$BASE\" \"\$MERGED\""
#   git config --global mergetool.diffmerge.trustExitCode false
#   git difftool -t diffmerge branch1..branch2

# Reference: http://www.tldp.org/LDP/abs/abs-guide.pdf

library=githelperfunctions.sh

miyamuko

xyzzy に標準でついてくる cmu_loop.l は it に対応していないので、
CMUCL の loop マクロを xyzzy に移植してみた。

ext:valid-function-name-p はサポっている。
http://common-lisp.net/cgi-bin/viewcvs.cgi/src/code/loop.lisp?root=cmucl&view=markup

Index: loop.lisp
===================================================================
RCS file: /project/cmucl/cvsroot/src/code/loop.lisp,v
retrieving revision 1.34

miyamuko

;; xyzzy 0.2.2.235
(require "cmu_loop")
(loop
  for i from 0 to 2
  while (progn
          (format t "while ~A~%" i)
          t)
  do (format t "do ~A~%" i))
do 0
while 1

kosh04

;; -*- xyzzy -*-

#|
グローバルキーマップで[C-x RET]をプレフィックスキーに、その後
ローカルキーマップで[C-x RET]にコマンドを定義するとdescribe-keyなどの
キーシーケンス読み込み時に最長一致のグローバルマップを（この例では）選んでしまう。
※実際のコマンドでは最短一致のキーコマンドを呼び出すらしい
そのため、最短一致のキーを返すように修正する。

【例】

southly

;; 今開いているソースを GitHub で開く

;; xyzzy 0.2.2.235 のソース
(defvar *github-xyzzy-src*
  "http://github.com/southly/xyzzy.src/blob/0.2.2.235")
(defvar *local-xyzzy-src*
  "X:/src/xyzzy/")

(defun show-current-source-on-github ()
  (interactive)