howardabrams

alias e='emacsclient -q -a emacs'

EDITOR=emacsclient

function e {
    tmux new-window -a -n "emacs" "$EDITOR $@"
}

function ee {
    tmux split-window "$EDITOR $@"

howardabrams

(defun increment-decrement (amount)
  (let* ((for-number "[0-9][0-9]*")
         (end (re-search-forward for-number))
         (start (match-beginning 0))
         (str (buffer-substring start end))
         (num (+ amount (string-to-number str))))

    (delete-region start end)
    (insert (number-to-string num))
    (goto-char start)))

howardabrams

(defun eshell-here ()
  "Opens up a new shell in the directory associated with the current buffer's file."
  (interactive)
  (let* ((parent (if (buffer-file-name)
                     (file-name-directory (buffer-file-name))
                   default-directory))
         (height (/ (window-total-height) 3))
         (name   (car (last (split-string parent "/" t)))))
    (split-window-vertically (- height))
    (other-window 1)

howardabrams

(defun setup-windows ()
  "Setup my entire Emacs environment. Function is often called when I first start it up."
  (interactive)
  (frame-fullscreen)
  (split-window-horizontally 168)  ;; On this machine, I know how big
  (split-window-horizontally 84)   ;; my monitor is, so ...
  (other-window 2)
  (split-window-vertically)
  (circe-connect-all)              ;; Connect to all my IRC channels
  (twit)                           ;; Start twitter in this window

howardabrams

(defun surround (start end txt)
  "Wraps the specified region (or the current 'symbol / word'
with some textual markers that this function requests from the
user. Opening-type text, like parens and angle-brackets will
insert the matching closing symbol.

This function also supports some org-mode wrappers:

  - `#s` wraps the region in a source code block
  - `#e` wraps it in an example block

howardabrams

(defun surround (start end txt)
  "Wraps the specified region (or the current 'symbol / word'
with some textual markers that this function requests from the
user. Opening-type text, like parens and angle-brackets will
insert the matching closing symbol.

This function also supports some org-mode wrappers:

  - `#s` wraps the region in a source code block
  - `#e` wraps it in an example block

howardabrams

Keybase proof

I hereby claim:

• I am howardabrams on github.
• I am howardabrams (https://keybase.io/howardabrams) on keybase.
• I have a public key whose fingerprint is 2B03 9DE6 5EE1 161B 2807 3888 5B10 2887 E4B9 1525

To claim this, I am signing this object:

howardabrams

;;; SAVE-HOOKS --- Folder Actions on Save
;;
;; Author: Howard Abrams <[email protected]>
;; Copyright © 2015, Howard Abrams, all rights reserved.
;; Created: 18 March 2015
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;;; Commentary:
;;

howardabrams

;;; SAVE-HOOKS --- Folder Actions on Save
;;
;; Author: Howard Abrams <[email protected]>
;; Copyright © 2015, Howard Abrams, all rights reserved.
;; Created: 18 March 2015
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;;; Commentary:
;;

howardabrams

;;  I would like a function that inserts a phrase or paragraph into a
;;  buffer, but that it is looks like it is being typed. This means to
;;  have a slight, but random time delay between each letter. Calling
;;  `sit-for' is sufficient for short sentences (around 140
;;  characters), but anything longer makes the display look like it
;;  hangs until some event, and then the entire results are displayed.
;;
;;  Ideas or thoughts on what to look for?

(defun insert-typewriter (str)