ruby_learner 1.1.2 → 1.1.3

data/workshop/emacs.d/iceberg_theme.el

@@ -1,202 +0,0 @@
-;;; iceberg --- a dark blue theme
-;;; Commentary:
-;; _________________________________________
-;; \_ _/ ____| ____| ___ \ ____| ___ \  ___/
-;;  | | |____| ____| ___ < ____| __  / |__ \
-;; /___\_____|_____|_____/_____|_| \_\_____/
-;;
-;;  cool-headed perspective for your coding
-;;
-;;
-;; File:        iceberg.el
-;; Colorscheme: cocopon <cocopon@me.com>
-;; Port:        apnsngr <github.com/apnsngr>
-;; License:     MIT
-;;
-;; Special thanks to Bozhidar Batsov (bbatsov).  I used his zenburn Emacs theme
-;; as a guide for this theme.
-
-;;; Code:
-
-(deftheme iceberg)
-
-(let
-    ((class '((class color) (min-colors 89)))
-      (background "#161822")
-      (current-line "#1E2132")
-      (selection "#282D43")
-      (foreground "#C7C9D1")
-      (comment "#6B7089")
-      (cursor "#C7C9D1")
-      (line-number-fg "#454D73")
-      (red "#E27878")
-      (orange "#E2A478")
-      (green "#B4BE82")
-      (cyan "#89B8C2")
-      (blue "#84A0C6")
-      (purple "#A093C7")
-      (black "#0E0F14"))
-
-  (custom-theme-set-faces
-   'iceberg
-
-   ;; Built-in
-   `(default ((t (:background ,background :foreground ,foreground))))
-   `(fringe ((t (:background ,current-line))))
-   `(minibuffer-prompt ((t (:foreground ,blue))))
-   `(menu ((t (:foreground ,foreground :background ,background))))
-   `(mode-line
-     ((t (:background ,current-line
-                      :foreground ,foreground
-                      :box (:line-width -1 :style released-button)))))
-   `(mode-line-inactive
-     ((t (:background ,current-line :foreground ,foreground))))
-   `(mode-line-buffer-id ((t (:foreground ,cyan :weight bold))))
-   `(region ((t (:background ,selection))))
-   `(highlight ((t (:background ,selection))))
-   `(success ((t (:foreground ,green :weight bold))))
-   `(warning ((t (:foreground ,red :weight bold))))
-
-   ;; Font-lock
-   `(font-lock-builtin-face ((t (:foreground ,foreground :weight bold))))
-   `(font-lock-comment-face ((t (:foreground ,comment))))
-   `(font-lock-comment-delimiter-face ((t :foreground ,comment)))
-   `(font-lock-constant-face ((t (:foreground ,purple))))
-   `(font-lock-doc-face ((t (:foreground ,comment))))
-   `(font-lock-doc-string-face ((t (:foreground ,comment))))
-   `(font-lock-function-name-face ((t (:foreground ,orange))))
-   `(font-lock-keyword-face ((t (:foreground ,blue))))
-   `(font-lock-preprocessor-face ((t (:foreground ,green))))
-   `(font-lock-string-face ((t (:foreground ,cyan))))
-   `(font-lock-type-face ((t (:foreground ,cyan))))
-   `(font-lock-variable-name-face ((t (:foreground ,purple))))
-   `(font-lock-warning-face ((t (:foreground ,red))))
-
-   ;; Everything else (ordered by alphabetically)
-
-   ;; diff
-   `(diff-added ((,class (:foreground ,green :background nil))
-                 (t (:foreground ,green :background nil))))
-   `(diff-changed ((t (:foreground ,orange))))
-   `(diff-removed ((,class (:foreground ,red :background nil))
-                   (t (:foreground ,red :background nil))))
-   `(diff-refine-added ((t (:inherit diff-added :weight bold))))
-   `(diff-refine-change ((t (:inherit diff-changed :weight bold))))
-   `(diff-refine-removed ((t (:inherit diff-removed :weight bold))))
-   `(diff-header ((,class (:background ,current-line))
-                  (t (:background ,foreground :foreground ,background))))
-   `(diff-file-header
-     ((,class (:background ,current-line :foreground ,foreground :bold t))
-      (t (:background ,foreground :foreground ,background :bold t))))
-
-   ;; diff-hl
-   `(diff-hl-change ((,class (:foreground ,orange :background ,current-line))))
-   `(diff-hl-delete ((,class (:foreground ,red :background ,current-line))))
-   `(diff-hl-insert ((,class (:foreground ,green :background ,current-line))))
-   `(diff-hl-unknown ((,class (:foreground ,cyan :background ,current-line))))
-
-   ;; flycheck
-   `(flycheck-error
-     ((((supports :underline (:style wave)))
-       (:underline (:style wave :color ,red) :inherit unspecified))
-      (t (:foreground ,red :weight bold :underline t))))
-   `(flycheck-warning
-     ((((supports :underline (:style wave)))
-       (:underline (:style wave :color ,orange) :inherit unspecified))
-      (t (:foreground ,orange :weight bold :underline t))))
-   `(flycheck-info
-     ((((supports :underline (:style wave)))
-       (:underline (:style wave :color ,blue) :inherit unspecified))
-      (t (:foreground ,blue :weight bold :underline t))))
-   `(flycheck-fringe-error ((t (:foreground ,red :weight bold))))
-   `(flycheck-fringe-warning ((t (:foreground ,orange :weight bold))))
-   `(flycheck-fringe-info ((t (:foreground ,blue :weight bold))))
-
-   ;; hl-line-mode
-   `(hl-line ((t (:background ,current-line))))
-
-   ;; ido-mode
-   `(do-first-match ((t (:foreground ,blue :weight bold))))
-   `(ido-only-match ((t (:foreground ,green :weight bold))))
-   `(ido-subdir ((t (:foreground ,cyan))))
-
-   ;; isearch
-   `(isearch ((t (:foreground ,foreground :weight bold
-                              :background ,selection))))
-   `(isearch-fail ((t (:foreground ,foreground :background ,red))))
-   `(lazy-highlight ((t (:foreground ,foreground :weight bold
-                                     :background ,current-line))))
-
-   ;; linum-mode
-   `(linum ((t (:foreground ,line-number-fg :background ,current-line))))
-
-   ;; org-mode
-   `(org-agenda-date-today
-     ((t (:foreground ,foreground :slant italic :weight bold))) t)
-   `(org-agenda-structure
-     ((t (:inherit font-lock-comment-face))))
-   `(org-archived ((t (:foreground ,foreground :weight bold))))
-   `(org-checkbox ((t (:background ,background :foreground ,foreground
-                                   :box (:line-width 1 :style released-button)))))
-   `(org-date ((t (:foreground ,purple))))
-   `(org-deadline-announce ((t (:foreground ,red))))
-   `(org-done ((t (:foreground ,green))))
-   `(org-formula ((t (:foreground ,orange))))
-   `(org-headline-done ((t (:foreground ,green))))
-   `(org-hide ((t (:foreground ,comment))))
-   `(org-level-1 ((t (:foreground ,blue))))
-   `(org-level-2 ((t (:foreground ,purple))))
-   `(org-level-3 ((t (:foreground ,cyan))))
-   `(org-level-4 ((t (:foreground ,green))))
-   `(org-level-5 ((t (:foreground ,red))))
-   `(org-level-6 ((t (:foreground ,orange))))
-   `(org-level-7 ((t (:foreground ,comment))))
-   `(org-level-8 ((t (:foreground ,foreground))))
-   `(org-link ((t (:foreground ,cyan))))
-   `(org-scheduled ((t (:foreground ,green))))
-   `(org-scheduled-previously ((t (:foreground ,red))))
-   `(org-scheduled-today ((t (:foreground ,blue))))
-   `(org-sexp-date ((t (:foreground ,blue :underline t))))
-   `(org-special-keyword ((t (:inherit font-lock-comment-face))))
-   `(org-table ((t (:foreground ,blue))))
-   `(org-tag ((t (:bold t :weight bold))))
-   `(org-time-grid ((t (:foreground ,blue))))
-   `(org-todo ((t (:bold t :foreground ,cyan :weight bold))))
-   `(org-upcoming-deadline ((t (:inherit font-lock-keyword-face))))
-   `(org-warning ((t (:bold t :foreground ,orange :weight bold :underline nil))))
-   `(org-column ((t (:background ,current-line))))
-   `(org-column-title ((t (:background ,background :underline t :weight bold))))
-   `(org-mode-line-clock-overrun ((t (:foreground ,background :background ,red))))
-   `(org-footnote ((t (:foreground ,cyan :underline t))))
-
-   ;; rainbow-delimiters
-   `(rainbow-delimiters-depth-1-face ((t (:foreground ,purple))))
-   `(rainbow-delimiters-depth-2-face ((t (:foreground ,blue))))
-   `(rainbow-delimiters-depth-3-face ((t (:foreground ,cyan))))
-   `(rainbow-delimiters-depth-4-face ((t (:foreground ,green))))
-   `(rainbow-delimiters-depth-5-face ((t (:foreground ,orange))))
-   `(rainbow-delimiters-depth-6-face ((t (:foreground ,red))))
-   `(rainbow-delimiters-depth-7-face ((t (:foreground ,comment))))
-   `(rainbow-delimiters-depth-8-face ((t (:foreground ,line-number-fg))))
-   `(rainbow-delimiters-depth-9-face ((t (:foreground ,foreground))))
-
-   ;; show-paren-mode
-   `(show-paren-match ((t (:background ,blue :foreground ,current-line))))
-   `(show-paren-mismatch ((t (:background ,orange :foreground ,current-line))))
-
-   )
-
-  (custom-theme-set-variables
-   'iceberg
-   ;; TODO ANSI colors
-   ))
-
-;;;###autoload
-(and load-file-name
-  (boundp 'custom-theme-load-path)
-  (add-to-list 'custom-theme-load-path
-               (file-name-as-directory
-                (file-name-directory load-file-name))))
-
-(provide-theme 'iceberg)
-;;; iceberg-theme.el ends here

data/workshop/emacs.d/init-open-recentf.el

@@ -1,133 +0,0 @@
-;;; init-open-recentf.el --- Open recentf immediately after Emacs is started -*- coding: utf-8 ; lexical-binding: t -*-
-
-;; Copyright (C) 2015 USAMI Kenta
-
-;; Author: USAMI Kenta <tadsan@zonu.me>
-;; Created: 26 Oct 2015
-;; Version: 0.0.1
-;; Homepage: https://github.com/zonuexe/init-open-recentf.el
-;; Keywords: files recentf after-init-hook
-;; Package-Requires: ((emacs "24.4"))
-
-;; This file is NOT part of GNU Emacs.
-
-;; 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 3 of the License, 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.  If not, see <http://www.gnu.org/licenses/>.
-
-;;; Commentary:
-;;
-;; Open recentf immediately after Emacs is started.
-;; Here are some example scenarios for when Emacs is started from the command line:
-;;   - If files are opened (e.g. '$ emacs file1.txt'), nothing out of the ordinary occurs-- the file is opened.
-;;   - However if a file is not indicated (e.g. '$ emacs '), recentf will be opened after emacs is initialized.
-;; This script uses only the inbuilt advice function for startup.  It does not require or use any interactive function.
-;; (This approach is a dirty hack, but an alternative hook to accomplish the same thing does not exist.)
-;;
-;; Put the following into your .emacs file (~/.emacs.d/init.el)
-;;
-;;   (init-open-recentf)
-;;
-;; `init-open-recentf' supports the following frameworks: helm, ido, anything (and the default Emacs setup without those frameworks).
-;;  The package determines the frameworks from your environment, but you can also indicate it explicitly.
-;;
-;;   (setq init-open-recentf-interface 'ido)
-;;   (init-open-recentf)
-;;
-;; Another possible configuration is demonstrated below if you want to specify an arbitrary function.
-;;
-;;   (setq init-open-recentf-function #'awesome-open-recentf)
-;;   (init-open-recentf)
-;;
-
-;;; Code:
-(require 'cl-lib)
-(require 'recentf)
-
-(defgroup init-open-recentf nil
-  "init-open-recentf"
-  :group 'initialization)
-
-(defcustom init-open-recentf-function
-  nil
-  "Function to open recentf files (or other)."
-  :type '(function :tag "Invoke recentf (or other) function")
-  :group 'init-open-recentf)
-
-(defcustom init-open-recentf-interface
-  nil
-  "Interface to open recentf files."
-  :type '(radio (const :tag "Use ido interface" 'ido)
-                (const :tag "Use helm interface" 'helm)
-                (const :tag "Use anything interface" 'anything)
-                (const :tag "Use Ivy/counsel interface" 'counsel)
-                (const :tag "Use Emacs default (recentf-open-files)" 'default)
-                (const :tag "Select automatically" 'nil))
-  :group 'init-open-recentf)
-
-(defvar init-open-recentf-before-hook nil
-  "Run hooks before `init-open-recentf-open'.")
-
-(defvar init-open-recentf-after-hook nil
-  "Run hooks after `init-open-recentf-open'.")
-
-(defun init-open-recentf-buffer-files ()
-  "Return list of opened file names."
-  (let ((found-files '()))
-    (dolist (buffer (buffer-list))
-      (with-current-buffer buffer
-        (when buffer-file-name
-          (cl-pushnew buffer-file-name found-files))))
-    found-files))
-
-(defun init-open-recentf-interface ()
-  ""
-  (or init-open-recentf-interface
-      (cond
-       ((and (boundp 'helm-mode) helm-mode) 'helm)
-       ((and (boundp 'ido-mode) ido-mode) 'ido)
-       ((and (boundp 'counsel-mode) counsel-mode) 'counsel)
-       ((fboundp 'anything-recentf) 'anything)
-       (:else 'default))))
-
-(defun init-open-recentf-dwim ()
-  "Open recent file command you want (Do What I Mean)."
-  (if init-open-recentf-function
-      (call-interactively init-open-recentf-function)
-    (cl-case (init-open-recentf-interface)
-      ((helm) (helm-recentf))
-      ((ido) (find-file (ido-completing-read "Find recent file: " recentf-list)))
-      ((counsel) (counsel-recentf))
-      ((anything) (anything-recentf))
-      ((default) (recentf-open-files)))))
-
-(defun init-open-recentf-open (&rest dummy-args)
-  "If files are opened, does nothing.  Open recentf otherwise.
-`DUMMY-ARGS' is ignored."
-  (prog2
-      (run-hooks 'init-open-recentf-before-hook)
-      (cond
-       ((init-open-recentf-buffer-files) t)
-       ((recentf-enabled-p) (init-open-recentf-dwim))
-       (:else
-        (error "`recentf-mode' is not enabled")))
-    (run-hooks 'init-open-recentf-after-hook)
-    (advice-remove 'display-startup-screen #'init-open-recentf-open)))
-
-;;;###autoload
-(defun init-open-recentf ()
-  "Set 'after-init-hook ."
-  (advice-add 'command-line-1 :after #'init-open-recentf-open)
-  t)
-
-(provide 'init-open-recentf)
-;;; init-open-recentf.el ends here

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

@@ -1,366 +0,0 @@
-;;; 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