.profile

export HISTCONTROL=ignoreboth
export HISTSIZE=5000

export EDITOR="emacs --no-init-file --no-site-file --no-splash"
export SVN_EDITOR=$EDITOR

export RUBYOPT=rubygems

pimp_mah_emacs.el

;;* ;Set Size of the Kill-Ring and other histories that we use constantly
(setq kill-ring-max 500)
(setq extended-command-history-max 50)
(setq query-replace-history-max 50)
(setq replace-string-history-max 50)
(setq file-name-history-max 50)
(setq replace-regex-history-max 50)
(setq minibuffer-history-max 1000)
(setq shell-command-history-max 1000)
(setq find-file-history-max 1000)

(custom-set-variables
 '(enable-recursive-minibuffers t))

; enable syntax highlighting
(global-font-lock-mode 1)

;;; transparency!
;;;;; see http://www.emacswiki.org/emacs/TransparentEmacs
;;;;; also see http://www.emacswiki.org/emacs/CustomizeAquamacs

(defun transparency-set-initial-value ()
  "Set initial value of alpha parameter for the current frame"
  (interactive)
  (if (equal (frame-parameter nil 'alpha) nil)
      (set-frame-parameter nil 'alpha 100)))

(defun transparency-set-value (numb)
  "Set level of transparency for the current frame"
  (interactive "nEnter transparency level in range 0-100: ")
  (if (> numb 100)
      (message "Error! The maximum value for transparency is 100!")
    (if (< numb 0)
        (message "Error! The minimum value for transparency is 0!")
      (set-frame-parameter nil 'alpha numb))))

(defun transparency-increase ()
  "Increase level of transparency for the current frame"
  (interactive)
  (transparency-set-initial-value)
   (if (> (frame-parameter nil 'alpha) 0)
       (set-frame-parameter nil 'alpha (+ (frame-parameter nil 'alpha) -1))
     (message "This is a minimum value of transparency!")))

(defun transparency-decrease ()
  "Decrease level of transparency for the current frame"
  (interactive)
  (transparency-set-initial-value)
  (if (< (frame-parameter nil 'alpha) 100)
      (set-frame-parameter nil 'alpha (+ (frame-parameter nil 'alpha) +1))
    (message "This is a minimum value of transparency!")))

;;;;;; keybinding for transparency manipulation
(global-set-key (kbd "C-?") 'transparency-set-value)
;;;;;; the two below let for smooth transparency control
(global-set-key (kbd "C->") 'transparency-increase)
(global-set-key (kbd "C-<") 'transparency-decrease)

;;;;;; Set initial frame transparency
(setq transparency-level 95)
(transparency-set-value transparency-level)
(add-hook 'after-make-frame-functions (lambda (selected-frame) (set-frame-parameter selected-frame 'alpha transparency-level)))
;;;;;;;; Haven't yet gotten newly-created frames to work with transparency-set-value
;(add-hook 'after-make-frame-functions (lambda (selected-frame) (transparency-set-initial-value)) (lambda (selected-frame) (transparency-set-value 10)))


;; on-the-fly syntax-checking for Ruby

(require 'flymake)

;; ruby-mode
;;; A flymake handler for ruby-mode files
;;;
;;; Author: Steve Purcell
;;; Homepage: http://github.com/purcell/emacs.d/blob/master/site-lisp/flymake-ruby/flymake-ruby.el
;;;

(defvar flymake-ruby-err-line-patterns '(("^\\(.*\\):\\([0-9]+\\): \\(.*\\)$" 1 2 nil 3)))
(defvar flymake-ruby-allowed-file-name-masks '((".+\\.\\(rb\\|rake\\)$" flymake-ruby-init)
                                               ("Rakefile$" flymake-ruby-init)))

;; Not provided by flymake itself, curiously
(defun flymake-create-temp-in-system-tempdir (filename prefix)
  (make-temp-file (or prefix "flymake-ruby")))

;; Invoke ruby with '-c' to get syntax checking
(defun flymake-ruby-init ()
  (list "ruby" (list "-c" (flymake-init-create-temp-buffer-copy
                           'flymake-create-temp-in-system-tempdir))))

(defun flymake-ruby-load ()
  (interactive)
  (set (make-local-variable 'flymake-allowed-file-name-masks) flymake-ruby-allowed-file-name-masks)
  (set (make-local-variable 'flymake-err-line-patterns) flymake-ruby-err-line-patterns)
  (flymake-mode t))

(require 'flymake-ruby)
(add-hook 'ruby-mode-hook 'flymake-ruby-load)

;; Cucumber Mode!
;; see https://github.com/michaelklishin/cucumber.el

(add-to-list 'load-path "~/.emacs.d/elisp/feature-mode")
(require 'feature-mode)
(add-to-list 'auto-mode-alist '("\.feature$" . feature-mode))