ruby_learner 1.0.0

data/workshop/emacs.d/inits/line-num.el

@@ -0,0 +1,264 @@
+;;; line-num.el --- Display line numbers in left-margin of buffer.
+;;
+;; Filename: line-num.el
+;; Description: Display line numbers in left-margin of buffer.
+;; Author: (Darryl Okahata) darrylo@hpsrdmo, Drew Adams
+;; Maintainer: Drew Adams (concat "drew.adams" "@" "oracle" ".com")
+;; Copyright (C) 1999-2015, Drew Adams, all rights reserved.
+;; Copyright (C) 1989, Hewlett-Packard, all rights reserved.
+;; Created: Wed Mar 31 16:18:24 1999
+;; Version: 0
+;; Package-Requires: ()
+;;; Last-Updated: Thu Jan  1 11:01:00 2015 (-0800)
+;;           By: dradams
+;;     Update #: 219
+;; URL: http://www.emacswiki.org/line-num.el
+;; Doc URL: http://emacswiki.org/LineNumbers
+;; Keywords: local
+;; Compatibility: GNU Emacs: 20.x, 21.x, 22.x, 23.x, 24.x, 25.x
+;;
+;; Features that might be required by this library:
+;;
+;;   None
+;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;
+;;; Commentary:
+;;
+;;    Display line numbers in left-margin of buffer.
+;;
+;; New functions defined here:
+;;
+;;    `display-line-numbers', `toggle-line-numbers-display',
+;;    `turn-on-line-numbers-display', `turn-off-line-numbers-display'.
+;;
+;; NOTE: `setnu.el' now provides similar, but generally better,
+;; functionality.
+;;
+;; Original author was Darryl Okahata darrylo@hpsrdmo: The copy on
+;; which the current (Adams) modifications were made was obtained from
+;; Rick Kunin (rickk@sperdk).
+;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;
+;;; Change Log:
+;;
+;; 2004/11/26 dadams
+;;     Replaced decf with setq...1+.
+;;     turn-off-line-numbers-display: Error if not displaying line #s.
+;;     Removed calls to `fit-frame' (and require of fit-frame.el).
+;; 2000/11/01 dadams
+;;     1. Added: toggle-line-numbers-display, turn-on-line-numbers-display,
+;;               turn-off-line-numbers-display.
+;;     2. Added global vars: displaying-line-numbers-p,
+;;        display-line-numbers-format-string, display-line-numbers-first-line,
+;;        display-line-numbers-count, display-line-numbers-buffer-name,
+;;        display-line-numbers-modified-p.
+;; 1999/04/14 dadams
+;;     Commented out assignment to unused free var: insert-end.
+;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program; see the file COPYING.  If not, write to
+;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth
+;; Floor, Boston, MA 02110-1301, USA.
+;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;
+;;; Code:
+
+;;>> Problem:  Tabs at beginning of lines
+
+;;;;;;;;;;;;;
+
+
+;;;###autoload
+(defun display-line-numbers ()
+  "Temporarily display line numbers in left margin of current buffer."
+  (interactive)
+  (or (eq (current-buffer) (window-buffer (selected-window)))
+      (error "Current buffer, %s, is not the selected window's buffer"
+             (buffer-name)))
+  (let ((buffer-read-only nil)
+        (modified (buffer-modified-p))
+        (name buffer-file-name)
+        (point (point-marker))
+        format-string
+        line-number
+        (count 0)
+        nlines
+        first-line)
+    (save-restriction
+      (widen)
+      (save-excursion
+        (setq first-line (window-start (selected-window)))
+        (goto-char first-line)
+        (setq line-number (1+ (count-lines (point-min) (point))))
+        (move-to-window-line -1)
+        (beginning-of-line)
+        (setq nlines (count-lines first-line (point)))
+        (let ((max (+ line-number nlines)))
+          (setq format-string (cond ((< max 100) "%2d ")
+                                    ((< max 1000) "%3d ")
+                                    ((< max 10000) "%4d ")
+                                    (t "%7d "))))))
+    (save-excursion
+      (unwind-protect
+          (progn
+            (goto-char first-line)
+            ;; defeat file locking... don't try this at home, kids!
+            (setq buffer-file-name nil)
+            (while (<= count nlines)
+              (insert-before-markers (format format-string line-number))
+              ;;;(setq insert-end (point)) THIS VAR IS FREE - AND UNUSED!
+              (setq line-number (1+ line-number))
+              (setq count (1+ count))
+              (forward-line 1))
+            (set-window-start (selected-window) first-line)
+            (goto-char point)
+            (set-buffer-modified-p modified)
+            (message "<<< Press SPACE to continue >>>")
+            (let ((char (read-char)))
+              (or (eql char ?\  )
+                  (setq unread-command-events (list char))))
+            )
+        (goto-char first-line)
+        (let ((n (1+ (- (aref format-string 1) ?0))))
+          (while (> count 0)
+            (setq count (1- count))
+            (delete-char n)
+            (forward-line 1)))
+        (setq buffer-file-name name)
+        (set-buffer-modified-p modified)))))
+
+;;;-----------------------------------------------------------------
+
+(defvar displaying-line-numbers-p nil)
+(make-variable-buffer-local 'displaying-line-numbers-p)
+(defvar display-line-numbers-format-string nil)
+(make-variable-buffer-local 'display-line-numbers-format-string)
+(defvar display-line-numbers-first-line nil)
+(make-variable-buffer-local 'display-line-numbers-first-line)
+(defvar display-line-numbers-count 0)
+(make-variable-buffer-local 'display-line-numbers-count)
+(defvar display-line-numbers-buffer-name nil)
+(make-variable-buffer-local 'display-line-numbers-buffer-name)
+(defvar display-line-numbers-modified-p nil)
+(make-variable-buffer-local 'display-line-numbers-modified-p)
+
+;;;###autoload
+(defun toggle-line-numbers-display (arg)
+  "Display/clear line numbers in left margin of current buffer.
+With prefix ARG, just number lines in current window, not all lines in
+buffer."
+  (interactive "P")
+  (if displaying-line-numbers-p
+      (turn-off-line-numbers-display)
+    (turn-on-line-numbers-display arg)))
+
+;;;###autoload
+(defun turn-on-line-numbers-display (arg)
+  "Display line numbers in left margin of current buffer.
+With prefix ARG, just number lines in current window, not all lines in
+buffer."
+  (interactive "P")
+  (or (eq (current-buffer) (window-buffer (selected-window)))
+      (error "Current buffer, %s, is not the selected window's buffer"
+             (buffer-name)))
+  (let ((buffer-read-only nil)
+        (point (point-marker))
+        line-number
+        nlines)
+    (setq display-line-numbers-buffer-name buffer-file-name)
+    (setq display-line-numbers-modified-p (buffer-modified-p))
+    (save-restriction
+      (widen)
+      (save-excursion
+        (setq display-line-numbers-first-line
+              (if arg
+                  (window-start (selected-window))
+                (point-min)))
+        (goto-char display-line-numbers-first-line)
+        (setq line-number (1+ (count-lines (point-min) (point))))
+        (if arg
+            (move-to-window-line -1)
+          (goto-char (point-max)))
+        (beginning-of-line)
+        (setq nlines (count-lines display-line-numbers-first-line (point)))
+        (let ((max (+ line-number nlines)))
+          (setq display-line-numbers-format-string (cond ((< max 100) "%2d ")
+                                    ((< max 1000) "%3d ")
+                                    ((< max 10000) "%4d ")
+                                    (t "%7d "))))))
+    (save-excursion
+      (condition-case nil
+          (progn
+            (goto-char display-line-numbers-first-line)
+            (setq buffer-file-name nil) ; To prevent saving with line numbers etc.
+            (setq displaying-line-numbers-p t)
+            (while (<= display-line-numbers-count nlines)
+              (insert-before-markers
+               (format display-line-numbers-format-string line-number))
+              (setq line-number (1+ line-number))
+              (setq display-line-numbers-count (1+ display-line-numbers-count))
+              (forward-line 1))
+            (when arg
+              (set-window-start (selected-window) display-line-numbers-first-line))
+            (goto-char point)
+            (set-buffer-modified-p display-line-numbers-modified-p))
+    (error
+     (progn
+           (goto-char display-line-numbers-first-line)
+           (let ((n (1+ (- (aref display-line-numbers-format-string 1) ?0))))
+             (while (> display-line-numbers-count 0)
+               (setq display-line-numbers-count (1- display-line-numbers-count))
+               (delete-char n)
+               (forward-line 1)))
+           (setq buffer-file-name display-line-numbers-buffer-name)
+           (set-buffer-modified-p display-line-numbers-modified-p)
+           (setq displaying-line-numbers-p nil))))))
+  (let ((curr-line (count-lines (window-start) (point))))
+    (when (> curr-line 0) (setq curr-line (1+ curr-line)))
+    (recenter curr-line)))
+
+;;;###autoload
+(defun turn-off-line-numbers-display ()
+  "Clear displayed line numbers from left margin of current buffer."
+  (interactive)
+  (unless (eq (current-buffer) (window-buffer (selected-window)))
+    (error "Current buffer, `%s', is not the selected window's buffer"
+             (buffer-name)))
+  (unless displaying-line-numbers-p
+    (error "Not displaying line numbers in buffer `%s'" (buffer-name)))
+  (let ((buffer-read-only nil))
+    (save-excursion
+      (when (boundp 'display-line-numbers-buffer-name)
+        (setq buffer-file-name display-line-numbers-buffer-name))
+      (goto-char display-line-numbers-first-line)
+      (let ((n (1+ (- (aref display-line-numbers-format-string 1) ?0))))
+        (while (> display-line-numbers-count 0)
+          (setq display-line-numbers-count (1- display-line-numbers-count))
+          (delete-char n)
+          (forward-line 1)))
+      (when (boundp 'display-line-numbers-modified-p)
+        (set-buffer-modified-p display-line-numbers-modified-p))
+      (setq displaying-line-numbers-p nil))))
+
+
+;;;;;;;;;;;;;;;;;;;;;;;
+
+(provide 'line-num)
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;; line-num.el ends here

data/workshop/emacs.d/install-elisp.el

@@ -0,0 +1,366 @@
+;;; install-elisp.el --- Simple Emacs Lisp installer
+;; $Id: install-elisp.el,v 1.18 2009/01/25 17:47:20 rubikitch Exp $
+
+;; Copyright (C) 2007  rubikitch
+
+;; Author: rubikitch <rubikitch@ruby-lang.org>
+;; Keywords: lisp, convenience, maint
+;; URL: http://www.emacswiki.org/cgi-bin/wiki/download/install-elisp.el
+
+;; This file is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+
+;; This file is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to
+;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
+
+;;; Commentary:
+
+;; Automate Emacs Lisp installation.
+;; (1) download Emacs Lisp
+;; (!) confirm installation
+;; (2) save to your repository
+;; (3) byte compile
+;; (4) load
+;; (5) show Emacs Lisp
+
+;;; Commands:
+;;
+;; Below are complete command list:
+;;
+;;  `install-elisp'
+;;    Retrieve Emacs Lisp program from URL and save and byte-compile and load.
+;;  `install-elisp-from-emacswiki'
+;;    Install Emacs Lisp program from the EmacsWiki.
+;;  `install-elisp-from-gist'
+;;    Install Emacs Lisp program from gist.
+;;  `dired-install-elisp-from-emacswiki'
+;;    Upgrade the current Emacs Lisp program from the EmacsWiki.
+;;  `install-elisp-confirmation-minor-mode'
+;;    Emacs Lisp install confirmation.
+;;
+;;; Customizable Options:
+;;
+;; Below are customizable option list:
+;;
+;;  `install-elisp-repository-directory'
+;;    Directory to save Emacs Lisp programs downloaded by install-elisp.el. 
+;;    default = "~/.emacs.d/"
+;;  `install-elisp-use-view-mode'
+;;    If non-nil, turn on `view-mode' for installed Emacs Lisp program.
+;;    default = t
+;;  `install-elisp-use-url-retrieve'
+;;    If nil, use external command-line HTTP client instead.
+;;    default = (fboundp (quote url-retrieve-synchronously))
+;;  `install-elisp-confirm-flag'
+;;    If non-nil, do install confirmation.
+;;    default = t
+;;  `install-elisp-retrieval-program'
+;;    URL retrieving program used when `install-elisp-use-url-retrieve' is nil.
+;;    default = "wget -q -O- '%s'"
+
+;;; Installation:
+
+;; If you use Emacs21 and under, you must have wget or other
+;; command-line HTTP client.
+
+;; You need to add to .emacs:  
+;;   (require 'install-elisp)
+;;   (setq install-elisp-repository-directory "~/.emacs.d/")
+
+;;; Usage:
+
+;; M-x install-elisp
+;; M-x install-elisp-from-emacswiki
+;; M-x install-elisp-from-gist
+;; M-x dired-install-elisp-from-emacswiki
+;;
+;; It is convenient to add to your Emacs Lisp programs:
+;;   (install-elisp "http://your.site/hogehoge.el")
+;; because users have only to evaluate this sexp by C-x C-e.
+
+;; If you want to complete EmacsWiki pagename, eval:
+;;   (install-elisp "http://www.emacswiki.org/cgi-bin/wiki/download/oddmuse.el")
+;; It is very convenient to access EmacsWiki with oddmuse.el.
+
+;;; Upgrade this program:
+
+;; Simply eval:
+;;  (install-elisp-from-emacswiki "install-elisp.el")
+
+;;; Related project:
+
+;; Emacs Lisp Package Archive: http://tromey.com/elpa/
+;; auto-install.el is successor of this:
+;;   http://www.emacswiki.org/cgi-bin/wiki/download/auto-install.el
+
+;;; Bug Report:
+;;
+;; If you have problem, send a bug report via M-x install-elisp-send-bug-report.
+;; The step is:
+;;  0) Setup mail in Emacs, the easiest way is:
+;;       (setq user-mail-address "your@mail.address")
+;;       (setq user-full-name "Your Full Name")
+;;       (setq smtpmail-smtp-server "your.smtp.server.jp")
+;;       (setq mail-user-agent 'message-user-agent)
+;;       (setq message-send-mail-function 'message-smtpmail-send-it)
+;;  1) Be sure to use the LATEST version of install-elisp.el.
+;;  2) Enable debugger. M-x toggle-debug-on-error or (setq debug-on-error t)
+;;  3) Use Lisp version instead of compiled one: (load "install-elisp.el")
+;;  4) Do it!
+;;  5) If you got an error, please do not close *Backtrace* buffer.
+;;  6) M-x install-elisp-send-bug-report and M-x insert-buffer *Backtrace*
+;;  7) Describe the bug using a precise recipe.
+;;  8) Type C-c C-c to send.
+;;  # If you are a Japanese, please write in Japanese:-)
+
+;;; History:
+
+;; $Log: install-elisp.el,v $
+;; Revision 1.18  2009/01/25 17:47:20  rubikitch
+;; New command: `install-elisp-from-gist'
+;;
+;; Revision 1.17  2009/01/24 18:54:54  rubikitch
+;; Fixed unbound `find-function-source-path'.
+;;
+;; Revision 1.16  2009/01/21 10:19:57  rubikitch
+;; Restore `mode-line-format' when installation is done.
+;;
+;; Revision 1.15  2008/12/27 10:56:25  rubikitch
+;; Use font-lock.
+;;
+;; Revision 1.14  2008/12/27 10:45:11  rubikitch
+;; Make install-elisp find the package's directory,
+;; if found use package's directory, otherwise use `install-elisp-repository-directory'.
+;; patched by Andy Stewart (with slightly modified), thanks.
+;;
+;; Revision 1.13  2008/12/27 09:14:42  rubikitch
+;; "Get elisp from..." message
+;;
+;; Revision 1.12  2007/07/25 20:38:08  rubikitch
+;; use defgroup.
+;; install-elisp-retrieval-program:  "wget -q -O- '%s'" by default.
+;;
+;; Revision 1.11  2007/07/25 19:43:22  rubikitch
+;; New variable: install-elisp-retrieval-program
+;;
+;; use `defcustom'.
+;;
+;; Revision 1.10  2007/07/25 19:27:43  rubikitch
+;; update Commentary and Usage
+;;
+;; Revision 1.9  2007/07/25 19:20:08  rubikitch
+;; install-elisp-confirmation-minor-mode: pretty mode-line-format
+;;
+;; Revision 1.8  2007/07/25 19:11:50  rubikitch
+;; EmacsWiki HTTP workaround
+;;
+;; Revision 1.7  2007/07/25 19:02:57  rubikitch
+;; Install confirmation for security.
+;;
+;; Revision 1.6  2007/07/25 17:58:39  rubikitch
+;; New command: dired-install-elisp-from-emacswiki
+;;
+;; Revision 1.5  2007/07/25 17:50:30  rubikitch
+;; `install-elisp-repository-directory': "~/.emacs.d/" by default.
+;;
+;; Revision 1.4  2007/07/25 17:47:21  rubikitch
+;; rename function: %install-elisp-from -> install-elisp-from
+;;
+;; Revision 1.3  2007/07/25 17:46:13  rubikitch
+;; use `url-retrieve-synchronously' if available
+;;
+;; Revision 1.2  2007/07/24 10:44:31  rubikitch
+;; Fixed a serious bug.
+;; New variable: install-elisp-use-view-mode
+;;
+;; Revision 1.1  2007/07/24 10:39:40  rubikitch
+;; Initial revision
+;;
+
+;;; Code:
+
+(require 'find-func)
+
+(defgroup install-elisp nil
+  "Simple Emacs Lisp installer."
+  :group 'hypermedia)
+
+(defcustom install-elisp-repository-directory "~/.emacs.d/"
+  "Directory to save Emacs Lisp programs downloaded by install-elisp.el. "
+  :group 'install-elisp)
+
+(defcustom install-elisp-use-view-mode t
+  "If non-nil, turn on `view-mode' for installed Emacs Lisp program."
+  :group 'install-elisp)
+
+(defcustom install-elisp-use-url-retrieve (fboundp 'url-retrieve-synchronously)
+  "If nil, use external command-line HTTP client instead.
+See also `install-elisp-retrieval-program'."
+  :group 'install-elisp)
+
+(defcustom install-elisp-confirm-flag t
+  "If non-nil, do install confirmation.
+You should set it non-nil for security reason."
+  :group 'install-elisp)
+
+(defcustom install-elisp-retrieval-program "wget -q -O- '%s'"
+  "URL retrieving program used when `install-elisp-use-url-retrieve' is nil.
+If you use curl, set it to \"curl --silent '%s'\"."
+  :group 'install-elisp)
+
+(defvar install-elisp-filename nil)
+(make-variable-buffer-local 'install-elisp-filename)
+
+(defvar install-elisp-confirmation-minor-mode-map (make-sparse-keymap))
+
+(defun %install-elisp-create-buffer (url)
+  (message "Get elisp from %s" url)
+  (cond (install-elisp-use-url-retrieve
+         (switch-to-buffer (url-retrieve-synchronously url))
+         (goto-char (point-min))
+         (re-search-forward "^$" nil 'move)
+         (delete-region (point-min) (1+ (point)))
+         (%install-elisp-emacswiki-http-workaround))
+        (t
+         (let ((buffer (generate-new-buffer " *install-elisp-tmp*")))
+           (shell-command (format install-elisp-retrieval-program url) buffer)
+           (switch-to-buffer buffer))))
+  (emacs-lisp-mode)
+  (setq font-lock-mode t)
+  (font-lock-fontify-buffer))
+
+;; I do not know why!!
+(defun %install-elisp-emacswiki-http-workaround ()
+  (save-excursion
+    (let (buffer-read-only)
+      (goto-char (1- (point-max)))
+      (when (eq (char-before) ?\C-m)
+        (delete-backward-char 2)))))
+
+(defun install-elisp-proceed ()
+  (interactive)
+  (write-file install-elisp-filename)
+  (byte-compile-file buffer-file-name t)
+  (install-elisp-confirmation-minor-mode -1))
+
+;;;###autoload
+(defun install-elisp (url &optional filename)
+  "Retrieve Emacs Lisp program from URL and save and byte-compile and load.
+If optional FILENAME is supplied, save URL as FILENAME, otherwise URL's basename."
+  (interactive "sInstall Emacs Lisp from URL: ")
+  (if (null install-elisp-repository-directory)
+      (with-output-to-temp-buffer "*Help*"
+        (princ "You must prepare to use install-elisp program!
+Set `install-elisp-repository-directory' to your local Emacs Lisp repository directory in your ~/.emacs.
+
+For example: (setq install-elisp-repository-directory \"~/emacs/lisp/\")"))
+    (%install-elisp-create-buffer url)
+    (and install-elisp-use-view-mode (view-mode 1))
+    (setq install-elisp-filename
+          (%install-elisp-get-filename (or filename (file-name-nondirectory url))))
+    (if (not install-elisp-confirm-flag)
+        (install-elisp-proceed)
+      (install-elisp-confirmation-minor-mode 1)
+      (message "Type C-c C-c to do installation!"))))
+
+;; (%install-elisp-find-library-name "vc.el")
+;; (%install-elisp-find-library-name "vc.elc")
+(defun %install-elisp-find-library-name (library)
+  "Return the absolute file name of the Lisp source of LIBRARY."
+  ;; If the library is byte-compiled, try to find a source library by
+  ;; the same name.
+  (if (string-match "\\.el\\(c\\(\\..*\\)?\\)\\'" library)
+      (setq library (replace-match "" t t library)))
+  (locate-file library
+               (or find-function-source-path load-path)
+               (append (find-library-suffixes) load-file-rep-suffixes)))
+
+;; (%install-elisp-get-filename "vc.el")
+;; (%install-elisp-get-filename "vc.elc")
+;; (%install-elisp-get-filename "icicles.el")
+;; (%install-elisp-get-filename "hoge.el")
+(defun %install-elisp-get-filename (filename)
+  (let ((lib-file (%install-elisp-find-library-name filename)))
+    (if (and lib-file (file-writable-p lib-file))
+        ;; use current directory,
+        ;; if file is not in `install-elisp-repository-directory'.
+        lib-file
+      ;; otherwise use `install-elisp-repository-directory'.
+      (expand-file-name filename install-elisp-repository-directory))))
+
+(defun install-elisp-from (baseurl)
+  "Return higher-order function installing from BASEURL, which accepts an argument FILENAME."
+  `(lambda (filename)
+     (install-elisp (concat ,baseurl filename) filename)))
+
+;;;###autoload
+(defun install-elisp-from-emacswiki (filename)
+  "Install Emacs Lisp program from the EmacsWiki."
+  (interactive (list (if (fboundp 'oddmuse-read-pagename)
+                         (oddmuse-read-pagename "EmacsWiki")
+                       (read-string "PageName: "))))
+  (funcall (install-elisp-from "http://www.emacswiki.org/cgi-bin/wiki/download/") filename))
+
+;;;###autoload
+(defun install-elisp-from-gist (gistid &optional filename)
+  "Install Emacs Lisp program from gist."
+  (interactive "sInstall Emacs Lisp from gist ID: ")
+  (install-elisp (concat "http://gist.github.com/" (format "%s" gistid) ".txt")
+                 (or filename
+                     (format "gist-%s.el" gistid))))
+
+;;;###autoload
+(defun dired-install-elisp-from-emacswiki (&optional filename)
+  "Upgrade the current Emacs Lisp program from the EmacsWiki."
+  (interactive (list (dired-get-filename t)))
+  (install-elisp-from-emacswiki filename))
+
+(define-key install-elisp-confirmation-minor-mode-map "\C-c\C-c" 'install-elisp-proceed)
+
+(define-minor-mode install-elisp-confirmation-minor-mode
+  "Emacs Lisp install confirmation."
+  nil "" install-elisp-confirmation-minor-mode-map
+  (if install-elisp-confirmation-minor-mode
+      (setq mode-line-format
+            (format "%s: Type C-c C-c to install!"
+                    (file-name-nondirectory install-elisp-filename)))
+    (setq mode-line-format default-mode-line-format)))
+
+;;;; Bug report
+(defvar install-elisp-maintainer-mail-address
+  (concat "rubiki" "tch@ru" "by-lang.org"))
+(defvar install-elisp-bug-report-salutation
+  "Describe bug below, using a precise recipe.
+
+When I executed M-x ...
+
+How to send a bug report:
+  1) Be sure to use the LATEST version of install-elisp.el.
+  2) Enable debugger. M-x toggle-debug-on-error or (setq debug-on-error t)
+  3) Use Lisp version instead of compiled one: (load \"install-elisp.el\")
+  4) If you got an error, please paste *Backtrace* buffer.
+  5) Type C-c C-c to send.
+# If you are a Japanese, please write in Japanese:-)")
+(defun install-elisp-send-bug-report ()
+  (interactive)
+  (reporter-submit-bug-report
+   install-elisp-maintainer-mail-address
+   "install-elisp.el"
+   (apropos-internal "^install-elisp-" 'boundp)
+   nil nil
+   install-elisp-bug-report-salutation))
+
+(provide 'install-elisp)
+
+;; How to save (DO NOT REMOVE!!)
+;; (emacswiki-post "install-elisp.el")
+;;; install-elisp.el ends here