my init.el

init.el

;;; init.el --- Prelude's configuration entry point.
;;
;; Copyright (c) 2011 Bozhidar Batsov
;;
;; Author: Bozhidar Batsov <bozhidar@batsov.com>
;; URL: http://batsov.com/prelude
;; Version: 1.0.0
;; Keywords: convenience

;; This file is not part of GNU Emacs.

;;; Commentary:

;; This file simply sets up the default load path and requires
;; the various modules defined within Emacs Prelude.

;;; License:

;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License
;; as published by the Free Software Foundation; either version 3
;; 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 GNU Emacs; see the file COPYING.  If not, write to the
;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301, USA.

;;; Code:
(defvar current-user
      (getenv
       (if (equal system-type 'windows-nt) "USERNAME" "USER")))

(message "Prelude is powering up... Be patient, Master %s!" current-user)

(when (version< emacs-version "24.1")
  (error "Prelude requires at least GNU Emacs 24.1, but you're running %s" emacs-version))

;; Always load newest byte code
(setq load-prefer-newer t)

(defvar prelude-dir (file-name-directory load-file-name)
  "The root dir of the Emacs Prelude distribution.")
(defvar prelude-core-dir (expand-file-name "core" prelude-dir)
  "The home of Prelude's core functionality.")
(defvar prelude-modules-dir (expand-file-name  "modules" prelude-dir)
  "This directory houses all of the built-in Prelude modules.")
(defvar prelude-personal-dir (expand-file-name "personal" prelude-dir)
  "This directory is for your personal configuration.

Users of Emacs Prelude are encouraged to keep their personal configuration
changes in this directory.  All Emacs Lisp files there are loaded automatically
by Prelude.")
(defvar prelude-personal-preload-dir (expand-file-name "preload" prelude-personal-dir)
  "This directory is for your personal configuration, that you want loaded before Prelude.")
(defvar prelude-vendor-dir (expand-file-name "vendor" prelude-dir)
  "This directory houses packages that are not yet available in ELPA (or MELPA).")
(defvar prelude-savefile-dir (expand-file-name "savefile" prelude-dir)
  "This folder stores all the automatically generated save/history-files.")
(defvar prelude-modules-file (expand-file-name "prelude-modules.el" prelude-dir)
  "This files contains a list of modules that will be loaded by Prelude.")

(unless (file-exists-p prelude-savefile-dir)
  (make-directory prelude-savefile-dir))

(defun prelude-add-subfolders-to-load-path (parent-dir)
 "Add all level PARENT-DIR subdirs to the `load-path'."
 (dolist (f (directory-files parent-dir))
   (let ((name (expand-file-name f parent-dir)))
     (when (and (file-directory-p name)
                (not (string-prefix-p "." f)))
       (add-to-list 'load-path name)
       (prelude-add-subfolders-to-load-path name)))))

;; add Prelude's directories to Emacs's `load-path'
(add-to-list 'load-path prelude-core-dir)
(add-to-list 'load-path prelude-modules-dir)
(add-to-list 'load-path prelude-vendor-dir)
(prelude-add-subfolders-to-load-path prelude-vendor-dir)

;; reduce the frequency of garbage collection by making it happen on
;; each 50MB of allocated data (the default is on every 0.76MB)
(setq gc-cons-threshold 50000000)

;; warn when opening files bigger than 100MB
(setq large-file-warning-threshold 100000000)

;; preload the personal settings from `prelude-personal-preload-dir'
(when (file-exists-p prelude-personal-preload-dir)
  (message "Loading personal configuration files in %s..." prelude-personal-preload-dir)
  (mapc 'load (directory-files prelude-personal-preload-dir 't "^[^#].*el$")))

(message "Loading Prelude's core...")

;; the core stuff
(require 'prelude-packages)
(require 'prelude-custom)  ;; Needs to be loaded before core, editor and ui
(require 'prelude-ui)
(require 'prelude-core)
(require 'prelude-mode)
(require 'prelude-editor)
(require 'prelude-global-keybindings)

;; OSX specific settings
(when (eq system-type 'darwin)
  (require 'prelude-osx))

(message "Loading Prelude's modules...")

;; the modules
(when (file-exists-p prelude-modules-file)
  (load prelude-modules-file))

;; config changes made through the customize UI will be store here
(setq custom-file (expand-file-name "custom.el" prelude-personal-dir))

;; load the personal settings (this includes `custom-file')
(when (file-exists-p prelude-personal-dir)
  (message "Loading personal configuration files in %s..." prelude-personal-dir)
  (mapc 'load (directory-files prelude-personal-dir 't "^[^#].*el$")))

(message "Prelude is ready to do thy bidding, Master %s!" current-user)

(prelude-eval-after-init
 ;; greet the use with some useful tip
 (run-at-time 5 nil 'prelude-tip-of-the-day))

;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ^ added by prelude ^ ;;
;; v added by austin  v ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;
;; custom variables ;;
;;;;;;;;;;;;;;;;;;;;;;

;; ONLY ONE OF THESE PER INIT FILE!!!

(custom-set-variables
 '(racket-program "/Applications/Racket v6.1.1/bin/racket")
 '(raco-program "/Applications/Racket v6.1.1/bin/raco"))

;;;;;;;;;;;;;
;; windows ;;
;;;;;;;;;;;;;

;; line numbering
(global-linum-mode)
(column-number-mode)
(if (fboundp 'fringe-mode)
    (fringe-mode 4))

;; transpose-windows
(require 'transpose-frame)

;;;;;;;;;;;;;
;; editing ;;
;;;;;;;;;;;;;



;; enable helm's version of M-x which is better in every possible way
;; kthx
(global-set-key (kbd "M-x") 'helm-M-x)

;; helm projectile
(global-unset-key (kbd "C-c p h"))
(global-set-key (kbd "C-x p") 'helm-projectile)


;;;;;;;;;;;;;;
;; snippets ;;
;;;;;;;;;;;;;;

(require 'yasnippet)
(ac-config-default)
(defun ac-yasnippet-mode-setup ()
  "Append yasnippets as a source to ac-sources."
  (setq ac-sources (append '(ac-source-yasnippet) ac-sources)))
(add-hook 'auto-complete-mode-hook 'ac-yasnippet-mode-setup)


;; brackets
;; turn on automatic bracket insertion by pairs.
;;(electric-pair-mode 1)                  ;
;; make electric-pair-mode work on quotes and curly brackets
;;(setq electric-pair-pairs '((?\" . ?\")(?\{ . ?\})))

;; tabbing
(setq-default indent-tabs-mode nil)
(setq tab-width 2)
(setq-default js-indent-level 2)

;; code-folding
;; (hs-minor-mode t) <- won't work by default in fundamental mode
(global-set-key (kbd "C-c <up>") 'hs-show-block)
(global-set-key (kbd "C-c <down>") 'hs-hide-block)
(global-set-key (kbd "C-c C-<up>") 'hs-show-all)
(global-set-key (kbd "C-c C-<down>") 'hs-hide-all)

;; multiple cursors
(require 'multiple-cursors)
(global-set-key (kbd "C-S-c C-S-c") 'mc/edit-lines)
(global-set-key (kbd "C->") 'mc/mark-next-like-this)
(global-set-key (kbd "C-<") 'mc/mark-previous-like-this)
(global-set-key (kbd "C-c C-<") 'mc/mark-all-like-this)

;;;;;;;;;;;;;;;;;;;;;
;; javascript mode ;;
;;;;;;;;;;;;;;;;;;;;;

;; grabpag of  js-2 stuff
;; from: https://github.com/howardabrams/dot-files/blob/master/emacs-javascript.org

(setq js-basic-indent 2)
(setq-default js2-basic-indent 2)

(setq-default js2-basic-offset 2)
(setq-default js2-auto-indent-p t)
(setq-default js2-cleanup-whitespace t)
(setq-default js2-enter-indents-newline t)
(setq-default js2-global-externs "jQuery $")
(setq-default js2-indent-on-enter-key t)
(setq-default js2-mode-indent-ignore-first-tab t)

(setq-default js2-global-externs '("module" "require" "buster" "sinon" "assert" "refute" "setTimeout" "clearTimeout" "setInterval" "clearInterval" "location" "__dirname" "console" "JSON"))

;; We'll let fly do the error parsing...
;; (setq-default js2-show-parse-errors nil)

;; (autoload 'js2-mode "js2-mode" nil t)
(require 'js2-mode)
(add-to-list 'auto-mode-alist '("\\.js$" . js2-mode))

;; Place warning font around TODO and others:
(font-lock-add-keywords 'js2-mode
                        '(("\\<\\(FIX\\|TODO\\|FIXME\\|HACK\\|REFACTOR\\):"
                           1 font-lock-warning-face t)))

;; color any defined variables with color-identifiers-mode
(add-hook 'js2-mode-hook 'color-identifiers-mode)

;; code folding
(add-hook 'js2-mode-hook
          (lambda ()
            ;; Scan the file for nested code blocks
            (imenu-add-menubar-index)
            ;; Activate the folding mode
            (hs-minor-mode t)))
;; repl
(require 'nodejs-repl)

;; sending stuff to repl
(require 'js-comint)
(autoload 'js-comint "js-comint"
  "Hooking JavaScript interpreter up to the JS Files." t nil)

;; (setenv "NODE_NO_READLINE" "1")   ;; Turn off fancy node prompt
;; Use node as our repl
(setq inferior-js-program-command "node")
(add-hook 'js2-mode-hook '(lambda ()
                            (local-set-key "\C-x\C-e" 'js-send-last-sexp)
                            (local-set-key "\C-\M-x" 'js-send-last-sexp-and-go)
                            (local-set-key "\C-cb" 'js-send-buffer)
                            (local-set-key "\C-c\C-b" 'js-send-buffer-and-go)
                            (local-set-key "\C-cl" 'js-load-file-and-go)))

;; auto-completion
(add-hook 'js2-mode-hook 'ac-js2-mode)


;;;;;;;;;;;;;;;;;
;; racket mode ;;
;;;;;;;;;;;;;;;;;

(add-hook 'racket-mode-hook
          '(lambda ()
             (define-key racket-mode-map (kbd "C-c r") 'racket-run)))
(add-hook 'racket-mode-hook
          '(lambda ()
             (define-key racket-mode-map (kbd "C-c t") 'racket-test)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; multi-term keybinding ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;

(global-set-key (kbd "C-c m m") 'multi-term)
(add-hook 'term-mode-hook '(lambda ()
                            (define-key term-raw-map (kbd "C-y") 'term-paste)
                            (define-key term-raw-map (kbd "C-c m n") 'multi-term-next)
                            (define-key term-raw-map (kbd "C-c m p") 'multi-term-prev)))


;; enable buffer reuse in dired
(put 'dired-find-alternate-file 'disabled nil)


;;;;;;;;;;;
;; dired ;;
;;;;;;;;;;;

;; (Defun dired-window () (window-at (frame-width) 1))

;; (eval-after-load 'dired
;;   '(Define-key dired-mode-map (kbd "o")
;;      (lambda ()
;;        (interactive)
;;        (let ((dired-window (dired-window)))
;;          (set-window-buffer dired-window
;;                             (find-file-noselect
;;                              (dired-get-file-for-visit)))
;;          (select-window dired-window)))))

;;;;;;;;;;;;;;;;
;; ruby/rails ;;
;;;;;;;;;;;;;;;;


;; enable projectile-rails
(add-hook 'projectile-mode-hook 'projectile-rails-on)

;; enable robe-mode
(add-hook 'ruby-mode-hook 'robe-mode)

;; enable launching rspec from dired
(add-hook 'dired-mode-hook 'rspec-dired-mode)

;; enable inf-ruby (repl)
(add-hook 'after-init-hook 'inf-ruby-switch-setup)

(eval-after-load 'inf-ruby
  '(define-key inf-ruby-minor-mode-map
     (kbd "C-c C-s") 'inf-ruby-console-auto))

;; add rspec-mode snippets
(eval-after-load 'rspec-mode
  '(rspec-install-snippets))

;; disable expand-snippet class skeletons
(setq projectile-rails-expand-snippet nil)

;;;;;;;;;;;;;;
;; web mode ;;
;;;;;;;;;;;;;;

(defun my-web-mode-hook ()
  "Hooks for Web mode."
  (setq web-mode-markup-indent-offset 2)
  (setq web-mode-css-indent-offset 2)
  (setq web-mode-code-indent-offset 2)
  (setq web-mode-style-padding 1)
  (setq web-mode-script-padding 1)
  (setq web-mode-block-padding 0)
  )
(add-hook 'web-mode-hook  'my-web-mode-hook)

;;;;;;;;;;;
;; react ;;
;;;;;;;;;;;

;; use web-mode for .jsx files
(add-to-list 'auto-mode-alist '("\\.jsx$" . web-mode))

;; syntax highlighting
;; (defadvice web-mode-highlight-part (around tweak-jsx activate)
;;   (if (equal web-mode-content-type "jsx")
;;       (let ((web-mode-enable-part-face nil))
;;         ad-do-it)
;;     ad-do-it))

(require 'flycheck)

;; turn on flychecking globally
(add-hook 'after-init-hook #'global-flycheck-mode)

;; disable jshint since we prefer eslint checking
(setq-default flycheck-disabled-checkers
              (append flycheck-disabled-checkers
                      '(javascript-jshint)))

;; use eslint with web-mode for jsx files
(flycheck-add-mode 'javascript-eslint 'web-mode)

(add-hook 'web-mode-hook
          (lambda ()
            (when (equal web-mode-content-type "jsx")
              ;;enable flycheck
              (flycheck-select-checker 'javascript-eslint)
              (flycheck-mode)
              (yas-minor-mode)
              (message "Loaded jsx specific stuff"))))

(require 'react-snippets)


;; tern

(add-hook 'js-mode-hook (lambda () (tern-mode t)))
(eval-after-load 'tern
  '(progn
     (require 'tern-auto-complete)
     (tern-ac-setup)))

(defun delete-tern-process ()
  (interactive)
  (delete-process "Tern"))

;;(add-hook 'web-mode-hook (lambda () (tern-mode t)))

;;;;;;;;;;;
;; magit ;;
;;;;;;;;;;;

;;(require 'magit-gh-pulls)
;;(add-hook 'magit-mode-hook 'turn-on-magit-gh-pulls)

;;; init.el ends here