WebSearch {
menu = "Web Search";
$tmp = getclipboard();
id(ID_EDIT_COPY);
setclipboard("");
$clip = getclipboard();
$clip != "" ? opennew($search . $clip) : 0;
setclipboard($tmp);
}
WebSearch {
menu = "Web Search";
$tmp = getclipboard();
id(ID_EDIT_COPY);
# setclipboard("");
$clip = getclipboard();
$clip != "" ? pluginmsg(layers,"OpenURL",$search . $clip) : 0;
# $clip != "" ? opennew($search . $clip) : 0;
setclipboard($tmp);
}
(require "svn/svn")とでも書いてください。
svn copy file:///path/to/svn/trunk file:///path/to/svn/release/0.0.0.5 –m "hogehoge"なんてコマンドをxyzzy上からばしばしと(笑)<シェル立ち上げてそこから、という意味じゃなくてね(^^;
(defun nDiary-link-insert ()
(interactive)
(let* ((outbuf "") (buf (selected-buffer))
(current-p (point))
(link (get-clipboard-data))
(linkstr ""))
(unless link
(message "not link string clipboard.")
(quit))
(setq linkformat (format nil " ~A(~A)" "~A" (quote-string link #\~ #\~)))
(loop
(minibuffer-prompt "Insert link-string: ~A" outbuf)
(let ((c (read-char *keyboard*)))
(case c
(#\RET
(when (progn
(goto-char current-p)
(scan-buffer (format nil linkformat outbuf)))
(delete-region current-p (+ current-p (length (format nil linkformat linkstr)))))
(when (= 0 (length outbuf))
(setq outbuf (get-clipboard-data))
(setq linkstr (format nil linkformat outbuf)))
(insert linkstr)
(goto-char (+ current-p (length linkstr)))
(return))
(#\C-h
(when (<= 1 (length outbuf))
(goto-char current-p)
(delete-region current-p (+ current-p (length linkstr)))
(setq outbuf (substring outbuf 0 (1- (length outbuf))))
(setq linkstr (format nil linkformat outbuf))
(insert linkstr)
(refresh-screen)))
(#\C-g
(goto-char current-p)
(delete-region current-p (+ current-p (length linkstr)))
(quit))
(t
(save-excursion
(set-buffer buf)
(if (or (<= 1 (length outbuf))
(progn
(goto-char current-p)
(scan-buffer (format nil linkformat outbuf))))
(delete-region current-p (+ current-p (length linkstr))))
(setq outbuf (format nil "~A~C" outbuf c))
(setq linkstr (format nil linkformat outbuf))
(insert linkstr)
(refresh-screen))))))))
(require "ndiary-insert-link.l")