paredit.tex

% Copyright © 2013 Joe Littlejohn, 2008 drenweb.usma.edu
%
% Permission is granted to copy, distribute and/or modify this document
% under the terms of the GNU Free Documentation License, Version 1.3
% or any later version published by the Free Software Foundation;
% with no Invariant Sections, no Front-Cover Texts, and no Back-Cover Texts.
%
% http://www.emacswiki.org/FDL

\documentclass[10pt,landscape,a4paper]{article}

\usepackage{extsizes}
\usepackage[utf8]{inputenc}
\usepackage[landscape,a4paper,margin=0.5cm]{geometry}
\usepackage{multicol}
\usepackage{titlesec}
\usepackage{courier}
\usepackage{color}
\usepackage[usenames]{xcolor}

\title{Paredit Cheatsheet}

% remove paragraph indent and compress spacing
\titleformat{\section}{\normalfont\bfseries}{\thesection}{0em}{}
\titlespacing{\section}{0em}{0.8em}{0.5em}
\setlength{\parskip}{0.1cm plus1mm minus1mm}
\setlength{\parindent}{0cm}

% tabbing environment with less vertical space above & below
\newenvironment{nstabbing}
  {\setlength{\topsep}{-\parskip}%
   \setlength{\partopsep}{0.2em}%
   \tabbing}
  {\endtabbing}

% reduce font size for code examples slightly
\let\oldtt\ttfamily \def\ttfamily{\oldtt\small}

% remove page numbering
\pagenumbering{gobble}

\begin{document}

  \newcommand{\cursor}{\texttt{\textcolor{red}{\textbf{|}}}}

  \begin{multicols}{4}

    \section*{\Large{Paredit Cheatsheet}}

    \section*{\large{Basic Insertion Commands}}

\textbf{paredit-open-round} \texttt{(}

{\ttfamily
(a b \cursor c d)\\
(a b (\cursor) c d)

(foo "bar \cursor baz" quux)\\
(foo "bar (\cursor baz" quux)
}

\textbf{paredit-close-round} \texttt{)}

{\ttfamily
(a b \cursor c \space\space)\\
(a b c)\cursor

; Hello,\cursor{} world\\
; Hello,)\cursor{} world
}

\textbf{paredit-close-round-and-newline} \texttt{M-)}

{\ttfamily
(defun f (x\cursor{} \space))\\
(defun f (x\cursor{} \space)\\
)

; (Foo.\cursor\\
; (Foo.\cursor
}

\textbf{paredit-open-square} \texttt{[}

{\ttfamily
(a b \cursor c d)\\
(a b [\cursor] c d)

(foo "bar \cursor baz" quux)\\
(foo "bar [\cursor baz" quux)
}

\textbf{paredit-close-square} \texttt{]}

{\ttfamily
(define-key keymap [frob\cursor{} \space] 'frobnicate)\\
(define-key keymap [frob]\cursor{} 'frobnicate)

; [Bar.\cursor\\
; [Bar.]\cursor
}

\textbf{paredit-doublequote} \texttt{"}

{\ttfamily
(frob grovel \cursor full lexical)\\
(frob grovel "\cursor " full lexical)

(foo "bar \cursor baz" quux)\\
(foo "bar \textbackslash"\cursor baz" quux)
}

\textbf{paredit-meta-doublequote} \texttt{M-"}

{\ttfamily
\begin{nstabbing}
(foo\={} "bar \cursor baz" quux)\\
(foo "bar baz"\\
\>\cursor quux)
\end{nstabbing}

(foo \cursor(bar \#\textbackslash x "baz \textbackslash\textbackslash{} quux") zot)\\
(foo "\cursor(bar \#\textbackslash\textbackslash x \textbackslash"baz \textbackslash\textbackslash\textbackslash\textbackslash{} quux\textbackslash")" zot)
}

\textbf{paredit-backslash} \texttt{\textbackslash}

{\ttfamily
(string \#\cursor)\\
Escaping character... (x)\\
(string \#\textbackslash x\cursor)

"foo\cursor bar"\\
Escaping character... (")\\
"foo\textbackslash"\cursor bar"
}

\textbf{paredit-comment-dwim} \texttt{M-;}

{\ttfamily
\begin{nstabbing}
(foo \cursor bar) \space ; baz \space \space \space \space \=\\
(foo bar) \>; \cursor baz
\end{nstabbing}

\begin{nstabbing}
(frob grovel)\cursor \space \space \space \space \space \space \space \space\=\\
(frob grovel) \>;\cursor
\end{nstabbing}

\cursor(defun hello-world ...)\\
;;; \cursor\\
(defun hello-world ...)
}

\textbf{paredit-newline} \texttt{C-j}

{\ttfamily
\begin{nstabbing}
(let ((n (frobbotz))) \cursor (display (+n 1)\\
port))
\end{nstabbing}

\begin{nstabbing}
(\=let ((n (f\=robbotz)))\\
\>\cursor (display (+n 1)\\
\>\>
port))
\end{nstabbing}
}

    \section*{\large{Deleting \& Killing}}

\textbf{paredit-forward-delete} \\\texttt{C-d, <delete>, <deletechar>}

{\ttfamily
(quu\cursor{}x "zot")\\
(quu\cursor{} "zot")

(quux \cursor"zot")\\
(quux "\cursor zot")\\
(quux "\cursor ot")

(foo (\cursor) bar)\\
(foo \cursor{} bar)

\cursor(foo bar)\\
(\cursor foo bar)
}

\textbf{paredit-backward-delete} \texttt{DEL}

{\ttfamily
("zot" q\cursor uux)\\
("zot" \cursor uux)

("zot"\cursor{} quux)\\
("zot\cursor" quux)\\
("zo\cursor" quux)

(foo (\cursor) bar)\\
(foo \cursor{} bar)

(foo bar)\cursor\\
(foo bar\cursor)
}

\textbf{paredit-kill} \texttt{C-k}

{\ttfamily
(foo bar)\cursor \space \space \space ; Useless comment!\\
(foo bar)\cursor

(\cursor foo bar) \space \space \space ; Useful comment!\\
(\cursor) \space \space \space ; Useful comment!

\cursor(foo bar) \space \space \space ; Useless line!\\
\cursor

\begin{nstabbing}
(f\=oo "\cursor bar baz"\\
\>quux)\\
(foo "\cursor"\\
\>quux)
\end{nstabbing}
}

\textbf{paredit-forward-kill-word} \texttt{M-d}

{\ttfamily
\cursor(foo bar) \space \space \space ; baz\\
(\cursor{} bar) \space \space \space ; baz\\
(\cursor) \space \space \space ; baz\\
() \space \space \space ;\cursor

;;;\cursor{} Frobnicate\\
(defun frobnicate ...)\\
;;;\cursor\\
(defun frobnicate ...)\\
;;;\\
(\cursor{} frobnicate ...)
}

    \section*{\large{Movement \& Navigation}}

\textbf{paredit-forward} \texttt{C-M-f}

{\ttfamily
(foo \cursor(bar baz) quux)\\
(foo (bar baz)\cursor{} quux)

(foo (bar)\cursor)\\
(foo (bar))\cursor
}

\textbf{paredit-backward} \texttt{C-M-b}

{\ttfamily
(foo (bar baz)\cursor{} quux)\\
(foo \cursor(bar baz) quux)

(\cursor(foo) bar)\\
\cursor((foo) bar)
}

    \section*{\large{Depth-Changing Commands}}

\textbf{paredit-wrap-around} \texttt{M-(}

{\ttfamily
(foo \cursor bar baz)\\
(foo (\cursor bar) baz)
}

\textbf{paredit-splice-sexp} \texttt{M-s}

{\ttfamily
(foo (bar\cursor{} baz) quux)\\
(foo bar\cursor{} baz quux)
}

\textbf{paredit-splice-sexp-killing-backward} \\\texttt{M-<up>, ESC <up>}

{\ttfamily
(foo (let ((x 5)) \cursor(sqrt n)) bar)\\
(foo \cursor(sqrt n) bar)
}

\textbf{paredit-splice-sexp-killing-forward} \\\texttt{M-<down>, ESC <down>}

{\ttfamily
(a (b c\cursor{} d e) f)\\
(a b c\cursor{} f)
}

\textbf{paredit-raise-sexp} \texttt{M-r}

{\ttfamily
(dynamic-wind in (lambda () \cursor body) out)\\
(dynamic-wind in \cursor body out)\\
\cursor body
}

    \section*{\large{Barfage \& Slurpage}}

\textbf{paredit-forward-slurp-sexp} \\\texttt{C-), C-<right>}

{\ttfamily
(foo (bar \cursor baz) quux zot)\\
(foo (bar \cursor baz quux) zot)

(a b ((c\cursor{} d)) e f)\\
(a b ((c\cursor{} d) e) f)
}

\textbf{paredit-forward-barf-sexp} \\\texttt{C-\}, C-<left>}

{\ttfamily
(foo (bar \cursor baz quux) zot)\\
(foo (bar \cursor baz) quux zot)
}

\textbf{paredit-backward-slurp-sexp} \\\texttt{C-(, C-M-<left>, ESC C-<left>}

{\ttfamily
(foo bar (baz\cursor{} quux) zot)\\
(foo (bar\cursor{} baz quux) zot)

(a b ((c\cursor{} d)) e f)\\
(a (b (c\cursor{} d) e) f)
}

\textbf{paredit-backward-barf-sexp} \\\texttt{C-\{, C-M-<right>, ESC C-<right>}

{\ttfamily
(foo (bar baz \cursor quux) zot)\\
(foo bar (baz \cursor quux) zot)
}

    \section*{\large{Miscellaneous Commands}}

\textbf{paredit-split-sexp} \texttt{M-S}

{\ttfamily
(hello\cursor{} world)\\
(hello)\cursor{} (world)

"Hello, \cursor world!"\\
"Hello, "\cursor{} "world!"
}

\textbf{paredit-join-sexp} \texttt{M-J}

{\ttfamily
(hello)\cursor{} (world)\\
(hello\cursor{} world)

"Hello, "\cursor{} "world!"\\
"Hello, \cursor world!"

hello-\\
\cursor \space \space world\\
hello-\cursor world
}

\textbf{paredit-recentre-on-sexp} \texttt{C-c C-M-l}

{\ttfamily
No examples
}

\textbf{paredit-retindent-defun} \texttt{M-q}

{\ttfamily
No examples
}

  \end{multicols}

\end{document}