Browse Source

functions for lazy-load-eval can be omitted

pull/1/head
10sr 12 years ago
parent
commit
080725bbbc
1 changed files with 15 additions and 15 deletions
  1. +15
    -15
      emacs.el

+ 15
- 15
emacs.el View File

@@ -72,10 +72,11 @@ otherwise the path where the library installed."
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; autoload

(defmacro lazy-load-eval (feature functions &rest form)
(defmacro lazy-load-eval (feature &optional functions &rest form)
"Define FUNCTIONS to autoload from FEATURE.
FEATURE is a symbol. FUNCTIONS is a list of symbols. FORM is passed to
`eval-after-load'.
FEATURE is a symbol. FUNCTIONS is a list of symbols. If FUNCTIONS is nil,
the function same as FEATURE is defined as autoloaded function. FORM is passed
to `eval-after-load'.
When this macro is evaluated, this returns the path to library if FEATURE
found, otherwise returns nil."
(let* ((libname (symbol-name (eval feature)))
@@ -88,7 +89,8 @@ found, otherwise returns nil."
libpath
"\".")
t))
(eval functions))
(or (eval functions)
`(,(eval feature))))
(eval-after-load ,feature
'(progn
,@form))
@@ -97,8 +99,7 @@ found, otherwise returns nil."
(put 'lazy-load-eval 'lisp-indent-function 2)

;; (macroexpand '(f-autoload 'autosave '(a-f b-f) (message "1") (message "2")))
(when (lazy-load-eval 'tetris
'(tetris)
(when (lazy-load-eval 'tetris nil
(message "tetris loaded!"))
(message "tetris found!"))

@@ -512,8 +513,7 @@ found, otherwise returns nil."
(and (fetch-library
"https://github.com/10sr/emacs-lisp/raw/master/read-only-only-mode.el"
t)
(lazy-load-eval 'read-only-only-mode
'(read-only-only-mode)))
(lazy-load-eval 'read-only-only-mode))

(and (fetch-library
"https://raw.github.com/10sr/emacs-lisp/master/smart-revert.el"
@@ -667,7 +667,7 @@ found, otherwise returns nil."
'("ELPA" . "http://tromey.com/elpa/"))
(package-initialize))

(lazy-load-eval 'sudoku '(sudoku))
(lazy-load-eval 'sudoku)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; window
@@ -740,19 +740,19 @@ delete; o: select other; j, l: enlarge; h, k: shrink; q: quit."

(and (fetch-library "https://raw.github.com/10sr/emacs-lisp/master/gtkbm.el"
t)
(lazy-load-eval 'gtkbm '(gtkbm))
(lazy-load-eval 'gtkbm)
(global-set-key (kbd "C-x C-d") 'gtkbm))

(and (fetch-library
"https://raw.github.com/10sr/emacs-lisp/master/git-command.el"
t)
(lazy-load-eval 'git-command '(git-command))
(lazy-load-eval 'git-command)
(define-key ctl-x-map "g" 'git-command))

(and (fetch-library
"http://www.emacswiki.org/emacs/download/sl.el"
t)
(lazy-load-eval 'sl '(sl)))
(lazy-load-eval 'sl))

(defalias 'qcalc 'quick-calc)

@@ -1006,7 +1006,7 @@ delete; o: select other; j, l: enlarge; h, k: shrink; q: quit."
;; (setq multi-term-program shell-file-name)
(and (fetch-library "http://www.emacswiki.org/emacs/download/multi-term.el"
t)
(lazy-load-eval 'multi-term '(mult-term))
(lazy-load-eval 'multi-term)
(progn
(setq multi-term-switch-after-close nil)
(setq multi-term-dedicated-select-after-open-p t)
@@ -1242,7 +1242,7 @@ delete; o: select other; j, l: enlarge; h, k: shrink; q: quit."
(and (fetch-library
"https://raw.github.com/10sr/emacs-lisp/master/recentf-show.el"
t)
(lazy-load-eval 'recentf-show '(recentf-show))
(lazy-load-eval 'recentf-show)
(define-key ctl-x-map (kbd "C-r") 'recentf-show)
(add-hook 'recentf-show-before-listing-hook
'recentf-load-list))
@@ -1455,7 +1455,7 @@ delete; o: select other; j, l: enlarge; h, k: shrink; q: quit."
(and (fetch-library
"https://raw.github.com/10sr/emacs-lisp/master/dired-list-all-mode.el"
t)
(lazy-load-eval 'dired-list-all-mode '(dired-list-all-mode))
(lazy-load-eval 'dired-list-all-mode)
(setq dired-listing-switches "-lhFG")
(add-hook 'dired-mode-hook
(lambda ()


Loading…
Cancel
Save