xiaohanyu / oh-my-emacs

[Stopped] Provide an awesome, out-of-box, literate dotemacs for both newbies and nerds.

Oh My Emacs

Announcement

Hey, emacsers,

I’ve been inactive on this project for a long long time, sorry about that since I’m busy on my personal business. And I’m looking for a new maintainer for this project since I’ve switched to spacemacs recently, and I must say that I’m really impressed by the work of spacemacs community.

The reason to switch to spacemacs:

• Spacemacs is much more faster than oh-my-emacs due to its lazy-loading feature.
• Spacemacs has the best community among all “dotemacs” project, unfortunately, I don’t have enough time to foster a community for oh-my-emacs.
• Spacemacs has more packages support, which is called layers in its own words.
• Spacemacs is driven by helm and evil, two of my favourite and the most powerful packages in emacs world, which is the same as oh-my-emacs.

Among all of the above, however, I still prefer oh-my-emacs’s org-mode based literate documentation. It’s an amazing experimentation and a wonderful journey for literate programming, in a modern way. This is the best part of oh-my-emacs.

And I think it’s better for emacs community to put major focus on one great project, so I think it’s time to end this experimentation. And I may contribute some of the tiny great features of oh-my-emacs to spacemacs, when I have time. If anybody still has some interest in oh-my-emacs and want to be the new maintainer, contact me and we can discuss some internal details.

Thanks. Thanks for all PR and contributions for oh-my-emacs. Happy with you in the last two years.

Introduction

It is said that Emacs is “a great operating system, lacking only a decent editor”[1].

Yes, it is, it really is. In fact, Emacs has basic process control and management, window and frame management(just like windows manager in modern Linux desktop environment), programming APIs(yeah, elisp to emacs is what syscall and glibc to Linux), comprehensive manuals and documentation. The only limitation with Emacs is your imagination.

You can live in Emacs if you like.

But I won’t do that, since I want to watch video with mplayer, surf the Internet with Firefox/Chrome(not with emacs-w3m), listen to music with amarok. I use Emacs to do what it is good at, namely, text editing. To me, coding and writing.

This project was born one day I want to reorganize my messy .emacs.d. I’ve tried all the famous .emacs.d projects(such as prelude, starter-kit, etc) but none of them works the way I want it to.

Then I found emacs24-starter-kit, I was deeply attracted by its literate way to organize and embed elisp code in org-mode files, I wanted to make some contribution to make it a full-blown hacking environment, but I stopped after I dived into the code a little, since I want:

• Adapt el-get instead of the builtin package.el, and
• Have a better completion including auto-complete and various ac-sources projects for various programming languages.

The starter kit projects is just starter’s kit, what I want is a full-blown hacker’s kit. So I start my own project, oh-my-emacs, whose name is inspired by oh-my-zsh.

Features

• Better default settings with various eye candy, powerline, scrollbar, color-theme, fonts, etc.
• Adopt el-get as the default package manager for Emacs, instead of the default builtin package.el, say goodbye to ./configure; make; make install and explicitly manually management of load-path. el-get also provides automatic documentation management, customizable user’s recipe support, etc.
• Self-adapted, only install necessary packages when it satisfies the prerequisities. You need to install clang for auto-complete-clang, for example.
• Modular, only load necessary packages as you need.
• Literate, each package has comprehensive documentation or even a tiny tutorial with it, together with necessary web links. Say goodbye to old, out-dated emacs lisp code from Google.
• Work as expected, completion every where when possible, semantic code completion through auto-complete with various ac backend, helm for minibuffer completion, etc.
• Full-blown, oh-my-emacs is not another starter kit, it is hacker kit.

Quick Start

Simple enough, first, ensure you have a good network(Chinese users should get rid of GFW when possible to avoid many weird problems during first startup); second, ensure that you have installed the necessary tools pointed out by the Prerequisites sections from oh-my-emacs modules. Basically, you need to install the following packages in you operating system, which is the mandatory prerequisites of ome.org:

• emacs 24.3+
• cvs
• subversion
• mercurial
• git
• make
• texinfo
• gcc
• automake
• autoconf

Please backup your old .emacs and .emacs.d before you join the journey:

git clone https://github.com/xiaohanyu/oh-my-emacs $HOME/.emacs.d

Then just fire up your Emacs and make a coffee, and you should have a full-blown Emacs OS!

Evil

Note that oh-my-emacs enabled evil by default, you can disable it globally by M-x evil-mode, however, I do recommend you enable it and try to adapt, ah, finally the Emacs OS get a good editor, evil.

Helm

You may miss the old M-x when you first start with oh-my-emacs, me too, before I fall in love with helm. I highly recommend you to adapt with the helm way. Believe me, helm will bring you lots of surprise.

There’re two key points for helm beginners:

• In normal helm, TAB is not used as the traditional completion key. Maybe this is the most whirlwind turnaround with helm since so many packages use TAB for completion. Remember, TAB in helm is used to access the helm action menu. You may wonder, then, how can I do type completion in helm? The answer is, no need to do type completion explicitly. Just type, and helm will lead you to the right place. However, oh-my-emacs has binded TAB to helm-execute-persistent-action for you, which will makes you feel like home. Type C-z for amazing things, and C-SPC to select and do some cool.
• oh-my-emacs bind the traditional C-x C-f to helm-find-files by default. You should use C-l to go to the precedent directory level instead of DEL.

What’s in oh-my-emacs

Now you know why Emacs is “a great operating system, lacking only a decent editor”.

Module	Package	Description
ome-advanced	evil	Evil is an extensible vi layer for Emacs.
	evil-leader	Add <leader> shortcuts to Evil.
	evil-surround	Emulate Tim Pope’s surround.vim in evil.
	expand-region	Expand region increases the selected region by semantic units.
	ace-jump-mode	A quick cursor location minor mode for emacs
ome-auto-mode	puppet-mode	A simple mode for editing puppet manifests
	wikipedia-mode	Mode for editing Wikipedia articles off-line
	yaml-mode	Simple major mode to edit YAML file for emacs
ome-basic	flycheck	On-the-fly syntax checking extension
ome-cc	xcscope	Cscope interface for (X)Emacs
	auto-complete-clang	Auto-complete sources for Clang. Combine the power of AC, Clang and Yasnippet.
ome-clojure	clojure-mode	Emacs support for the Clojure language.
	cider	CIDER is a Clojure IDE and REPL.
	ac-nrepl	Nrepl completion source for Emacs auto-complete package
ome-common-lisp	slime	Superior Lisp Interaction Mode for Emacs
	ac-slime	Emacs auto-complete plugin for Slime symbols
ome-completion	auto-complete	The most intelligent auto-completion extension.
	helm	Emacs incremental and narrowing framework
	popup	Visual Popup Interface Library for Emacs
	yasnippet	YASnippet is a template system for Emacs.
ome-emacs-lisp	elisp-slime-nav	Slime-style navigation for Emacs Lisp
ome-experimental	lacarte	Execute menu items as commands, with completion.
	sr-speedbar	Same frame speedbar
	smooth-scrolling	Make emacs scroll smoothly.
	hungry-delete	Enables hungry deletion in all modes.
	doxymacs	Doxymacs is Doxygen + {X}Emacs.
ome-gui	solarized-emacs	Emacs highlighting using Ethan Schoonover’s Solarized color scheme
	powerline	Powerline for Emacs
	yascroll	Yet Another Scroll Bar Mode
ome-java	eclim	This project brings some of the great eclipse features to emacs developers.
ome-miscs	rainbow-delimiters	Color nested parentheses, brackets, and braces according to their depth.
	po-mode	Major mode for GNU gettext PO files
	magit	It’s Magit! An Emacs mode for Git.
	projectile	Project navigation and management library for Emacs
	smartparens	Autoinsert pairs of defined brackets and wrap regions
	emacs-w3m	A simple Emacs interface to w3m
	quickrun	Run commands quickly
	diminish	An Emacs package that diminishes the amount of space taken on the mode line by the names of minor modes.
ome-ocaml	caml-mode	O’Caml code editing commands for Emacs
	tuareg-mode	A GOOD Emacs mode to edit Objective Caml code.
ome-org	org-mode	Org-mode 8.x branch.
	htmlize	Convert buffer text and decorations to HTML.
ome-python	elpy	Emacs Python Development Environment
ome-ruby	inf-ruby	Inferior Ruby Mode - ruby process in a buffer.
ome-scheme	geiser	Make Scheme hacking inside Emacs (even more) fun.
	ac-geiser	Emacs auto-complete backend for geiser
ome-tex	auctex	AUCTeX is an extensible package for writing and formatting TeX files Emacs.
	cdlatex-mode	a minor mode which re-implements many features also found in the AUCTeX LaTeX mode.
ome-writing	markdown-mode	Major mode to edit Markdown files in Emacs

Gallery

Here‘re some screenshots of oh-my-emacs:

• Startup screen:

• org-babel from org-mode, auto-complete for emacs lisp:

• helm-grep to search words in multiple files:

• auto-complete for C++ QT:

• auto-complete for python:

• AUCTeX with outline-minor-mode, helm completion for TeX commands:

References

• Emacs Prelude: Prelude is an Emacs distribution that aims to enhance the default Emacs experience.
• emacs24-starter-kit: A cleaner version of the literate starter kit based on Emacs24.
• emacs-starter-kit: The Starter Kit provides a more pleasant set of defaults than you get normally with Emacs.
• graphene: A set of defaults for Emacs, for refugees from GUI text editors.
• purcell’s emacs.d: An Emacs configuration bundle with batteries included.

Tips

• You need to install emacs24-el in ubuntu, or org-export won’t work. I don’t know why.

Support This Project

I’m just a single guy and I do not have enough time to make this project meet everybody’s needs. So if you want to support this project, you can do in the following ways:

• Contributing code. I’ve written a basic CONTRIBUTING guide about it. Please do read it before you fire github issue or send me a pull request.

Footnotes

[1] Editor war

oh-my-emacs's Issues

Cannot clone consistently over https.

I sometime manage to clone the repository (operation timed out). And when I do el-get hangs as it fails to clone repositories consistently (clones some and then freezes on others).
However, when I use ssh I can succesfully clone the repositories. Maybe if I instruct oh-my-emacs to use ssh el-get won t hang? Is there any solution to this issue?

Color theme breaks down when boot Emacs as a daemon

For example:

$ emacs --daemon
$ emacsclient -c

Q: Best method for color theme change?

Hey @xiaohanyu! First, thank you: I've been able to spend a bit more time digging into the internals of OME and it is well-thought and well-implemented. Well-done 👏

So, I am still modifying to my liking and wanted to ask, before hacking away: what would be the best approach to changing the default solarized color theme? I like solarized, however, am used to a few others (zenburn, snowish, etc.)

In my previous home-baked init.el, I was able to initialize any color-theme on load with:

;;==Color-Theme-Mode======================
(add-to-list 'load-path "/opt/local/share/emacs/site-lisp/color-theme-6.6.0")
(require 'color-theme)
(eval-after-load "color-theme"
  '(progn
     (color-theme-initialize)
     (color-theme-snowish)))

In OME see the call to load solarized theme in ome-gui.org:

  (defun ome-color-theme-solarized-setup ()
    (load-theme 'solarized-dark t))

  (ome-install 'color-theme-solarized)

What is the best approach to expand / modify this for other themes?

Thanks much in advanced, appreciated: :)

EMACS version 24.3+ requirement not documented

Debian Wheezy (the current stable version) ships with EMACS 23.4.1. RedHat Enterprise 6 (and CentOS 6) ship an even older 23.1. These are both common distributions, and oh-my-emacs cannot currently be run on either of them. I don't know how difficult it would be to support the older version, but it seems worth documenting the minimum EMACS version as part of the Prerequisites in ome.org.

Based on my testing, the minimum version required is at least 24.3:

• The following files depend on the function file-name-base, which is not present in versions before 24.0:
  • ome.org
  • el-get/el-get/el-get-recipes.el
  • el-get/el-get/el-get-recipes.elc
  • el-get/yasnippet/snippets/java-mode
  • ome.el

This can be worked arround by adding the following definition to ome.org:
(if (< emacs-major-version 24) (defun file-name-base (&optional filename) "Return the base name of the FILENAME: no directory, no extension. FILENAME defaults to buffer-file-name'."
(file-name-sans-extension
(file-name-nondirectory (or filename (buffer-file-name)))))`

• According to the README.md for HELM as installed by ome:
  You need a recent Emacs to use latest helm, at least Emacs-24.3.

Since HELM is one of the default modules in the initial setup, this results in startup errors for a default OME install on pre-24.3 versions. Detailed error message at https://gist.github.com/Silthanis/9678372

cpu 100% when coding python。

Can not load keybindings, ome-slime-setup function not found

Debugger entered--Lisp error: (void-function ome-slime-setup)
  (ome-slime-setup)
  (progn (ome-slime-setup))
  eval((progn (ome-slime-setup)))
  (let* ((pdir (el-get-package-directory package)) (default-directory pdir)) (eval form))
  (progn (progn (or (listp form) (signal (quote cl-assertion-failed) (list (quote (listp form))))) nil) (el-get-verbose-message "el-get: Evaluating :%s form for package %s" fname package) (let* ((pdir (el-get-package-directory package)) (default-directory pdir)) (eval form)))
  (if form (progn (progn (or (listp form) (signal (quote cl-assertion-failed) (list (quote (listp form))))) nil) (el-get-verbose-message "el-get: Evaluating :%s form for package %s" fname package) (let* ((pdir (el-get-package-directory package)) (default-directory pdir)) (eval form))))
  (let* ((form (if (equal (car-safe form) (quote quote)) (prog1 (eval form) (warn "The :%s form for package %s is quoted unnecessarily." fname package)) form)) (form (cond ((null form) nil) ((symbolp form) (prog1 (list form) (warn "The :%s form for package %s uses the old-style function form instead of a lisp form. The value should be changed from `%S' to `%S'" fname package form (list form)) (if (symbol-function form) nil (warn "The function %s, which is called in the :%s form for package %s, does not seem to be defined. Calling it will probably fail." form fname package)))) ((functionp form) (prog1 (list form) (if (and ... ...) (warn "The :%s form for package %s uses the old-style lambda form instead of a lisp form. The leading \"(lambda ()\" should be replaced with \"(progn\"." fname package) (warn "The :%s form for package %s uses the old-style function form instead of a lisp form." fname package)))) ((listp form) form) (t (error "Unknown :%s form for package %s: `%S'" fname package form))))) (if form (progn (progn (or (listp form) (signal (quote cl-assertion-failed) (list (quote ...)))) nil) (el-get-verbose-message "el-get: Evaluating :%s form for package %s" fname package) (let* ((pdir (el-get-package-directory package)) (default-directory pdir)) (eval form)))))
  el-get-run-package-support((progn (ome-slime-setup)) "after" slime)
  funcall(el-get-run-package-support (progn (ome-slime-setup)) "after" slime)
  (let ((el-get-maybe-lazy-runsupp (if lazy (function el-get-lazy-run-package-support) (function el-get-run-package-support))) (maybe-lazy-eval (if lazy (apply-partially (quote el-get-eval-after-load) package) (quote eval)))) (funcall el-get-maybe-lazy-runsupp postinit "post-init" package) (funcall maybe-lazy-eval (list (quote el-get-load-package-user-init-file) (list (quote quote) package))) (funcall el-get-maybe-lazy-runsupp after "after" package))
  (let* ((el-get-sources (el-get-package-status-recipes)) (source (el-get-read-package-status-recipe package package-status-alist)) (method (el-get-package-method source)) (loads (el-get-as-list (plist-get source :load))) (autoloads (plist-get source :autoloads)) (feats (el-get-as-list (plist-get source :features))) (el-path (el-get-as-list (el-get-load-path package))) (lazy (el-get-plist-get-with-default source :lazy el-get-is-lazy)) (prepare (plist-get source :prepare)) (before (plist-get source :before)) (postinit (plist-get source :post-init)) (after (plist-get source :after)) (pkgname (plist-get source :pkgname)) (pdir (el-get-package-directory package))) (el-get-error-unless-required-emacs-version source) (if (eq method (quote builtin)) nil (if (member method (quote (apt-get fink pacman))) nil (progn (let ((--dolist-tail-- el-path) path) (while --dolist-tail-- (setq path (car --dolist-tail--)) (el-get-add-path-to-list package (quote load-path) path) (setq --dolist-tail-- (cdr --dolist-tail--))))) (el-get-install-or-init-info package (quote init))) (if el-get-byte-compile-at-init (progn (el-get-byte-compile package))) (if (eq autoloads t) nil (progn (let ((--dolist-tail-- (el-get-as-list autoloads)) file) (while --dolist-tail-- (setq file (car --dolist-tail--)) (el-get-load-fast file) (setq --dolist-tail-- (cdr --dolist-tail--))))))) (el-get-run-package-support prepare "prepare" package) (el-get-run-package-support before "before" package) (if lazy nil (progn (let ((--dolist-tail-- loads) file) (while --dolist-tail-- (setq file (car --dolist-tail--)) (let ((pfile ...)) (if (file-exists-p pfile) nil (error "el-get could not find file '%s'" pfile)) (el-get-verbose-message "el-get: load '%s'" pfile) (el-get-load-fast pfile)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (if (eq method (quote elpa)) nil (progn (let ((--dolist-tail-- feats) feat) (while --dolist-tail-- (setq feat (car --dolist-tail--)) (let (...) (el-get-verbose-message "require '%s" feature) (require feature)) (setq --dolist-tail-- (cdr --dolist-tail--))))))) (let ((el-get-maybe-lazy-runsupp (if lazy (function el-get-lazy-run-package-support) (function el-get-run-package-support))) (maybe-lazy-eval (if lazy (apply-partially (quote el-get-eval-after-load) package) (quote eval)))) (funcall el-get-maybe-lazy-runsupp postinit "post-init" package) (funcall maybe-lazy-eval (list (quote el-get-load-package-user-init-file) (list (quote quote) package))) (funcall el-get-maybe-lazy-runsupp after "after" package)))
  (condition-case err (let* ((el-get-sources (el-get-package-status-recipes)) (source (el-get-read-package-status-recipe package package-status-alist)) (method (el-get-package-method source)) (loads (el-get-as-list (plist-get source :load))) (autoloads (plist-get source :autoloads)) (feats (el-get-as-list (plist-get source :features))) (el-path (el-get-as-list (el-get-load-path package))) (lazy (el-get-plist-get-with-default source :lazy el-get-is-lazy)) (prepare (plist-get source :prepare)) (before (plist-get source :before)) (postinit (plist-get source :post-init)) (after (plist-get source :after)) (pkgname (plist-get source :pkgname)) (pdir (el-get-package-directory package))) (el-get-error-unless-required-emacs-version source) (if (eq method (quote builtin)) nil (if (member method (quote (apt-get fink pacman))) nil (progn (let ((--dolist-tail-- el-path) path) (while --dolist-tail-- (setq path ...) (el-get-add-path-to-list package ... path) (setq --dolist-tail-- ...)))) (el-get-install-or-init-info package (quote init))) (if el-get-byte-compile-at-init (progn (el-get-byte-compile package))) (if (eq autoloads t) nil (progn (let ((--dolist-tail-- ...) file) (while --dolist-tail-- (setq file ...) (el-get-load-fast file) (setq --dolist-tail-- ...)))))) (el-get-run-package-support prepare "prepare" package) (el-get-run-package-support before "before" package) (if lazy nil (progn (let ((--dolist-tail-- loads) file) (while --dolist-tail-- (setq file (car --dolist-tail--)) (let (...) (if ... nil ...) (el-get-verbose-message "el-get: load '%s'" pfile) (el-get-load-fast pfile)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (if (eq method (quote elpa)) nil (progn (let ((--dolist-tail-- feats) feat) (while --dolist-tail-- (setq feat ...) (let ... ... ...) (setq --dolist-tail-- ...)))))) (let ((el-get-maybe-lazy-runsupp (if lazy (function el-get-lazy-run-package-support) (function el-get-run-package-support))) (maybe-lazy-eval (if lazy (apply-partially (quote el-get-eval-after-load) package) (quote eval)))) (funcall el-get-maybe-lazy-runsupp postinit "post-init" package) (funcall maybe-lazy-eval (list (quote el-get-load-package-user-init-file) (list (quote quote) package))) (funcall el-get-maybe-lazy-runsupp after "after" package))) (debug error (el-get-installation-failed package err)))
  el-get-do-init(slime)
  (while (consp --cl-var--) (setq p (car --cl-var--)) (el-get-do-init p) (setq done (nconc done (list p))) (setq --cl-var-- (cdr --cl-var--)))
  (let* ((--cl-var-- init-deps) (p nil) (done nil)) (while (consp --cl-var--) (setq p (car --cl-var--)) (el-get-do-init p) (setq done (nconc done (list p))) (setq --cl-var-- (cdr --cl-var--))) nil)
  (progn (let* ((--cl-var-- init-deps) (p nil) (done nil)) (while (consp --cl-var--) (setq p (car --cl-var--)) (el-get-do-init p) (setq done (nconc done (list p))) (setq --cl-var-- (cdr --cl-var--))) nil))
  (let* ((p-s-alist (el-get-read-status-file)) (required (el-get-filter-package-alist-with-status p-s-alist "required")) (installed (el-get-filter-package-alist-with-status p-s-alist "installed")) (to-init (if packages (progn (let* ((--cl-var-- packages) (p nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq p ...) (if ... ...) (setq --cl-var-- ...)) (nreverse --cl-var--))) (mapcar (quote el-get-as-symbol) installed))) (init-deps (el-get-dependencies to-init)) (to-install (if packages (progn (let* ((--cl-var-- packages) (p nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq p ...) (if ... ... ...) (setq --cl-var-- ...)) (nreverse --cl-var--))) (mapcar (quote el-get-as-symbol) required))) (install-deps (el-get-dependencies to-install)) done) (el-get-verbose-message "el-get-init-and-install: install %S" install-deps) (el-get-verbose-message "el-get-init-and-install: init %S" init-deps) (progn (let* ((--cl-var-- install-deps) (p nil) (done nil)) (while (consp --cl-var--) (setq p (car --cl-var--)) (el-get-do-install p) (setq done (nconc done (list p))) (setq --cl-var-- (cdr --cl-var--))) nil)) (progn (let* ((--cl-var-- init-deps) (p nil) (done nil)) (while (consp --cl-var--) (setq p (car --cl-var--)) (el-get-do-init p) (setq done (nconc done (list p))) (setq --cl-var-- (cdr --cl-var--))) nil)) done)
  el-get-init-and-install(nil)
  (prog1 (el-get-init-and-install (mapcar (quote el-get-as-symbol) packages)) (el-get-eval-autoloads))
  (let* ((packages (progn (let* ((--cl-var-- packages) (p nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq p (car --cl-var--)) (if (listp p) (progn ...) (setq --cl-var-- ...)) (setq --cl-var-- (cdr --cl-var--))) (nreverse --cl-var--)))) (total (length packages)) (installed (el-get-count-packages-with-status packages "installed")) (el-get-default-process-sync sync)) (if el-get-is-lazy nil (el-get-eval-autoloads)) (prog1 (el-get-init-and-install (mapcar (quote el-get-as-symbol) packages)) (el-get-eval-autoloads)))
  el-get(sync nil)
  (let ((module-name (file-name-base module)) (file (expand-file-name (if (string-match "ome-.+.org" module) module (format "ome-%s.org" module)) ome-dir))) (setq el-get-sources nil) (setq el-get-git-shallow-clone t) (if header-or-tags (progn (let ((--dolist-tail-- header-or-tags) header-or-tag) (while --dolist-tail-- (setq header-or-tag (car --dolist-tail--)) (let* ((base ...) (dir ...) (partial-file ...)) (if (file-exists-p partial-file) nil (let ... ...)) (org-babel-load-file partial-file)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (org-babel-load-file file)) (el-get (quote sync) (mapcar (quote el-get-source-name) el-get-sources)) (setq ome-module-packages nil) (mapcar (function (lambda (el-get-package) (add-to-list (quote ome-module-packages) (el-get-source-name el-get-package)))) el-get-sources) (add-to-list (quote ome-packages) (cons module-name ome-module-packages)))
  ome-load("core/ome-keybindings.org")
  eval((ome-load "core/ome-keybindings.org") nil)
  eval-last-sexp-1(nil)
  eval-last-sexp(nil)
  call-interactively(eval-last-sexp nil nil)

load ome-miscs.org should before keybindings

There is a function emacs-w3m-setup which is defined in misc, but keybinddings called this function, it will report error in gentoo

mac el-get unable to install evil

like this : dimitri/el-get#946

Flycheck install fails

FlyCheck install fails. I am running ubuntu 12.04 TLS 64bit. Here is the output:

/home/stark/.emacs.d/el-get/flycheck/doc//flycheck.texi:1683: Next field of node `Extending checkers' not pointed to (perhaps incorrect sectioning?).
/home/stark/.emacs.d/el-get/flycheck/doc//flycheck.texi:1700: This node (Examples) has the bad Prev.
/home/stark/.emacs.d/el-get/flycheck/doc//flycheck.texi:1683: Prev field of node `Extending checkers' not pointed to.
/home/stark/.emacs.d/el-get/flycheck/doc//flycheck.texi:1667: This node (Option filters) has the bad Next.
makeinfo: Removing output file `/home/stark/.emacs.d/el-get/flycheck/doc/flycheck.info' due to errors; use --force to preserve.

Mac OS X compatibility

There're lots of compatibilities problems with emacs and Mac OS X, since there're lots of guys who use emacs on Mac, oh-my-emacs should treat Mac OS X as first class citizen.

got error while installing on ubuntu

Debugger entered--Lisp error: (void-function yas-reload-all)
(yas-reload-all)
ome-yasnippet-setup()
(progn (ome-yasnippet-setup))
eval((progn (ome-yasnippet-setup)))
(let* ((pdir (el-get-package-directory package)) (default-directory pdir)) (eval form))
(progn (progn (or (listp form) (signal (quote cl-assertion-failed) (list (quote (listp form))))) nil) (el-get-verbose-message "el-get: Evaluating :%s form for package %s" fname package) (let* ((pdir (el-get-package-directory package)) (default-directory pdir)) (eval form)))
(if form (progn (progn (or (listp form) (signal (quote cl-assertion-failed) (list (quote (listp form))))) nil) (el-get-verbose-message "el-get: Evaluating :%s form for package %s" fname package) (let* ((pdir (el-get-package-directory package)) (default-directory pdir)) (eval form))))
(let* ((form (if (equal (car-safe form) (quote quote)) (prog1 (eval form) (warn "The :%s form for package %s is quoted unnecessarily." fname package)) form)) (form (cond ((null form) nil) ((symbolp form) (prog1 (list form) (warn "The :%s form for package %s uses the old-style function form instead of a lisp form. The value should be changed from %S' to%S'" fname package form (list form)) (if (symbol-function form) nil (warn "The function %s, which is called in the :%s form for package %s, does not seem to be defined. Calling it will probably fail." form fname package)))) ((functionp form) (prog1 (list form) (if (and ... ...) (warn "The :%s form for package %s uses the old-style lambda form instead of a lisp form. The leading "(lambda ()" should be replaced with "(progn"." fname package) (warn "The :%s form for package %s uses the old-style function form instead of a lisp form." fname package)))) ((listp form) form) (t (error "Unknown :%s form for package %s: %S'" fname package form))))) (if form (progn (progn (or (listp form) (signal (quote cl-assertion-failed) (list (quote ...)))) nil) (el-get-verbose-message "el-get: Evaluating :%s form for package %s" fname package) (let* ((pdir (el-get-package-directory package)) (default-directory pdir)) (eval form))))) el-get-run-package-support((progn (ome-yasnippet-setup)) "after" yasnippet) funcall(el-get-run-package-support (progn (ome-yasnippet-setup)) "after" yasnippet) (let ((el-get-maybe-lazy-runsupp (if lazy (function el-get-lazy-run-package-support) (function el-get-run-package-support))) (maybe-lazy-eval (if lazy (apply-partially (quote el-get-eval-after-load) package) (quote eval)))) (funcall el-get-maybe-lazy-runsupp postinit "post-init" package) (funcall maybe-lazy-eval (list (quote el-get-load-package-user-init-file) (list (quote quote) package))) (funcall el-get-maybe-lazy-runsupp after "after" package)) (let* ((el-get-sources (el-get-package-status-recipes)) (source (el-get-read-package-status-recipe package package-status-alist)) (method (el-get-package-method source)) (loads (el-get-as-list (plist-get source :load))) (autoloads (plist-get source :autoloads)) (feats (el-get-as-list (plist-get source :features))) (el-path (el-get-as-list (el-get-load-path package))) (lazy (el-get-plist-get-with-default source :lazy el-get-is-lazy)) (prepare (plist-get source :prepare)) (before (plist-get source :before)) (postinit (plist-get source :post-init)) (after (plist-get source :after)) (pkgname (plist-get source :pkgname)) (pdir (el-get-package-directory package))) (el-get-error-unless-required-emacs-version source) (if (eq method (quote builtin)) nil (if (member method (quote (apt-get fink pacman))) nil (progn (let ((--dolist-tail-- el-path) path) (while --dolist-tail-- (setq path (car --dolist-tail--)) (el-get-add-path-to-list package (quote load-path) path) (setq --dolist-tail-- (cdr --dolist-tail--))))) (el-get-install-or-init-info package (quote init))) (if el-get-byte-compile-at-init (progn (el-get-byte-compile package))) (if (eq autoloads t) nil (progn (let ((--dolist-tail-- (el-get-as-list autoloads)) file) (while --dolist-tail-- (setq file (car --dolist-tail--)) (el-get-load-fast file) (setq --dolist-tail-- (cdr --dolist-tail--))))))) (el-get-run-package-support prepare "prepare" package) (el-get-run-package-support before "before" package) (if lazy nil (progn (let ((--dolist-tail-- loads) file) (while --dolist-tail-- (setq file (car --dolist-tail--)) (let ((pfile ...)) (if (file-exists-p pfile) nil (error "el-get could not find file '%s'" pfile)) (el-get-verbose-message "el-get: load '%s'" pfile) (el-get-load-fast pfile)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (if (eq method (quote elpa)) nil (progn (let ((--dolist-tail-- feats) feat) (while --dolist-tail-- (setq feat (car --dolist-tail--)) (let (...) (el-get-verbose-message "require '%s" feature) (require feature)) (setq --dolist-tail-- (cdr --dolist-tail--))))))) (let ((el-get-maybe-lazy-runsupp (if lazy (function el-get-lazy-run-package-support) (function el-get-run-package-support))) (maybe-lazy-eval (if lazy (apply-partially (quote el-get-eval-after-load) package) (quote eval)))) (funcall el-get-maybe-lazy-runsupp postinit "post-init" package) (funcall maybe-lazy-eval (list (quote el-get-load-package-user-init-file) (list (quote quote) package))) (funcall el-get-maybe-lazy-runsupp after "after" package))) (condition-case err (let* ((el-get-sources (el-get-package-status-recipes)) (source (el-get-read-package-status-recipe package package-status-alist)) (method (el-get-package-method source)) (loads (el-get-as-list (plist-get source :load))) (autoloads (plist-get source :autoloads)) (feats (el-get-as-list (plist-get source :features))) (el-path (el-get-as-list (el-get-load-path package))) (lazy (el-get-plist-get-with-default source :lazy el-get-is-lazy)) (prepare (plist-get source :prepare)) (before (plist-get source :before)) (postinit (plist-get source :post-init)) (after (plist-get source :after)) (pkgname (plist-get source :pkgname)) (pdir (el-get-package-directory package))) (el-get-error-unless-required-emacs-version source) (if (eq method (quote builtin)) nil (if (member method (quote (apt-get fink pacman))) nil (progn (let ((--dolist-tail-- el-path) path) (while --dolist-tail-- (setq path ...) (el-get-add-path-to-list package ... path) (setq --dolist-tail-- ...)))) (el-get-install-or-init-info package (quote init))) (if el-get-byte-compile-at-init (progn (el-get-byte-compile package))) (if (eq autoloads t) nil (progn (let ((--dolist-tail-- ...) file) (while --dolist-tail-- (setq file ...) (el-get-load-fast file) (setq --dolist-tail-- ...)))))) (el-get-run-package-support prepare "prepare" package) (el-get-run-package-support before "before" package) (if lazy nil (progn (let ((--dolist-tail-- loads) file) (while --dolist-tail-- (setq file (car --dolist-tail--)) (let (...) (if ... nil ...) (el-get-verbose-message "el-get: load '%s'" pfile) (el-get-load-fast pfile)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (if (eq method (quote elpa)) nil (progn (let ((--dolist-tail-- feats) feat) (while --dolist-tail-- (setq feat ...) (let ... ... ...) (setq --dolist-tail-- ...)))))) (let ((el-get-maybe-lazy-runsupp (if lazy (function el-get-lazy-run-package-support) (function el-get-run-package-support))) (maybe-lazy-eval (if lazy (apply-partially (quote el-get-eval-after-load) package) (quote eval)))) (funcall el-get-maybe-lazy-runsupp postinit "post-init" package) (funcall maybe-lazy-eval (list (quote el-get-load-package-user-init-file) (list (quote quote) package))) (funcall el-get-maybe-lazy-runsupp after "after" package))) (debug error (el-get-installation-failed package err))) el-get-do-init(yasnippet) (lambda (package) "Function to call after building the package while installing it." (el-get-save-package-status package "installed") (el-get-invalidate-autoloads package) (el-get-do-init package) (run-hook-with-args (quote el-get-post-install-hooks) package))(yasnippet) apply((lambda (package) "Function to call after building the package while installing it." (el-get-save-package-status package "installed") (el-get-invalidate-autoloads package) (el-get-do-init package) (run-hook-with-args (quote el-get-post-install-hooks) package)) yasnippet) (lambda (&rest args) (apply (lambda (package) "Function to call after building the package while installing it." (el-get-save-package-status package "installed") (el-get-invalidate-autoloads package) (el-get-do-init package) (run-hook-with-args (quote el-get-post-install-hooks) package)) args))(yasnippet) funcall((lambda (&rest args) (apply (lambda (package) "Function to call after building the package while installing it." (el-get-save-package-status package "installed") (el-get-invalidate-autoloads package) (el-get-do-init package) (run-hook-with-args (quote el-get-post-install-hooks) package)) args)) yasnippet) (progn (funcall final-func package)) (if (functionp final-func) (progn (funcall final-func package))) (if next (let ((max-specpdl-size (+ 100 max-specpdl-size))) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn (funcall final-func package)))) (let* ((startf (if shell (function call-process-shell-command) (function call-process))) (infile (if stdin (progn (make-temp-file "el-get")))) (dummy (if infile (progn (let ((temp-file infile) (temp-buffer ...)) (unwind-protect (prog1 ... ...) (and ... ...)))))) (dummy (message "el-get is waiting for %S to complete" cname)) (status (apply startf program infile cbuf t args)) (message (plist-get c :message)) (errorm (plist-get c :error))) (if el-get-verbose (progn (message "%S" (save-current-buffer (set-buffer cbuf) (buffer-string))))) (if (eq 0 status) (message "el-get: %s" message) (set-window-buffer (selected-window) cbuf) (error "el-get: %s %s" cname errorm)) (if infile (progn (delete-file infile))) (if cbuf (progn (kill-buffer cbuf))) (if next (let ((max-specpdl-size (+ 100 max-specpdl-size))) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn (funcall final-func package))))) (progn (el-get-verbose-message "Running commands synchronously: %S" commands) (let* ((startf (if shell (function call-process-shell-command) (function call-process))) (infile (if stdin (progn (make-temp-file "el-get")))) (dummy (if infile (progn (let (... ...) (unwind-protect ... ...))))) (dummy (message "el-get is waiting for %S to complete" cname)) (status (apply startf program infile cbuf t args)) (message (plist-get c :message)) (errorm (plist-get c :error))) (if el-get-verbose (progn (message "%S" (save-current-buffer (set-buffer cbuf) (buffer-string))))) (if (eq 0 status) (message "el-get: %s" message) (set-window-buffer (selected-window) cbuf) (error "el-get: %s %s" cname errorm)) (if infile (progn (delete-file infile))) (if cbuf (progn (kill-buffer cbuf))) (if next (let ((max-specpdl-size (+ 100 max-specpdl-size))) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn (funcall final-func package)))))) (if sync (progn (el-get-verbose-message "Running commands synchronously: %S" commands) (let* ((startf (if shell (function call-process-shell-command) (function call-process))) (infile (if stdin (progn (make-temp-file "el-get")))) (dummy (if infile (progn (let ... ...)))) (dummy (message "el-get is waiting for %S to complete" cname)) (status (apply startf program infile cbuf t args)) (message (plist-get c :message)) (errorm (plist-get c :error))) (if el-get-verbose (progn (message "%S" (save-current-buffer (set-buffer cbuf) (buffer-string))))) (if (eq 0 status) (message "el-get: %s" message) (set-window-buffer (selected-window) cbuf) (error "el-get: %s %s" cname errorm)) (if infile (progn (delete-file infile))) (if cbuf (progn (kill-buffer cbuf))) (if next (let ((max-specpdl-size (+ 100 max-specpdl-size))) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn (funcall final-func package)))))) (el-get-verbose-message "Running commands asynchronously: %S" commands) (let* ((startf (if shell (function start-process-shell-command) (function start-process))) (process-connection-type nil) (proc (apply startf cname cbuf program args))) (mapc (function (lambda (x) (process-put proc x (plist-get c x)))) c) (process-put proc :el-get-sources el-get-sources) (process-put proc :el-get-package package) (process-put proc :el-get-final-func final-func) (process-put proc :el-get-start-process-list next) (if stdin (progn (process-send-string proc (el-get-print-to-string stdin)) (process-send-eof proc))) (set-process-sentinel proc (quote el-get-start-process-list-sentinel)) (if filter (progn (set-process-filter proc filter))))) (let* ((c (car commands)) (next (cdr commands)) (cdir (plist-get c :default-directory)) (cname (plist-get c :command-name)) (cbuf (plist-get c :buffer-name)) (killed (if (get-buffer cbuf) (progn (kill-buffer cbuf)))) (filter (plist-get c :process-filter)) (program (plist-get c :program)) (shell (plist-get c :shell)) (args (if shell (mapcar (function shell-quote-argument) (plist-get c :args)) (plist-get c :args))) (sync (el-get-plist-get-with-default c :sync el-get-default-process-sync)) (stdin (plist-get c :stdin)) (default-directory (if cdir (file-name-as-directory (expand-file-name cdir)) default-directory))) (if program nil (error "el-get: :program argument cannot be nil")) (if sync (progn (el-get-verbose-message "Running commands synchronously: %S" commands) (let* ((startf (if shell (function call-process-shell-command) (function call-process))) (infile (if stdin (progn ...))) (dummy (if infile (progn ...))) (dummy (message "el-get is waiting for %S to complete" cname)) (status (apply startf program infile cbuf t args)) (message (plist-get c :message)) (errorm (plist-get c :error))) (if el-get-verbose (progn (message "%S" (save-current-buffer ... ...)))) (if (eq 0 status) (message "el-get: %s" message) (set-window-buffer (selected-window) cbuf) (error "el-get: %s %s" cname errorm)) (if infile (progn (delete-file infile))) (if cbuf (progn (kill-buffer cbuf))) (if next (let ((max-specpdl-size ...)) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn (funcall final-func package)))))) (el-get-verbose-message "Running commands asynchronously: %S" commands) (let* ((startf (if shell (function start-process-shell-command) (function start-process))) (process-connection-type nil) (proc (apply startf cname cbuf program args))) (mapc (function (lambda (x) (process-put proc x (plist-get c x)))) c) (process-put proc :el-get-sources el-get-sources) (process-put proc :el-get-package package) (process-put proc :el-get-final-func final-func) (process-put proc :el-get-start-process-list next) (if stdin (progn (process-send-string proc (el-get-print-to-string stdin)) (process-send-eof proc))) (set-process-sentinel proc (quote el-get-start-process-list-sentinel)) (if filter (progn (set-process-filter proc filter)))))) (if commands (let* ((c (car commands)) (next (cdr commands)) (cdir (plist-get c :default-directory)) (cname (plist-get c :command-name)) (cbuf (plist-get c :buffer-name)) (killed (if (get-buffer cbuf) (progn (kill-buffer cbuf)))) (filter (plist-get c :process-filter)) (program (plist-get c :program)) (shell (plist-get c :shell)) (args (if shell (mapcar (function shell-quote-argument) (plist-get c :args)) (plist-get c :args))) (sync (el-get-plist-get-with-default c :sync el-get-default-process-sync)) (stdin (plist-get c :stdin)) (default-directory (if cdir (file-name-as-directory (expand-file-name cdir)) default-directory))) (if program nil (error "el-get: :program argument cannot be nil")) (if sync (progn (el-get-verbose-message "Running commands synchronously: %S" commands) (let* ((startf (if shell ... ...)) (infile (if stdin ...)) (dummy (if infile ...)) (dummy (message "el-get is waiting for %S to complete" cname)) (status (apply startf program infile cbuf t args)) (message (plist-get c :message)) (errorm (plist-get c :error))) (if el-get-verbose (progn (message "%S" ...))) (if (eq 0 status) (message "el-get: %s" message) (set-window-buffer (selected-window) cbuf) (error "el-get: %s %s" cname errorm)) (if infile (progn (delete-file infile))) (if cbuf (progn (kill-buffer cbuf))) (if next (let (...) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn ...))))) (el-get-verbose-message "Running commands asynchronously: %S" commands) (let* ((startf (if shell (function start-process-shell-command) (function start-process))) (process-connection-type nil) (proc (apply startf cname cbuf program args))) (mapc (function (lambda (x) (process-put proc x ...))) c) (process-put proc :el-get-sources el-get-sources) (process-put proc :el-get-package package) (process-put proc :el-get-final-func final-func) (process-put proc :el-get-start-process-list next) (if stdin (progn (process-send-string proc (el-get-print-to-string stdin)) (process-send-eof proc))) (set-process-sentinel proc (quote el-get-start-process-list-sentinel)) (if filter (progn (set-process-filter proc filter)))))) (if (functionp final-func) (progn (funcall final-func package)))) (condition-case err (if commands (let* ((c (car commands)) (next (cdr commands)) (cdir (plist-get c :default-directory)) (cname (plist-get c :command-name)) (cbuf (plist-get c :buffer-name)) (killed (if (get-buffer cbuf) (progn (kill-buffer cbuf)))) (filter (plist-get c :process-filter)) (program (plist-get c :program)) (shell (plist-get c :shell)) (args (if shell (mapcar (function shell-quote-argument) (plist-get c :args)) (plist-get c :args))) (sync (el-get-plist-get-with-default c :sync el-get-default-process-sync)) (stdin (plist-get c :stdin)) (default-directory (if cdir (file-name-as-directory (expand-file-name cdir)) default-directory))) (if program nil (error "el-get: :program argument cannot be nil")) (if sync (progn (el-get-verbose-message "Running commands synchronously: %S" commands) (let* ((startf ...) (infile ...) (dummy ...) (dummy ...) (status ...) (message ...) (errorm ...)) (if el-get-verbose (progn ...)) (if (eq 0 status) (message "el-get: %s" message) (set-window-buffer ... cbuf) (error "el-get: %s %s" cname errorm)) (if infile (progn ...)) (if cbuf (progn ...)) (if next (let ... ...) (if ... ...)))) (el-get-verbose-message "Running commands asynchronously: %S" commands) (let* ((startf (if shell ... ...)) (process-connection-type nil) (proc (apply startf cname cbuf program args))) (mapc (function (lambda ... ...)) c) (process-put proc :el-get-sources el-get-sources) (process-put proc :el-get-package package) (process-put proc :el-get-final-func final-func) (process-put proc :el-get-start-process-list next) (if stdin (progn (process-send-string proc ...) (process-send-eof proc))) (set-process-sentinel proc (quote el-get-start-process-list-sentinel)) (if filter (progn (set-process-filter proc filter)))))) (if (functionp final-func) (progn (funcall final-func package)))) ((debug error) (el-get-installation-failed package err))) el-get-start-process-list(yasnippet ((:command-name "byte-compile" :buffer-name "*el-get-build: yasnippet*" :default-directory "/home/sun/.emacs.d/el-get/yasnippet/" :shell t :stdin (:load-path ("." "/home/sun/.emacs.d/el-get/flycheck" "/home/sun/.emacs.d/el-get/pkg-info" "/home/sun/.emacs.d/el-get/epl" "/home/sun/.emacs.d/el-get/f" "/home/sun/.emacs.d/el-get/dash" "/home/sun/.emacs.d/el-get/s" "/home/sun/.emacs.d/el-get/puppet-mode" "/home/sun/.emacs.d/el-get/wikipedia-mode" "/home/sun/.emacs.d/el-get/yaml-mode" "/home/sun/.emacs.d/el-get/org-mode/contrib/lisp" "/home/sun/.emacs.d/el-get/org-mode/lisp" "/home/sun/.emacs.d/el-get/org-mode" "~/.emacs.d/el-get/" "/home/sun/.emacs.d/el-get/el-get" "/home/sun/.emacs.d/el-get/el-get/methods" "~/.emacs.d/el-get/el-get/" "~/.emacs.d/el-get/el-get" "/usr/share/emacs24/site-lisp/wysihtml" "/usr/share/emacs24/site-lisp/ghc-mod" "/usr/share/emacs/site-lisp/yasnippet" "/usr/share/emacs24/site-lisp/slime" "/usr/share/emacs24/site-lisp/slime/contrib" "/usr/share/emacs24/site-lisp/sawfish" "/usr/share/emacs24/site-lisp/rabbit" "/usr/share/emacs24/site-lisp/python-mode" "/usr/share/emacs24/site-lisp/pymacs" "/usr/share/emacs24/site-lisp/pymacs" "/usr/share/emacs24/site-lisp/pylint" "/usr/share/emacs24/site-lisp/prolog-el" "/usr/share/emacs24/site-lisp/paredit-el" "/usr/share/emacs24/site-lisp/oneliner-el" "/usr/share/emacs24/site-lisp/latex-cjk-thai" "/usr/share/emacs24/site-lisp/latex-cjk-common" "/usr/share/emacs24/site-lisp/ibus" "/usr/share/emacs24/site-lisp/haskell-mode/" "/usr/share/emacs24/site-lisp/geiser/" "/usr/share/emacs24/site-lisp/geiser" "/usr/share/emacs24/site-lisp/gcl" "/usr/share/emacs24/site-lisp/emacs-mozc" "/usr/share/emacs24/site-lisp/cmuscheme48-el" "/usr/share/emacs/site-lisp/cmuscheme48-el" "/usr/share/emacs24/site-lisp/chess" "/usr/share/emacs/site-lisp/chess/" "/usr/share/emacs24/site-lisp/anything" "/usr/share/emacs24/site-lisp/elib/" "/etc/emacs24" "/etc/emacs" "/usr/local/share/emacs/24.3/site-lisp" "/usr/local/share/emacs/site-lisp" ...) :compile-files ("/home/sun/.emacs.d/el-get/yasnippet/yasnippet.el") :clean-directory "/home/sun/.emacs.d/el-get/yasnippet/") :sync sync :program "/usr/bin/emacs" :args ("-Q" "-batch" "-f" "toggle-debug-on-error" "-l" "/home/sun/.emacs.d/el-get/el-get/el-get-byte-compile" "-f" "el-get-byte-compile-from-stdin") :message "el-get-build yasnippet: byte-compile ok." :error "el-get could not byte-compile yasnippet")) (lambda (&rest args) (apply (lambda (package) "Function to call after building the package while installing it." (el-get-save-package-status package "installed") (el-get-invalidate-autoloads package) (el-get-do-init package) (run-hook-with-args (quote el-get-post-install-hooks) package)) args))) (let ((bytecomp-files (when el-get-byte-compile (el-get-assemble-files-for-byte-compilation package)))) (el-get-start-process-list package (list (el-get-byte-compile-process package "*el-get-build: yasnippet*" "/home/sun/.emacs.d/el-get/yasnippet/" sync bytecomp-files)) (lambda (&rest args) (apply (lambda (package) "Function to call after building the package while installing it." (el-get-save-package-status package "installed") (el-get-invalidate-autoloads package) (el-get-do-init package) (run-hook-with-args (quote el-get-post-install-hooks) package)) args)))) (lambda (package) (let ((bytecomp-files (when el-get-byte-compile (el-get-assemble-files-for-byte-compilation package)))) (el-get-start-process-list package (list (el-get-byte-compile-process package "*el-get-build: yasnippet*" "/home/sun/.emacs.d/el-get/yasnippet/" sync bytecomp-files)) (lambda (&rest args) (apply (lambda (package) "Function to call after building the package while installing it." (el-get-save-package-status package "installed") (el-get-invalidate-autoloads package) (el-get-do-init package) (run-hook-with-args (quote el-get-post-install-hooks) package)) args)))))(yasnippet) funcall((lambda (package) (let ((bytecomp-files (when el-get-byte-compile (el-get-assemble-files-for-byte-compilation package)))) (el-get-start-process-list package (list (el-get-byte-compile-process package "*el-get-build: yasnippet*" "/home/sun/.emacs.d/el-get/yasnippet/" sync bytecomp-files)) (lambda (&rest args) (apply (lambda (package) "Function to call after building the package while installing it." (el-get-save-package-status package "installed") (el-get-invalidate-autoloads package) (el-get-do-init package) (run-hook-with-args (quote el-get-post-install-hooks) package)) args))))) yasnippet) (lambda (package) (el-get-install-or-init-info package (quote build)) (funcall (lambda (package) (let ((bytecomp-files (when el-get-byte-compile (el-get-assemble-files-for-byte-compilation package)))) (el-get-start-process-list package (list (el-get-byte-compile-process package "*el-get-build: yasnippet*" "/home/sun/.emacs.d/el-get/yasnippet/" sync bytecomp-files)) (lambda (&rest args) (apply (lambda ... "Function to call after building the package while installing it." ... ... ... ...) args))))) package))(yasnippet) funcall((lambda (package) (el-get-install-or-init-info package (quote build)) (funcall (lambda (package) (let ((bytecomp-files (when el-get-byte-compile (el-get-assemble-files-for-byte-compilation package)))) (el-get-start-process-list package (list (el-get-byte-compile-process package "*el-get-build: yasnippet*" "/home/sun/.emacs.d/el-get/yasnippet/" sync bytecomp-files)) (lambda (&rest args) (apply (lambda ... "Function to call after building the package while installing it." ... ... ... ...) args))))) package)) yasnippet) (progn (funcall final-func package)) (if (functionp final-func) (progn (funcall final-func package))) (if next (let ((max-specpdl-size (+ 100 max-specpdl-size))) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn (funcall final-func package)))) (let* ((startf (if shell (function call-process-shell-command) (function call-process))) (infile (if stdin (progn (make-temp-file "el-get")))) (dummy (if infile (progn (let ((temp-file infile) (temp-buffer ...)) (unwind-protect (prog1 ... ...) (and ... ...)))))) (dummy (message "el-get is waiting for %S to complete" cname)) (status (apply startf program infile cbuf t args)) (message (plist-get c :message)) (errorm (plist-get c :error))) (if el-get-verbose (progn (message "%S" (save-current-buffer (set-buffer cbuf) (buffer-string))))) (if (eq 0 status) (message "el-get: %s" message) (set-window-buffer (selected-window) cbuf) (error "el-get: %s %s" cname errorm)) (if infile (progn (delete-file infile))) (if cbuf (progn (kill-buffer cbuf))) (if next (let ((max-specpdl-size (+ 100 max-specpdl-size))) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn (funcall final-func package))))) (progn (el-get-verbose-message "Running commands synchronously: %S" commands) (let* ((startf (if shell (function call-process-shell-command) (function call-process))) (infile (if stdin (progn (make-temp-file "el-get")))) (dummy (if infile (progn (let (... ...) (unwind-protect ... ...))))) (dummy (message "el-get is waiting for %S to complete" cname)) (status (apply startf program infile cbuf t args)) (message (plist-get c :message)) (errorm (plist-get c :error))) (if el-get-verbose (progn (message "%S" (save-current-buffer (set-buffer cbuf) (buffer-string))))) (if (eq 0 status) (message "el-get: %s" message) (set-window-buffer (selected-window) cbuf) (error "el-get: %s %s" cname errorm)) (if infile (progn (delete-file infile))) (if cbuf (progn (kill-buffer cbuf))) (if next (let ((max-specpdl-size (+ 100 max-specpdl-size))) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn (funcall final-func package)))))) (if sync (progn (el-get-verbose-message "Running commands synchronously: %S" commands) (let* ((startf (if shell (function call-process-shell-command) (function call-process))) (infile (if stdin (progn (make-temp-file "el-get")))) (dummy (if infile (progn (let ... ...)))) (dummy (message "el-get is waiting for %S to complete" cname)) (status (apply startf program infile cbuf t args)) (message (plist-get c :message)) (errorm (plist-get c :error))) (if el-get-verbose (progn (message "%S" (save-current-buffer (set-buffer cbuf) (buffer-string))))) (if (eq 0 status) (message "el-get: %s" message) (set-window-buffer (selected-window) cbuf) (error "el-get: %s %s" cname errorm)) (if infile (progn (delete-file infile))) (if cbuf (progn (kill-buffer cbuf))) (if next (let ((max-specpdl-size (+ 100 max-specpdl-size))) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn (funcall final-func package)))))) (el-get-verbose-message "Running commands asynchronously: %S" commands) (let* ((startf (if shell (function start-process-shell-command) (function start-process))) (process-connection-type nil) (proc (apply startf cname cbuf program args))) (mapc (function (lambda (x) (process-put proc x (plist-get c x)))) c) (process-put proc :el-get-sources el-get-sources) (process-put proc :el-get-package package) (process-put proc :el-get-final-func final-func) (process-put proc :el-get-start-process-list next) (if stdin (progn (process-send-string proc (el-get-print-to-string stdin)) (process-send-eof proc))) (set-process-sentinel proc (quote el-get-start-process-list-sentinel)) (if filter (progn (set-process-filter proc filter))))) (let* ((c (car commands)) (next (cdr commands)) (cdir (plist-get c :default-directory)) (cname (plist-get c :command-name)) (cbuf (plist-get c :buffer-name)) (killed (if (get-buffer cbuf) (progn (kill-buffer cbuf)))) (filter (plist-get c :process-filter)) (program (plist-get c :program)) (shell (plist-get c :shell)) (args (if shell (mapcar (function shell-quote-argument) (plist-get c :args)) (plist-get c :args))) (sync (el-get-plist-get-with-default c :sync el-get-default-process-sync)) (stdin (plist-get c :stdin)) (default-directory (if cdir (file-name-as-directory (expand-file-name cdir)) default-directory))) (if program nil (error "el-get: :program argument cannot be nil")) (if sync (progn (el-get-verbose-message "Running commands synchronously: %S" commands) (let* ((startf (if shell (function call-process-shell-command) (function call-process))) (infile (if stdin (progn ...))) (dummy (if infile (progn ...))) (dummy (message "el-get is waiting for %S to complete" cname)) (status (apply startf program infile cbuf t args)) (message (plist-get c :message)) (errorm (plist-get c :error))) (if el-get-verbose (progn (message "%S" (save-current-buffer ... ...)))) (if (eq 0 status) (message "el-get: %s" message) (set-window-buffer (selected-window) cbuf) (error "el-get: %s %s" cname errorm)) (if infile (progn (delete-file infile))) (if cbuf (progn (kill-buffer cbuf))) (if next (let ((max-specpdl-size ...)) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn (funcall final-func package)))))) (el-get-verbose-message "Running commands asynchronously: %S" commands) (let* ((startf (if shell (function start-process-shell-command) (function start-process))) (process-connection-type nil) (proc (apply startf cname cbuf program args))) (mapc (function (lambda (x) (process-put proc x (plist-get c x)))) c) (process-put proc :el-get-sources el-get-sources) (process-put proc :el-get-package package) (process-put proc :el-get-final-func final-func) (process-put proc :el-get-start-process-list next) (if stdin (progn (process-send-string proc (el-get-print-to-string stdin)) (process-send-eof proc))) (set-process-sentinel proc (quote el-get-start-process-list-sentinel)) (if filter (progn (set-process-filter proc filter)))))) (if commands (let* ((c (car commands)) (next (cdr commands)) (cdir (plist-get c :default-directory)) (cname (plist-get c :command-name)) (cbuf (plist-get c :buffer-name)) (killed (if (get-buffer cbuf) (progn (kill-buffer cbuf)))) (filter (plist-get c :process-filter)) (program (plist-get c :program)) (shell (plist-get c :shell)) (args (if shell (mapcar (function shell-quote-argument) (plist-get c :args)) (plist-get c :args))) (sync (el-get-plist-get-with-default c :sync el-get-default-process-sync)) (stdin (plist-get c :stdin)) (default-directory (if cdir (file-name-as-directory (expand-file-name cdir)) default-directory))) (if program nil (error "el-get: :program argument cannot be nil")) (if sync (progn (el-get-verbose-message "Running commands synchronously: %S" commands) (let* ((startf (if shell ... ...)) (infile (if stdin ...)) (dummy (if infile ...)) (dummy (message "el-get is waiting for %S to complete" cname)) (status (apply startf program infile cbuf t args)) (message (plist-get c :message)) (errorm (plist-get c :error))) (if el-get-verbose (progn (message "%S" ...))) (if (eq 0 status) (message "el-get: %s" message) (set-window-buffer (selected-window) cbuf) (error "el-get: %s %s" cname errorm)) (if infile (progn (delete-file infile))) (if cbuf (progn (kill-buffer cbuf))) (if next (let (...) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn ...))))) (el-get-verbose-message "Running commands asynchronously: %S" commands) (let* ((startf (if shell (function start-process-shell-command) (function start-process))) (process-connection-type nil) (proc (apply startf cname cbuf program args))) (mapc (function (lambda (x) (process-put proc x ...))) c) (process-put proc :el-get-sources el-get-sources) (process-put proc :el-get-package package) (process-put proc :el-get-final-func final-func) (process-put proc :el-get-start-process-list next) (if stdin (progn (process-send-string proc (el-get-print-to-string stdin)) (process-send-eof proc))) (set-process-sentinel proc (quote el-get-start-process-list-sentinel)) (if filter (progn (set-process-filter proc filter)))))) (if (functionp final-func) (progn (funcall final-func package)))) (condition-case err (if commands (let* ((c (car commands)) (next (cdr commands)) (cdir (plist-get c :default-directory)) (cname (plist-get c :command-name)) (cbuf (plist-get c :buffer-name)) (killed (if (get-buffer cbuf) (progn (kill-buffer cbuf)))) (filter (plist-get c :process-filter)) (program (plist-get c :program)) (shell (plist-get c :shell)) (args (if shell (mapcar (function shell-quote-argument) (plist-get c :args)) (plist-get c :args))) (sync (el-get-plist-get-with-default c :sync el-get-default-process-sync)) (stdin (plist-get c :stdin)) (default-directory (if cdir (file-name-as-directory (expand-file-name cdir)) default-directory))) (if program nil (error "el-get: :program argument cannot be nil")) (if sync (progn (el-get-verbose-message "Running commands synchronously: %S" commands) (let* ((startf ...) (infile ...) (dummy ...) (dummy ...) (status ...) (message ...) (errorm ...)) (if el-get-verbose (progn ...)) (if (eq 0 status) (message "el-get: %s" message) (set-window-buffer ... cbuf) (error "el-get: %s %s" cname errorm)) (if infile (progn ...)) (if cbuf (progn ...)) (if next (let ... ...) (if ... ...)))) (el-get-verbose-message "Running commands asynchronously: %S" commands) (let* ((startf (if shell ... ...)) (process-connection-type nil) (proc (apply startf cname cbuf program args))) (mapc (function (lambda ... ...)) c) (process-put proc :el-get-sources el-get-sources) (process-put proc :el-get-package package) (process-put proc :el-get-final-func final-func) (process-put proc :el-get-start-process-list next) (if stdin (progn (process-send-string proc ...) (process-send-eof proc))) (set-process-sentinel proc (quote el-get-start-process-list-sentinel)) (if filter (progn (set-process-filter proc filter)))))) (if (functionp final-func) (progn (funcall final-func package)))) ((debug error) (el-get-installation-failed package err))) el-get-start-process-list(yasnippet ((:command-name "git" :buffer-name "*el-get-build: yasnippet*" :default-directory "/home/sun/.emacs.d/el-get/yasnippet/" :shell t :sync sync :program "/usr/bin/git" :args ("submodule" "update" "--init" "--" "snippets") :message "el-get-build yasnippet: git submodule update --init -- snippets ok." :error "el-get could not build yasnippet [git submodule update --init -- snippets]")) (lambda (package) (el-get-install-or-init-info package (quote build)) (funcall (lambda (package) (let ((bytecomp-files (when el-get-byte-compile (el-get-assemble-files-for-byte-compilation package)))) (el-get-start-process-list package (list (el-get-byte-compile-process package "*el-get-build: yasnippet*" "/home/sun/.emacs.d/el-get/yasnippet/" sync bytecomp-files)) (lambda (&rest args) (apply (lambda ... "Function to call after building the package while installing it." ... ... ... ...) args))))) package))) (let* ((pdir (el-get-package-directory package)) (wdir (if subdir (concat (file-name-as-directory pdir) subdir) pdir)) (buf (format "*el-get-build: %s*" package)) (default-directory (file-name-as-directory wdir)) (shell-file-name (or (and (eq system-type (quote windows-nt)) (executable-find "cmdproxy.exe")) shell-file-name)) (process-list (mapcar (function (lambda (c) (let* (... ... ... ... ...) (list ... name ... buf ... wdir ... t ... sync ... program ... args ... ... ... ...)))) commands)) (post-build-fun (cond ((null post-build-fun) (function (lambda (&rest args) nil))) ((symbolp post-build-fun) (list (quote lambda) (quote (&rest args)) (cons (quote apply) (cons ... ...)))) (t (progn (or (functionp post-build-fun) (signal ... ...)) nil) post-build-fun))) (byte-compile-then-post-build-fun (list (quote lambda) (quote (package)) (list (quote let) (quote ((bytecomp-files ...))) (list (quote el-get-start-process-list) (quote package) (list (quote list) (cons ... ...)) post-build-fun)))) (build-info-then-post-build-fun (if installing-info byte-compile-then-post-build-fun (list (quote lambda) (quote (package)) (quote (el-get-install-or-init-info package (quote build))) (cons (quote funcall) (cons byte-compile-then-post-build-fun (quote ...))))))) (el-get-start-process-list package process-list build-info-then-post-build-fun)) el-get-build(yasnippet (("git" "submodule" "update" "--init" "--" "snippets")) nil sync el-get-post-install-build) (if (and (eq (el-get-package-method package) (quote builtin)) (plist-get (el-get-package-def package) :builtin)) (el-get-post-install-build package) (el-get-build package commands nil sync (quote el-get-post-install-build))) (let* ((sync el-get-default-process-sync) (type (el-get-package-type package)) (hooks (el-get-method type :install-hook)) (commands (el-get-build-commands package)) (checksum (plist-get (el-get-package-def package) :checksum)) (compute-checksum (el-get-method type :compute-checksum))) (if (and checksum (not compute-checksum)) (progn (error "Checksum verification of package %s is not supported with method %s." package type))) (if compute-checksum (progn (let ((computed (funcall compute-checksum package))) (if checksum (if (equal computed (el-get-as-string checksum)) (el-get-verbose-message "el-get: package %s passed checksum with \"%s\"." package computed) (error "Checksum verification failed. Required: \"%s\", actual: \"%s\"." checksum computed)) (el-get-verbose-message "el-get: pakage %s checksum is %s." package computed))))) (run-hook-with-args hooks package) (if (and (eq (el-get-package-method package) (quote builtin)) (plist-get (el-get-package-def package) :builtin)) (el-get-post-install-build package) (el-get-build package commands nil sync (quote el-get-post-install-build)))) el-get-post-install(yasnippet) funcall(el-get-post-install yasnippet) (progn (funcall final-func package)) (if (functionp final-func) (progn (funcall final-func package))) (if commands (let* ((c (car commands)) (next (cdr commands)) (cdir (plist-get c :default-directory)) (cname (plist-get c :command-name)) (cbuf (plist-get c :buffer-name)) (killed (if (get-buffer cbuf) (progn (kill-buffer cbuf)))) (filter (plist-get c :process-filter)) (program (plist-get c :program)) (shell (plist-get c :shell)) (args (if shell (mapcar (function shell-quote-argument) (plist-get c :args)) (plist-get c :args))) (sync (el-get-plist-get-with-default c :sync el-get-default-process-sync)) (stdin (plist-get c :stdin)) (default-directory (if cdir (file-name-as-directory (expand-file-name cdir)) default-directory))) (if program nil (error "el-get: :program argument cannot be nil")) (if sync (progn (el-get-verbose-message "Running commands synchronously: %S" commands) (let* ((startf (if shell ... ...)) (infile (if stdin ...)) (dummy (if infile ...)) (dummy (message "el-get is waiting for %S to complete" cname)) (status (apply startf program infile cbuf t args)) (message (plist-get c :message)) (errorm (plist-get c :error))) (if el-get-verbose (progn (message "%S" ...))) (if (eq 0 status) (message "el-get: %s" message) (set-window-buffer (selected-window) cbuf) (error "el-get: %s %s" cname errorm)) (if infile (progn (delete-file infile))) (if cbuf (progn (kill-buffer cbuf))) (if next (let (...) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn ...))))) (el-get-verbose-message "Running commands asynchronously: %S" commands) (let* ((startf (if shell (function start-process-shell-command) (function start-process))) (process-connection-type nil) (proc (apply startf cname cbuf program args))) (mapc (function (lambda (x) (process-put proc x ...))) c) (process-put proc :el-get-sources el-get-sources) (process-put proc :el-get-package package) (process-put proc :el-get-final-func final-func) (process-put proc :el-get-start-process-list next) (if stdin (progn (process-send-string proc (el-get-print-to-string stdin)) (process-send-eof proc))) (set-process-sentinel proc (quote el-get-start-process-list-sentinel)) (if filter (progn (set-process-filter proc filter)))))) (if (functionp final-func) (progn (funcall final-func package)))) (condition-case err (if commands (let* ((c (car commands)) (next (cdr commands)) (cdir (plist-get c :default-directory)) (cname (plist-get c :command-name)) (cbuf (plist-get c :buffer-name)) (killed (if (get-buffer cbuf) (progn (kill-buffer cbuf)))) (filter (plist-get c :process-filter)) (program (plist-get c :program)) (shell (plist-get c :shell)) (args (if shell (mapcar (function shell-quote-argument) (plist-get c :args)) (plist-get c :args))) (sync (el-get-plist-get-with-default c :sync el-get-default-process-sync)) (stdin (plist-get c :stdin)) (default-directory (if cdir (file-name-as-directory (expand-file-name cdir)) default-directory))) (if program nil (error "el-get: :program argument cannot be nil")) (if sync (progn (el-get-verbose-message "Running commands synchronously: %S" commands) (let* ((startf ...) (infile ...) (dummy ...) (dummy ...) (status ...) (message ...) (errorm ...)) (if el-get-verbose (progn ...)) (if (eq 0 status) (message "el-get: %s" message) (set-window-buffer ... cbuf) (error "el-get: %s %s" cname errorm)) (if infile (progn ...)) (if cbuf (progn ...)) (if next (let ... ...) (if ... ...)))) (el-get-verbose-message "Running commands asynchronously: %S" commands) (let* ((startf (if shell ... ...)) (process-connection-type nil) (proc (apply startf cname cbuf program args))) (mapc (function (lambda ... ...)) c) (process-put proc :el-get-sources el-get-sources) (process-put proc :el-get-package package) (process-put proc :el-get-final-func final-func) (process-put proc :el-get-start-process-list next) (if stdin (progn (process-send-string proc ...) (process-send-eof proc))) (set-process-sentinel proc (quote el-get-start-process-list-sentinel)) (if filter (progn (set-process-filter proc filter)))))) (if (functionp final-func) (progn (funcall final-func package)))) ((debug error) (el-get-installation-failed package err))) el-get-start-process-list(yasnippet (nil nil) el-get-post-install) (let ((max-specpdl-size (+ 100 max-specpdl-size))) (el-get-start-process-list package next final-func)) (if next (let ((max-specpdl-size (+ 100 max-specpdl-size))) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn (funcall final-func package)))) (let* ((startf (if shell (function call-process-shell-command) (function call-process))) (infile (if stdin (progn (make-temp-file "el-get")))) (dummy (if infile (progn (let ((temp-file infile) (temp-buffer ...)) (unwind-protect (prog1 ... ...) (and ... ...)))))) (dummy (message "el-get is waiting for %S to complete" cname)) (status (apply startf program infile cbuf t args)) (message (plist-get c :message)) (errorm (plist-get c :error))) (if el-get-verbose (progn (message "%S" (save-current-buffer (set-buffer cbuf) (buffer-string))))) (if (eq 0 status) (message "el-get: %s" message) (set-window-buffer (selected-window) cbuf) (error "el-get: %s %s" cname errorm)) (if infile (progn (delete-file infile))) (if cbuf (progn (kill-buffer cbuf))) (if next (let ((max-specpdl-size (+ 100 max-specpdl-size))) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn (funcall final-func package))))) (progn (el-get-verbose-message "Running commands synchronously: %S" commands) (let* ((startf (if shell (function call-process-shell-command) (function call-process))) (infile (if stdin (progn (make-temp-file "el-get")))) (dummy (if infile (progn (let (... ...) (unwind-protect ... ...))))) (dummy (message "el-get is waiting for %S to complete" cname)) (status (apply startf program infile cbuf t args)) (message (plist-get c :message)) (errorm (plist-get c :error))) (if el-get-verbose (progn (message "%S" (save-current-buffer (set-buffer cbuf) (buffer-string))))) (if (eq 0 status) (message "el-get: %s" message) (set-window-buffer (selected-window) cbuf) (error "el-get: %s %s" cname errorm)) (if infile (progn (delete-file infile))) (if cbuf (progn (kill-buffer cbuf))) (if next (let ((max-specpdl-size (+ 100 max-specpdl-size))) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn (funcall final-func package)))))) (if sync (progn (el-get-verbose-message "Running commands synchronously: %S" commands) (let* ((startf (if shell (function call-process-shell-command) (function call-process))) (infile (if stdin (progn (make-temp-file "el-get")))) (dummy (if infile (progn (let ... ...)))) (dummy (message "el-get is waiting for %S to complete" cname)) (status (apply startf program infile cbuf t args)) (message (plist-get c :message)) (errorm (plist-get c :error))) (if el-get-verbose (progn (message "%S" (save-current-buffer (set-buffer cbuf) (buffer-string))))) (if (eq 0 status) (message "el-get: %s" message) (set-window-buffer (selected-window) cbuf) (error "el-get: %s %s" cname errorm)) (if infile (progn (delete-file infile))) (if cbuf (progn (kill-buffer cbuf))) (if next (let ((max-specpdl-size (+ 100 max-specpdl-size))) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn (funcall final-func package)))))) (el-get-verbose-message "Running commands asynchronously: %S" commands) (let* ((startf (if shell (function start-process-shell-command) (function start-process))) (process-connection-type nil) (proc (apply startf cname cbuf program args))) (mapc (function (lambda (x) (process-put proc x (plist-get c x)))) c) (process-put proc :el-get-sources el-get-sources) (process-put proc :el-get-package package) (process-put proc :el-get-final-func final-func) (process-put proc :el-get-start-process-list next) (if stdin (progn (process-send-string proc (el-get-print-to-string stdin)) (process-send-eof proc))) (set-process-sentinel proc (quote el-get-start-process-list-sentinel)) (if filter (progn (set-process-filter proc filter))))) (let* ((c (car commands)) (next (cdr commands)) (cdir (plist-get c :default-directory)) (cname (plist-get c :command-name)) (cbuf (plist-get c :buffer-name)) (killed (if (get-buffer cbuf) (progn (kill-buffer cbuf)))) (filter (plist-get c :process-filter)) (program (plist-get c :program)) (shell (plist-get c :shell)) (args (if shell (mapcar (function shell-quote-argument) (plist-get c :args)) (plist-get c :args))) (sync (el-get-plist-get-with-default c :sync el-get-default-process-sync)) (stdin (plist-get c :stdin)) (default-directory (if cdir (file-name-as-directory (expand-file-name cdir)) default-directory))) (if program nil (error "el-get: :program argument cannot be nil")) (if sync (progn (el-get-verbose-message "Running commands synchronously: %S" commands) (let* ((startf (if shell (function call-process-shell-command) (function call-process))) (infile (if stdin (progn ...))) (dummy (if infile (progn ...))) (dummy (message "el-get is waiting for %S to complete" cname)) (status (apply startf program infile cbuf t args)) (message (plist-get c :message)) (errorm (plist-get c :error))) (if el-get-verbose (progn (message "%S" (save-current-buffer ... ...)))) (if (eq 0 status) (message "el-get: %s" message) (set-window-buffer (selected-window) cbuf) (error "el-get: %s %s" cname errorm)) (if infile (progn (delete-file infile))) (if cbuf (progn (kill-buffer cbuf))) (if next (let ((max-specpdl-size ...)) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn (funcall final-func package)))))) (el-get-verbose-message "Running commands asynchronously: %S" commands) (let* ((startf (if shell (function start-process-shell-command) (function start-process))) (process-connection-type nil) (proc (apply startf cname cbuf program args))) (mapc (function (lambda (x) (process-put proc x (plist-get c x)))) c) (process-put proc :el-get-sources el-get-sources) (process-put proc :el-get-package package) (process-put proc :el-get-final-func final-func) (process-put proc :el-get-start-process-list next) (if stdin (progn (process-send-string proc (el-get-print-to-string stdin)) (process-send-eof proc))) (set-process-sentinel proc (quote el-get-start-process-list-sentinel)) (if filter (progn (set-process-filter proc filter)))))) (if commands (let* ((c (car commands)) (next (cdr commands)) (cdir (plist-get c :default-directory)) (cname (plist-get c :command-name)) (cbuf (plist-get c :buffer-name)) (killed (if (get-buffer cbuf) (progn (kill-buffer cbuf)))) (filter (plist-get c :process-filter)) (program (plist-get c :program)) (shell (plist-get c :shell)) (args (if shell (mapcar (function shell-quote-argument) (plist-get c :args)) (plist-get c :args))) (sync (el-get-plist-get-with-default c :sync el-get-default-process-sync)) (stdin (plist-get c :stdin)) (default-directory (if cdir (file-name-as-directory (expand-file-name cdir)) default-directory))) (if program nil (error "el-get: :program argument cannot be nil")) (if sync (progn (el-get-verbose-message "Running commands synchronously: %S" commands) (let* ((startf (if shell ... ...)) (infile (if stdin ...)) (dummy (if infile ...)) (dummy (message "el-get is waiting for %S to complete" cname)) (status (apply startf program infile cbuf t args)) (message (plist-get c :message)) (errorm (plist-get c :error))) (if el-get-verbose (progn (message "%S" ...))) (if (eq 0 status) (message "el-get: %s" message) (set-window-buffer (selected-window) cbuf) (error "el-get: %s %s" cname errorm)) (if infile (progn (delete-file infile))) (if cbuf (progn (kill-buffer cbuf))) (if next (let (...) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn ...))))) (el-get-verbose-message "Running commands asynchronously: %S" commands) (let* ((startf (if shell (function start-process-shell-command) (function start-process))) (process-connection-type nil) (proc (apply startf cname cbuf program args))) (mapc (function (lambda (x) (process-put proc x ...))) c) (process-put proc :el-get-sources el-get-sources) (process-put proc :el-get-package package) (process-put proc :el-get-final-func final-func) (process-put proc :el-get-start-process-list next) (if stdin (progn (process-send-string proc (el-get-print-to-string stdin)) (process-send-eof proc))) (set-process-sentinel proc (quote el-get-start-process-list-sentinel)) (if filter (progn (set-process-filter proc filter)))))) (if (functionp final-func) (progn (funcall final-func package)))) (condition-case err (if commands (let* ((c (car commands)) (next (cdr commands)) (cdir (plist-get c :default-directory)) (cname (plist-get c :command-name)) (cbuf (plist-get c :buffer-name)) (killed (if (get-buffer cbuf) (progn (kill-buffer cbuf)))) (filter (plist-get c :process-filter)) (program (plist-get c :program)) (shell (plist-get c :shell)) (args (if shell (mapcar (function shell-quote-argument) (plist-get c :args)) (plist-get c :args))) (sync (el-get-plist-get-with-default c :sync el-get-default-process-sync)) (stdin (plist-get c :stdin)) (default-directory (if cdir (file-name-as-directory (expand-file-name cdir)) default-directory))) (if program nil (error "el-get: :program argument cannot be nil")) (if sync (progn (el-get-verbose-message "Running commands synchronously: %S" commands) (let* ((startf ...) (infile ...) (dummy ...) (dummy ...) (status ...) (message ...) (errorm ...)) (if el-get-verbose (progn ...)) (if (eq 0 status) (message "el-get: %s" message) (set-window-buffer ... cbuf) (error "el-get: %s %s" cname errorm)) (if infile (progn ...)) (if cbuf (progn ...)) (if next (let ... ...) (if ... ...)))) (el-get-verbose-message "Running commands asynchronously: %S" commands) (let* ((startf (if shell ... ...)) (process-connection-type nil) (proc (apply startf cname cbuf program args))) (mapc (function (lambda ... ...)) c) (process-put proc :el-get-sources el-get-sources) (process-put proc :el-get-package package) (process-put proc :el-get-final-func final-func) (process-put proc :el-get-start-process-list next) (if stdin (progn (process-send-string proc ...) (process-send-eof proc))) (set-process-sentinel proc (quote el-get-start-process-list-sentinel)) (if filter (progn (set-process-filter proc filter)))))) (if (functionp final-func) (progn (funcall final-func package)))) ((debug error) (el-get-installation-failed package err))) el-get-start-process-list(yasnippet ((:command-name "*git clone yasnippet*" :buffer-name "*git clone yasnippet*" :default-directory "~/.emacs.d/el-get/" :program "/usr/bin/git" :args ("--no-pager" "clone" "--depth" "1" "http://github.com/capitaomorte/yasnippet.git" "yasnippet") :message "Package yasnippet installed." :error "Could not install package yasnippet.") nil nil) el-get-post-install) (let* ((git-executable (el-get-executable-find "git")) (pdir (el-get-package-directory package)) (pname (el-get-as-string package)) (name (format "*git clone %s*" package)) (source (el-get-package-def package)) (branch (plist-get source :branch)) (submodule-prop (plist-get source :submodule)) (explicit-nosubmodule (and (plist-member source :submodule) (not submodule-prop))) (checkout (or (plist-get source :checkout) (plist-get source :checksum))) (shallow (if (and (string-prefix-p "http" url) (not (string-prefix-p "http://github.com" url))) nil (el-get-plist-get-with-default source :shallow el-get-git-shallow-clone))) (clone-args (append (quote ("--no-pager" "clone")) (if shallow (progn (quote ("--depth" "1")))) (cond (checkout (quote ("--no-checkout"))) (branch (list "-b" branch)) (t nil)) (list url pname))) (ok (format "Package %s installed." package)) (ko (format "Could not install package %s." package))) (el-get-start-process-list package (list (list (quote :command-name) name (quote :buffer-name) name (quote :default-directory) el-get-dir (quote :program) git-executable (quote :args) clone-args (quote :message) ok (quote :error) ko) (if checkout (progn (list :command-name (format "*git checkout %s*" checkout) :buffer-name name :default-directory pdir :program git-executable :args (list "--no-pager" "checkout" checkout) :message (format "git checkout %s ok" checkout) :error (format "Could not checkout %s for package %s" checkout package)))) (if explicit-nosubmodule nil (list :command-name "*git submodule update*" :buffer-name name :default-directory pdir :program git-executable :args (list "--no-pager" "submodule" "update" "--init" "--recursive") :message "git submodule update ok" :error "Could not update git submodules"))) post-install-fun)) el-get-git-clone(yasnippet "http://github.com/capitaomorte/yasnippet.git" el-get-post-install) el-get-github-clone(yasnippet nil el-get-post-install) funcall(el-get-github-clone yasnippet nil el-get-post-install) (let* ((status (el-get-read-package-status package)) (source (el-get-package-def package)) (method (el-get-package-method source)) (install (el-get-method method :install)) (url (plist-get source :url)) (pdir (el-get-package-directory package))) (el-get-error-unless-required-emacs-version source) (cond ((string= "installed" status) (error "Package %s is already installed." package)) ((string= "required" status) (message "Package %s previously failed to install, removing it first." package) (el-get-remove package)) ((file-exists-p pdir) (message "Package %s has an install dir but is not known to be installed. Removing it so we can install a known version." package) (el-get-remove package))) (el-get-check-init) (el-get-save-package-status package "required") (funcall install package url (quote el-get-post-install)) (message "el-get install %s" package)) (if (el-get-package-is-installed package) (progn (el-get-verbose-message "el-get:%s' package is already installed" package) (el-get-do-init package)) (let* ((status (el-get-read-package-status package)) (source (el-get-package-def package)) (method (el-get-package-method source)) (install (el-get-method method :install)) (url (plist-get source :url)) (pdir (el-get-package-directory package))) (el-get-error-unless-required-emacs-version source) (cond ((string= "installed" status) (error "Package %s is already installed." package)) ((string= "required" status) (message "Package %s previously failed to install, removing it first." package) (el-get-remove package)) ((file-exists-p pdir) (message "Package %s has an install dir but is not known to be installed. Removing it so we can install a known version." package) (el-get-remove package))) (el-get-check-init) (el-get-save-package-status package "required") (funcall install package url (quote el-get-post-install)) (message "el-get install %s" package)))
el-get-do-install(yasnippet)
(while (consp --cl-var--) (setq p (car --cl-var--)) (el-get-do-install p) (setq done (nconc done (list p))) (setq --cl-var-- (cdr --cl-var--)))
(let* ((--cl-var-- install-deps) (p nil) (done nil)) (while (consp --cl-var--) (setq p (car --cl-var--)) (el-get-do-install p) (setq done (nconc done (list p))) (setq --cl-var-- (cdr --cl-var--))) nil)
(progn (let* ((--cl-var-- install-deps) (p nil) (done nil)) (while (consp --cl-var--) (setq p (car --cl-var--)) (el-get-do-install p) (setq done (nconc done (list p))) (setq --cl-var-- (cdr --cl-var--))) nil))
(let* ((p-s-alist (el-get-read-status-file)) (required (el-get-filter-package-alist-with-status p-s-alist "required")) (installed (el-get-filter-package-alist-with-status p-s-alist "installed")) (to-init (if packages (progn (let* ((--cl-var-- packages) (p nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq p ...) (if ... ...) (setq --cl-var-- ...)) (nreverse --cl-var--))) (mapcar (quote el-get-as-symbol) installed))) (init-deps (el-get-dependencies to-init)) (req-inits (progn (let* ((--cl-var-- init-deps) (p nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq p (car --cl-var--)) (if (member ... installed) (progn) (setq --cl-var-- ...)) (setq --cl-var-- (cdr --cl-var--))) (nreverse --cl-var--)))) (to-install (if packages (progn (let* ((--cl-var-- packages) (p nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq p ...) (if ... ... ...) (setq --cl-var-- ...)) (nreverse --cl-var--))) (mapcar (quote el-get-as-symbol) required))) (install-deps (el-get-dependencies to-install)) done) (if req-inits (progn (setq install-deps (append req-inits install-deps)) (setq init-deps (set-difference init-deps req-inits)))) (el-get-verbose-message "el-get-init-and-install: install %S" install-deps) (el-get-verbose-message "el-get-init-and-install: init %S" init-deps) (progn (let* ((--cl-var-- install-deps) (p nil) (done nil)) (while (consp --cl-var--) (setq p (car --cl-var--)) (el-get-do-install p) (setq done (nconc done (list p))) (setq --cl-var-- (cdr --cl-var--))) nil)) (progn (let* ((--cl-var-- init-deps) (p nil) (done nil)) (while (consp --cl-var--) (setq p (car --cl-var--)) (el-get-do-init p) (setq done (nconc done (list p))) (setq --cl-var-- (cdr --cl-var--))) nil)) done)
el-get-init-and-install((yasnippet popup helm auto-complete))
(prog1 (el-get-init-and-install (mapcar (quote el-get-as-symbol) packages)) (el-get-eval-autoloads))
(let* ((packages (progn (let* ((--cl-var-- packages) (p nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq p (car --cl-var--)) (if (listp p) (progn ...) (setq --cl-var-- ...)) (setq --cl-var-- (cdr --cl-var--))) (nreverse --cl-var--)))) (el-get-default-process-sync sync)) (if el-get-is-lazy nil (el-get-eval-autoloads)) (prog1 (el-get-init-and-install (mapcar (quote el-get-as-symbol) packages)) (el-get-eval-autoloads)))
el-get(sync ("yasnippet" "popup" "helm" "auto-complete"))
(let ((module-name (file-name-base module)) (file (expand-file-name (if (string-match "ome-.+.org" module) module (format "ome-%s.org" module)) ome-dir))) (setq el-get-sources nil) (setq el-get-git-shallow-clone t) (if header-or-tags (progn (let ((--dolist-tail-- header-or-tags) header-or-tag) (while --dolist-tail-- (setq header-or-tag (car --dolist-tail--)) (let* ((base ...) (dir ...) (partial-file ...)) (if (file-exists-p partial-file) nil (let ... ...)) (org-babel-load-file partial-file)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (org-babel-load-file file)) (el-get (quote sync) (mapcar (quote el-get-source-name) el-get-sources)) (setq ome-module-packages nil) (mapcar (function (lambda (el-get-package) (add-to-list (quote ome-module-packages) (el-get-source-name el-get-package)))) el-get-sources) (add-to-list (quote ome-packages) (cons module-name ome-module-packages)))
ome-load("core/ome-completion.org")
eval-buffer(#<buffer load-605868> nil "/home/sun/.emacs.d/ome.el" nil t) ; Reading at buffer position 6554
load-with-code-conversion("/home/sun/.emacs.d/ome.el" "/home/sun/.emacs.d/ome.el" nil nil)
load("/home/sun/.emacs.d/ome.el" nil nil t)
load-file("/home/sun/.emacs.d/ome.el")
org-babel-load-file("/home/sun/.emacs.d/ome.org")
eval-buffer(#<buffer load> nil "/home/sun/.emacs.d/init.el" nil t) ; Reading at buffer position 1999
load-with-code-conversion("/home/sun/.emacs.d/init.el" "/home/sun/.emacs.d/init.el" t t)
load("/home/sun/.emacs.d/init" t t)
#[0 "�\205\262

Move misc files under .emacs.d directory to a special directory

When you use emacs for some time, the .emacs.d will be filled by various misc temp files such as:

• auto-save-list
• abbrev_defs
• .recentf

things like this. I think it's better to move all files of this kind to a special directory.

error "el-get: make el-get could not build slime

Debugger entered--Lisp error: (error "el-get: make el-get could not build slime [make -C doc slime.info]")
signal(error ("el-get: make el-get could not build slime [make -C doc slime.info]"))
error("el-get: %s %s" "make" "el-get could not build slime [make -C doc slime.info]")

updated tarball

since the tarball at https://www.dropbox.com/s/7gd6nok8vekjckf/ome.tgz is a few commits behind, here is an updated tarball for those having problems with el-get
https://www.dropbox.com/s/owokfy8v2n5dt62/ome.tar.gz

i'll try to keep it updated

the latest commit this tarball covers is 9d16fd2

installation bug on mac os 10.9

Hi,

This is the error message I got when I tried to use your "oh-my-emacs". I am using MAC OS 10.9 now.

Debugger entered--Lisp error: (void-function fringe-mode)
  (fringe-mode 4)
  eval-buffer(#<buffer  *load*-106367> nil "/Users/sun/.emacs.d/core/ome-gui.el" nil t)  ; Reading at buffer position 334
  load-with-code-conversion("/Users/sun/.emacs.d/core/ome-gui.el" "/Users/sun/.emacs.d/core/ome-gui.el" nil nil)
  load("/Users/sun/.emacs.d/core/ome-gui.el" nil nil t)
  load-file("/Users/sun/.emacs.d/core/ome-gui.el")
  org-babel-load-file("/Users/sun/.emacs.d/core/ome-gui.org")
  (if header-or-tags (progn (let ((--dolist-tail-- header-or-tags) header-or-tag) (while --dolist-tail-- (setq header-or-tag ($
  (let ((module-name (file-name-base module)) (file (expand-file-name (if (string-match "ome-.+.org" module) module (format "o$
  ome-load("core/ome-gui.org")
  eval-buffer(#<buffer  *load*-830434> nil "/Users/sun/.emacs.d/ome.el" nil t)  ; Reading at buffer position 6584
  load-with-code-conversion("/Users/sun/.emacs.d/ome.el" "/Users/sun/.emacs.d/ome.el" nil nil)
  load("/Users/sun/.emacs.d/ome.el" nil nil t)
  load-file("/Users/sun/.emacs.d/ome.el")
  org-babel-load-file("/Users/sun/.emacs.d/ome.org")

Please help take a look at it.

Thanks,
Steven

Can't load Evil.....

I renamed my own .emacs.d and cloned yours. But it is not able to load evil and complains to me.
I am using Emacs for Mac OS X 24.3.

slime启动时是*号，不是CL_USER

在ome-common-lisp.org里面的slime-setup上一句加上(require 'slime)就好了。

fedora install fail

Submodule 'testing/jump' (https://github.com/eschulte/jump.el.git) registered for path 'testing/jump'
Cloning into 'testing/jump'...
fatal: unable to access 'https://github.com/eschulte/jump.el.git/': Could not resolve host: github.com
Clone of 'https://github.com/eschulte/jump.el.git' into submodule path 'testing/jump' failed

ubuntu 初始化oh-my-emacs错误，Failed to recurse into submodule path 'yasmate'

初始化命令如下：
$ git clone https://github.com/xiaohanyu/oh-my-emacs
$ ln -s oh-my-emacs .emacs.d
$ emacs

我的系统是：
$ uname -a
Linux ubuntu 3.8.0-29-generic #42~precise1-Ubuntu SMP Wed Aug 14 16:19:23 UTC 2013 x86_64 x86_64 x86_64 GNU/Linux
$ locale
LANG=zh_CN.UTF-8
LANGUAGE=
LC_CTYPE=zh_CN.UTF-8
LC_NUMERIC="zh_CN.UTF-8"
LC_TIME="zh_CN.UTF-8"
LC_COLLATE="zh_CN.UTF-8"
LC_MONETARY="zh_CN.UTF-8"
LC_MESSAGES="zh_CN.UTF-8"
LC_PAPER="zh_CN.UTF-8"
LC_NAME="zh_CN.UTF-8"
LC_ADDRESS="zh_CN.UTF-8"
LC_TELEPHONE="zh_CN.UTF-8"
LC_MEASUREMENT="zh_CN.UTF-8"
LC_IDENTIFICATION="zh_CN.UTF-8"
LC_ALL=
详细错误信息如下：
错误信息：
perl: warning: Setting locale failed.
perl: warning: Please check that your locale settings:
LANGUAGE = (unset),
LC_ALL = (unset),
LC_CTYPE = "zh_CN.UTF-8",
LANG = "en_US.UTF-8"
are supported and installed on your system.
perl: warning: Falling back to the standard locale ("C").
Submodule 'snippets' (https://github.com/AndreaCrotti/yasnippet-snippets.git) registered for path 'snippets'
Submodule 'yasmate' (https://github.com/capitaomorte/yasmate.git) registered for path 'yasmate'
perl: warning: Setting locale failed.
perl: warning: Please check that your locale settings:
LANGUAGE = (unset),
LC_ALL = (unset),
LC_CTYPE = "zh_CN.UTF-8",
LANG = "en_US.UTF-8"
are supported and installed on your system.
perl: warning: Falling back to the standard locale ("C").
Cloning into 'snippets'...
Submodule path 'snippets': checked out '7638321285cf78a9d075fa63d5ada105aa44752e'
perl: warning: Setting locale failed.
perl: warning: Please check that your locale settings:
LANGUAGE = (unset),
LC_ALL = (unset),
LC_CTYPE = "zh_CN.UTF-8",
LANG = "en_US.UTF-8"
are supported and installed on your system.
perl: warning: Falling back to the standard locale ("C").
perl: warning: Setting locale failed.
perl: warning: Please check that your locale settings:
LANGUAGE = (unset),
LC_ALL = (unset),
LC_CTYPE = "zh_CN.UTF-8",
LANG = "en_US.UTF-8"
are supported and installed on your system.
perl: warning: Falling back to the standard locale ("C").
Cloning into 'yasmate'...
Submodule path 'yasmate': checked out '78ef957e6bbc2891fb644e060f504c68ac1d8c6b'
perl: warning: Setting locale failed.
perl: warning: Please check that your locale settings:
LANGUAGE = (unset),
LC_ALL = (unset),
LC_CTYPE = "zh_CN.UTF-8",
LANG = "en_US.UTF-8"
are supported and installed on your system.
perl: warning: Falling back to the standard locale ("C").
Submodule 'bundles/html-tmbundle' (https://github.com/textmate/html.tmbundle.git) registered for path 'bundles/html-tmbundle'
Submodule 'bundles/objc-tmbundle' ([email protected]:textmate/objective-c.tmbundle.git) registered for path 'bundles/objc-tmbundle'
Submodule 'bundles/rails-tmbundle' (https://github.com/textmate/ruby-on-rails-tmbundle.git) registered for path 'bundles/rails-tmbundle'
Submodule 'bundles/ruby-tmbundle' (https://github.com/textmate/ruby.tmbundle.git) registered for path 'bundles/ruby-tmbundle'
perl: warning: Setting locale failed.
perl: warning: Please check that your locale settings:
LANGUAGE = (unset),
LC_ALL = (unset),
LC_CTYPE = "zh_CN.UTF-8",
LANG = "en_US.UTF-8"
are supported and installed on your system.
perl: warning: Falling back to the standard locale ("C").
Cloning into 'bundles/html-tmbundle'...
Submodule path 'bundles/html-tmbundle': checked out '993588a35d665427209936618a9e524679480e95'
perl: warning: Setting locale failed.
perl: warning: Please check that your locale settings:
LANGUAGE = (unset),
LC_ALL = (unset),
LC_CTYPE = "zh_CN.UTF-8",
LANG = "en_US.UTF-8"
are supported and installed on your system.
perl: warning: Falling back to the standard locale ("C").
perl: warning: Setting locale failed.
perl: warning: Please check that your locale settings:
LANGUAGE = (unset),
LC_ALL = (unset),
LC_CTYPE = "zh_CN.UTF-8",
LANG = "en_US.UTF-8"
are supported and installed on your system.
perl: warning: Falling back to the standard locale ("C").
Cloning into 'bundles/objc-tmbundle'...
Permission denied (publickey).
fatal: The remote end hung up unexpectedly
Clone of '[email protected]:textmate/objective-c.tmbundle.git' into submodule path 'bundles/objc-tmbundle' failed
Failed to recurse into submodule path 'yasmate'

backtrace信息如下：
Debugger entered--Lisp error: (error "el-get: *git submodule update* Could not update git submodules")
  signal(error ("el-get: *git submodule update* Could not update git submodules"))
  error("el-get: %s %s" "*git submodule update*" "Could not update git submodules")
  (if (eq 0 status) (message "el-get: %s" message) (set-window-buffer (selected-window) cbuf) (error "el-get: %s %s" cname errorm))
  (let* ((startf (if shell (function call-process-shell-command) (function call-process))) (infile (if stdin (progn (make-temp-file "el-get")))) (dummy (if infile (progn (let ((temp-file infile) (temp-buffer ...)) (unwind-protect (prog1 ... ...) (and ... ...)))))) (dummy (message "el-get is waiting for %S to complete" cname)) (status (apply startf program infile cbuf t args)) (message (plist-get c :message)) (errorm (plist-get c :error))) (if el-get-verbose (progn (message "%S" (save-current-buffer (set-buffer cbuf) (buffer-string))))) (if (eq 0 status) (message "el-get: %s" message) (set-window-buffer (selected-window) cbuf) (error "el-get: %s %s" cname errorm)) (if infile (progn (delete-file infile))) (if cbuf (progn (kill-buffer cbuf))) (if next (let ((max-specpdl-size (+ 100 max-specpdl-size))) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn (funcall final-func package)))))
  (progn (el-get-verbose-message "Running commands synchronously: %S" commands) (let* ((startf (if shell (function call-process-shell-command) (function call-process))) (infile (if stdin (progn (make-temp-file "el-get")))) (dummy (if infile (progn (let (... ...) (unwind-protect ... ...))))) (dummy (message "el-get is waiting for %S to complete" cname)) (status (apply startf program infile cbuf t args)) (message (plist-get c :message)) (errorm (plist-get c :error))) (if el-get-verbose (progn (message "%S" (save-current-buffer (set-buffer cbuf) (buffer-string))))) (if (eq 0 status) (message "el-get: %s" message) (set-window-buffer (selected-window) cbuf) (error "el-get: %s %s" cname errorm)) (if infile (progn (delete-file infile))) (if cbuf (progn (kill-buffer cbuf))) (if next (let ((max-specpdl-size (+ 100 max-specpdl-size))) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn (funcall final-func package))))))
  (if sync (progn (el-get-verbose-message "Running commands synchronously: %S" commands) (let* ((startf (if shell (function call-process-shell-command) (function call-process))) (infile (if stdin (progn (make-temp-file "el-get")))) (dummy (if infile (progn (let ... ...)))) (dummy (message "el-get is waiting for %S to complete" cname)) (status (apply startf program infile cbuf t args)) (message (plist-get c :message)) (errorm (plist-get c :error))) (if el-get-verbose (progn (message "%S" (save-current-buffer (set-buffer cbuf) (buffer-string))))) (if (eq 0 status) (message "el-get: %s" message) (set-window-buffer (selected-window) cbuf) (error "el-get: %s %s" cname errorm)) (if infile (progn (delete-file infile))) (if cbuf (progn (kill-buffer cbuf))) (if next (let ((max-specpdl-size (+ 100 max-specpdl-size))) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn (funcall final-func package)))))) (el-get-verbose-message "Running commands asynchronously: %S" commands) (let* ((startf (if shell (function start-process-shell-command) (function start-process))) (process-connection-type nil) (proc (apply startf cname cbuf program args))) (mapc (function (lambda (x) (process-put proc x (plist-get c x)))) c) (process-put proc :el-get-sources el-get-sources) (process-put proc :el-get-package package) (process-put proc :el-get-final-func final-func) (process-put proc :el-get-start-process-list next) (if stdin (progn (process-send-string proc (el-get-print-to-string stdin)) (process-send-eof proc))) (set-process-sentinel proc (quote el-get-start-process-list-sentinel)) (if filter (progn (set-process-filter proc filter)))))
  (let* ((c (car commands)) (next (cdr commands)) (cdir (plist-get c :default-directory)) (cname (plist-get c :command-name)) (cbuf (plist-get c :buffer-name)) (killed (if (get-buffer cbuf) (progn (kill-buffer cbuf)))) (filter (plist-get c :process-filter)) (program (plist-get c :program)) (shell (plist-get c :shell)) (args (if shell (mapcar (function shell-quote-argument) (plist-get c :args)) (plist-get c :args))) (sync (el-get-plist-get-with-default c :sync el-get-default-process-sync)) (stdin (plist-get c :stdin)) (default-directory (if cdir (file-name-as-directory (expand-file-name cdir)) default-directory))) (if sync (progn (el-get-verbose-message "Running commands synchronously: %S" commands) (let* ((startf (if shell (function call-process-shell-command) (function call-process))) (infile (if stdin (progn ...))) (dummy (if infile (progn ...))) (dummy (message "el-get is waiting for %S to complete" cname)) (status (apply startf program infile cbuf t args)) (message (plist-get c :message)) (errorm (plist-get c :error))) (if el-get-verbose (progn (message "%S" (save-current-buffer ... ...)))) (if (eq 0 status) (message "el-get: %s" message) (set-window-buffer (selected-window) cbuf) (error "el-get: %s %s" cname errorm)) (if infile (progn (delete-file infile))) (if cbuf (progn (kill-buffer cbuf))) (if next (let ((max-specpdl-size ...)) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn (funcall final-func package)))))) (el-get-verbose-message "Running commands asynchronously: %S" commands) (let* ((startf (if shell (function start-process-shell-command) (function start-process))) (process-connection-type nil) (proc (apply startf cname cbuf program args))) (mapc (function (lambda (x) (process-put proc x (plist-get c x)))) c) (process-put proc :el-get-sources el-get-sources) (process-put proc :el-get-package package) (process-put proc :el-get-final-func final-func) (process-put proc :el-get-start-process-list next) (if stdin (progn (process-send-string proc (el-get-print-to-string stdin)) (process-send-eof proc))) (set-process-sentinel proc (quote el-get-start-process-list-sentinel)) (if filter (progn (set-process-filter proc filter))))))
  (if commands (let* ((c (car commands)) (next (cdr commands)) (cdir (plist-get c :default-directory)) (cname (plist-get c :command-name)) (cbuf (plist-get c :buffer-name)) (killed (if (get-buffer cbuf) (progn (kill-buffer cbuf)))) (filter (plist-get c :process-filter)) (program (plist-get c :program)) (shell (plist-get c :shell)) (args (if shell (mapcar (function shell-quote-argument) (plist-get c :args)) (plist-get c :args))) (sync (el-get-plist-get-with-default c :sync el-get-default-process-sync)) (stdin (plist-get c :stdin)) (default-directory (if cdir (file-name-as-directory (expand-file-name cdir)) default-directory))) (if sync (progn (el-get-verbose-message "Running commands synchronously: %S" commands) (let* ((startf (if shell ... ...)) (infile (if stdin ...)) (dummy (if infile ...)) (dummy (message "el-get is waiting for %S to complete" cname)) (status (apply startf program infile cbuf t args)) (message (plist-get c :message)) (errorm (plist-get c :error))) (if el-get-verbose (progn (message "%S" ...))) (if (eq 0 status) (message "el-get: %s" message) (set-window-buffer (selected-window) cbuf) (error "el-get: %s %s" cname errorm)) (if infile (progn (delete-file infile))) (if cbuf (progn (kill-buffer cbuf))) (if next (let (...) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn ...))))) (el-get-verbose-message "Running commands asynchronously: %S" commands) (let* ((startf (if shell (function start-process-shell-command) (function start-process))) (process-connection-type nil) (proc (apply startf cname cbuf program args))) (mapc (function (lambda (x) (process-put proc x ...))) c) (process-put proc :el-get-sources el-get-sources) (process-put proc :el-get-package package) (process-put proc :el-get-final-func final-func) (process-put proc :el-get-start-process-list next) (if stdin (progn (process-send-string proc (el-get-print-to-string stdin)) (process-send-eof proc))) (set-process-sentinel proc (quote el-get-start-process-list-sentinel)) (if filter (progn (set-process-filter proc filter)))))) (if (functionp final-func) (progn (funcall final-func package))))
  (condition-case err (if commands (let* ((c (car commands)) (next (cdr commands)) (cdir (plist-get c :default-directory)) (cname (plist-get c :command-name)) (cbuf (plist-get c :buffer-name)) (killed (if (get-buffer cbuf) (progn (kill-buffer cbuf)))) (filter (plist-get c :process-filter)) (program (plist-get c :program)) (shell (plist-get c :shell)) (args (if shell (mapcar (function shell-quote-argument) (plist-get c :args)) (plist-get c :args))) (sync (el-get-plist-get-with-default c :sync el-get-default-process-sync)) (stdin (plist-get c :stdin)) (default-directory (if cdir (file-name-as-directory (expand-file-name cdir)) default-directory))) (if sync (progn (el-get-verbose-message "Running commands synchronously: %S" commands) (let* ((startf ...) (infile ...) (dummy ...) (dummy ...) (status ...) (message ...) (errorm ...)) (if el-get-verbose (progn ...)) (if (eq 0 status) (message "el-get: %s" message) (set-window-buffer ... cbuf) (error "el-get: %s %s" cname errorm)) (if infile (progn ...)) (if cbuf (progn ...)) (if next (let ... ...) (if ... ...)))) (el-get-verbose-message "Running commands asynchronously: %S" commands) (let* ((startf (if shell ... ...)) (process-connection-type nil) (proc (apply startf cname cbuf program args))) (mapc (function (lambda ... ...)) c) (process-put proc :el-get-sources el-get-sources) (process-put proc :el-get-package package) (process-put proc :el-get-final-func final-func) (process-put proc :el-get-start-process-list next) (if stdin (progn (process-send-string proc ...) (process-send-eof proc))) (set-process-sentinel proc (quote el-get-start-process-list-sentinel)) (if filter (progn (set-process-filter proc filter)))))) (if (functionp final-func) (progn (funcall final-func package)))) ((debug error) (el-get-installation-failed package err)))
  el-get-start-process-list(yasnippet (nil (:command-name "*git submodule update*" :buffer-name "*git clone yasnippet*" :default-directory "/home/zfbtianya/.emacs.d/el-get/yasnippet/" :program "/usr/bin/git" :args ("--no-pager" "submodule" "update" "--init" "--recursive") :message "git submodule update ok" :error "Could not update git submodules")) el-get-post-install)
  (let ((max-specpdl-size (+ 100 max-specpdl-size))) (el-get-start-process-list package next final-func))
  (if next (let ((max-specpdl-size (+ 100 max-specpdl-size))) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn (funcall final-func package))))
  (let* ((startf (if shell (function call-process-shell-command) (function call-process))) (infile (if stdin (progn (make-temp-file "el-get")))) (dummy (if infile (progn (let ((temp-file infile) (temp-buffer ...)) (unwind-protect (prog1 ... ...) (and ... ...)))))) (dummy (message "el-get is waiting for %S to complete" cname)) (status (apply startf program infile cbuf t args)) (message (plist-get c :message)) (errorm (plist-get c :error))) (if el-get-verbose (progn (message "%S" (save-current-buffer (set-buffer cbuf) (buffer-string))))) (if (eq 0 status) (message "el-get: %s" message) (set-window-buffer (selected-window) cbuf) (error "el-get: %s %s" cname errorm)) (if infile (progn (delete-file infile))) (if cbuf (progn (kill-buffer cbuf))) (if next (let ((max-specpdl-size (+ 100 max-specpdl-size))) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn (funcall final-func package)))))
  (progn (el-get-verbose-message "Running commands synchronously: %S" commands) (let* ((startf (if shell (function call-process-shell-command) (function call-process))) (infile (if stdin (progn (make-temp-file "el-get")))) (dummy (if infile (progn (let (... ...) (unwind-protect ... ...))))) (dummy (message "el-get is waiting for %S to complete" cname)) (status (apply startf program infile cbuf t args)) (message (plist-get c :message)) (errorm (plist-get c :error))) (if el-get-verbose (progn (message "%S" (save-current-buffer (set-buffer cbuf) (buffer-string))))) (if (eq 0 status) (message "el-get: %s" message) (set-window-buffer (selected-window) cbuf) (error "el-get: %s %s" cname errorm)) (if infile (progn (delete-file infile))) (if cbuf (progn (kill-buffer cbuf))) (if next (let ((max-specpdl-size (+ 100 max-specpdl-size))) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn (funcall final-func package))))))
  (if sync (progn (el-get-verbose-message "Running commands synchronously: %S" commands) (let* ((startf (if shell (function call-process-shell-command) (function call-process))) (infile (if stdin (progn (make-temp-file "el-get")))) (dummy (if infile (progn (let ... ...)))) (dummy (message "el-get is waiting for %S to complete" cname)) (status (apply startf program infile cbuf t args)) (message (plist-get c :message)) (errorm (plist-get c :error))) (if el-get-verbose (progn (message "%S" (save-current-buffer (set-buffer cbuf) (buffer-string))))) (if (eq 0 status) (message "el-get: %s" message) (set-window-buffer (selected-window) cbuf) (error "el-get: %s %s" cname errorm)) (if infile (progn (delete-file infile))) (if cbuf (progn (kill-buffer cbuf))) (if next (let ((max-specpdl-size (+ 100 max-specpdl-size))) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn (funcall final-func package)))))) (el-get-verbose-message "Running commands asynchronously: %S" commands) (let* ((startf (if shell (function start-process-shell-command) (function start-process))) (process-connection-type nil) (proc (apply startf cname cbuf program args))) (mapc (function (lambda (x) (process-put proc x (plist-get c x)))) c) (process-put proc :el-get-sources el-get-sources) (process-put proc :el-get-package package) (process-put proc :el-get-final-func final-func) (process-put proc :el-get-start-process-list next) (if stdin (progn (process-send-string proc (el-get-print-to-string stdin)) (process-send-eof proc))) (set-process-sentinel proc (quote el-get-start-process-list-sentinel)) (if filter (progn (set-process-filter proc filter)))))
  (let* ((c (car commands)) (next (cdr commands)) (cdir (plist-get c :default-directory)) (cname (plist-get c :command-name)) (cbuf (plist-get c :buffer-name)) (killed (if (get-buffer cbuf) (progn (kill-buffer cbuf)))) (filter (plist-get c :process-filter)) (program (plist-get c :program)) (shell (plist-get c :shell)) (args (if shell (mapcar (function shell-quote-argument) (plist-get c :args)) (plist-get c :args))) (sync (el-get-plist-get-with-default c :sync el-get-default-process-sync)) (stdin (plist-get c :stdin)) (default-directory (if cdir (file-name-as-directory (expand-file-name cdir)) default-directory))) (if sync (progn (el-get-verbose-message "Running commands synchronously: %S" commands) (let* ((startf (if shell (function call-process-shell-command) (function call-process))) (infile (if stdin (progn ...))) (dummy (if infile (progn ...))) (dummy (message "el-get is waiting for %S to complete" cname)) (status (apply startf program infile cbuf t args)) (message (plist-get c :message)) (errorm (plist-get c :error))) (if el-get-verbose (progn (message "%S" (save-current-buffer ... ...)))) (if (eq 0 status) (message "el-get: %s" message) (set-window-buffer (selected-window) cbuf) (error "el-get: %s %s" cname errorm)) (if infile (progn (delete-file infile))) (if cbuf (progn (kill-buffer cbuf))) (if next (let ((max-specpdl-size ...)) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn (funcall final-func package)))))) (el-get-verbose-message "Running commands asynchronously: %S" commands) (let* ((startf (if shell (function start-process-shell-command) (function start-process))) (process-connection-type nil) (proc (apply startf cname cbuf program args))) (mapc (function (lambda (x) (process-put proc x (plist-get c x)))) c) (process-put proc :el-get-sources el-get-sources) (process-put proc :el-get-package package) (process-put proc :el-get-final-func final-func) (process-put proc :el-get-start-process-list next) (if stdin (progn (process-send-string proc (el-get-print-to-string stdin)) (process-send-eof proc))) (set-process-sentinel proc (quote el-get-start-process-list-sentinel)) (if filter (progn (set-process-filter proc filter))))))
  (if commands (let* ((c (car commands)) (next (cdr commands)) (cdir (plist-get c :default-directory)) (cname (plist-get c :command-name)) (cbuf (plist-get c :buffer-name)) (killed (if (get-buffer cbuf) (progn (kill-buffer cbuf)))) (filter (plist-get c :process-filter)) (program (plist-get c :program)) (shell (plist-get c :shell)) (args (if shell (mapcar (function shell-quote-argument) (plist-get c :args)) (plist-get c :args))) (sync (el-get-plist-get-with-default c :sync el-get-default-process-sync)) (stdin (plist-get c :stdin)) (default-directory (if cdir (file-name-as-directory (expand-file-name cdir)) default-directory))) (if sync (progn (el-get-verbose-message "Running commands synchronously: %S" commands) (let* ((startf (if shell ... ...)) (infile (if stdin ...)) (dummy (if infile ...)) (dummy (message "el-get is waiting for %S to complete" cname)) (status (apply startf program infile cbuf t args)) (message (plist-get c :message)) (errorm (plist-get c :error))) (if el-get-verbose (progn (message "%S" ...))) (if (eq 0 status) (message "el-get: %s" message) (set-window-buffer (selected-window) cbuf) (error "el-get: %s %s" cname errorm)) (if infile (progn (delete-file infile))) (if cbuf (progn (kill-buffer cbuf))) (if next (let (...) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn ...))))) (el-get-verbose-message "Running commands asynchronously: %S" commands) (let* ((startf (if shell (function start-process-shell-command) (function start-process))) (process-connection-type nil) (proc (apply startf cname cbuf program args))) (mapc (function (lambda (x) (process-put proc x ...))) c) (process-put proc :el-get-sources el-get-sources) (process-put proc :el-get-package package) (process-put proc :el-get-final-func final-func) (process-put proc :el-get-start-process-list next) (if stdin (progn (process-send-string proc (el-get-print-to-string stdin)) (process-send-eof proc))) (set-process-sentinel proc (quote el-get-start-process-list-sentinel)) (if filter (progn (set-process-filter proc filter)))))) (if (functionp final-func) (progn (funcall final-func package))))
  (condition-case err (if commands (let* ((c (car commands)) (next (cdr commands)) (cdir (plist-get c :default-directory)) (cname (plist-get c :command-name)) (cbuf (plist-get c :buffer-name)) (killed (if (get-buffer cbuf) (progn (kill-buffer cbuf)))) (filter (plist-get c :process-filter)) (program (plist-get c :program)) (shell (plist-get c :shell)) (args (if shell (mapcar (function shell-quote-argument) (plist-get c :args)) (plist-get c :args))) (sync (el-get-plist-get-with-default c :sync el-get-default-process-sync)) (stdin (plist-get c :stdin)) (default-directory (if cdir (file-name-as-directory (expand-file-name cdir)) default-directory))) (if sync (progn (el-get-verbose-message "Running commands synchronously: %S" commands) (let* ((startf ...) (infile ...) (dummy ...) (dummy ...) (status ...) (message ...) (errorm ...)) (if el-get-verbose (progn ...)) (if (eq 0 status) (message "el-get: %s" message) (set-window-buffer ... cbuf) (error "el-get: %s %s" cname errorm)) (if infile (progn ...)) (if cbuf (progn ...)) (if next (let ... ...) (if ... ...)))) (el-get-verbose-message "Running commands asynchronously: %S" commands) (let* ((startf (if shell ... ...)) (process-connection-type nil) (proc (apply startf cname cbuf program args))) (mapc (function (lambda ... ...)) c) (process-put proc :el-get-sources el-get-sources) (process-put proc :el-get-package package) (process-put proc :el-get-final-func final-func) (process-put proc :el-get-start-process-list next) (if stdin (progn (process-send-string proc ...) (process-send-eof proc))) (set-process-sentinel proc (quote el-get-start-process-list-sentinel)) (if filter (progn (set-process-filter proc filter)))))) (if (functionp final-func) (progn (funcall final-func package)))) ((debug error) (el-get-installation-failed package err)))
  el-get-start-process-list(yasnippet ((:command-name "*git clone yasnippet*" :buffer-name "*git clone yasnippet*" :default-directory "~/.emacs.d/el-get/" :program "/usr/bin/git" :args ("--no-pager" "clone" "--depth" "1" "http://github.com/capitaomorte/yasnippet.git" "yasnippet") :message "Package yasnippet installed." :error "Could not install package yasnippet.") nil (:command-name "*git submodule update*" :buffer-name "*git clone yasnippet*" :default-directory "/home/zfbtianya/.emacs.d/el-get/yasnippet/" :program "/usr/bin/git" :args ("--no-pager" "submodule" "update" "--init" "--recursive") :message "git submodule update ok" :error "Could not update git submodules")) el-get-post-install)
  (let* ((git-executable (el-get-executable-find "git")) (pdir (el-get-package-directory package)) (pname (el-get-as-string package)) (name (format "*git clone %s*" package)) (source (el-get-package-def package)) (branch (plist-get source :branch)) (submodule-prop (plist-get source :submodule)) (explicit-nosubmodule (and (plist-member source :submodule) (not submodule-prop))) (checkout (or (plist-get source :checkout) (plist-get source :checksum))) (shallow (if (and (string-prefix-p "http" url) (not (string-prefix-p "http://github.com" url))) nil (el-get-plist-get-with-default source :shallow el-get-git-shallow-clone))) (clone-args (append (quote ("--no-pager" "clone")) (if shallow (progn (quote ("--depth" "1")))) (cond (checkout (quote ("--no-checkout"))) (branch (list "-b" branch)) (t nil)) (list url pname))) (ok (format "Package %s installed." package)) (ko (format "Could not install package %s." package))) (el-get-start-process-list package (list (list (quote :command-name) name (quote :buffer-name) name (quote :default-directory) el-get-dir (quote :program) git-executable (quote :args) clone-args (quote :message) ok (quote :error) ko) (if checkout (progn (list :command-name (format "*git checkout %s*" checkout) :buffer-name name :default-directory pdir :program git-executable :args (list "--no-pager" "checkout" checkout) :message (format "git checkout %s ok" checkout) :error (format "Could not checkout %s for package %s" checkout package)))) (if explicit-nosubmodule nil (list :command-name "*git submodule update*" :buffer-name name :default-directory pdir :program git-executable :args (list "--no-pager" "submodule" "update" "--init" "--recursive") :message "git submodule update ok" :error "Could not update git submodules"))) post-install-fun))
  el-get-git-clone(yasnippet "http://github.com/capitaomorte/yasnippet.git" el-get-post-install)
  el-get-github-clone(yasnippet nil el-get-post-install)
  funcall(el-get-github-clone yasnippet nil el-get-post-install)
  (let* ((status (el-get-read-package-status package)) (source (el-get-package-def package)) (method (el-get-package-method source)) (install (el-get-method method :install)) (url (plist-get source :url)) (pdir (el-get-package-directory package))) (el-get-error-unless-required-emacs-version source) (cond ((string= "installed" status) (error "Package %s is already installed." package)) ((string= "required" status) (message "Package %s previously failed to install, removing it first." package) (el-get-remove package)) ((file-exists-p pdir) (message "Package %s has an install dir but is not known to be installed. Removing it so we can install a known version." package) (el-get-remove package))) (el-get-check-init) (el-get-save-package-status package "required") (funcall install package url (quote el-get-post-install)) (message "el-get install %s" package))
  (if (el-get-package-is-installed package) (progn (el-get-verbose-message "el-get: `%s' package is already installed" package) (el-get-do-init package)) (let* ((status (el-get-read-package-status package)) (source (el-get-package-def package)) (method (el-get-package-method source)) (install (el-get-method method :install)) (url (plist-get source :url)) (pdir (el-get-package-directory package))) (el-get-error-unless-required-emacs-version source) (cond ((string= "installed" status) (error "Package %s is already installed." package)) ((string= "required" status) (message "Package %s previously failed to install, removing it first." package) (el-get-remove package)) ((file-exists-p pdir) (message "Package %s has an install dir but is not known to be installed. Removing it so we can install a known version." package) (el-get-remove package))) (el-get-check-init) (el-get-save-package-status package "required") (funcall install package url (quote el-get-post-install)) (message "el-get install %s" package)))
  el-get-do-install(yasnippet)
  (while (consp --cl-var--) (setq p (car --cl-var--)) (el-get-do-install p) (setq done (nconc done (list p))) (setq --cl-var-- (cdr --cl-var--)))
  (let* ((--cl-var-- install-deps) (p nil) (done nil)) (while (consp --cl-var--) (setq p (car --cl-var--)) (el-get-do-install p) (setq done (nconc done (list p))) (setq --cl-var-- (cdr --cl-var--))) nil)
  (progn (let* ((--cl-var-- install-deps) (p nil) (done nil)) (while (consp --cl-var--) (setq p (car --cl-var--)) (el-get-do-install p) (setq done (nconc done (list p))) (setq --cl-var-- (cdr --cl-var--))) nil))
  (let* ((p-s-alist (el-get-read-status-file)) (required (el-get-filter-package-alist-with-status p-s-alist "required")) (installed (el-get-filter-package-alist-with-status p-s-alist "installed")) (to-init (if packages (progn (let* ((--cl-var-- packages) (p nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq p ...) (if ... ...) (setq --cl-var-- ...)) (nreverse --cl-var--))) (mapcar (quote el-get-as-symbol) installed))) (init-deps (el-get-dependencies to-init)) (to-install (if packages (progn (let* ((--cl-var-- packages) (p nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq p ...) (if ... ... ...) (setq --cl-var-- ...)) (nreverse --cl-var--))) (mapcar (quote el-get-as-symbol) required))) (install-deps (el-get-dependencies to-install)) done) (el-get-verbose-message "el-get-init-and-install: install %S" install-deps) (el-get-verbose-message "el-get-init-and-install: init %S" init-deps) (progn (let* ((--cl-var-- install-deps) (p nil) (done nil)) (while (consp --cl-var--) (setq p (car --cl-var--)) (el-get-do-install p) (setq done (nconc done (list p))) (setq --cl-var-- (cdr --cl-var--))) nil)) (progn (let* ((--cl-var-- init-deps) (p nil) (done nil)) (while (consp --cl-var--) (setq p (car --cl-var--)) (el-get-do-init p) (setq done (nconc done (list p))) (setq --cl-var-- (cdr --cl-var--))) nil)) done)
  el-get-init-and-install((yasnippet popup helm auto-complete))
  (prog1 (el-get-init-and-install (mapcar (quote el-get-as-symbol) packages)) (el-get-eval-autoloads))
  (let* ((packages (progn (let* ((--cl-var-- packages) (p nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq p (car --cl-var--)) (if (listp p) (progn ...) (setq --cl-var-- ...)) (setq --cl-var-- (cdr --cl-var--))) (nreverse --cl-var--)))) (total (length packages)) (installed (el-get-count-packages-with-status packages "installed")) (el-get-default-process-sync sync)) (if el-get-is-lazy nil (el-get-eval-autoloads)) (prog1 (el-get-init-and-install (mapcar (quote el-get-as-symbol) packages)) (el-get-eval-autoloads)))
  el-get(sync ("yasnippet" "popup" "helm" "auto-complete"))
  (let ((module-name (file-name-base module)) (file (expand-file-name (if (string-match "ome-.+.org" module) module (format "ome-%s.org" module)) ome-dir))) (setq el-get-sources nil) (setq el-get-git-shallow-clone t) (if header-or-tags (progn (let ((--dolist-tail-- header-or-tags) header-or-tag) (while --dolist-tail-- (setq header-or-tag (car --dolist-tail--)) (let* ((base ...) (dir ...) (partial-file ...)) (if (file-exists-p partial-file) nil (let ... ...)) (org-babel-load-file partial-file)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (org-babel-load-file file)) (el-get (quote sync) (mapcar (quote el-get-source-name) el-get-sources)) (setq ome-module-packages nil) (mapcar (function (lambda (el-get-package) (add-to-list (quote ome-module-packages) (el-get-source-name el-get-package)))) el-get-sources) (add-to-list (quote ome-packages) (cons module-name ome-module-packages)))
  ome-load("core/ome-completion.org")
  eval-buffer(#<buffer  *load*-327018> nil "/home/zfbtianya/.emacs.d/ome.el" nil t)  ; Reading at buffer position 6554
  load-with-code-conversion("/home/zfbtianya/.emacs.d/ome.el" "/home/zfbtianya/.emacs.d/ome.el" nil nil)
  load("/home/zfbtianya/.emacs.d/ome.el" nil nil t)
  load-file("/home/zfbtianya/.emacs.d/ome.el")
  org-babel-load-file("/home/zfbtianya/.emacs.d/ome.org")
  eval-buffer(#<buffer  *load*> nil "/home/zfbtianya/.emacs.d/init.el" nil t)  ; Reading at buffer position 1999
  load-with-code-conversion("/home/zfbtianya/.emacs.d/init.el" "/home/zfbtianya/.emacs.d/init.el" t t)
  load("/home/zfbtianya/.emacs.d/init" t t)
  #[0 " \205\262

Install exec-path-from-shell for Mac OS X

I just know emacs in Mac OS X has some weird problem, and seems that some smart guy already solved this.

@JudeVC can see this: https://github.com/purcell/exec-path-from-shell

List packages problem

I'm try to install graphene.
When typed "M-x package-list-packages",I get the list of packages.But it only lists 479 items.And I can't find the package named "graphene".

Problem with installation

Hi,
I followed the instructions to git clone the repo and run emacs, but installation halts with the error:

Warning (:warning): Specify `lexical-binding' on the first line, not at the end
Warning (emacs): Build command "cd doc && makeinfo flycheck.texi" in package "flycheck" will be shell-interpolated. To bypass shell interpolation, the recipe for "flycheck" should specify build commands as lists of strings instead.
Warning (initialization): An error occurred while loading `/home/rc/.emacs.d/init.el':

error: global-visual-line-mode is not currently registered as a minor mode

To ensure normal operation, you should investigate and remove the
cause of the error in your initialization file.  Start Emacs with
the `--debug-init' option to view a complete error backtrace.

I am running emacs 24.3.50.1 on Linux Mint 16.

problem with el-get under windows

el-get seems not to work under windows due to:

(setq explicit-shell-file-name "/bin/bash")
(setq shell-file-name "/bin/bash")

in ome-basic.org. commenting out those two lines makes it work again

提几个小建议

比如 slime 跟 auctex 这两个最好加上判断是否具备可执行条件再进行配置。
另外 有个依赖到了python-virtualenv 好像你没在README里说明哦。
auto-complete-clang其实还有个auto-complete-clang-async(https://github.com/Golevka/emacs-clang-complete-async) 这个的补全速度更加快些
另外c/c++我还推荐个rtags(https://github.com/Andersbakken/rtags)

Debugger entered--Lisp error: (wrong-type-argument arrayp nil)

I get this error when installing:

Debugger entered--Lisp error: (wrong-type-argument arrayp nil)
undo-tree-current(nil)
(undo-tree-node-previous (undo-tree-current buffer-undo-tree))
(and undo-tree-mode (not buffer-read-only) (not (eq t buffer-undo-list)) (undo-tree-node-previous (undo-tree-current buffer-undo-tree)))
redisplay_internal\ (C\ function)()
message("%s" "For information about GNU Emacs and the GNU system, type C-h C-a.")
display-startup-echo-area-message()
command-line-1(nil)
command-line()
normal-top-level()

How to disable spell mode rather than uninstall the mode

I found that the spell feature is not good enough.

It always warm me that i give a bad name for a parameter.

But I do not want to uninstall it directly , I just want to disable it by default.

So what should I do ?

fly.srk.fer.hr

I installed and I'm getting this:

Warning (initialization): An error occurred while loading `/Users/peter/.emacs.d/init.el':

error: Failed to find end of headers in HTTP response from http://fly.srk.fer.hr/~hniksic/emacs/htmlize.el.cgi for package htmlize; see buffer http fly.srk.fer.hr:80

mac run-geiser problem

After you run-geiser, for example, you want to eval definition, but it got "No Geiser REPL for this buffer (try M-x run-geiser)".

yascroll error with emacs-snapshot

With emacs-snapshot version 24.3.50.1:

Debugger entered--Lisp error: (error "Selecting deleted buffer")
  #[(buffer) "r�q\210\301 )\207" [buffer yascroll:hide-scroll-bar] 1](#<killed buffer>)
  apply(#[(buffer) "r�q\210\301 )\207" [buffer yascroll:hide-scroll-bar] 1] #<killed        buffer>)
  byte-code("r\301�\302H�\303H\"\210)\301\207" [timer apply 5 6] 4)
  timer-event-handler([t 0 0 500000 nil #[(buffer) "r�q\210\301 )\207" [buffer        yascroll:hide-scroll-bar] 1] (#<killed buffer>) idle 0])

Typo fix

There're always minor typos throughout the life of the open source project. This issue just act as a track of all "typo fix" like commits.

pkg-info requires epl

Finally got around using ome on an arch box.

Debugger entered--Lisp error: (file-error "Cannot open load file" "No such file or directory" "epl")
require(epl)
eval-buffer(#<buffer load-160105> nil "/home/herdinger/.emacs.d/el-get/pkg-info/pkg-info.el" nil t) ; Reading at buffer position 1481

is what I'm getting. There is no recepie for epl and it isn't listed as a dependency.

如何去掉vim的按键绑定呢？

刚开始使用starter.grep 了一下vim发现有好多地方，还不明白哪些是配置，哪些是注释文档。 囧

error "el-get: /bin/bash el-get could not build doxymacs [/bin/bash -c ./bootstrap]"

i get this error:

(error "el-get: /bin/bash el-get could not build doxymacs [/bin/bash -c ./bootstrap]")
signal(error ("el-get: /bin/bash el-get could not build doxymacs [/bin/bash -c ./bootstrap]"))
error("el-get: %s %s" "/bin/bash" "el-get could not build doxymacs [/bin/bash -c ./bootstrap]")

is this problem because of my zsh?

Slime docs build error

This error is happening in the installation:

slime.texi:17: warning: multiple @settitle
slime.texi:536: @itemx must follow @item
slime.texi:376: warning: node up `CVS Incantations' in menu `CVS' and in sectioning Downloading' differ
make: *** [slime.info] Error 1

I'm using arch linux, 3.11.2-1 x86_64.

Improve boot up speed

The boot up speed is quite slow as there're more and more modules. Currently, My emacs takes about haft a minute just to boot up, so there should be some method to improve the bootup speed.

Maybe https://github.com/jwiegley/use-package is a good reference.

install scripts cant find autotools

I have the homebrew cocoa build of Emacs 24.3 and also autotools installed through brew and bash.

The initial package installation by el-get fails at doxymacs (automaker/autoconf not found), thinking this is some problem with the doxymacs i removed it from el-get but now i got the same thing with geiser.

Highlight color when pushing ( or [ doesnt show the text until I bles backspace or an arrow key

java-mode中没有正确安装eclim

我已经按照文档的说明，安装了eclipse 3.7,并且指定在了/opt/eclipse下面。

然后我也下载了eclim 1.7.18 。并且按照原始的文档安装成功了。eclimd已经启动了。（我没有使用你写的那个配置）

我默认的工作空间也是~/workspace 。但是我在工作空间中新建了一个java文件，启动emacs的时候，已经开启了java-mode，但是eclim的包却还没有安装。

感觉是
(when (executable-find "eclipse")
(ome-install 'eclim))

没有执行。

当然，我已经配置了环境变量 PATH,加入了eclipse的路径。

cannot retrieve emacs-w3m (cvs connection refused)

I'm confused how anyone is managing to build this and get it working. The script dies at the point where it tries to check out emacs-w3m from its cvs server:

Loaded /home/noel/.emacs.d/ome-basic.el
Package emacs-w3m previously failed to install, removing it first.
el-get: updating autoloads for emacs-w3m
el-get: byte-compiling autoload file
emacs-w3m removed: This package has been removed successfully by el-get.
el-get remove emacs-w3m
el-get is waiting for "*cvs checkout emacs-w3m*" to complete
emacs-w3m failed to install: (error el-get: *cvs checkout emacs-w3m* Could not checkout package emacs-w3m.)
el-get: *cvs checkout emacs-w3m* Could not checkout package emacs-w3m.
Saving file /home/noel/.emacs.d/.recentf...
Loading vc-git...
Wrote /home/noel/.emacs.d/.recentf
Saving file /home/noel/.ido.last...
Wrote /home/noel/.ido.last
make: *** [el] Error 255

And I can confirm, when trying manually to connect to the namazu cvs server, that it seems to have anonymous access disabled:

$ cvs -d:pserver:[email protected]:/storage/cvsroot login
Logging in to :pserver:[email protected]:2401/storage/cvsroot
CVS password: 
cvs [login aborted]: connect to cvs.namazu.org(202.221.179.42):2401 failed: Connection refused

So how can I get past this step? I can't even find a tarball of the latest emacs-w3m to download and perhaps manually install, since the namazu site seems to have disabled tarball support.

Is this working for anybody?

Question for the goal of this repo.

It seems like this repo is gonna group everything valuable things around the emacs world. But where's the place for extensibility? Say you put Evil and ace-jump-mode together. People might not like Evil but are willing to use ace-jump-mode. What should they do? To delete the Evil part is what I can think of but needs manual work. Users will always have their own favours. After users change their configs, they will spend more time to keep up with your upstream. I think this repo is going to be very big and seems no end..... This repo provides a good place for documentation, but where should it stop?

fullscreen function disable

I found you have define the function

(defun ome-toggle-fullscreen ()
  "Toggle full screen"
  (interactive)
  (set-frame-parameter
   nil 'fullscreen
   (when (not (frame-parameter nil 'fullscreen)) 'fullboth)))

but you annotate the code below:

(global-set-key (kbd "<f11>") 'toggle-fullscreen)

This should be

(global-set-key (kbd "<f11>") 'ome-toggle-fullscreen)

And it works for me.

aclocal, automake, autoconf commands not found.

Do I have to install these tools before using your lib? If so, can your point out what are all the prerequisites please?

pos-tip error during install

Got the following on clean install:
Debugger entered--Lisp error: (void-variable <!DOCTYPE) byte-code("�\210 \210\n\210�\210\f\210 \210��\210��\210� \210�\n\210��\210�\f\210� \210��\210��\210��\210��\210��\210��\210��\210��\210��\210��\210��\210��\210��\210��\210��\210��\210��\210��\210��\210� \210��\210�!\210�\"\210�#\210�$\210�%\210��\210�&\210��\210�'\210\306�(!\210��\210�)\210�*\207" [<!DOCTYPE HTML PUBLIC > <html><head> <title>400 \, Bad Request</title> </head><body> <h1>Bad Request</h1> <p>Your browser sent a request that this server could not understand\.<br /> Reason: You speaking plain HTTP to an SSL-enabled port\.<br Instead use the HTTPS scheme access URL please\.<br </p> </body></html>] 2) require(pos-tip) ome-pos-tip-setup() (progn (ome-pos-tip-setup)) eval((progn (ome-pos-tip-setup))) (let* ((pdir (el-get-package-directory package)) (default-directory pdir)) (eval form)) (progn (progn (or (listp form) (signal (quote cl-assertion-failed) (list (quote (listp form))))) nil) (el-get-verbose-message "el-get: Evaluating :%s form for package %s" fname package) (let* ((pdir (el-get-package-directory package)) (default-directory pdir)) (eval form))) (if form (progn (progn (or (listp form) (signal (quote cl-assertion-failed) (list (quote (listp form))))) nil) (el-get-verbose-message "el-get: Evaluating :%s form for package %s" fname package) (let* ((pdir (el-get-package-directory package)) (default-directory pdir)) (eval form)))) (let* ((form (if (equal (car-safe form) (quote quote)) (prog1 (eval form) (warn "The :%s form for package %s is quoted unnecessarily." fname package)) form)) (form (cond ((null form) nil) ((symbolp form) (prog1 (list form) (warn "The :%s form for package %s uses the old-style function form instead of a lisp form. The value should be changed from %S' to %S'" fname package form (list form)) (if (symbol-function form) nil (warn "The function %s, which is called in the :%s form for package %s, does not seem to be defined. Calling it will probably fail." form fname package)))) ((functionp form) (prog1 (list form) (if (and ... ...) (warn "The :%s form for package %s uses the old-style lambda form instead of a lisp form. The leading \"(lambda ()\" should be replaced with \"(progn\"." fname package) (warn "The :%s form for package %s uses the old-style function form instead of a lisp form." fname package)))) ((listp form) form) (t (error "Unknown :%s form for package %s: %S'" fname package form))))) (if form (progn (progn (or (listp form) (signal (quote cl-assertion-failed) (list (quote ...)))) nil) (el-get-verbose-message "el-get: Evaluating :%s form for package %s" fname package) (let* ((pdir (el-get-package-directory package)) (default-directory pdir)) (eval form)))))
el-get-run-package-support((progn (ome-pos-tip-setup)) "after" pos-tip)
funcall(el-get-run-package-support (progn (ome-pos-tip-setup)) "after" pos-tip)
(let ((el-get-maybe-lazy-runsupp (if lazy (function el-get-lazy-run-package-support) (function el-get-run-package-support))) (maybe-lazy-eval (if lazy (apply-partially (quote el-get-eval-after-load) package) (quote eval)))) (funcall el-get-maybe-lazy-runsupp postinit "post-init" package) (funcall maybe-lazy-eval (list (quote el-get-load-package-user-init-file) (list (quote quote) package))) (funcall el-get-maybe-lazy-runsupp after "after" package))
(let* ((el-get-sources (el-get-package-status-recipes)) (source (el-get-read-package-status-recipe package package-status-alist)) (method (el-get-package-method source)) (loads (el-get-as-list (plist-get source :load))) (autoloads (plist-get source :autoloads)) (feats (el-get-as-list (plist-get source :features))) (el-path (el-get-as-list (el-get-load-path package))) (lazy (el-get-plist-get-with-default source :lazy el-get-is-lazy)) (prepare (plist-get source :prepare)) (before (plist-get source :before)) (postinit (plist-get source :post-init)) (after (plist-get source :after)) (pkgname (plist-get source :pkgname)) (pdir (el-get-package-directory package))) (el-get-error-unless-required-emacs-version source) (if (eq method (quote builtin)) nil (if (member method (quote (apt-get fink pacman))) nil (progn (let ((--dolist-tail-- el-path) path) (while --dolist-tail-- (setq path (car --dolist-tail--)) (el-get-add-path-to-list package (quote load-path) path) (setq --dolist-tail-- (cdr --dolist-tail--))))) (el-get-install-or-init-info package (quote init))) (if el-get-byte-compile-at-init (progn (el-get-byte-compile package))) (if (eq autoloads t) nil (progn (let ((--dolist-tail-- (el-get-as-list autoloads)) file) (while --dolist-tail-- (setq file (car --dolist-tail--)) (el-get-load-fast file) (setq --dolist-tail-- (cdr --dolist-tail--))))))) (el-get-run-package-support prepare "prepare" package) (el-get-run-package-support before "before" package) (if lazy nil (progn (let ((--dolist-tail-- loads) file) (while --dolist-tail-- (setq file (car --dolist-tail--)) (let ((pfile ...)) (if (file-exists-p pfile) nil (error "el-get could not find file '%s'" pfile)) (el-get-verbose-message "el-get: load '%s'" pfile) (el-get-load-fast pfile)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (if (eq method (quote elpa)) nil (progn (let ((--dolist-tail-- feats) feat) (while --dolist-tail-- (setq feat (car --dolist-tail--)) (let (...) (el-get-verbose-message "require '%s" feature) (require feature)) (setq --dolist-tail-- (cdr --dolist-tail--))))))) (let ((el-get-maybe-lazy-runsupp (if lazy (function el-get-lazy-run-package-support) (function el-get-run-package-support))) (maybe-lazy-eval (if lazy (apply-partially (quote el-get-eval-after-load) package) (quote eval)))) (funcall el-get-maybe-lazy-runsupp postinit "post-init" package) (funcall maybe-lazy-eval (list (quote el-get-load-package-user-init-file) (list (quote quote) package))) (funcall el-get-maybe-lazy-runsupp after "after" package)))
(condition-case err (let* ((el-get-sources (el-get-package-status-recipes)) (source (el-get-read-package-status-recipe package package-status-alist)) (method (el-get-package-method source)) (loads (el-get-as-list (plist-get source :load))) (autoloads (plist-get source :autoloads)) (feats (el-get-as-list (plist-get source :features))) (el-path (el-get-as-list (el-get-load-path package))) (lazy (el-get-plist-get-with-default source :lazy el-get-is-lazy)) (prepare (plist-get source :prepare)) (before (plist-get source :before)) (postinit (plist-get source :post-init)) (after (plist-get source :after)) (pkgname (plist-get source :pkgname)) (pdir (el-get-package-directory package))) (el-get-error-unless-required-emacs-version source) (if (eq method (quote builtin)) nil (if (member method (quote (apt-get fink pacman))) nil (progn (let ((--dolist-tail-- el-path) path) (while --dolist-tail-- (setq path ...) (el-get-add-path-to-list package ... path) (setq --dolist-tail-- ...)))) (el-get-install-or-init-info package (quote init))) (if el-get-byte-compile-at-init (progn (el-get-byte-compile package))) (if (eq autoloads t) nil (progn (let ((--dolist-tail-- ...) file) (while --dolist-tail-- (setq file ...) (el-get-load-fast file) (setq --dolist-tail-- ...)))))) (el-get-run-package-support prepare "prepare" package) (el-get-run-package-support before "before" package) (if lazy nil (progn (let ((--dolist-tail-- loads) file) (while --dolist-tail-- (setq file (car --dolist-tail--)) (let (...) (if ... nil ...) (el-get-verbose-message "el-get: load '%s'" pfile) (el-get-load-fast pfile)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (if (eq method (quote elpa)) nil (progn (let ((--dolist-tail-- feats) feat) (while --dolist-tail-- (setq feat ...) (let ... ... ...) (setq --dolist-tail-- ...)))))) (let ((el-get-maybe-lazy-runsupp (if lazy (function el-get-lazy-run-package-support) (function el-get-run-package-support))) (maybe-lazy-eval (if lazy (apply-partially (quote el-get-eval-after-load) package) (quote eval)))) (funcall el-get-maybe-lazy-runsupp postinit "post-init" package) (funcall maybe-lazy-eval (list (quote el-get-load-package-user-init-file) (list (quote quote) package))) (funcall el-get-maybe-lazy-runsupp after "after" package))) (debug error (el-get-installation-failed package err)))
el-get-do-init(pos-tip)
(lambda (package) "Function to call after building the package while installing it." (el-get-save-package-status package "installed") (el-get-invalidate-autoloads package) (el-get-do-init package) (run-hook-with-args (quote el-get-post-install-hooks) package))(pos-tip)
apply((lambda (package) "Function to call after building the package while installing it." (el-get-save-package-status package "installed") (el-get-invalidate-autoloads package) (el-get-do-init package) (run-hook-with-args (quote el-get-post-install-hooks) package)) pos-tip)
(lambda (&rest args) (apply (lambda (package) "Function to call after building the package while installing it." (el-get-save-package-status package "installed") (el-get-invalidate-autoloads package) (el-get-do-init package) (run-hook-with-args (quote el-get-post-install-hooks) package)) args))(pos-tip)
byte-code("�\203\274��@��A�\306 \307"�\306 \310"�\306 \311"�\312
!\205"`

GNU Emacs 24.3.1
Arch Linux

syntax highlighting in web-mode

It seems that syntax highlighting doesn't work in web-mode: https://github.com/fxbois/web-mode. I took a lot of time but didn't figure it out. Would you help to check this issue?

Relative numbers

Hello,

I'm new to emacs, so I have no idea how to hack oh-my-emacs; however, coming from vim, numbers.vim was quite useful, and I've found the following snippet to show the relative numbers pretty well:

(defvar my-linum-format-string "%3d")

(add-hook 'linum-before-numbering-hook 'my-linum-get-format-string)

(defun my-linum-get-format-string ()
  (let* ((width (1+ (length (number-to-string
                             (count-lines (point-min) (point-max))))))
         (format (concat "%" (number-to-string width) "d")))
    (setq my-linum-format-string format)))

(defvar my-linum-current-line-number 0)

(setq linum-format 'my-linum-relative-line-numbers)

(defun my-linum-relative-line-numbers (line-number)
  (let ((offset (abs(- line-number my-linum-current-line-number))))
    (propertize (format my-linum-format-string offset) 'face 'linum)))

(defadvice linum-update (around my-linum-update)
  (let ((my-linum-current-line-number (line-number-at-pos)))
    ad-do-it))
(ad-activate 'linum-update)

Maybe someone will find it as useful as I did.

Cannot build jedi

Debugger entered--Lisp error: (error "el-get: make el-get could not build jedi [make requirements]")
  signal(error ("el-get: make el-get could not build jedi [make requirements]"))
  error("el-get: %s %s" "make" "el-get could not build jedi [make requirements]")

https://gist.github.com/houshuang/8374409

Default color scheme is quite ugly in Magit toggle display.

The letters become blurred under the default color scheme.

Cannot install Slime

--Lisp error: (error "el-get: sed el-get could not build slime [sed -i s/@itemx INIT-FUNCTION/@item INIT-FUNCTION/ doc/slime.texi]")
  signal(error ("el-get: sed el-get could not build slime [sed -i s/@itemx INIT-FUNCTION/@item INIT-FUNCTION/ doc/slime.texi]"))
  error("el-get: %s %s" "sed" "el-get could not build slime [sed -i s/@itemx INIT-FUNCTION/@item INIT-FUNCTION/ doc/slime.texi]")
  byte-code("�\203\261��@��A�\306   \307\"�\306 \310\"�\306 \311\"�\312
!\205\"�\313
!�@\306 \314\"�A\306    \315\"�B\306    \316\"\211�C\203D�\317\320\306  \321\"\"\202H�\306  \321\"�D\322    \323�E#�F\306   \324\"�G�\203d�\325\326�!!\202f��H�H�F\203;�\327\330�\"\210�C\203{�\331\202|�\332�I�G\205\206�\333\334!\211�J\205\263��J\335\336\337!!�K�L\340\216r�Kq\210\341�G!c)r�Kq\210\342\343\211�L\343\344%\210,�M\345\346\f\"�M\347�I�B�J
\350�D&��N\306  \351\"�%\306    \352\"�O�P\203\346�\345\353r
q\210\354 )\"\210�N\344=\203\366�\345\355�%\"\210\202��\356\357 
\"\210\360\361\f�O#\210�J\203
�\362�J!\210
\203��\313
!\210\n\203*�\363�Q\\�Q\364�R\n�S#)\2026�\365�S!\2056��S�R!.�\202\256�\327\366�\"\210�C\203I�\367\202J�\370�I\343�T\347�I\f
�B�D%�U\371\372 \"\210\373�U\374�V#\210\373�U\375�R#\210\373�U\376�S#\210\373�U\377\n#\210�G\203\226�\201W��U\341�G!\"\210\201X��U!\210\201Y��U\201Z�\"\210�A\205\255�\201[��U�A\"+.
\207\365�S!\205\275��S�R!\207" [commands c next cdir cname cbuf plist-get :default-directory :command-name :buffer-name get-buffer kill-buffer :process-filter :program :shell mapcar shell-quote-argument :args el-get-plist-get-with-default :sync :stdin file-name-as-directory expand-file-name el-get-verbose-message "Running commands synchronously: %S" call-process-shell-command call-process make-temp-file "el-get" get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301�!\203\n�\302�!\210\301\207" [temp-buffer buffer-name kill-buffer] 2)) el-get-print-to-string write-region nil 0 message "el-get is waiting for %S to complete" apply t :message :error "%S" buffer-string "el-get: %s" set-window-buffer selected-window error "el-get: %s %s" ...] 8)
  el-get-start-process-list(slime ((:command-name "sed" :buffer-name "*el-get-build: slime*" :default-directory "/Users/Stian/.emacs.d/el-get/slime/" :shell t :sync sync :program "/usr/bin/sed" :args ("-i" "s/@itemx INIT-FUNCTION/@item INIT-FUNCTION/" "doc/slime.texi") :message "el-get-build slime: sed -i s/@itemx INIT-FUNCTION/@item INIT-FUNCTION/ doc/slime.texi ok." :error "el-get could not build slime [sed -i s/@itemx INIT-FUNCTION/@item INIT-FUNCTION/ doc/slime.texi]") (:command-name "make" :buffer-name "*el-get-build: slime*" :default-directory "/Users/Stian/.emacs.d/el-get/slime/" :shell t :sync sync :program "/usr/bin/make" :args ("-C" "doc" "slime.info") :message "el-get-build slime: make -C doc slime.info ok." :error "el-get could not build slime [make -C doc slime.info]")) (lambda (package) (el-get-install-or-init-info package (quote build)) (funcall (lambda (package) (let ((bytecomp-files (when el-get-byte-compile (el-get-assemble-files-for-byte-compilation package)))) (el-get-start-process-list package (list (el-get-byte-compile-process package "*el-get-build: slime*" "/Users/Stian/.emacs.d/el-get/slime/" sync bytecomp-files)) (lambda (&rest args) (apply (lambda ... "Function to call after building the package while installing it." ... ... ... ...) args))))) package)))
  el-get-build(slime (("sed" "-i" "s/@itemx INIT-FUNCTION/@item INIT-FUNCTION/" "doc/slime.texi") ("make" "-C" "doc" "slime.info")) nil sync el-get-post-install-build)
  (if (and (eq (el-get-package-method package) (quote builtin)) (plist-get (el-get-package-def package) :builtin)) (el-get-post-install-build package) (el-get-build package commands nil sync (quote el-get-post-install-build)))
  (let* ((sync el-get-default-process-sync) (type (el-get-package-type package)) (hooks (el-get-method type :install-hook)) (commands (el-get-build-commands package)) (checksum (plist-get (el-get-package-def package) :checksum)) (compute-checksum (el-get-method type :compute-checksum))) (if (and checksum (not compute-checksum)) (progn (error "Checksum verification of package %s is not supported with method %s." package type))) (if compute-checksum (progn (let ((computed (funcall compute-checksum package))) (if checksum (if (equal computed (el-get-as-string checksum)) (el-get-verbose-message "el-get: package %s passed checksum with \"%s\"." package computed) (error "Checksum verification failed. Required: \"%s\", actual: \"%s\"." checksum computed)) (el-get-verbose-message "el-get: pakage %s checksum is %s." package computed))))) (run-hook-with-args hooks package) (if (and (eq (el-get-package-method package) (quote builtin)) (plist-get (el-get-package-def package) :builtin)) (el-get-post-install-build package) (el-get-build package commands nil sync (quote el-get-post-install-build))))
  el-get-post-install(slime)
  byte-code("�\203\261��@��A�\306   \307\"�\306 \310\"�\306 \311\"�\312
!\205\"�\313
!�@\306 \314\"�A\306    \315\"�B\306    \316\"\211�C\203D�\317\320\306  \321\"\"\202H�\306  \321\"�D\322    \323�E#�F\306   \324\"�G�\203d�\325\326�!!\202f��H�H�F\203;�\327\330�\"\210�C\203{�\331\202|�\332�I�G\205\206�\333\334!\211�J\205\263��J\335\336\337!!�K�L\340\216r�Kq\210\341�G!c)r�Kq\210\342\343\211�L\343\344%\210,�M\345\346\f\"�M\347�I�B�J
\350�D&��N\306  \351\"�%\306    \352\"�O�P\203\346�\345\353r
q\210\354 )\"\210�N\344=\203\366�\345\355�%\"\210\202��\356\357 
\"\210\360\361\f�O#\210�J\203
�\362�J!\210
\203��\313
!\210\n\203*�\363�Q\\�Q\364�R\n�S#)\2026�\365�S!\2056��S�R!.�\202\256�\327\366�\"\210�C\203I�\367\202J�\370�I\343�T\347�I\f
�B�D%�U\371\372 \"\210\373�U\374�V#\210\373�U\375�R#\210\373�U\376�S#\210\373�U\377\n#\210�G\203\226�\201W��U\341�G!\"\210\201X��U!\210\201Y��U\201Z�\"\210�A\205\255�\201[��U�A\"+.
\207\365�S!\205\275��S�R!\207" [commands c next cdir cname cbuf plist-get :default-directory :command-name :buffer-name get-buffer kill-buffer :process-filter :program :shell mapcar shell-quote-argument :args el-get-plist-get-with-default :sync :stdin file-name-as-directory expand-file-name el-get-verbose-message "Running commands synchronously: %S" call-process-shell-command call-process make-temp-file "el-get" get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301�!\203\n�\302�!\210\301\207" [temp-buffer buffer-name kill-buffer] 2)) el-get-print-to-string write-region nil 0 message "el-get is waiting for %S to complete" apply t :message :error "%S" buffer-string "el-get: %s" set-window-buffer selected-window error "el-get: %s %s" ...] 8)
  el-get-start-process-list(slime (nil (:command-name "*git submodule update*" :buffer-name "*git clone slime*" :default-directory "/Users/Stian/.emacs.d/el-get/slime/" :program "/usr/local/bin/git" :args ("--no-pager" "submodule" "update" "--init" "--recursive") :message "git submodule update ok" :error "Could not update git submodules")) el-get-post-install)
  byte-code("�\203\261��@��A�\306   \307\"�\306 \310\"�\306 \311\"�\312
!\205\"�\313
!�@\306 \314\"�A\306    \315\"�B\306    \316\"\211�C\203D�\317\320\306  \321\"\"\202H�\306  \321\"�D\322    \323�E#�F\306   \324\"�G�\203d�\325\326�!!\202f��H�H�F\203;�\327\330�\"\210�C\203{�\331\202|�\332�I�G\205\206�\333\334!\211�J\205\263��J\335\336\337!!�K�L\340\216r�Kq\210\341�G!c)r�Kq\210\342\343\211�L\343\344%\210,�M\345\346\f\"�M\347�I�B�J
\350�D&��N\306  \351\"�%\306    \352\"�O�P\203\346�\345\353r
q\210\354 )\"\210�N\344=\203\366�\345\355�%\"\210\202��\356\357 
\"\210\360\361\f�O#\210�J\203
�\362�J!\210
\203��\313
!\210\n\203*�\363�Q\\�Q\364�R\n�S#)\2026�\365�S!\2056��S�R!.�\202\256�\327\366�\"\210�C\203I�\367\202J�\370�I\343�T\347�I\f
�B�D%�U\371\372 \"\210\373�U\374�V#\210\373�U\375�R#\210\373�U\376�S#\210\373�U\377\n#\210�G\203\226�\201W��U\341�G!\"\210\201X��U!\210\201Y��U\201Z�\"\210�A\205\255�\201[��U�A\"+.
\207\365�S!\205\275��S�R!\207" [commands c next cdir cname cbuf plist-get :default-directory :command-name :buffer-name get-buffer kill-buffer :process-filter :program :shell mapcar shell-quote-argument :args el-get-plist-get-with-default :sync :stdin file-name-as-directory expand-file-name el-get-verbose-message "Running commands synchronously: %S" call-process-shell-command call-process make-temp-file "el-get" get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301�!\203\n�\302�!\210\301\207" [temp-buffer buffer-name kill-buffer] 2)) el-get-print-to-string write-region nil 0 message "el-get is waiting for %S to complete" apply t :message :error "%S" buffer-string "el-get: %s" set-window-buffer selected-window error "el-get: %s %s" ...] 8)
  el-get-start-process-list(slime ((:command-name "*git clone slime*" :buffer-name "*git clone slime*" :default-directory "~/.emacs.d/el-get/" :program "/usr/local/bin/git" :args ("--no-pager" "clone" "--depth" "1" "http://github.com/slime/slime.git" "slime") :message "Package slime installed." :error "Could not install package slime.") nil (:command-name "*git submodule update*" :buffer-name "*git clone slime*" :default-directory "/Users/Stian/.emacs.d/el-get/slime/" :program "/usr/local/bin/git" :args ("--no-pager" "submodule" "update" "--init" "--recursive") :message "git submodule update ok" :error "Could not update git submodules")) el-get-post-install)
  el-get-git-clone(slime "http://github.com/slime/slime.git" el-get-post-install)
  el-get-github-clone(slime nil el-get-post-install)
  funcall(el-get-github-clone slime nil el-get-post-install)
  (let* ((status (el-get-read-package-status package)) (source (el-get-package-def package)) (method (el-get-package-method source)) (install (el-get-method method :install)) (url (plist-get source :url)) (pdir (el-get-package-directory package))) (el-get-error-unless-required-emacs-version source) (cond ((string= "installed" status) (error "Package %s is already installed." package)) ((string= "required" status) (message "Package %s previously failed to install, removing it first." package) (el-get-remove package)) ((file-exists-p pdir) (message "Package %s has an install dir but is not known to be installed. Removing it so we can install a known version." package) (el-get-remove package))) (el-get-check-init) (el-get-save-package-status package "required") (funcall install package url (quote el-get-post-install)) (message "el-get install %s" package))
  (if (el-get-package-is-installed package) (progn (el-get-verbose-message "el-get: `%s' package is already installed" package) (el-get-do-init package)) (let* ((status (el-get-read-package-status package)) (source (el-get-package-def package)) (method (el-get-package-method source)) (install (el-get-method method :install)) (url (plist-get source :url)) (pdir (el-get-package-directory package))) (el-get-error-unless-required-emacs-version source) (cond ((string= "installed" status) (error "Package %s is already installed." package)) ((string= "required" status) (message "Package %s previously failed to install, removing it first." package) (el-get-remove package)) ((file-exists-p pdir) (message "Package %s has an install dir but is not known to be installed. Removing it so we can install a known version." package) (el-get-remove package))) (el-get-check-init) (el-get-save-package-status package "required") (funcall install package url (quote el-get-post-install)) (message "el-get install %s" package)))
  el-get-do-install(slime)
  (while (consp --cl-var--) (setq p (car --cl-var--)) (el-get-do-install p) (setq done (nconc done (list p))) (setq --cl-var-- (cdr --cl-var--)))
  (let* ((--cl-var-- install-deps) (p nil) (done nil)) (while (consp --cl-var--) (setq p (car --cl-var--)) (el-get-do-install p) (setq done (nconc done (list p))) (setq --cl-var-- (cdr --cl-var--))) nil)
  (progn (let* ((--cl-var-- install-deps) (p nil) (done nil)) (while (consp --cl-var--) (setq p (car --cl-var--)) (el-get-do-install p) (setq done (nconc done (list p))) (setq --cl-var-- (cdr --cl-var--))) nil))
  (let* ((p-s-alist (el-get-read-status-file)) (required (el-get-filter-package-alist-with-status p-s-alist "required")) (installed (el-get-filter-package-alist-with-status p-s-alist "installed")) (to-init (if packages (progn (let* ((--cl-var-- packages) (p nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq p ...) (if ... ...) (setq --cl-var-- ...)) (nreverse --cl-var--))) (mapcar (quote el-get-as-symbol) installed))) (init-deps (el-get-dependencies to-init)) (to-install (if packages (progn (let* ((--cl-var-- packages) (p nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq p ...) (if ... ... ...) (setq --cl-var-- ...)) (nreverse --cl-var--))) (mapcar (quote el-get-as-symbol) required))) (install-deps (el-get-dependencies to-install)) done) (el-get-verbose-message "el-get-init-and-install: install %S" install-deps) (el-get-verbose-message "el-get-init-and-install: init %S" init-deps) (progn (let* ((--cl-var-- install-deps) (p nil) (done nil)) (while (consp --cl-var--) (setq p (car --cl-var--)) (el-get-do-install p) (setq done (nconc done (list p))) (setq --cl-var-- (cdr --cl-var--))) nil)) (progn (let* ((--cl-var-- init-deps) (p nil) (done nil)) (while (consp --cl-var--) (setq p (car --cl-var--)) (el-get-do-init p) (setq done (nconc done (list p))) (setq --cl-var-- (cdr --cl-var--))) nil)) done)
  el-get-init-and-install(nil)
  (prog1 (el-get-init-and-install (mapcar (quote el-get-as-symbol) packages)) (el-get-eval-autoloads))
  (let* ((packages (progn (let* ((--cl-var-- packages) (p nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq p (car --cl-var--)) (if (listp p) (progn ...) (setq --cl-var-- ...)) (setq --cl-var-- (cdr --cl-var--))) (nreverse --cl-var--)))) (total (length packages)) (installed (el-get-count-packages-with-status packages "installed")) (el-get-default-process-sync sync)) (if el-get-is-lazy nil (el-get-eval-autoloads)) (prog1 (el-get-init-and-install (mapcar (quote el-get-as-symbol) packages)) (el-get-eval-autoloads)))
  el-get(sync nil)
  (let ((module-name (file-name-base module)) (file (expand-file-name (if (string-match "ome-.+.org" module) module (format "ome-%s.org" module)) ome-dir))) (setq el-get-sources nil) (setq el-get-git-shallow-clone t) (if header-or-tags (progn (let ((--dolist-tail-- header-or-tags) header-or-tag) (while --dolist-tail-- (setq header-or-tag (car --dolist-tail--)) (let* ((base ...) (dir ...) (partial-file ...)) (if (file-exists-p partial-file) nil (let ... ...)) (org-babel-load-file partial-file)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (org-babel-load-file file)) (el-get (quote sync) (mapcar (quote el-get-source-name) el-get-sources)) (setq ome-module-packages nil) (mapcar (function (lambda (el-get-package) (add-to-list (quote ome-module-packages) (el-get-source-name el-get-package)))) el-get-sources) (add-to-list (quote ome-packages) (cons module-name ome-module-packages)))
  ome-load("core/ome-keybindings.org")
  eval-buffer(#<buffer  *load*-651316> nil "/Users/Stian/.emacs.d/ome.el" nil t)  ; Reading at buffer position 6622
  load-with-code-conversion("/Users/Stian/.emacs.d/ome.el" "/Users/Stian/.emacs.d/ome.el" nil nil)
  load("/Users/Stian/.emacs.d/ome.el" nil nil t)
  load-file("/Users/Stian/.emacs.d/ome.el")
  org-babel-load-file("/Users/Stian/.emacs.d/ome.org")
  eval-buffer(#<buffer  *load*> nil "/Users/Stian/.emacs.d/init.el" nil t)  ; Reading at buffer position 1999
  load-with-code-conversion("/Users/Stian/.emacs.d/init.el" "/Users/Stian/.emacs.d/init.el" t t)
  load("/Users/Stian/.emacs.d/init" t t)
  #[0 "�\205\262�   \306=\203��\307�\310Q\202;� \311=\204��\307�\312Q\202;�\313\307\314\315#\203*�\316\202;�\313\307\314\317#\203:�\320\nB�\321\202;�\316\322�\323�\322\211#\210�\322=\203a�\324\325\326\307�\327Q!\"\323�\322\211#\210�\322=\203`���\210�\203\243�\330�!\331\232\203\243�\332�!\211\333P\334�!\203}�\211\202\210�\334�!\203\207��\202\210�\314\262��\203\241�\335��\"\203\237�\336\337��#\210\340\341!\210��\266�\f?\205\260�\314�\323\342\322\211#)\262�\207" [init-file-user system-type delayed-warnings-list user-init-file inhibit-default-init inhibit-startup-screen ms-dos "~" "/_emacs" windows-nt "/.emacs" directory-files nil "^\\.emacs\\(\\.elc?\\)?$" "~/.emacs" "^_emacs\\(\\.elc?\\)?$" (initialization "`_emacs' init file is deprecated, please use `.emacs'") "~/_emacs" t load expand-file-name "init" file-name-as-directory "/.emacs.d" file-name-extension "elc" file-name-sans-extension ".el" file-exists-p file-newer-than-file-p message "Warning: %s is newer than %s" sit-for 1 "default"] 7 "\n\n(fn)"]()
  #[0 "\300 \210\302\211�\207" [#[0 "�\205\262� \306=\203��\307�\310Q\202;� \311=\204��\307�\312Q\202;�\313\307\314\315#\203*�\316\202;�\313\307\314\317#\203:�\320\nB�\321\202;�\316\322�\323�\322\211#\210�\322=\203a�\324\325\326\307�\327Q!\"\323�\322\211#\210�\322=\203`���\210�\203\243�\330�!\331\232\203\243�\332�!\211\333P\334�!\203}�\211\202\210�\334�!\203\207��\202\210�\314\262��\203\241�\335��\"\203\237�\336\337��#\210\340\341!\210��\266�\f?\205\260�\314�\323\342\322\211#)\262�\207" [init-file-user system-type delayed-warnings-list user-init-file inhibit-default-init inhibit-startup-screen ms-dos "~" "/_emacs" windows-nt "/.emacs" directory-files nil "^\\.emacs\\(\\.elc?\\)?$" "~/.emacs" "^_emacs\\(\\.elc?\\)?$" (initialization "`_emacs' init file is deprecated, please use `.emacs'") "~/_emacs" t load expand-file-name "init" file-name-as-directory "/.emacs.d" file-name-extension "elc" file-name-sans-extension ".el" file-exists-p file-newer-than-file-p message "Warning: %s is newer than %s" sit-for 1 "default"] 7 "\n\n(fn)"] init-file-had-error nil] 2 "\n\n(fn)"]()
  funcall(#[0 "\300 \210\302\211�\207" [#[0 "�\205\262� \306=\203��\307�\310Q\202;� \311=\204��\307�\312Q\202;�\313\307\314\315#\203*�\316\202;�\313\307\314\317#\203:�\320\nB�\321\202;�\316\322�\323�\322\211#\210�\322=\203a�\324\325\326\307�\327Q!\"\323�\322\211#\210�\322=\203`���\210�\203\243�\330�!\331\232\203\243�\332�!\211\333P\334�!\203}�\211\202\210�\334�!\203\207��\202\210�\314\262��\203\241�\335��\"\203\237�\336\337��#\210\340\341!\210��\266�\f?\205\260�\314�\323\342\322\211#)\262�\207" [init-file-user system-type delayed-warnings-list user-init-file inhibit-default-init inhibit-startup-screen ms-dos "~" "/_emacs" windows-nt "/.emacs" directory-files nil "^\\.emacs\\(\\.elc?\\)?$" "~/.emacs" "^_emacs\\(\\.elc?\\)?$" (initialization "`_emacs' init file is deprecated, please use `.emacs'") "~/_emacs" t load expand-file-name "init" file-name-as-directory "/.emacs.d" file-name-extension "elc" file-name-sans-extension ".el" file-exists-p file-newer-than-file-p message "Warning: %s is newer than %s" sit-for 1 "default"] 7 "\n\n(fn)"] init-file-had-error nil] 2 "\n\n(fn)"])
  command-line()
  normal-top-level()
--Lisp error: (error "el-get: sed el-get could not build slime [sed -i s/@itemx INIT-FUNCTION/@item INIT-FUNCTION/ doc/slime.texi]")
  signal(error ("el-get: sed el-get could not build slime [sed -i s/@itemx INIT-FUNCTION/@item INIT-FUNCTION/ doc/slime.texi]"))
  error("el-get: %s %s" "sed" "el-get could not build slime [sed -i s/@itemx INIT-FUNCTION/@item INIT-FUNCTION/ doc/slime.texi]")
  byte-code("�\203\261��@��A�\306   \307\"�\306 \310\"�\306 \311\"�\312
!\205\"�\313
!�@\306 \314\"�A\306    \315\"�B\306    \316\"\211�C\203D�\317\320\306  \321\"\"\202H�\306  \321\"�D\322    \323�E#�F\306   \324\"�G�\203d�\325\326�!!\202f��H�H�F\203;�\327\330�\"\210�C\203{�\331\202|�\332�I�G\205\206�\333\334!\211�J\205\263��J\335\336\337!!�K�L\340\216r�Kq\210\341�G!c)r�Kq\210\342\343\211�L\343\344%\210,�M\345\346\f\"�M\347�I�B�J
\350�D&��N\306  \351\"�%\306    \352\"�O�P\203\346�\345\353r
q\210\354 )\"\210�N\344=\203\366�\345\355�%\"\210\202��\356\357 
\"\210\360\361\f�O#\210�J\203
�\362�J!\210
\203��\313
!\210\n\203*�\363�Q\\�Q\364�R\n�S#)\2026�\365�S!\2056��S�R!.�\202\256�\327\366�\"\210�C\203I�\367\202J�\370�I\343�T\347�I\f
�B�D%�U\371\372 \"\210\373�U\374�V#\210\373�U\375�R#\210\373�U\376�S#\210\373�U\377\n#\210�G\203\226�\201W��U\341�G!\"\210\201X��U!\210\201Y��U\201Z�\"\210�A\205\255�\201[��U�A\"+.
\207\365�S!\205\275��S�R!\207" [commands c next cdir cname cbuf plist-get :default-directory :command-name :buffer-name get-buffer kill-buffer :process-filter :program :shell mapcar shell-quote-argument :args el-get-plist-get-with-default :sync :stdin file-name-as-directory expand-file-name el-get-verbose-message "Running commands synchronously: %S" call-process-shell-command call-process make-temp-file "el-get" get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301�!\203\n�\302�!\210\301\207" [temp-buffer buffer-name kill-buffer] 2)) el-get-print-to-string write-region nil 0 message "el-get is waiting for %S to complete" apply t :message :error "%S" buffer-string "el-get: %s" set-window-buffer selected-window error "el-get: %s %s" ...] 8)
  el-get-start-process-list(slime ((:command-name "sed" :buffer-name "*el-get-build: slime*" :default-directory "/Users/Stian/.emacs.d/el-get/slime/" :shell t :sync sync :program "/usr/bin/sed" :args ("-i" "s/@itemx INIT-FUNCTION/@item INIT-FUNCTION/" "doc/slime.texi") :message "el-get-build slime: sed -i s/@itemx INIT-FUNCTION/@item INIT-FUNCTION/ doc/slime.texi ok." :error "el-get could not build slime [sed -i s/@itemx INIT-FUNCTION/@item INIT-FUNCTION/ doc/slime.texi]") (:command-name "make" :buffer-name "*el-get-build: slime*" :default-directory "/Users/Stian/.emacs.d/el-get/slime/" :shell t :sync sync :program "/usr/bin/make" :args ("-C" "doc" "slime.info") :message "el-get-build slime: make -C doc slime.info ok." :error "el-get could not build slime [make -C doc slime.info]")) (lambda (package) (el-get-install-or-init-info package (quote build)) (funcall (lambda (package) (let ((bytecomp-files (when el-get-byte-compile (el-get-assemble-files-for-byte-compilation package)))) (el-get-start-process-list package (list (el-get-byte-compile-process package "*el-get-build: slime*" "/Users/Stian/.emacs.d/el-get/slime/" sync bytecomp-files)) (lambda (&rest args) (apply (lambda ... "Function to call after building the package while installing it." ... ... ... ...) args))))) package)))
  el-get-build(slime (("sed" "-i" "s/@itemx INIT-FUNCTION/@item INIT-FUNCTION/" "doc/slime.texi") ("make" "-C" "doc" "slime.info")) nil sync el-get-post-install-build)
  (if (and (eq (el-get-package-method package) (quote builtin)) (plist-get (el-get-package-def package) :builtin)) (el-get-post-install-build package) (el-get-build package commands nil sync (quote el-get-post-install-build)))
  (let* ((sync el-get-default-process-sync) (type (el-get-package-type package)) (hooks (el-get-method type :install-hook)) (commands (el-get-build-commands package)) (checksum (plist-get (el-get-package-def package) :checksum)) (compute-checksum (el-get-method type :compute-checksum))) (if (and checksum (not compute-checksum)) (progn (error "Checksum verification of package %s is not supported with method %s." package type))) (if compute-checksum (progn (let ((computed (funcall compute-checksum package))) (if checksum (if (equal computed (el-get-as-string checksum)) (el-get-verbose-message "el-get: package %s passed checksum with \"%s\"." package computed) (error "Checksum verification failed. Required: \"%s\", actual: \"%s\"." checksum computed)) (el-get-verbose-message "el-get: pakage %s checksum is %s." package computed))))) (run-hook-with-args hooks package) (if (and (eq (el-get-package-method package) (quote builtin)) (plist-get (el-get-package-def package) :builtin)) (el-get-post-install-build package) (el-get-build package commands nil sync (quote el-get-post-install-build))))
  el-get-post-install(slime)
  byte-code("�\203\261��@��A�\306   \307\"�\306 \310\"�\306 \311\"�\312
!\205\"�\313
!�@\306 \314\"�A\306    \315\"�B\306    \316\"\211�C\203D�\317\320\306  \321\"\"\202H�\306  \321\"�D\322    \323�E#�F\306   \324\"�G�\203d�\325\326�!!\202f��H�H�F\203;�\327\330�\"\210�C\203{�\331\202|�\332�I�G\205\206�\333\334!\211�J\205\263��J\335\336\337!!�K�L\340\216r�Kq\210\341�G!c)r�Kq\210\342\343\211�L\343\344%\210,�M\345\346\f\"�M\347�I�B�J
\350�D&��N\306  \351\"�%\306    \352\"�O�P\203\346�\345\353r
q\210\354 )\"\210�N\344=\203\366�\345\355�%\"\210\202��\356\357 
\"\210\360\361\f�O#\210�J\203
�\362�J!\210
\203��\313
!\210\n\203*�\363�Q\\�Q\364�R\n�S#)\2026�\365�S!\2056��S�R!.�\202\256�\327\366�\"\210�C\203I�\367\202J�\370�I\343�T\347�I\f
�B�D%�U\371\372 \"\210\373�U\374�V#\210\373�U\375�R#\210\373�U\376�S#\210\373�U\377\n#\210�G\203\226�\201W��U\341�G!\"\210\201X��U!\210\201Y��U\201Z�\"\210�A\205\255�\201[��U�A\"+.
\207\365�S!\205\275��S�R!\207" [commands c next cdir cname cbuf plist-get :default-directory :command-name :buffer-name get-buffer kill-buffer :process-filter :program :shell mapcar shell-quote-argument :args el-get-plist-get-with-default :sync :stdin file-name-as-directory expand-file-name el-get-verbose-message "Running commands synchronously: %S" call-process-shell-command call-process make-temp-file "el-get" get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301�!\203\n�\302�!\210\301\207" [temp-buffer buffer-name kill-buffer] 2)) el-get-print-to-string write-region nil 0 message "el-get is waiting for %S to complete" apply t :message :error "%S" buffer-string "el-get: %s" set-window-buffer selected-window error "el-get: %s %s" ...] 8)
  el-get-start-process-list(slime (nil (:command-name "*git submodule update*" :buffer-name "*git clone slime*" :default-directory "/Users/Stian/.emacs.d/el-get/slime/" :program "/usr/local/bin/git" :args ("--no-pager" "submodule" "update" "--init" "--recursive") :message "git submodule update ok" :error "Could not update git submodules")) el-get-post-install)
  byte-code("�\203\261��@��A�\306   \307\"�\306 \310\"�\306 \311\"�\312
!\205\"�\313
!�@\306 \314\"�A\306    \315\"�B\306    \316\"\211�C\203D�\317\320\306  \321\"\"\202H�\306  \321\"�D\322    \323�E#�F\306   \324\"�G�\203d�\325\326�!!\202f��H�H�F\203;�\327\330�\"\210�C\203{�\331\202|�\332�I�G\205\206�\333\334!\211�J\205\263��J\335\336\337!!�K�L\340\216r�Kq\210\341�G!c)r�Kq\210\342\343\211�L\343\344%\210,�M\345\346\f\"�M\347�I�B�J
\350�D&��N\306  \351\"�%\306    \352\"�O�P\203\346�\345\353r
q\210\354 )\"\210�N\344=\203\366�\345\355�%\"\210\202��\356\357 
\"\210\360\361\f�O#\210�J\203
�\362�J!\210
\203��\313
!\210\n\203*�\363�Q\\�Q\364�R\n�S#)\2026�\365�S!\2056��S�R!.�\202\256�\327\366�\"\210�C\203I�\367\202J�\370�I\343�T\347�I\f
�B�D%�U\371\372 \"\210\373�U\374�V#\210\373�U\375�R#\210\373�U\376�S#\210\373�U\377\n#\210�G\203\226�\201W��U\341�G!\"\210\201X��U!\210\201Y��U\201Z�\"\210�A\205\255�\201[��U�A\"+.
\207\365�S!\205\275��S�R!\207" [commands c next cdir cname cbuf plist-get :default-directory :command-name :buffer-name get-buffer kill-buffer :process-filter :program :shell mapcar shell-quote-argument :args el-get-plist-get-with-default :sync :stdin file-name-as-directory expand-file-name el-get-verbose-message "Running commands synchronously: %S" call-process-shell-command call-process make-temp-file "el-get" get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301�!\203\n�\302�!\210\301\207" [temp-buffer buffer-name kill-buffer] 2)) el-get-print-to-string write-region nil 0 message "el-get is waiting for %S to complete" apply t :message :error "%S" buffer-string "el-get: %s" set-window-buffer selected-window error "el-get: %s %s" ...] 8)
  el-get-start-process-list(slime ((:command-name "*git clone slime*" :buffer-name "*git clone slime*" :default-directory "~/.emacs.d/el-get/" :program "/usr/local/bin/git" :args ("--no-pager" "clone" "--depth" "1" "http://github.com/slime/slime.git" "slime") :message "Package slime installed." :error "Could not install package slime.") nil (:command-name "*git submodule update*" :buffer-name "*git clone slime*" :default-directory "/Users/Stian/.emacs.d/el-get/slime/" :program "/usr/local/bin/git" :args ("--no-pager" "submodule" "update" "--init" "--recursive") :message "git submodule update ok" :error "Could not update git submodules")) el-get-post-install)
  el-get-git-clone(slime "http://github.com/slime/slime.git" el-get-post-install)
  el-get-github-clone(slime nil el-get-post-install)
  funcall(el-get-github-clone slime nil el-get-post-install)
  (let* ((status (el-get-read-package-status package)) (source (el-get-package-def package)) (method (el-get-package-method source)) (install (el-get-method method :install)) (url (plist-get source :url)) (pdir (el-get-package-directory package))) (el-get-error-unless-required-emacs-version source) (cond ((string= "installed" status) (error "Package %s is already installed." package)) ((string= "required" status) (message "Package %s previously failed to install, removing it first." package) (el-get-remove package)) ((file-exists-p pdir) (message "Package %s has an install dir but is not known to be installed. Removing it so we can install a known version." package) (el-get-remove package))) (el-get-check-init) (el-get-save-package-status package "required") (funcall install package url (quote el-get-post-install)) (message "el-get install %s" package))
  (if (el-get-package-is-installed package) (progn (el-get-verbose-message "el-get: `%s' package is already installed" package) (el-get-do-init package)) (let* ((status (el-get-read-package-status package)) (source (el-get-package-def package)) (method (el-get-package-method source)) (install (el-get-method method :install)) (url (plist-get source :url)) (pdir (el-get-package-directory package))) (el-get-error-unless-required-emacs-version source) (cond ((string= "installed" status) (error "Package %s is already installed." package)) ((string= "required" status) (message "Package %s previously failed to install, removing it first." package) (el-get-remove package)) ((file-exists-p pdir) (message "Package %s has an install dir but is not known to be installed. Removing it so we can install a known version." package) (el-get-remove package))) (el-get-check-init) (el-get-save-package-status package "required") (funcall install package url (quote el-get-post-install)) (message "el-get install %s" package)))
  el-get-do-install(slime)
  (while (consp --cl-var--) (setq p (car --cl-var--)) (el-get-do-install p) (setq done (nconc done (list p))) (setq --cl-var-- (cdr --cl-var--)))
  (let* ((--cl-var-- install-deps) (p nil) (done nil)) (while (consp --cl-var--) (setq p (car --cl-var--)) (el-get-do-install p) (setq done (nconc done (list p))) (setq --cl-var-- (cdr --cl-var--))) nil)
  (progn (let* ((--cl-var-- install-deps) (p nil) (done nil)) (while (consp --cl-var--) (setq p (car --cl-var--)) (el-get-do-install p) (setq done (nconc done (list p))) (setq --cl-var-- (cdr --cl-var--))) nil))
  (let* ((p-s-alist (el-get-read-status-file)) (required (el-get-filter-package-alist-with-status p-s-alist "required")) (installed (el-get-filter-package-alist-with-status p-s-alist "installed")) (to-init (if packages (progn (let* ((--cl-var-- packages) (p nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq p ...) (if ... ...) (setq --cl-var-- ...)) (nreverse --cl-var--))) (mapcar (quote el-get-as-symbol) installed))) (init-deps (el-get-dependencies to-init)) (to-install (if packages (progn (let* ((--cl-var-- packages) (p nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq p ...) (if ... ... ...) (setq --cl-var-- ...)) (nreverse --cl-var--))) (mapcar (quote el-get-as-symbol) required))) (install-deps (el-get-dependencies to-install)) done) (el-get-verbose-message "el-get-init-and-install: install %S" install-deps) (el-get-verbose-message "el-get-init-and-install: init %S" init-deps) (progn (let* ((--cl-var-- install-deps) (p nil) (done nil)) (while (consp --cl-var--) (setq p (car --cl-var--)) (el-get-do-install p) (setq done (nconc done (list p))) (setq --cl-var-- (cdr --cl-var--))) nil)) (progn (let* ((--cl-var-- init-deps) (p nil) (done nil)) (while (consp --cl-var--) (setq p (car --cl-var--)) (el-get-do-init p) (setq done (nconc done (list p))) (setq --cl-var-- (cdr --cl-var--))) nil)) done)
  el-get-init-and-install(nil)
  (prog1 (el-get-init-and-install (mapcar (quote el-get-as-symbol) packages)) (el-get-eval-autoloads))
  (let* ((packages (progn (let* ((--cl-var-- packages) (p nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq p (car --cl-var--)) (if (listp p) (progn ...) (setq --cl-var-- ...)) (setq --cl-var-- (cdr --cl-var--))) (nreverse --cl-var--)))) (total (length packages)) (installed (el-get-count-packages-with-status packages "installed")) (el-get-default-process-sync sync)) (if el-get-is-lazy nil (el-get-eval-autoloads)) (prog1 (el-get-init-and-install (mapcar (quote el-get-as-symbol) packages)) (el-get-eval-autoloads)))
  el-get(sync nil)
  (let ((module-name (file-name-base module)) (file (expand-file-name (if (string-match "ome-.+.org" module) module (format "ome-%s.org" module)) ome-dir))) (setq el-get-sources nil) (setq el-get-git-shallow-clone t) (if header-or-tags (progn (let ((--dolist-tail-- header-or-tags) header-or-tag) (while --dolist-tail-- (setq header-or-tag (car --dolist-tail--)) (let* ((base ...) (dir ...) (partial-file ...)) (if (file-exists-p partial-file) nil (let ... ...)) (org-babel-load-file partial-file)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (org-babel-load-file file)) (el-get (quote sync) (mapcar (quote el-get-source-name) el-get-sources)) (setq ome-module-packages nil) (mapcar (function (lambda (el-get-package) (add-to-list (quote ome-module-packages) (el-get-source-name el-get-package)))) el-get-sources) (add-to-list (quote ome-packages) (cons module-name ome-module-packages)))
  ome-load("core/ome-keybindings.org")
  eval-buffer(#<buffer  *load*-651316> nil "/Users/Stian/.emacs.d/ome.el" nil t)  ; Reading at buffer position 6622
  load-with-code-conversion("/Users/Stian/.emacs.d/ome.el" "/Users/Stian/.emacs.d/ome.el" nil nil)
  load("/Users/Stian/.emacs.d/ome.el" nil nil t)
  load-file("/Users/Stian/.emacs.d/ome.el")
  org-babel-load-file("/Users/Stian/.emacs.d/ome.org")
  eval-buffer(#<buffer  *load*> nil "/Users/Stian/.emacs.d/init.el" nil t)  ; Reading at buffer position 1999
  load-with-code-conversion("/Users/Stian/.emacs.d/init.el" "/Users/Stian/.emacs.d/init.el" t t)
  load("/Users/Stian/.emacs.d/init" t t)
  #[0 "�\205\262�   \306=\203��\307�\310Q\202;� \311=\204��\307�\312Q\202;�\313\307\314\315#\203*�\316\202;�\313\307\314\317#\203:�\320\nB�\321\202;�\316\322�\323�\322\211#\210�\322=\203a�\324\325\326\307�\327Q!\"\323�\322\211#\210�\322=\203`���\210�\203\243�\330�!\331\232\203\243�\332�!\211\333P\334�!\203}�\211\202\210�\334�!\203\207��\202\210�\314\262��\203\241�\335��\"\203\237�\336\337��#\210\340\341!\210��\266�\f?\205\260�\314�\323\342\322\211#)\262�\207" [init-file-user system-type delayed-warnings-list user-init-file inhibit-default-init inhibit-startup-screen ms-dos "~" "/_emacs" windows-nt "/.emacs" directory-files nil "^\\.emacs\\(\\.elc?\\)?$" "~/.emacs" "^_emacs\\(\\.elc?\\)?$" (initialization "`_emacs' init file is deprecated, please use `.emacs'") "~/_emacs" t load expand-file-name "init" file-name-as-directory "/.emacs.d" file-name-extension "elc" file-name-sans-extension ".el" file-exists-p file-newer-than-file-p message "Warning: %s is newer than %s" sit-for 1 "default"] 7 "\n\n(fn)"]()
  #[0 "\300 \210\302\211�\207" [#[0 "�\205\262� \306=\203��\307�\310Q\202;� \311=\204��\307�\312Q\202;�\313\307\314\315#\203*�\316\202;�\313\307\314\317#\203:�\320\nB�\321\202;�\316\322�\323�\322\211#\210�\322=\203a�\324\325\326\307�\327Q!\"\323�\322\211#\210�\322=\203`���\210�\203\243�\330�!\331\232\203\243�\332�!\211\333P\334�!\203}�\211\202\210�\334�!\203\207��\202\210�\314\262��\203\241�\335��\"\203\237�\336\337��#\210\340\341!\210��\266�\f?\205\260�\314�\323\342\322\211#)\262�\207" [init-file-user system-type delayed-warnings-list user-init-file inhibit-default-init inhibit-startup-screen ms-dos "~" "/_emacs" windows-nt "/.emacs" directory-files nil "^\\.emacs\\(\\.elc?\\)?$" "~/.emacs" "^_emacs\\(\\.elc?\\)?$" (initialization "`_emacs' init file is deprecated, please use `.emacs'") "~/_emacs" t load expand-file-name "init" file-name-as-directory "/.emacs.d" file-name-extension "elc" file-name-sans-extension ".el" file-exists-p file-newer-than-file-p message "Warning: %s is newer than %s" sit-for 1 "default"] 7 "\n\n(fn)"] init-file-had-error nil] 2 "\n\n(fn)"]()
  funcall(#[0 "\300 \210\302\211�\207" [#[0 "�\205\262� \306=\203��\307�\310Q\202;� \311=\204��\307�\312Q\202;�\313\307\314\315#\203*�\316\202;�\313\307\314\317#\203:�\320\nB�\321\202;�\316\322�\323�\322\211#\210�\322=\203a�\324\325\326\307�\327Q!\"\323�\322\211#\210�\322=\203`���\210�\203\243�\330�!\331\232\203\243�\332�!\211\333P\334�!\203}�\211\202\210�\334�!\203\207��\202\210�\314\262��\203\241�\335��\"\203\237�\336\337��#\210\340\341!\210��\266�\f?\205\260�\314�\323\342\322\211#)\262�\207" [init-file-user system-type delayed-warnings-list user-init-file inhibit-default-init inhibit-startup-screen ms-dos "~" "/_emacs" windows-nt "/.emacs" directory-files nil "^\\.emacs\\(\\.elc?\\)?$" "~/.emacs" "^_emacs\\(\\.elc?\\)?$" (initialization "`_emacs' init file is deprecated, please use `.emacs'") "~/_emacs" t load expand-file-name "init" file-name-as-directory "/.emacs.d" file-name-extension "elc" file-name-sans-extension ".el" file-exists-p file-newer-than-file-p message "Warning: %s is newer than %s" sit-for 1 "default"] 7 "\n\n(fn)"] init-file-had-error nil] 2 "\n\n(fn)"])
  command-line()
  normal-top-level()
--Lisp error: (error "el-get: sed el-get could not build slime [sed -i s/@itemx INIT-FUNCTION/@item INIT-FUNCTION/ doc/slime.texi]")
  signal(error ("el-get: sed el-get could not build slime [sed -i s/@itemx INIT-FUNCTION/@item INIT-FUNCTION/ doc/slime.texi]"))
  error("el-get: %s %s" "sed" "el-get could not build slime [sed -i s/@itemx INIT-FUNCTION/@item INIT-FUNCTION/ doc/slime.texi]")
  byte-code("�\203\261��@��A�\306   \307\"�\306 \310\"�\306 \311\"�\312
!\205\"�\313
!�@\306 \314\"�A\306    \315\"�B\306    \316\"\211�C\203D�\317\320\306  \321\"\"\202H�\306  \321\"�D\322    \323�E#�F\306   \324\"�G�\203d�\325\326�!!\202f��H�H�F\203;�\327\330�\"\210�C\203{�\331\202|�\332�I�G\205\206�\333\334!\211�J\205\263��J\335\336\337!!�K�L\340\216r�Kq\210\341�G!c)r�Kq\210\342\343\211�L\343\344%\210,�M\345\346\f\"�M\347�I�B�J
\350�D&��N\306  \351\"�%\306    \352\"�O�P\203\346�\345\353r
q\210\354 )\"\210�N\344=\203\366�\345\355�%\"\210\202��\356\357 
\"\210\360\361\f�O#\210�J\203
�\362�J!\210
\203��\313
!\210\n\203*�\363�Q\\�Q\364�R\n�S#)\2026�\365�S!\2056��S�R!.�\202\256�\327\366�\"\210�C\203I�\367\202J�\370�I\343�T\347�I\f
�B�D%�U\371\372 \"\210\373�U\374�V#\210\373�U\375�R#\210\373�U\376�S#\210\373�U\377\n#\210�G\203\226�\201W��U\341�G!\"\210\201X��U!\210\201Y��U\201Z�\"\210�A\205\255�\201[��U�A\"+.
\207\365�S!\205\275��S�R!\207" [commands c next cdir cname cbuf plist-get :default-directory :command-name :buffer-name get-buffer kill-buffer :process-filter :program :shell mapcar shell-quote-argument :args el-get-plist-get-with-default :sync :stdin file-name-as-directory expand-file-name el-get-verbose-message "Running commands synchronously: %S" call-process-shell-command call-process make-temp-file "el-get" get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301�!\203\n�\302�!\210\301\207" [temp-buffer buffer-name kill-buffer] 2)) el-get-print-to-string write-region nil 0 message "el-get is waiting for %S to complete" apply t :message :error "%S" buffer-string "el-get: %s" set-window-buffer selected-window error "el-get: %s %s" ...] 8)
  el-get-start-process-list(slime ((:command-name "sed" :buffer-name "*el-get-build: slime*" :default-directory "/Users/Stian/.emacs.d/el-get/slime/" :shell t :sync sync :program "/usr/bin/sed" :args ("-i" "s/@itemx INIT-FUNCTION/@item INIT-FUNCTION/" "doc/slime.texi") :message "el-get-build slime: sed -i s/@itemx INIT-FUNCTION/@item INIT-FUNCTION/ doc/slime.texi ok." :error "el-get could not build slime [sed -i s/@itemx INIT-FUNCTION/@item INIT-FUNCTION/ doc/slime.texi]") (:command-name "make" :buffer-name "*el-get-build: slime*" :default-directory "/Users/Stian/.emacs.d/el-get/slime/" :shell t :sync sync :program "/usr/bin/make" :args ("-C" "doc" "slime.info") :message "el-get-build slime: make -C doc slime.info ok." :error "el-get could not build slime [make -C doc slime.info]")) (lambda (package) (el-get-install-or-init-info package (quote build)) (funcall (lambda (package) (let ((bytecomp-files (when el-get-byte-compile (el-get-assemble-files-for-byte-compilation package)))) (el-get-start-process-list package (list (el-get-byte-compile-process package "*el-get-build: slime*" "/Users/Stian/.emacs.d/el-get/slime/" sync bytecomp-files)) (lambda (&rest args) (apply (lambda ... "Function to call after building the package while installing it." ... ... ... ...) args))))) package)))
  el-get-build(slime (("sed" "-i" "s/@itemx INIT-FUNCTION/@item INIT-FUNCTION/" "doc/slime.texi") ("make" "-C" "doc" "slime.info")) nil sync el-get-post-install-build)
  (if (and (eq (el-get-package-method package) (quote builtin)) (plist-get (el-get-package-def package) :builtin)) (el-get-post-install-build package) (el-get-build package commands nil sync (quote el-get-post-install-build)))
  (let* ((sync el-get-default-process-sync) (type (el-get-package-type package)) (hooks (el-get-method type :install-hook)) (commands (el-get-build-commands package)) (checksum (plist-get (el-get-package-def package) :checksum)) (compute-checksum (el-get-method type :compute-checksum))) (if (and checksum (not compute-checksum)) (progn (error "Checksum verification of package %s is not supported with method %s." package type))) (if compute-checksum (progn (let ((computed (funcall compute-checksum package))) (if checksum (if (equal computed (el-get-as-string checksum)) (el-get-verbose-message "el-get: package %s passed checksum with \"%s\"." package computed) (error "Checksum verification failed. Required: \"%s\", actual: \"%s\"." checksum computed)) (el-get-verbose-message "el-get: pakage %s checksum is %s." package computed))))) (run-hook-with-args hooks package) (if (and (eq (el-get-package-method package) (quote builtin)) (plist-get (el-get-package-def package) :builtin)) (el-get-post-install-build package) (el-get-build package commands nil sync (quote el-get-post-install-build))))
  el-get-post-install(slime)
  byte-code("�\203\261��@��A�\306   \307\"�\306 \310\"�\306 \311\"�\312
!\205\"�\313
!�@\306 \314\"�A\306    \315\"�B\306    \316\"\211�C\203D�\317\320\306  \321\"\"\202H�\306  \321\"�D\322    \323�E#�F\306   \324\"�G�\203d�\325\326�!!\202f��H�H�F\203;�\327\330�\"\210�C\203{�\331\202|�\332�I�G\205\206�\333\334!\211�J\205\263��J\335\336\337!!�K�L\340\216r�Kq\210\341�G!c)r�Kq\210\342\343\211�L\343\344%\210,�M\345\346\f\"�M\347�I�B�J
\350�D&��N\306  \351\"�%\306    \352\"�O�P\203\346�\345\353r
q\210\354 )\"\210�N\344=\203\366�\345\355�%\"\210\202��\356\357 
\"\210\360\361\f�O#\210�J\203
�\362�J!\210
\203��\313
!\210\n\203*�\363�Q\\�Q\364�R\n�S#)\2026�\365�S!\2056��S�R!.�\202\256�\327\366�\"\210�C\203I�\367\202J�\370�I\343�T\347�I\f
�B�D%�U\371\372 \"\210\373�U\374�V#\210\373�U\375�R#\210\373�U\376�S#\210\373�U\377\n#\210�G\203\226�\201W��U\341�G!\"\210\201X��U!\210\201Y��U\201Z�\"\210�A\205\255�\201[��U�A\"+.
\207\365�S!\205\275��S�R!\207" [commands c next cdir cname cbuf plist-get :default-directory :command-name :buffer-name get-buffer kill-buffer :process-filter :program :shell mapcar shell-quote-argument :args el-get-plist-get-with-default :sync :stdin file-name-as-directory expand-file-name el-get-verbose-message "Running commands synchronously: %S" call-process-shell-command call-process make-temp-file "el-get" get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301�!\203\n�\302�!\210\301\207" [temp-buffer buffer-name kill-buffer] 2)) el-get-print-to-string write-region nil 0 message "el-get is waiting for %S to complete" apply t :message :error "%S" buffer-string "el-get: %s" set-window-buffer selected-window error "el-get: %s %s" ...] 8)
  el-get-start-process-list(slime (nil (:command-name "*git submodule update*" :buffer-name "*git clone slime*" :default-directory "/Users/Stian/.emacs.d/el-get/slime/" :program "/usr/local/bin/git" :args ("--no-pager" "submodule" "update" "--init" "--recursive") :message "git submodule update ok" :error "Could not update git submodules")) el-get-post-install)
  byte-code("�\203\261��@��A�\306   \307\"�\306 \310\"�\306 \311\"�\312
!\205\"�\313
!�@\306 \314\"�A\306    \315\"�B\306    \316\"\211�C\203D�\317\320\306  \321\"\"\202H�\306  \321\"�D\322    \323�E#�F\306   \324\"�G�\203d�\325\326�!!\202f��H�H�F\203;�\327\330�\"\210�C\203{�\331\202|�\332�I�G\205\206�\333\334!\211�J\205\263��J\335\336\337!!�K�L\340\216r�Kq\210\341�G!c)r�Kq\210\342\343\211�L\343\344%\210,�M\345\346\f\"�M\347�I�B�J
\350�D&��N\306  \351\"�%\306    \352\"�O�P\203\346�\345\353r
q\210\354 )\"\210�N\344=\203\366�\345\355�%\"\210\202��\356\357 
\"\210\360\361\f�O#\210�J\203
�\362�J!\210
\203��\313
!\210\n\203*�\363�Q\\�Q\364�R\n�S#)\2026�\365�S!\2056��S�R!.�\202\256�\327\366�\"\210�C\203I�\367\202J�\370�I\343�T\347�I\f
�B�D%�U\371\372 \"\210\373�U\374�V#\210\373�U\375�R#\210\373�U\376�S#\210\373�U\377\n#\210�G\203\226�\201W��U\341�G!\"\210\201X��U!\210\201Y��U\201Z�\"\210�A\205\255�\201[��U�A\"+.
\207\365�S!\205\275��S�R!\207" [commands c next cdir cname cbuf plist-get :default-directory :command-name :buffer-name get-buffer kill-buffer :process-filter :program :shell mapcar shell-quote-argument :args el-get-plist-get-with-default :sync :stdin file-name-as-directory expand-file-name el-get-verbose-message "Running commands synchronously: %S" call-process-shell-command call-process make-temp-file "el-get" get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301�!\203\n�\302�!\210\301\207" [temp-buffer buffer-name kill-buffer] 2)) el-get-print-to-string write-region nil 0 message "el-get is waiting for %S to complete" apply t :message :error "%S" buffer-string "el-get: %s" set-window-buffer selected-window error "el-get: %s %s" ...] 8)
  el-get-start-process-list(slime ((:command-name "*git clone slime*" :buffer-name "*git clone slime*" :default-directory "~/.emacs.d/el-get/" :program "/usr/local/bin/git" :args ("--no-pager" "clone" "--depth" "1" "http://github.com/slime/slime.git" "slime") :message "Package slime installed." :error "Could not install package slime.") nil (:command-name "*git submodule update*" :buffer-name "*git clone slime*" :default-directory "/Users/Stian/.emacs.d/el-get/slime/" :program "/usr/local/bin/git" :args ("--no-pager" "submodule" "update" "--init" "--recursive") :message "git submodule update ok" :error "Could not update git submodules")) el-get-post-install)
  el-get-git-clone(slime "http://github.com/slime/slime.git" el-get-post-install)
  el-get-github-clone(slime nil el-get-post-install)
  funcall(el-get-github-clone slime nil el-get-post-install)
  (let* ((status (el-get-read-package-status package)) (source (el-get-package-def package)) (method (el-get-package-method source)) (install (el-get-method method :install)) (url (plist-get source :url)) (pdir (el-get-package-directory package))) (el-get-error-unless-required-emacs-version source) (cond ((string= "installed" status) (error "Package %s is already installed." package)) ((string= "required" status) (message "Package %s previously failed to install, removing it first." package) (el-get-remove package)) ((file-exists-p pdir) (message "Package %s has an install dir but is not known to be installed. Removing it so we can install a known version." package) (el-get-remove package))) (el-get-check-init) (el-get-save-package-status package "required") (funcall install package url (quote el-get-post-install)) (message "el-get install %s" package))
  (if (el-get-package-is-installed package) (progn (el-get-verbose-message "el-get: `%s' package is already installed" package) (el-get-do-init package)) (let* ((status (el-get-read-package-status package)) (source (el-get-package-def package)) (method (el-get-package-method source)) (install (el-get-method method :install)) (url (plist-get source :url)) (pdir (el-get-package-directory package))) (el-get-error-unless-required-emacs-version source) (cond ((string= "installed" status) (error "Package %s is already installed." package)) ((string= "required" status) (message "Package %s previously failed to install, removing it first." package) (el-get-remove package)) ((file-exists-p pdir) (message "Package %s has an install dir but is not known to be installed. Removing it so we can install a known version." package) (el-get-remove package))) (el-get-check-init) (el-get-save-package-status package "required") (funcall install package url (quote el-get-post-install)) (message "el-get install %s" package)))
  el-get-do-install(slime)
  (while (consp --cl-var--) (setq p (car --cl-var--)) (el-get-do-install p) (setq done (nconc done (list p))) (setq --cl-var-- (cdr --cl-var--)))
  (let* ((--cl-var-- install-deps) (p nil) (done nil)) (while (consp --cl-var--) (setq p (car --cl-var--)) (el-get-do-install p) (setq done (nconc done (list p))) (setq --cl-var-- (cdr --cl-var--))) nil)
  (progn (let* ((--cl-var-- install-deps) (p nil) (done nil)) (while (consp --cl-var--) (setq p (car --cl-var--)) (el-get-do-install p) (setq done (nconc done (list p))) (setq --cl-var-- (cdr --cl-var--))) nil))
  (let* ((p-s-alist (el-get-read-status-file)) (required (el-get-filter-package-alist-with-status p-s-alist "required")) (installed (el-get-filter-package-alist-with-status p-s-alist "installed")) (to-init (if packages (progn (let* ((--cl-var-- packages) (p nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq p ...) (if ... ...) (setq --cl-var-- ...)) (nreverse --cl-var--))) (mapcar (quote el-get-as-symbol) installed))) (init-deps (el-get-dependencies to-init)) (to-install (if packages (progn (let* ((--cl-var-- packages) (p nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq p ...) (if ... ... ...) (setq --cl-var-- ...)) (nreverse --cl-var--))) (mapcar (quote el-get-as-symbol) required))) (install-deps (el-get-dependencies to-install)) done) (el-get-verbose-message "el-get-init-and-install: install %S" install-deps) (el-get-verbose-message "el-get-init-and-install: init %S" init-deps) (progn (let* ((--cl-var-- install-deps) (p nil) (done nil)) (while (consp --cl-var--) (setq p (car --cl-var--)) (el-get-do-install p) (setq done (nconc done (list p))) (setq --cl-var-- (cdr --cl-var--))) nil)) (progn (let* ((--cl-var-- init-deps) (p nil) (done nil)) (while (consp --cl-var--) (setq p (car --cl-var--)) (el-get-do-init p) (setq done (nconc done (list p))) (setq --cl-var-- (cdr --cl-var--))) nil)) done)
  el-get-init-and-install(nil)
  (prog1 (el-get-init-and-install (mapcar (quote el-get-as-symbol) packages)) (el-get-eval-autoloads))
  (let* ((packages (progn (let* ((--cl-var-- packages) (p nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq p (car --cl-var--)) (if (listp p) (progn ...) (setq --cl-var-- ...)) (setq --cl-var-- (cdr --cl-var--))) (nreverse --cl-var--)))) (total (length packages)) (installed (el-get-count-packages-with-status packages "installed")) (el-get-default-process-sync sync)) (if el-get-is-lazy nil (el-get-eval-autoloads)) (prog1 (el-get-init-and-install (mapcar (quote el-get-as-symbol) packages)) (el-get-eval-autoloads)))
  el-get(sync nil)
  (let ((module-name (file-name-base module)) (file (expand-file-name (if (string-match "ome-.+.org" module) module (format "ome-%s.org" module)) ome-dir))) (setq el-get-sources nil) (setq el-get-git-shallow-clone t) (if header-or-tags (progn (let ((--dolist-tail-- header-or-tags) header-or-tag) (while --dolist-tail-- (setq header-or-tag (car --dolist-tail--)) (let* ((base ...) (dir ...) (partial-file ...)) (if (file-exists-p partial-file) nil (let ... ...)) (org-babel-load-file partial-file)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (org-babel-load-file file)) (el-get (quote sync) (mapcar (quote el-get-source-name) el-get-sources)) (setq ome-module-packages nil) (mapcar (function (lambda (el-get-package) (add-to-list (quote ome-module-packages) (el-get-source-name el-get-package)))) el-get-sources) (add-to-list (quote ome-packages) (cons module-name ome-module-packages)))
  ome-load("core/ome-keybindings.org")
  eval-buffer(#<buffer  *load*-651316> nil "/Users/Stian/.emacs.d/ome.el" nil t)  ; Reading at buffer position 6622
  load-with-code-conversion("/Users/Stian/.emacs.d/ome.el" "/Users/Stian/.emacs.d/ome.el" nil nil)
  load("/Users/Stian/.emacs.d/ome.el" nil nil t)
  load-file("/Users/Stian/.emacs.d/ome.el")
  org-babel-load-file("/Users/Stian/.emacs.d/ome.org")
  eval-buffer(#<buffer  *load*> nil "/Users/Stian/.emacs.d/init.el" nil t)  ; Reading at buffer position 1999
  load-with-code-conversion("/Users/Stian/.emacs.d/init.el" "/Users/Stian/.emacs.d/init.el" t t)
  load("/Users/Stian/.emacs.d/init" t t)
  #[0 "�\205\262�   \306=\203��\307�\310Q\202;� \311=\204��\307�\312Q\202;�\313\307\314\315#\203*�\316\202;�\313\307\314\317#\203:�\320\nB�\321\202;�\316\322�\323�\322\211#\210�\322=\203a�\324\325\326\307�\327Q!\"\323�\322\211#\210�\322=\203`���\210�\203\243�\330�!\331\232\203\243�\332�!\211\333P\334�!\203}�\211\202\210�\334�!\203\207��\202\210�\314\262��\203\241�\335��\"\203\237�\336\337��#\210\340\341!\210��\266�\f?\205\260�\314�\323\342\322\211#)\262�\207" [init-file-user system-type delayed-warnings-list user-init-file inhibit-default-init inhibit-startup-screen ms-dos "~" "/_emacs" windows-nt "/.emacs" directory-files nil "^\\.emacs\\(\\.elc?\\)?$" "~/.emacs" "^_emacs\\(\\.elc?\\)?$" (initialization "`_emacs' init file is deprecated, please use `.emacs'") "~/_emacs" t load expand-file-name "init" file-name-as-directory "/.emacs.d" file-name-extension "elc" file-name-sans-extension ".el" file-exists-p file-newer-than-file-p message "Warning: %s is newer than %s" sit-for 1 "default"] 7 "\n\n(fn)"]()
  #[0 "\300 \210\302\211�\207" [#[0 "�\205\262� \306=\203��\307�\310Q\202;� \311=\204��\307�\312Q\202;�\313\307\314\315#\203*�\316\202;�\313\307\314\317#\203:�\320\nB�\321\202;�\316\322�\323�\322\211#\210�\322=\203a�\324\325\326\307�\327Q!\"\323�\322\211#\210�\322=\203`���\210�\203\243�\330�!\331\232\203\243�\332�!\211\333P\334�!\203}�\211\202\210�\334�!\203\207��\202\210�\314\262��\203\241�\335��\"\203\237�\336\337��#\210\340\341!\210��\266�\f?\205\260�\314�\323\342\322\211#)\262�\207" [init-file-user system-type delayed-warnings-list user-init-file inhibit-default-init inhibit-startup-screen ms-dos "~" "/_emacs" windows-nt "/.emacs" directory-files nil "^\\.emacs\\(\\.elc?\\)?$" "~/.emacs" "^_emacs\\(\\.elc?\\)?$" (initialization "`_emacs' init file is deprecated, please use `.emacs'") "~/_emacs" t load expand-file-name "init" file-name-as-directory "/.emacs.d" file-name-extension "elc" file-name-sans-extension ".el" file-exists-p file-newer-than-file-p message "Warning: %s is newer than %s" sit-for 1 "default"] 7 "\n\n(fn)"] init-file-had-error nil] 2 "\n\n(fn)"]()
  funcall(#[0 "\300 \210\302\211�\207" [#[0 "�\205\262� \306=\203��\307�\310Q\202;� \311=\204��\307�\312Q\202;�\313\307\314\315#\203*�\316\202;�\313\307\314\317#\203:�\320\nB�\321\202;�\316\322�\323�\322\211#\210�\322=\203a�\324\325\326\307�\327Q!\"\323�\322\211#\210�\322=\203`���\210�\203\243�\330�!\331\232\203\243�\332�!\211\333P\334�!\203}�\211\202\210�\334�!\203\207��\202\210�\314\262��\203\241�\335��\"\203\237�\336\337��#\210\340\341!\210��\266�\f?\205\260�\314�\323\342\322\211#)\262�\207" [init-file-user system-type delayed-warnings-list user-init-file inhibit-default-init inhibit-startup-screen ms-dos "~" "/_emacs" windows-nt "/.emacs" directory-files nil "^\\.emacs\\(\\.elc?\\)?$" "~/.emacs" "^_emacs\\(\\.elc?\\)?$" (initialization "`_emacs' init file is deprecated, please use `.emacs'") "~/_emacs" t load expand-file-name "init" file-name-as-directory "/.emacs.d" file-name-extension "elc" file-name-sans-extension ".el" file-exists-p file-newer-than-file-p message "Warning: %s is newer than %s" sit-for 1 "default"] 7 "\n\n(fn)"] init-file-had-error nil] 2 "\n\n(fn)"])
  command-line()
  normal-top-level()

jedi的安装问题

在安装过程中，jedi clone 完只后会报错

VIRTUALENV_SYSTEM_SITE_PACKAGES=true virtualenv --python=python env
Already using interpreter /usr/bin/python
New python executable in env/bin/python
Installing setuptools, pip...done.
env/bin/pip install --use-mirrors --requirement requirements.txt
make: env/bin/pip: Command not found
make: *** [requirements] Error 127

我查看了jedi的Makefile文件，其中的第一行指定了变量ENV 是当前目录下的env子目录，同时pip命令也指定到了这个目录下的bin下面，然而，这个目录下面并没有pip，

我更改了这个makefile文件， 在make的过程中提示缺少cpanfile文件。我猜测这个需要在emacs环境中运行，但是启动emacs的时候，el-get 会再次clone jedi 库，
我将module下面的python 配置文件删除，仍然不起作用，发现在el-get 下面有个配置文件，status，记录着安装的所有仓库的信息。 我将这个文件中的jedi的 信息删除，并且注释到ome.org中加载python的配置，才能顺利通过。

不过我还是想使用python的配置，不知道应该如何修复jedi

mac el-get can not find a recipe for package "lacarte"

come from 27e1a53