* emacs-helm.sh: new

1 files changed, 43 insertions, 0 deletions

diff --git a/emacs-helm.sh b/emacs-helm.sh
new file mode 100755
index 00000000..08b8de48
--- /dev/null
+++ b/emacs-helm.sh
@@ -0,0 +1,43 @@
+#!/bin/bash
+
+## Copyright (C) 2012 Thierry Volpiatto <thierry.volpiatto@gmail.com>
+## 
+## This program is free software; you can redistribute it and/or modify
+## it under the terms of the GNU General Public License as published by
+## the Free Software Foundation, either version 3 of the License, or
+## (at your option) any later version.
+## 
+## This program is distributed in the hope that it will be useful,
+## but WITHOUT ANY WARRANTY; without even the implied warranty of
+## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+## GNU General Public License for more details.
+## 
+## You should have received a copy of the GNU General Public License
+## along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+## Commentary:
+
+# Preconfigured Emacs with a basic helm configuration.
+# Useful to start quickly an emacs -Q with helm.
+# Run it from this directory.
+
+TMP="/tmp/helm-cfg.el"
+LOADPATH="."
+cat > $TMP <<EOF
+(setq default-frame-alist '((vertical-scroll-bars . nil)
+                            (tool-bar-lines . 0)
+                            (menu-bar-lines . 0)
+                            (fullscreen . nil)))
+(blink-cursor-mode -1)
+(add-to-list 'load-path "$LOADPATH")
+(require 'helm-config)
+(helm-mode 1)
+(define-key global-map [remap find-file] 'helm-find-files)
+(define-key global-map [remap occur] 'helm-occur)
+(define-key global-map [remap list-buffers] 'helm-buffers-list)
+(define-key lisp-interaction-mode-map [remap indent-for-tab-command] 'helm-lisp-completion-at-point-or-indent)
+(define-key emacs-lisp-mode-map       [remap indent-for-tab-command] 'helm-lisp-completion-at-point-or-indent)
+(add-hook 'kill-emacs-hook #'(lambda () (delete-file "$TMP")))
+(cd "~/")
+EOF
+emacs -Q -l $TMP