/ergoemacs/init_functions.el

;-*- coding: utf-8 -*-

(defun text-scale-normal-size ()
  "Set the height of the default face in the current buffer to its default value."
  (interactive)
  (text-scale-increase 0))

(defun toggle-line-move-visual ()
  "Toggle behavior of up/down arrow key, by visual line vs logical line."
  (interactive)
  (if line-move-visual
      (setq line-move-visual nil)
    (setq line-move-visual t))
  )

(defun cmd-shell (&optional arg)
  "Run cmd.exe (WinNT) or command.com shell. A numeric prefix
arg switches to the specified session, creating it if necessary."
  (interactive "P")
  (let ((buf-name (cond ((numberp arg)
			 (format "*cmd<%s>*" arg))
			(arg 
			 (generate-new-buffer-name "*cmd*"))
			(t
			 "*cmd*")))
	(explicit-shell-file-name (or (and (w32-using-nt) "cmd.exe")
				      "command.com")))
    (shell buf-name)))

(defun msys-shell (&optional arg)
  "Run MSYS shell (sh.exe).  It's like a Unix Shell in Windows.
A numeric prefix arg switches to the specified session, creating
it if necessary."
  (interactive "P")
  (let ((buf-name (cond ((numberp arg)
			 (format "*msys<%d>*" arg))
			(arg
			 (generate-new-buffer-name "*msys*"))
			(t
			 "*msys*")))
	(explicit-shell-file-name "sh.exe"))
    (shell buf-name)))

(defun soft-wrap-lines ()
  "Make lines wrap at window edge and on word boundary,
in current buffer."
  (interactive)
  (setq truncate-lines nil)
  (setq word-wrap t)
  )

(defun close-frame ()
  "Closes the current frame or kill emacs if there are just one
frame. It simulates the same functionality of the Close button in
the frame title bar."
  (interactive)
  (if multiple-frames
      (delete-frame)
    (save-buffers-kill-terminal)))

(defadvice elisp-index-search (before interactive-default activate)
  "Provide the symbol at point as the default when reading TOPIC interactively."
  (interactive
   (let ((mysymbol (thing-at-point 'symbol)))
     (list (read-string (if mysymbol
                            (format "Topic (%s): " mysymbol)
                          (format "Topic: "))
                        nil nil mysymbol)))))

(defun list-text-editing-modes ()
  "Display a list of all text editing related major modes.

The list includes all major modes for editing programing language
files or such things as BBCode, but does not include major modes
for dired, irc, mail, shell, etc."
  (interactive)
(with-output-to-temp-buffer "*Major Modes for Text Editing*"
  (princ 
         "###############################################
# This is a list of text-editing related major modes that comes with ErgoEmacs.
# The lines are formatted this way:
# ‹purpose/language name› • ‹command name›

# The list is not complete.
# please help by adding modes you use at
# http://code.google.com/p/ergoemacs/issues/detail?id=64

AutoHotKey • xahk-mode
BBCode • xbbcode-mode
Bash • sh-mode
C • c-mode
C++ • c++-mode
CSS • css-mode
Clojure • clojure-mode
Emacs Lisp • emacs-lisp-mode
Erlang • erlang-mode
HTML • html-mode
Haskell • haskell-mode
Java • java-mode
Javascript • js-mode
Javascript • js2-mode
LaTeX • latex-mode
Linden Scripting Language • xlsl-mode
Lua • lua-mode
OCaml • tuareg-mode
PHP • php-mode
Perl • cperl-mode
PowerShell • powershell-mode
Python • python-mode
Ruby • ruby-mode
Scala • scala-mode
TCL • tcl-mode
Visual Basic • visual-basic-mode
XML • nxml-mode
XML • xml-mode
cmd.exe • dos-mode"
         )
  )
  )

(defun toggle-whitespace-setting ()
  "Toggle some display settings for `whitespace-mode'."
  (interactive)
  (let (stateBefore stateAfter (statesList '(0 1)))
    (setq stateBefore (if (get 'toggle-whitespace-setting 'state) (get 'toggle-whitespace-setting 'state) (elt statesList 0)))
    (setq stateAfter (% (+ stateBefore (length statesList) 1) (length statesList)))
    (put 'toggle-whitespace-setting 'state stateAfter)

    (cond
     ((equal stateAfter 0)
      (progn
        (setq whitespace-style '(tabs spaces trailing lines space-before-tab newline indentation empty space-after-tab space-mark tab-mark newline-mark))
        (setq whitespace-display-mappings
              '((space-mark 32 [183] [46])
                (space-mark 160 [164] [95])
                (space-mark 2208 [2212] [95])
                (space-mark 2336 [2340] [95])
                (space-mark 3616 [3620] [95])
                (space-mark 3872 [3876] [95])
                (newline-mark 10 [36 10])
                (tab-mark 9 [187 9] [92 9]))
              )
        (message "whitespace-setting set to default.")
))
     ((equal stateAfter 1)
      (progn
        ;; Make whitespace-mode with very basic background coloring for whitespaces
        (setq whitespace-style '( spaces tabs newline space-mark tab-mark newline-mark ))

        ;; Make whitespace-mode and whitespace-newline-mode use “ś” for end of line char and ? for tab.
        (setq whitespace-display-mappings
              '(
                (space-mark 32 [183] [46]) ; normal space, MIDDLE DOT, FULL STOP.
                (space-mark 160 [164] [95])
                (space-mark 2208 [2212] [95])
                (space-mark 2336 [2340] [95])
                (space-mark 3616 [3620] [95])
                (space-mark 3872 [3876] [95])
                (newline-mark 10 [182 10]) ; newlne
                (tab-mark 9 [9655 9] [92 9]) ; tab
                )) 
        (message "whitespace-setting set to using ? for tab and ś for newline.")
))
     )

    (when global-whitespace-mode (global-whitespace-mode 0) (global-whitespace-mode 1))
    (when whitespace-mode (whitespace-mode 0) (whitespace-mode 1))

    ))