howardabrams

#+TITLE:  ${1:`(->> (buffer-file-name)
                    (file-name-base)
                    (s-split-words)
                    (--map (s-capitalize it))
                    (s-join " "))`}
#+AUTHOR: `user-full-name`
#+EMAIL:  `user-mail-address`
#+DATE:   `(format-time-string "%Y-%m-%d")`

howardabrams

Tangling an org-mode file when the :tangle parameter is set to yes, writes each block into a single file based on a language and the name of the org file. In this case, my file is /tmp/example.org, so all Ruby blocks will be written into a single file, /tmp/example.rb. But this can be change as shown below.

Section One

For this example, the :tangle parameter is simply yes, which grabs the defaults:

echo In section one

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

#+NAME: foobar-contents
#+begin_src emacs-lisp
(with-temp-buffer
  (insert-file "/tmp/foobar")
  (buffer-string))
#+end_src

#+RESULTS: foobar-contents
: Curabitur lacinia pulvinar nibh.  Proin neque massa, cursus ut, gravida ut, lobortis eget, lacus.
: Donec at pede.  Curabitur lacinia pulvinar nibh.  Nam euismod tellus id erat.

howardabrams

(defun remote-shell-fav-hosts-get ()
  "My hook to the remote-shell processes in order to connect to
    my OpenStack controller, and create a hashtable of host names as
    the keys, and IP addresses as the values."
  (interactive)

  ;; Run nova list command remotely on this host system, and put the
  ;; results in a temp buffer:
  (let* ((undercloud-controller "10.98.1.145")
         (default-directory    (format "/ssh:%s:" undercloud-controller))

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