1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228 |
- ;;; auto-install.el --- Auto install elisp file
- ;; Filename: auto-install.el
- ;; Description: Auto install elisp file
- ;; Author: Andy Stewart <lazycat.manatee@gmail.com>
- ;; rubikitch <rubikitch@ruby-lang.org>
- ;; Maintainer: rubikitch <rubikitch@ruby-lang.org>
- ;; Copyright (C) 2008, 2009, Andy Stewart, all rights reserved.
- ;; Copyright (C) 2009, rubikitch, all rights reserved.
- ;; Created: 2008-12-11 13:56:50
- ;; Version: $Revision: 1.24 $
- ;; Last-Updated: Fri May 22 13:07:04 2009 (-0700)
- ;; By: dradams
- ;; URL: http://www.emacswiki.org/emacs/download/auto-install.el
- ;; Keywords: auto-install
- ;; Compatibility: GNU Emacs 22 ~ 23
- ;;
- ;; Features that might be required by this library:
- ;;
- ;; `backquote', `bytecomp', `dired', `find-func', `ietf-drums',
- ;; `loadhist', `mail-parse', `mail-prsvr', `mailcap', `mm-util',
- ;; `qp', `rfc2045', `rfc2047', `rfc2231', `thingatpt', `time-date',
- ;; `timezone', `url', `url-cookie', `url-expand', `url-history',
- ;; `url-methods', `url-parse', `url-privacy', `url-proxy',
- ;; `url-util', `url-vars'.
- ;;
- (defvar auto-install-version "$Id: auto-install.el,v 1.24 2010/01/05 09:40:04 rubikitch Exp $")
- ;;; This file is NOT part of GNU Emacs
- ;;; License
- ;;
- ;; 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, 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.
- ;;; Commentary:
- ;;
- ;; Automates the installation of Emacs Lisp files and packages.
- ;;
- ;; `auto-install' provides an automated way to:
- ;;
- ;; (1) Download Emacs Lisp files and packages from common sources
- ;; (2) View them (diff) and save them to your repository
- ;; (3) Compile and Load them
- ;;
- ;;; Commands:
- ;;
- ;; Below are complete command list:
- ;;
- ;; `auto-install-minor-mode'
- ;; Auto Install minor mode.
- ;; `auto-install-from-buffer'
- ;; Install the elisp file in the current buffer.
- ;; `auto-install-from-url'
- ;; Install an elisp file from a given url.
- ;; `auto-install-from-emacswiki'
- ;; Install an elisp file from EmacsWiki.org.
- ;; `auto-install-from-gist'
- ;; Install an elisp file from gist.github.com.
- ;; `auto-install-from-library'
- ;; Update an elisp LIBRARY.
- ;; `auto-install-from-directory'
- ;; Update elisp files under DIRECTORY from EmacsWiki.
- ;; `auto-install-from-dired'
- ;; Update dired marked elisp files from EmacsWiki.org.
- ;; `auto-install-update-emacswiki-package-name'
- ;; Update the list of elisp package names from `EmacsWiki'.
- ;; `auto-install-dired-mark-files'
- ;; Mark dired files that contain at `EmacsWiki.org'.
- ;; `auto-install-mode'
- ;; Major mode for auto-installing elisp code.
- ;; `auto-install-buffer-quit'
- ;; Quit from `auto-install' temporary buffer.
- ;; `auto-install-compatibility-setup'
- ;; Install Compatibility commands for install-elisp.el users.
- ;; `auto-install-batch'
- ;; Batch install many libraries in some extension.
- ;; `auto-install-buffer-diff'
- ;; View different between old version.
- ;; `auto-install-buffer-save'
- ;; Save downloaded content to file FILENAME.
- ;;
- ;;; Customizable Options:
- ;;
- ;; Below are customizable option list:
- ;;
- ;; `auto-install-directory'
- ;; The directory for saving elisp files.
- ;; default = "~/.emacs.d/auto-install/"
- ;; `auto-install-buffer-name'
- ;; The temporary buffer for storing download content.
- ;; default = "auto-install"
- ;; `auto-install-emacswiki-base-url'
- ;; The base emacswiki.org url from which to download elisp files.
- ;; default = "http://www.emacswiki.org/cgi-bin/wiki/download/"
- ;; `auto-install-gist-base-url'
- ;; The base gist.github.com url from which to download elisp files.
- ;; default = "http://gist.github.com/"
- ;; `auto-install-filter-url'
- ;; Alist mapping filter url for library.
- ;; default = (quote (("color-grep" "http://www.bookshelf.jp/elc/")))
- ;; `auto-install-save-confirm'
- ;; Whether confirmation is needed to save downloaded content.
- ;; default = t
- ;; `auto-install-replace-confirm'
- ;; Whether confirmation is needed to replace an existing elisp file.
- ;; default = nil
- ;; `auto-install-install-confirm'
- ;; Whether confirmation is needed to install a downloaded elisp file.
- ;; default = nil
- ;; `auto-install-from-dired-confirm'
- ;; Whether confirmation is needed to download marked files from Dired.
- ;; default = t
- ;; `auto-install-batch-list'
- ;; This list contain packages information for batch install.
- ;; default = (quote (("icicles" 21 10 ...) ("auto-complete development version" nil nil ...) ("anything" nil nil ...) ("sdcv" nil nil ...) ("lazy-search" nil nil ...) ...))
- ;;; Tips:
- ;;
- ;; Downloading is asynchronous: you can do your work and download
- ;; files at the same time. The download process won't hang
- ;; Emacs.
- ;;
- ;; `auto-install-from-url' remembers previous installations. So if
- ;; your search is the same as the previous search, you don't need
- ;; to type it in, just hit RETURN.
- ;;
- ;; `auto-install-from-emacswiki' will complete then names of
- ;; packages from those in the Elisp area in `EmacsWiki'.
- ;;
- ;; `auto-install-from-library' will prompt you library name in
- ;; you load-path, then it try to download from EmacsWiki if it
- ;; can't find match in `auto-install-filter-url'.
- ;;
- ;; `auto-install-from-directory' can install elisp file
- ;; under specify directory.
- ;;
- ;; `auto-install-from-dired' can install marked files using dired.
- ;; You can mark the files you want in dired and then use
- ;; `auto-install-from-dired' to download those files
- ;; asynchronously.
- ;;
- ;; `auto-install-from-buffer' can save and install the contents of
- ;; the current buffer as a file. You need a valid elisp file name.
- ;; The default name is the buffer name.
- ;;
- ;; `auto-install-from-emacswiki' and `auto-install-from-library'
- ;; will try to pick up file around point, you can move
- ;; cursor to file name, and just hit RET for install.
- ;;
- ;; Some extension (such as icicles) have many libraries to need install,
- ;; and install one by one is painful, you can use command
- ;; `auto-install-batch' install all icicles libraries.
- ;; And `auto-install-batch' handle max connect limit with some website
- ;; (such as EmacsWiki) to avoid download failed.
- ;;
- ;; All of the above functions support a filename filter. You can
- ;; input any url to download an elisp file, if the file name suffix is
- ;; `.el', it will download and install the file automatically.
- ;; Otherwise, it won't install it unless you input a valid elisp
- ;; file name.
- ;;
- ;; By default, if a file that you download does not exist on your
- ;; system the file is downloaded to `auto-install-directory'. If
- ;; you already have a file with the same name in your load
- ;; directory, `auto-install' will try to replace that file.
- ;;
- ;; You can use command `auto-install-dired-mark-files' to mark files
- ;; that contain at `EmacsWiki.org' for fast update.
- ;;
- ;; By default, command `auto-install-from-emacswiki' will initialization
- ;; current symbol as default value, if default value is you want,
- ;; just hit RET, so lazy!
- ;;
- ;;; Installation:
- ;;
- ;; (1) Put auto-install.el somewhere in your load-path.
- ;;
- ;; For example, put it into ~/elisp/.
- ;; Then add the following to your ~/.emacs:
- ;;
- ;; (add-to-list 'load-path (expand-file-name "~/elisp"))
- ;;
- ;; (2) And put the following in your ~/.emacs startup file:
- ;;
- ;; (require 'auto-install)
- ;;
- ;; (3) Add this to your ~/.emacs to optionally specify a download directory:
- ;;
- ;; (setq auto-install-directory "~/.emacs.d/auto-install/")
- ;;
- ;; If you don't set this, "~/.emacs.d/auto-install/" will be used as the default,
- ;; and will be created as needed.
- ;;
- ;; (4) Optionally, if your computer is always connected Internet when Emacs start up,
- ;; I recommend you add below to your ~/.emacs, to update package name when start up:
- ;;
- ;; (auto-install-update-emacswiki-package-name t)
- ;;
- ;; And above setup is not necessary, because AutoInstall will automatically update
- ;; package name when you just first call `auto-install-from-emacswiki',
- ;; above setup just avoid *delay* when you first call `auto-install-from-emacswiki'.
- ;;
- ;; (5) I recommend you add below to your ~/.emacs for install-elisp users:
- ;;
- ;; (auto-install-compatibility-setup)
- ;;
- ;; This command `defalias'es `install-elisp',
- ;; `install-elisp-from-emacswiki' and `install-elisp-from-gist' to
- ;; `auto-install' ones.
- ;;
- ;; (6) If you want to use proxy server, set `url-proxy-services'. For example:
- ;;
- ;; (setq url-proxy-services '(("http" . "localhost:8339")))
- ;;; Customize:
- ;;
- ;; `auto-install-directory'
- ;; The default directory for keeping auto-downloaded elisp files.
- ;;
- ;; `auto-install-buffer-name'
- ;; The base buffer name for temporarily storing downloaded download content.
- ;;
- ;; `auto-install-emacswiki-base-url'
- ;; The base url for downloading from EmacsWiki.org.
- ;;
- ;; `auto-install-gist-base-url'
- ;; The base url for downloading from gist.github.com
- ;;
- ;; `auto-install-filter-url'
- ;; Filter url for downloading a special library.
- ;;
- ;; `auto-install-save-confirm'
- ;; Whether to require confirmation when saving downloaded content.
- ;;
- ;; `auto-install-replace-confirm'
- ;; Whether to require confirmation when replacing an already-installed
- ;; file.
- ;;
- ;; `auto-install-install-confirm'
- ;; Whether to require confirmation when installing a file.
- ;;
- ;; `auto-install-from-dired-confirm'
- ;; Whether to require confirmation when downloading files marked in dired.
- ;;
- ;; `auto-install-batch-list'
- ;; This list contain packages information for batch install.
- ;; Anyone can add packages information in this list for batch install.
- ;;
- ;; And all above option can customize easy through:
- ;; M-x RET customize-group RET auto-install RET
- ;;
- ;;; Change log:
- ;;
- ;; $Log: auto-install.el,v $
- ;; Revision 1.24 2010/01/05 09:40:04 rubikitch
- ;; fixed error of auto-complete development version in `auto-install-batch-list'
- ;;
- ;; Revision 1.23 2009/12/29 09:31:23 rubikitch
- ;; add Text Translator to auto-install-batch-list
- ;;
- ;; Revision 1.22 2009/12/21 12:51:56 rubikitch
- ;; Update auto-install-batch anything
- ;;
- ;; Revision 1.21 2009/12/21 12:26:54 rubikitch
- ;; New URL for auto-complete development version
- ;;
- ;; Revision 1.20 2009/05/22 20:17:24 rubikitch
- ;; Merged from dradams' change
- ;;
- ;; Revision 1.19 2009/05/22 13:04:56 dadams
- ;; Split icicles-cmd.el into icicles-cmd[12].el.
- ;;
- ;; Revision 1.18 2009/05/20 15:42:54 rubikitch
- ;; Add php-completion / perl-completion to auto-install-batch-list
- ;;
- ;; Revision 1.17 2009/05/20 01:19:15 rubikitch
- ;; Add document for proxy server
- ;;
- ;; Revision 1.16 2009/05/15 20:28:18 rubikitch
- ;; More readable temporary buffer name.
- ;;
- ;; Revision 1.15 2009/05/15 20:12:49 rubikitch
- ;; Added missing require
- ;;
- ;; Revision 1.14 2009/05/15 20:11:44 rubikitch
- ;; How to save
- ;;
- ;; Revision 1.13 2009/05/15 20:09:07 rubikitch
- ;; Code cleanup
- ;;
- ;; Revision 1.12 2009/05/15 19:59:30 rubikitch
- ;; Fixed a bug of single file installation
- ;;
- ;; Revision 1.11 2009/05/15 19:44:32 rubikitch
- ;; Ordering `auto-install-batch'
- ;;
- ;; Revision 1.10 2009/05/15 17:48:09 rubikitch
- ;; Replace `message' with `error' for error messages.
- ;;
- ;; Revision 1.9 2009/05/15 17:40:37 rubikitch
- ;; refactoring
- ;;
- ;; Revision 1.8 2009/05/15 17:19:47 rubikitch
- ;; refactoring
- ;;
- ;; Revision 1.7 2009/05/15 17:17:03 rubikitch
- ;; Use `view-mode' if `view-read-only'.
- ;;
- ;; Revision 1.6 2009/05/15 17:10:22 rubikitch
- ;; Adjust docstrings of commands to auto-document.
- ;; Delete `It provides the following commands:' section because of duplication.
- ;;
- ;; Revision 1.5 2009/05/15 17:03:13 rubikitch
- ;; Show downloaded URL in header-line.
- ;;
- ;; Revision 1.4 2009/05/15 16:59:32 rubikitch
- ;; New internal variable: `auto-install-add-load-path-flag'
- ;;
- ;; Revision 1.3 2009/05/09 02:41:32 rubikitch
- ;; Add `auto-install-directory' automatically.
- ;;
- ;; Revision 1.2 2009/05/09 02:37:14 rubikitch
- ;; Changed `auto-install-get-buffer' format (including URL)
- ;;
- ;; Revision 1.1 2009/05/09 02:33:09 rubikitch
- ;; Initial revision
- ;;
- ;; 2009/05/01
- ;; * Andy Stewart:
- ;; * Take over by rubikitch.
- ;;
- ;; 2009/04/15
- ;; * rubikitch:
- ;; * Encoding detection support.
- ;;
- ;; 2009/04/07
- ;; * Andy Stewart:
- ;; * Fix bug of `auto-install-batch'.
- ;; * Add more sources to `auto-install-batch-list'.
- ;;
- ;; 2009/03/30
- ;; * Andy Stewart:
- ;; * Add new command: `auto-install-batch'.
- ;; * Add new option: `auto-install-batch-list'.
- ;;
- ;; 2009/03/29
- ;; * Andy Stewart:
- ;; * Add new function: `auto-install-from-url-list'.
- ;;
- ;; 2009/03/11
- ;; * Andy Stewart:
- ;; * Fix bug of `auto-install-download'.
- ;;
- ;; 2009/03/03
- ;; * rubikitch
- ;; * Add new command `auto-install-compatibility-setup'
- ;; for install-elisp users.
- ;; * Andy Stewart:
- ;; * `auto-install-region-or-thing' return region string
- ;; just when `transient-mark-mode' is on.
- ;; * Fix doc.
- ;;
- ;; 2009/02/17
- ;; * Andy Stewart:
- ;; * Modified keybindings, make it more easy to remember.
- ;; * Make `auto-install-save-confirm' default with `t'
- ;; for security problem.
- ;; * Pick up current symbol when use `auto-install-from-library'.
- ;; * Remove unnecessary completion name from `auto-install-from-library'.
- ;; * Refactory code.
- ;; * Fix doc.
- ;;
- ;; 2009/02/12
- ;; * Andy Stewart:
- ;; * Remove option `auto-install-update-emacswiki-package-name-when-startup'.
- ;; * Make current symbol as initialization of `auto-install-from-emacswiki'.
- ;; * Add option `unforced' to function `auto-install-update-emacswiki-package-name'.
- ;; * Fix doc.
- ;; * Fix bug of `auto-install-from-library'.
- ;;
- ;; 2009/02/10
- ;; * Andy Stewart:
- ;; * Automatically download package name list when
- ;; variable `auto-install-package-name-list' is nil.
- ;; * Reverse `auto-install-package-name-list' for `anything' interface.
- ;; * New command `auto-install-dired-mark-files',
- ;; mark files that contain at `EmacsWiki.org'.
- ;; * New command `auto-install-buffer-diff',
- ;; view different between current version and old version.
- ;;
- ;; 2009/02/06
- ;; * Andy Stewart:
- ;; * Add new command `auto-install-from-directory'.
- ;; * Remove option `auto-install-create-directory', not necessary.
- ;; * Documentation improvements (thanks Scot Becker)
- ;;
- ;; 2009/02/01
- ;; * Andy Stewart:
- ;; * Make command `auto-install-from-emacswiki' can
- ;; completing package name for input.
- ;; * Add new command `auto-install-update-emacswiki-package-name'.
- ;; * Add new option `auto-install-update-emacswiki-package-name-when-startup'
- ;;
- ;; 2009/01/30
- ;; * Andy Stewart:
- ;; * Compatibility with GNU Emacs 22.
- ;;
- ;; 2009/01/26
- ;; * Andy Stewart:
- ;; * Add new command `auto-install-from-gist'.
- ;;
- ;; 2009/01/21
- ;; * Andy Stewart:
- ;; * Add emacs-lisp syntax highlight for download buffer.
- ;; * Make notify message display at mode-line instead echo-area.
- ;;
- ;; 2009/01/10
- ;; * Andy Stewart:
- ;; * Add new option `auto-install-filter-url' and new function
- ;; `auto-install-from-library', try to use it. ;)
- ;;
- ;; 2009/01/08
- ;; * Andy Stewart:
- ;; * Fix coding bug.
- ;;
- ;; 2009/01/07
- ;; * Andy Stewart:
- ;; * Move `w3m' code to file `auto-install-extension.el' to make all
- ;; user can use this package with standard emacs.
- ;;
- ;; 2009/01/06
- ;; * Andy Stewart:
- ;; * Clean code.
- ;;
- ;; 2009/01/02
- ;; * Andy Stewart:
- ;; * Add new option `auto-install-create-directory' for create install directory
- ;; automatically if it doesn't exist.
- ;; * Improve many document make it more clear.
- ;; * Thanks document improve and create directory advice of 'Drew Adams'!
- ;;
- ;; 2008/12/24
- ;; * Andy Stewart:
- ;; * Remove `auto-install-window-configuration-before-download', `auto-install-init-window-layout'
- ;; and `auto-install-revert-window-layout'.
- ;; It's not necessary to revert window layout, `winner-mode' can revert window layout more better,
- ;; just type `winner-undo'.
- ;;
- ;; 2008/12/15
- ;; * Andy Stewart:
- ;; * Fix a little bug of `auto-install-window-configuration-before-download'.
- ;;
- ;; 2008/12/11
- ;; * Andy Stewart:
- ;; * Add new function `auto-install-from-buffer', to install elisp file from current buffer.
- ;; Modified `auto-install-buffer-save' to use `auto-install-from-buffer'.
- ;;
- ;; * First released.
- ;;
- ;;; Acknowledgements:
- ;;
- ;; rubikitch <rubikitch@ruby-lang.org>
- ;; For install-elisp.el
- ;; Drew Adams <drew.adams@oracle.com>
- ;; Scot Becker <scot.becker@gmail.com>
- ;; Richard Riley <rileyrgdev@gmail.com>
- ;; For documentation improvements and advices.
- ;;
- ;;; TODO
- ;;
- ;; Fix the problem parallel install process with recursive prompt.
- ;; Redesign and give more friendly user interface.
- ;; Scan RSS track package update and notify.
- ;;
- ;;; Require
- (require 'url)
- (require 'dired)
- (require 'find-func)
- (require 'bytecomp)
- (require 'thingatpt)
- (eval-when-compile (require 'cl))
- (when (<= emacs-major-version 22) ;Compatibility with 22.
- (autoload 'ignore-errors "cl-macs"))
- ;;; Code:
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Customize ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- (defgroup auto-install nil
- "Auto install elisp files."
- :group 'external)
- (defcustom auto-install-directory "~/.emacs.d/auto-install/"
- "The directory for saving elisp files.
- This directory is used when a downloaded
- elisp file does not already exist in other directory.
- Otherwise, the existing file of the same name is replaced."
- :type 'string
- :group 'auto-install)
- (defcustom auto-install-buffer-name "auto-install"
- "The temporary buffer for storing download content."
- :type 'string
- :group 'auto-install)
- (defcustom auto-install-emacswiki-base-url "http://www.emacswiki.org/cgi-bin/wiki/download/"
- "The base emacswiki.org url from which to download elisp files."
- :type 'string
- :group 'auto-install)
- (defcustom auto-install-gist-base-url "http://gist.github.com/"
- "The base gist.github.com url from which to download elisp files."
- :type 'string
- :group 'auto-install)
- (defcustom auto-install-filter-url
- '(("color-grep" "http://www.bookshelf.jp/elc/"))
- "Alist mapping filter url for library.
- Default command `auto-install-from-library' will install from EmacsWiki,
- if it can't find match in this alist."
- :type '(repeat (list (string :tag "Library")
- (string :tag "Download URL")))
- :group 'auto-install)
- (defcustom auto-install-save-confirm t
- "Whether confirmation is needed to save downloaded content.
- Nil means no confirmation is needed.
- If non-nil, the downloaded content is shown in a buffer and you are
- prompted to confirm saving it to a file."
- :type 'boolean
- :group 'auto-install)
- (defcustom auto-install-replace-confirm nil
- "Whether confirmation is needed to replace an existing elisp file.
- Nil means no confirmation is needed."
- :type 'boolean
- :group 'auto-install)
- (defcustom auto-install-install-confirm nil
- "Whether confirmation is needed to install a downloaded elisp file.
- Nil means no confirmation is needed."
- :type 'boolean
- :group 'auto-install)
- (defcustom auto-install-from-dired-confirm t
- "Whether confirmation is needed to download marked files from Dired.
- Nil means no confirmation is needed."
- :type 'boolean
- :group 'auto-install)
- (defcustom auto-install-batch-list
- '(
- ;; Icicles.
- ("icicles" 21 10
- (
- "http://www.emacswiki.org/emacs/download/icicles.el" ; Main library
- "http://www.emacswiki.org/emacs/download/icicles-chg.el" ; Change logs
- "http://www.emacswiki.org/emacs/download/icicles-cmd1.el" ; Top-level Icicles commands, part 1
- "http://www.emacswiki.org/emacs/download/icicles-cmd2.el" ; Top-level Icicles commands, part 2
- "http://www.emacswiki.org/emacs/download/icicles-doc1.el" ; Doc, part 1
- "http://www.emacswiki.org/emacs/download/icicles-doc2.el" ; Doc, part 2
- "http://www.emacswiki.org/emacs/download/icicles-face.el" ; Faces
- "http://www.emacswiki.org/emacs/download/icicles-fn.el" ; Non-interactive functions
- "http://www.emacswiki.org/emacs/download/icicles-mac.el" ; Macros
- "http://www.emacswiki.org/emacs/download/icicles-mcmd.el" ; Minibuffer commands
- "http://www.emacswiki.org/emacs/download/icicles-mode.el" ; Icicle (Icy) mode
- "http://www.emacswiki.org/emacs/download/icicles-opt.el" ; User options
- "http://www.emacswiki.org/emacs/download/icicles-var.el" ; Internal variables
- "http://www.emacswiki.org/emacs/download/lacarte.el" ; Menu-bar access from keyboard
- "http://www.emacswiki.org/emacs/download/icomplete+.el" ; Enhancements to `icomplete.el'
- "http://www.emacswiki.org/emacs/download/hexrgb.el" ; Color manipulation
- "http://www.emacswiki.org/emacs/download/synonyms.el" ; Look up synonyms
- ))
- ;; AutoComplete development version.
- ("auto-complete development version" nil nil
- (
- "http://github.com/m2ym/auto-complete/raw/master/popup.el"
- "http://github.com/m2ym/auto-complete/raw/master/auto-complete.el"
- "http://github.com/m2ym/auto-complete/raw/master/auto-complete-config.el"
- ))
- ;; Anything
- ("anything" nil nil
- (
- "http://www.emacswiki.org/emacs/download/anything.el" ; Main library
- "http://www.emacswiki.org/emacs/download/anything-config.el" ; Configuration for anything.el
- "http://www.emacswiki.org/emacs/download/anything-match-plugin.el" ; Matching algorithm humanely
- "http://www.emacswiki.org/emacs/download/anything-migemo.el" ; Migemo extension for Japanese
- "http://www.emacswiki.org/emacs/download/anything-complete.el" ; Completion
- "http://www.emacswiki.org/emacs/download/anything-show-completion.el" ; Show completion prettily
- "http://www.emacswiki.org/emacs/download/anything-auto-install.el" ; auto-install extension
- "http://www.emacswiki.org/emacs/download/descbinds-anything.el" ; describe-key replacement
- "http://www.emacswiki.org/emacs/download/anything-grep.el" ; Grep with anything
- "http://www.emacswiki.org/emacs/download/anything-startup.el" ; Startup file
- ))
- ;; SDCV (Interface for StartDict console version)
- ("sdcv" nil nil
- (
- "http://www.emacswiki.org/emacs/download/showtip.el" ; Basic tooltip show library
- "http://www.emacswiki.org/emacs/download/sdcv.el" ; sdcv.el
- ))
- ;; Lazy search
- ("lazy-search" nil nil
- (
- "http://www.emacswiki.org/emacs/download/one-key.el" ; Basic library for lazy-search.el
- "http://www.emacswiki.org/emacs/download/lazy-search.el" ; Main library
- ))
- ;; PHP completion
- ("php-completion" nil nil
- (
- "http://www.emacswiki.org/emacs/download/anything.el"
- "http://www.emacswiki.org/emacs/download/anything-match-plugin.el"
- "http://www.emacswiki.org/emacs/download/anything-show-completion.el"
- "http://www.emacswiki.org/emacs/download/php-completion.el"
- ))
- ;; Perl completion
- ("perl-completion" nil nil
- (
- "http://www.emacswiki.org/emacs/download/anything.el"
- "http://www.emacswiki.org/emacs/download/anything-match-plugin.el"
- "http://www.emacswiki.org/emacs/download/anything-show-completion.el"
- "http://www.emacswiki.org/emacs/download/perl-completion.el"
- ))
- ;; Text Translator
- ("text translator" nil nil
- (
- "http://www.emacswiki.org/emacs/download/text-translator.el"
- "http://www.emacswiki.org/emacs/download/text-translator-vars.el"
- "http://www.emacswiki.org/emacs/download/text-translator-load.el"
- ))
- )
- "This list contain packages information for batch install.
- Have four arguments per list:
- First argument is extension name.
- Second argument is delay time for batch install.
- Third argument is libraries number limit in delay time.
- Fourth argument is libraries url list.
- Anyone can add information in this list for batch install."
- :group 'auto-install)
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Variable ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- (defvar auto-install-download-buffer nil
- "The download buffer used by `url-retrieve'.
- This variable is always buffer-local.")
- (make-variable-buffer-local 'auto-install-download-buffer)
- (defvar auto-install-download-url nil
- "The url from which to download files.
- This variable is always buffer-local.")
- (make-variable-buffer-local 'auto-install-download-url)
- (defvar auto-install-last-url nil
- "The last url used in `auto-install-from-url'.")
- (defvar auto-install-last-gist-id nil
- "The last gist id you visit in `auto-install-from-gist'.")
- (defvar auto-install-package-name-list nil
- "The package name list for completion input.")
- (defvar auto-install-minor-mode-map
- (let ((map (make-sparse-keymap)))
- (define-key map (kbd "C-c C-d") 'auto-install-buffer-diff) ;diff
- (define-key map (kbd "C-c C-c") 'auto-install-buffer-save) ;save
- (define-key map (kbd "C-c C-q") 'auto-install-buffer-quit) ;quit
- map)
- "Keymap used by variable `auto-install-minor-mode'.")
- (defvar auto-install-add-load-path-flag t
- "If non-nil, add `auto-install-directory' to `load-path'.
- This variable is intended to be used in test.")
- (defvar auto-install-waiting-url-list nil
- "URLs in downloading.")
- (defvar auto-install-url-queue nil
- "Installation order.")
- (defvar auto-install-download-buffer-alist nil
- "Pairs of URL and downloaded buffer.")
- (define-minor-mode auto-install-minor-mode
- "Auto Install minor mode."
- :init-value nil
- :lighter " Auto-Install"
- :keymap auto-install-minor-mode-map
- :group 'auto-install)
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Interactive Functions ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- (defun auto-install-from-buffer ()
- "Install the elisp file in the current buffer."
- (interactive)
- (let (filename)
- (setq filename (read-string (format "Filename (%s): " (buffer-name)) nil nil (buffer-name)))
- (auto-install-mode)
- (auto-install-buffer-save filename)))
- (defun auto-install-from-url (&optional url)
- "Install an elisp file from a given url."
- (interactive)
- (or url (setq url (read-string (format "URL (%s): " (or auto-install-last-url "")) nil nil auto-install-last-url)))
- (setq auto-install-last-url url)
- (auto-install-download url))
- (defun auto-install-from-emacswiki (&optional file)
- "Install an elisp file from EmacsWiki.org."
- (interactive)
- (cond (auto-install-package-name-list
- ;; Install package if `auto-install-package-name-list' is non-nil.
- (or file (setq file (auto-install-get-candidate "Package" auto-install-package-name-list)))
- (auto-install-download (concat auto-install-emacswiki-base-url file)))
- (t
- ;; Otherwise update package name and install.
- (auto-install-download "http://www.emacswiki.org/cgi-bin/emacs?action=index;raw=1"
- 'auto-install-handle-emacswiki-package-install))))
- (defun auto-install-from-gist (&optional gistid)
- "Install an elisp file from gist.github.com.
- Optional argument GISTID is gist ID for download elisp file from gist.github.com."
- (interactive)
- (or gistid (setq gistid (read-string (format "Gist ID (%s): " (or auto-install-last-gist-id ""))
- nil nil
- auto-install-last-gist-id)))
- (setq auto-install-last-gist-id gistid)
- (auto-install-download (format "%s%s.txt" auto-install-gist-base-url gistid)))
- (defun auto-install-from-library (&optional library)
- "Update an elisp LIBRARY.
- Default this function will found 'download url' from `auto-install-filter-url',
- if not found, try to download from EmacsWiki."
- (interactive
- (let* ((dirs load-path)
- (suffixes (find-library-suffixes)))
- (list (auto-install-get-candidate "Library name" (auto-install-get-library-list)))))
- (let ((filename (file-name-nondirectory (find-library-name library)))
- (base-url auto-install-emacswiki-base-url)
- (library-name (replace-regexp-in-string "\\(\\.el.*$\\)" "" library)))
- (if (assoc library-name auto-install-filter-url)
- (setq base-url (cadr (assoc library-name auto-install-filter-url))))
- (auto-install-download (concat base-url filename))))
- (defun auto-install-from-directory (directory)
- "Update elisp files under DIRECTORY from EmacsWiki.
- You can use this command to update elisp file under DIRECTORY."
- (interactive "DDirectory: ")
- (let (filename)
- (dolist (file (directory-files directory t))
- (if (file-directory-p file)
- ;; Don't match . or .. directory.
- (unless (string-match "^\\.\\.?$" (file-name-nondirectory file))
- ;; Find files in sub-directory.
- (auto-install-from-directory file))
- ;; Get file name.
- (setq filename (file-name-nondirectory file))
- ;; Not backup file.
- (unless (string-match "^\\.?#" filename)
- ;; Match elisp file.
- (if (string-match "^.*\\.el" filename)
- (auto-install-download (concat auto-install-emacswiki-base-url filename))))))))
- (defun auto-install-from-dired ()
- "Update dired marked elisp files from EmacsWiki.org.
- You can use this to download marked files in Dired asynchronously."
- (interactive)
- (if (eq major-mode 'dired-mode)
- (if (or (not auto-install-from-dired-confirm)
- (yes-or-no-p "Do you want install marked files from EmacsWiki.org?"))
- (dolist (file (dired-get-marked-files))
- (auto-install-download (concat auto-install-emacswiki-base-url (file-name-nondirectory file)))))
- (error "This command is only for `dired-mode'.")))
- (defun auto-install-update-emacswiki-package-name (&optional unforced)
- "Update the list of elisp package names from `EmacsWiki'.
- By default, this function will update package name forcibly.
- If UNFORCED is non-nil, just update package name when `auto-install-package-name-list' is nil."
- (interactive)
- (unless (and unforced
- auto-install-package-name-list)
- (auto-install-download "http://www.emacswiki.org/cgi-bin/emacs?action=index;raw=1"
- 'auto-install-handle-emacswiki-package-name)))
- (defun auto-install-dired-mark-files ()
- "Mark dired files that contain at `EmacsWiki.org'."
- (interactive)
- (if (eq major-mode 'dired-mode)
- (if auto-install-package-name-list
- ;; Mark files that exist at `EmacsWiki'.
- (auto-install-dired-mark-files-internal)
- ;; Or get package name list and match files.
- (auto-install-download "http://www.emacswiki.org/cgi-bin/emacs?action=index;raw=1"
- 'auto-install-handle-dired-mark-files))
- (error "This command just use in `dired-mode'.")))
- (defun auto-install-mode ()
- "Major mode for auto-installing elisp code."
- (interactive)
- ;; Load emacs-lisp syntax highlight.
- (set-syntax-table emacs-lisp-mode-syntax-table)
- (lisp-mode-variables)
- (setq font-lock-mode t)
- (font-lock-fontify-buffer)
- ;; Read only.
- (setq buffer-read-only t)
- (and view-read-only (view-mode 1))
- ;; Load `auto-install' mode.
- (auto-install-minor-mode t)
- (setq major-mode 'auto-install-minor-mode))
- (defun auto-install-buffer-quit ()
- "Quit from `auto-install' temporary buffer."
- (interactive)
- ;; Quit buffer.
- (if (eq major-mode 'auto-install-minor-mode)
- (auto-install-quit)
- (error "This command just use in `auto-install-minor-mode'.")))
- (defun auto-install-compatibility-setup ()
- "Install Compatibility commands for install-elisp.el users."
- (interactive)
- (defalias 'install-elisp 'auto-install-from-url)
- (if (require 'anything-auto-install nil t)
- (defalias 'install-elisp-from-emacswiki 'anything-auto-install-from-emacswiki)
- (defalias 'install-elisp-from-emacswiki 'auto-install-from-emacswiki))
- (defalias 'install-elisp-from-gist 'auto-install-from-gist)
- (message "Install-elisp compatibility installed.
- install-elisp = %s
- install-elisp-from-emacswiki = %s
- install-elisp-from-gist = %s"
- (symbol-function 'install-elisp)
- (symbol-function 'install-elisp-from-emacswiki)
- (symbol-function 'install-elisp-from-gist)))
- (defun auto-install-batch (&optional extension-name)
- "Batch install many libraries in some extension.
- EXTENSION-NAME is extension name for batch install."
- (interactive)
- (let (extension-info-list)
- ;; Get extension information list.
- (setq extension-info-list
- (assoc (or
- ;; Get information list from give extension name.
- extension-name
- ;; Otherwise completion from user select.
- (completing-read "Extension name: " (mapcar 'car auto-install-batch-list)))
- auto-install-batch-list))
- (if extension-info-list
- ;; Install extension libraries.
- (let ((extension-delay-time (nth 1 extension-info-list))
- (extension-limit-number (nth 2 extension-info-list))
- (extension-library-list (car (last extension-info-list))))
- (setq auto-install-waiting-url-list extension-library-list
- auto-install-url-queue extension-library-list)
- (if (not (and
- ;; Delay time is above 0.
- extension-delay-time
- (> extension-delay-time 0)
- ;; Limit number is above 0.
- extension-limit-number
- (> extension-limit-number 0)))
- (auto-install-from-url-list extension-library-list)
- (let ((delay-counter 0)
- install-list)
- (while extension-library-list
- (if (> (length extension-library-list) extension-limit-number)
- ;; Install apart libraries list under `extension-limit-number'
- (progn
- (setq install-list (nthcar extension-limit-number extension-library-list))
- (run-with-timer
- (* delay-counter extension-delay-time)
- nil
- 'auto-install-from-url-list install-list)
- (setq extension-library-list (nthcdr+ extension-limit-number extension-library-list))
- (incf delay-counter))
- ;; Install remain libraries list.
- (setq install-list extension-library-list)
- (run-with-timer
- (* delay-counter extension-delay-time)
- nil
- 'auto-install-from-url-list install-list)
- (setq extension-library-list nil))))))
- ;; Notify message when haven't install information
- ;; for libraries that user given.
- (message "Haven't install information for `%s'." extension-name))))
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Utilities Functions ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- (defun auto-install-download (url &optional handle-function)
- "Download elisp file from URL.
- HANDLE-FUNCTION for handle download content,
- default is `auto-install-handle-download-content'."
- ;; Check and create install directory.
- (unless (file-exists-p auto-install-directory)
- (make-directory auto-install-directory)
- (when auto-install-add-load-path-flag
- (add-to-list 'load-path auto-install-directory))
- (message "Create directory %s for install elisp file." auto-install-directory))
- ;; Download.
- (let* ((url-request-method "GET")
- (url-request-extra-headers nil)
- (url-mime-accept-string "*/*")
- (parsed-url (url-generic-parse-url url))
- (download-buffer (auto-install-get-buffer url))
- (download-buffer-name (buffer-name download-buffer)))
- (with-current-buffer download-buffer
- ;; Bind download url with local buffer.
- (setq auto-install-download-url url)
- ;; Bind download buffer with local buffer.
- ;;
- ;; Use buffer-local variable receive
- ;; data from `url-retrieve' to make asynchronously
- ;; download file with special buffer.
- ;;
- ;; Because the buffer name is unique that generate
- ;; through `current-time', so can download many elisp file
- ;; asynchronously and won't conflict each other.
- (setq auto-install-download-buffer
- (url-retrieve parsed-url
- 'auto-install-download-callback
- (list download-buffer-name handle-function))))))
- (defun auto-install-download-callback (&optional redirect download-buffer-name handle-function)
- "The callback for `auto-install-download'.
- With `auto-install-download', this downloads elisp files asynchronously.
- REDIRECT is the argument for check download status.
- DOWNLOAD-BUFFER-NAME is the name of download buffer.
- HANDLE-FUNCTION is function for handle download content."
- (if (eq (car redirect) ':error)
- ;; Notify user and kill buffer when occur error.
- (with-current-buffer (get-buffer download-buffer-name)
- (message "Download from '%s' failed." auto-install-download-url)
- (kill-buffer download-buffer-name))
- ;; Otherwise continue install process.
- (auto-install-retrieve-decode download-buffer-name) ;decode retrieve information.
- (with-current-buffer (get-buffer download-buffer-name)
- ;; Show successful message
- (message "Download from '%s' successful." auto-install-download-url)
- ;; Handle download content.
- (funcall (or handle-function 'auto-install-handle-download-content)
- (current-buffer)))))
- (defun auto-install-retrieve-decode (retrieve-buffer-name)
- "Decode the RETRIEVE-BUFFER-NAME with coding detection."
- (declare (special url-http-end-of-headers))
- (with-current-buffer (get-buffer retrieve-buffer-name)
- (insert
- (with-current-buffer auto-install-download-buffer
- (set-buffer-multibyte t)
- (goto-char (1+ url-http-end-of-headers))
- (decode-coding-region
- (point) (point-max)
- (coding-system-change-eol-conversion
- ;; rubikitch: encoding detection is better because of
- ;; non-utf8 Japanese encodings.
- (detect-coding-region (point-min) (point-max) t) 'dos))
- (buffer-substring (point) (point-max))))
- (goto-char (point-min))))
- (defun auto-install-handle-download-content (download-buffer)
- "Handle the content downloaded to buffer DOWNLOAD-BUFFER."
- (with-current-buffer download-buffer
- ;; Load mode.
- (auto-install-mode)
- ;; Display help information in mode-line.
- (setq mode-line-format (list "Type C-c C-c to continue; Type C-c C-d for view diff; Type C-c C-q to quit."))
- (setq header-line-format (list auto-install-download-url))
- (setq auto-install-download-buffer-alist
- (cons (cons auto-install-download-url download-buffer)
- auto-install-download-buffer-alist))
- (setq auto-install-waiting-url-list
- (remove auto-install-download-url auto-install-waiting-url-list))
- ;; When all files are downloaded
- (unless auto-install-waiting-url-list
- ;; Select first file
- (switch-to-buffer (or (assoc-default (car auto-install-url-queue)
- auto-install-download-buffer-alist)
- ;; if single file
- download-buffer))
- (unless auto-install-save-confirm
- (auto-install-buffer-save)))))
- (defun auto-install-handle-emacswiki-package-name (download-buffer &optional prompt-install)
- "Handle elisp package name from `EmacsWiki'.
- DOWNLOAD-BUFFER is the name of download buffer.
- PROMPT-INSTALL is non-nil, will prompt package name for install."
- ;; Update package name list.
- (auto-install-update-emacswiki-package-list download-buffer)
- ;; Prompt package name for install.
- (when prompt-install
- (auto-install-download
- (concat auto-install-emacswiki-base-url
- (auto-install-get-candidate "Package" auto-install-package-name-list)))))
- (defun auto-install-handle-dired-mark-files (download-buffer)
- "Handle dired mark files that exist at `EmacsWiki'.
- DOWNLOAD-BUFFER is the name of download buffer."
- ;; Update package name list.
- (auto-install-update-emacswiki-package-list download-buffer)
- ;; Mark dired files.
- (auto-install-dired-mark-files-internal))
- (defun auto-install-handle-emacswiki-package-install (download-buffer)
- "Handle elisp package install from `EmacsWiki'.
- DOWNLOAD-BUFFER is the name of download buffer."
- (auto-install-handle-emacswiki-package-name download-buffer t))
- (defun auto-install-update-emacswiki-package-list (download-buffer)
- "Filter and update package name list from `EmacsWiki'.
- DOWNLOAD-BUFFER is the name of download buffer."
- (goto-char (point-min))
- (setq auto-install-package-name-list
- (loop while (re-search-forward "^.*\\.el$" nil t)
- collect (match-string 0)))
- ;; Kill buffer.
- (kill-buffer download-buffer)
- ;; Display successful message.
- (message "Update package name from `EmacsWiki' successful."))
- (defun auto-install-buffer-diff ()
- "View different between old version.
- This command just run when have exist old version."
- (interactive)
- (let* ((new-file (url-file-nondirectory auto-install-download-url))
- (old-file (auto-install-get-path new-file)))
- (if old-file
- ;; View different when have old version exist.
- (ediff-buffers (current-buffer) (find-file-noselect old-file))
- ;; Otherwise notify user.
- (message "Haven't old version exist."))))
- (defun auto-install-buffer-save (&optional filename)
- "Save downloaded content to file FILENAME."
- (interactive)
- (if (eq major-mode 'auto-install-minor-mode)
- (let (file-path)
- ;; Get filename
- (unless filename
- (setq filename (url-file-nondirectory auto-install-download-url)))
- ;; Make sure file suffix with `.el'.
- (while (not (string-match ".*\.el$" filename))
- (setq filename (read-string "Please input file name suffix with `.el': ")))
- ;; Get file path.
- (setq file-path
- (or
- ;; Replace file if have exist.
- (auto-install-get-path filename)
- ;; Otherwise, install in directory `auto-install-directory'.
- (concat auto-install-directory filename)))
- ;; Save file.
- (if (and (file-exists-p file-path)
- auto-install-replace-confirm
- (not (yes-or-no-p (format "Do you want replace file: '%s' ?" file-path))))
- (auto-install-quit)
- (write-file file-path)
- (auto-install-install file-path)))
- (error "This command just use in `auto-install-minor-mode'.")))
- (defun auto-install-install (file-path)
- "Install elisp file FILE-PATH."
- (if (and auto-install-install-confirm
- (not (yes-or-no-p (format "Do you want install file: '%s' ?" file-path))))
- (auto-install-quit)
- (let (byte-compile-warnings) ;; suppress compile warnings
- ;; Compile and load file.
- (setq auto-install-url-queue (cdr auto-install-url-queue))
- (unless (ignore-errors (byte-compile-file file-path t))
- ;; Show `ERROR' message if compile failed.
- (message (format "Auto-Install ERROR: Compiled file '%s' failed." file-path)))
- ;; Install next file.
- (cond ((car auto-install-url-queue)
- (switch-to-buffer (assoc-default (car auto-install-url-queue)
- auto-install-download-buffer-alist))
- (unless auto-install-save-confirm
- (auto-install-buffer-save)))
- (t ;completed
- ;; cleanup
- (setq auto-install-url-queue nil)
- (setq auto-install-download-buffer-alist nil)
- (message "Installation is completed."))))))
- (defun auto-install-quit ()
- "Quit auto-install."
- ;; Kill buffer
- (kill-buffer (current-buffer))
- ;; Show quit message.
- (message "Quit auto-install process."))
- (defun auto-install-get-path (library)
- "Return the absolute file path 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)))
- (or
- (locate-file library
- (or find-function-source-path load-path)
- (find-library-suffixes))
- (locate-file library
- (or find-function-source-path load-path)
- load-file-rep-suffixes)))
- (defun auto-install-get-buffer (url)
- "Get a buffer for temporary storage of downloaded content.
- Uses `current-time' to make buffer name unique."
- (get-buffer-create (format "*%s %s <%s>*"
- auto-install-buffer-name url
- (format-time-string "%m/%d %H:%M:%S"))))
- (defun auto-install-dired-mark-files-internal ()
- "Mark files that match `auto-install-package-name-list'."
- ;; Set buffer visible in select window.
- (set-buffer (window-buffer))
- ;; Get mark files.
- (save-excursion
- (let (filename)
- ;; Unmark all markes.
- (dired-unmark-all-marks)
- ;; Try to mark files.
- (goto-char (point-min))
- (while (not (eobp))
- (setq filename (dired-get-filename nil t))
- (if (and filename
- (not (file-directory-p filename))
- (member (file-name-nondirectory filename) auto-install-package-name-list))
- (dired-mark 1))
- (dired-next-line 1)))))
- (defun auto-install-region-or-thing (&optional thing)
- "Return region or thing around point.
- If `mark-active' and variable `transient-mark-mode', return region.
- If THING is non-nil, return THING around point;
- otherwise return symbol around point."
- ;; Return string.
- (if (and mark-active
- transient-mark-mode)
- ;; Return region string just when
- ;; `mark-active' and `transient-mark-mode' is on.
- (buffer-substring-no-properties (region-beginning)
- (region-end))
- ;; Otherwise try to pick-up THING around point.
- (setq thing (or thing 'symbol))
- (ignore-errors
- (save-excursion
- (buffer-substring-no-properties (beginning-of-thing thing)
- (end-of-thing thing))))))
- (defun auto-install-get-library-list (&optional dirs string)
- "Do completion for file names passed to `locate-file'.
- DIRS is directory to search path.
- STRING is string to match."
- ;; Use `load-path' as path when ignore `dirs'.
- (or dirs (setq dirs load-path))
- ;; Init with blank when ignore `string'.
- (or string (setq string ""))
- ;; Get library list.
- (let ((string-dir (file-name-directory string))
- name
- names)
- (dolist (dir dirs)
- (unless dir
- (setq dir default-directory))
- (if string-dir
- (setq dir (expand-file-name string-dir dir)))
- (when (file-directory-p dir)
- (dolist (file (file-name-all-completions
- (file-name-nondirectory string) dir))
- ;; Suffixes match `load-file-rep-suffixes'.
- (setq name (if string-dir (concat string-dir file) file))
- (if (string-match (format "^.*\\.el%s$" (regexp-opt load-file-rep-suffixes)) name)
- (add-to-list 'names name)))))
- names))
- (defun auto-install-get-candidate (prompt collection)
- "Get candidate from completing list.
- PROMPT is string for prompt.
- COLLECTION is list for completing candidates."
- (completing-read (format "%s (%s): " prompt (or (auto-install-region-or-thing) ""))
- collection
- nil nil nil nil
- (auto-install-region-or-thing)))
- (defun auto-install-from-url-list (&optional url-list)
- "Batch install many packages form URL-LIST."
- (if (listp url-list)
- (dolist (url url-list)
- (auto-install-from-url url))
- (error "Invalid url list for install.")))
- (defun nthcdr+ (n list)
- "Take cdr N times on LIST, return the result.
- If LIST length below N, return entire list.
- If LIST is nil, return nil."
- (if (or (null list)
- (> n (length list)))
- list
- (nthcdr n list)))
- (defun nthcar (n list)
- "Return first N elements of LIST.
- If LIST length below N, return entire list.
- If LIST is nil, return nil."
- (reverse (nthcdr (- (length list) n) (reverse list))))
- (provide 'auto-install)
- ;; How to save (DO NOT REMOVE!!)
- ;; (emacswiki-post "auto-install.el")
- ;;; auto-install.el ends here
- ;;; LocalWords: el eol dirs fontify gistid txt func bytecomp DDirectory ediff
- ;;; LocalWords: noselect Unmark unmark AutoInstall keybindings defalias'es
|