<!DOCTYPE html>
<html>
<head>
<meta charset="UTF-8">
<title>emacs.el</title>
<meta name="Generator" content="Vim/8.2">
<meta name="plugin-version" content="vim8.1_v2">
<meta name="syntax" content="lisp">
<meta name="settings" content="use_css,pre_wrap,no_foldcolumn,expand_tabs,prevent_copy=,use_input_for_pc=fallback">
<meta name="colorscheme" content="default">
<style>
<!--
pre { white-space: pre-wrap; font-family: monospace; color: #ffffff; background-color: #000000; }
body { font-family: monospace; color: #ffffff; background-color: #000000; }
* { font-size: 1em; }
.Constant { color: #ff6060; }
.Comment { color: #8080ff; }
.Special { color: #ff40ff; }
.Identifier { color: #00ffff; }
.Statement { color: #ffff00; }
-->
</style>
</head>
<body>
<pre id='vimCodeElement'>
<span class="Comment">; ------------------------------------------------------------------------------</span>
<span class="Comment">;; \file .emacs</span>
<span class="Comment">;; \author Sebastien Beaugrand</span>
<span class="Comment">;; \sa <a href="http://beaugrand.chez.com/">http://beaugrand.chez.com/</a></span>
<span class="Comment">;; \copyright CeCILL 2.1 Free Software license</span>
<span class="Comment">; ------------------------------------------------------------------------------</span>
<span class="Comment">; Recharger la configuration : eval-buffer</span>
<span class="Comment">; Accents sur un clavier qwerty : C-\</span>
<span class="Comment">; aspell: apt install aspell-fr</span>
<span class="Comment">; indent: apt install indent</span>
<span class="Comment">; astyle: apt install astyle</span>
<span class="Comment">; w3m : apt install w3m-el</span>
<span class="Comment">; emacs-x11 (--with-x-toolkit=lucid): vi /usr/share/applications/emacs.desktop</span>
<span class="Comment">; Parametres</span>
<span class="Special">(</span><span class="Statement">setq</span> nb-cols <span class="Constant">80</span><span class="Special">)</span>
<span class="Comment">; Deplacements</span>
<span class="Special">(</span>global-set-key [S-right] <span class="Special">'</span><span class="Identifier">other-window</span><span class="Special">)</span>
<span class="Special">(</span>global-set-key [S-left] #<span class="Special">'</span><span class="Special">(</span><span class="Statement">lambda</span> <span class="Special">()</span> <span class="Special">(</span>interactive<span class="Special">)</span> <span class="Special">(</span>other-window -1<span class="Special">))</span><span class="Special">)</span>
<span class="Special">(</span>global-set-key [S-up] #<span class="Special">'</span><span class="Special">(</span><span class="Statement">lambda</span> <span class="Special">()</span> <span class="Special">(</span>interactive<span class="Special">)</span> <span class="Special">(</span>scroll-down 1<span class="Special">))</span><span class="Special">)</span>
<span class="Special">(</span>global-set-key [S-down] #<span class="Special">'</span><span class="Special">(</span><span class="Statement">lambda</span> <span class="Special">()</span> <span class="Special">(</span>interactive<span class="Special">)</span> <span class="Special">(</span>scroll-up 1<span class="Special">))</span><span class="Special">)</span>
<span class="Special">(</span>global-set-key [M-right] #<span class="Special">'</span><span class="Special">(</span><span class="Statement">lambda</span> <span class="Special">()</span> <span class="Special">(</span>interactive<span class="Special">)</span> <span class="Special">(</span>forward-char 1<span class="Special">)</span>
<span class="Special">(</span>scroll-left 1<span class="Special">))</span><span class="Special">)</span>
<span class="Special">(</span>global-set-key [M-left] #<span class="Special">'</span><span class="Special">(</span><span class="Statement">lambda</span> <span class="Special">()</span> <span class="Special">(</span>interactive<span class="Special">)</span> <span class="Special">(</span>backward-char 1<span class="Special">)</span>
<span class="Special">(</span>scroll-right 1<span class="Special">))</span><span class="Special">)</span>
<span class="Special">(</span>global-set-key [\home] <span class="Special">'</span><span class="Identifier">beginning-of-line</span><span class="Special">)</span>
<span class="Special">(</span>global-set-key [\end] <span class="Special">'</span><span class="Identifier">end-of-line</span><span class="Special">)</span>
<span class="Special">(</span>global-set-key [<span class="Special">(</span>meta g<span class="Special">)</span>] <span class="Special">'</span><span class="Identifier">goto-line</span><span class="Special">)</span>
<span class="Special">(</span>mouse-wheel-mode <span class="Statement">t</span><span class="Special">)</span>
<span class="Special">(</span>column-number-mode <span class="Statement">t</span><span class="Special">)</span>
<span class="Special">(</span>show-paren-mode <span class="Statement">t</span><span class="Special">)</span>
<span class="Special">(</span><span class="Statement">setq</span> delete-key-deletes-forward <span class="Statement">t</span><span class="Special">)</span>
<span class="Comment">; Desactiver secondary-selection</span>
<span class="Special">(</span>global-set-key [M-drag-mouse-1] <span class="Special">'</span><span class="Identifier">mouse-set-region</span><span class="Special">)</span>
<span class="Comment">; Apparence</span>
<span class="Special">(</span>tool-bar-mode <span class="Constant">0</span><span class="Special">)</span>
<span class="Special">(</span><span class="Statement">defun</span> frame-setup <span class="Special">()</span>
<span class="Comment">; Résolution</span>
<span class="Special">(</span><span class="Statement">setq</span> x-width <span class="Special">(</span>string-to-number <span class="Special">(</span>shell-command-to-string
<span class="Constant">"xrdb -symbols | grep DWIDTH | cut -d '=' -f 2"</span><span class="Special">)))</span>
<span class="Special">(</span><span class="Statement">setq</span> x-height <span class="Special">(</span>string-to-number <span class="Special">(</span>shell-command-to-string
<span class="Constant">"xrdb -symbols | grep DHEIGHT | cut -d '=' -f 2"</span><span class="Special">)))</span>
<span class="Comment">; Font (-font 6x13 pour du <1920)</span>
<span class="Special">(</span><span class="Statement">if</span> <span class="Special">(</span><span class="Statement"><</span> x-width <span class="Constant">1920</span><span class="Special">)</span>
<span class="Special">(</span><span class="Statement">progn</span> <span class="Special">(</span>set-face-font <span class="Special">'</span><span class="Identifier">default</span> <span class="Constant">"6x13"</span><span class="Special">)</span> <span class="Special">(</span><span class="Statement">setq</span> x-font <span class="Constant">6</span><span class="Special">)</span> <span class="Special">(</span><span class="Statement">setq</span> y-font <span class="Constant">13</span><span class="Special">))</span>
<span class="Special">(</span><span class="Statement">if</span> <span class="Special">(</span><span class="Statement"><</span> x-width <span class="Constant">3840</span><span class="Special">)</span>
<span class="Special">(</span><span class="Statement">progn</span> <span class="Special">(</span>set-face-font <span class="Special">'</span><span class="Identifier">default</span> <span class="Constant">"9x15"</span><span class="Special">)</span> <span class="Special">(</span><span class="Statement">setq</span> x-font <span class="Constant">9</span><span class="Special">)</span> <span class="Special">(</span><span class="Statement">setq</span> y-font <span class="Constant">15</span><span class="Special">))</span>
<span class="Special">(</span><span class="Statement">progn</span>
<span class="Special">(</span>set-face-font <span class="Special">'</span><span class="Identifier">default</span> <span class="Constant">"Monospace 6"</span><span class="Special">)</span>
<span class="Special">(</span><span class="Statement">setq</span> x-font <span class="Constant">14</span><span class="Special">)</span> <span class="Special">(</span><span class="Statement">setq</span> y-font <span class="Constant">31</span><span class="Special">)</span>
<span class="Special">)</span>
<span class="Special">)</span>
<span class="Special">)</span>
<span class="Comment">; Couleurs</span>
<span class="Special">(</span>set-background-color <span class="Constant">"black"</span><span class="Special">)</span>
<span class="Special">(</span>set-foreground-color <span class="Constant">"white"</span><span class="Special">)</span>
<span class="Special">(</span>set-cursor-color <span class="Constant">"white"</span><span class="Special">)</span>
<span class="Special">(</span>set-face-foreground <span class="Special">'</span><span class="Identifier">menu</span> <span class="Constant">"wheat"</span><span class="Special">)</span>
<span class="Special">(</span>set-face-background <span class="Special">'</span><span class="Identifier">menu</span> <span class="Constant">"DarkSlateGray"</span><span class="Special">)</span>
<span class="Special">(</span>set-face-background <span class="Special">'</span><span class="Identifier">scroll-bar</span> <span class="Constant">"DarkSlateGray"</span><span class="Special">)</span>
<span class="Special">(</span>set-face-background <span class="Special">'</span><span class="Identifier">region</span> <span class="Constant">"DarkSlateGray"</span><span class="Special">)</span>
<span class="Special">(</span>add-hook <span class="Special">'</span><span class="Identifier">sh-mode-hook</span> #<span class="Special">'</span><span class="Special">(</span><span class="Statement">lambda</span> <span class="Special">()</span>
<span class="Special">(</span>set-face-foreground 'sh-heredoc <span class="Constant">"wheat"</span><span class="Special">))</span><span class="Special">)</span>
<span class="Special">)</span>
<span class="Special">(</span>frame-setup<span class="Special">)</span>
<span class="Comment">; Encodage des caracteres</span>
<span class="Special">(</span>set-language-environment <span class="Special">'</span><span class="Identifier">UTF-8</span><span class="Special">)</span>
<span class="Comment">; Accents avec un clavier qwerty. Activation et desactivation par C-\</span>
<span class="Special">(</span><span class="Statement">setq</span> default-input-method <span class="Constant">"french-postfix"</span><span class="Special">)</span>
<span class="Comment">; Supplements</span>
<span class="Special">(</span><span class="Statement">if</span> <span class="Special">(</span>file-exists-p <span class="Constant">"~/.emacs-plus"</span><span class="Special">)</span> <span class="Special">(</span><span class="Statement">load</span> <span class="Constant">"~/.emacs-plus"</span><span class="Special">))</span>
<span class="Comment">; Taille et position de la fenetre (-geometry 255x73+54+0 pour du 1680x1050)</span>
<span class="Special">(</span><span class="Statement">setq</span> win-num <span class="Constant">1</span><span class="Special">)</span>
<span class="Special">(</span><span class="Statement">setq</span> win-edge <span class="Constant">6</span><span class="Special">)</span>
<span class="Special">(</span><span class="Statement">setq</span> win-ypos <span class="Constant">0</span><span class="Special">)</span>
<span class="Special">(</span><span class="Statement">setq</span> win-num <span class="Special">(</span><span class="Statement">truncate</span> <span class="Special">(</span><span class="Statement">/</span> x-width <span class="Special">(</span><span class="Statement">*</span> x-font nb-cols<span class="Special">))))</span>
<span class="Special">(</span><span class="Statement">if</span> <span class="Special">(</span> <span class="Statement">=</span> x-width <span class="Constant">1024</span><span class="Special">)</span> <span class="Special">(</span><span class="Statement">progn</span> <span class="Special">(</span>set-scroll-bar-mode <span class="Statement">nil</span><span class="Special">)</span> <span class="Special">(</span><span class="Statement">setq</span> win-edge <span class="Constant">3</span><span class="Special">)))</span>
<span class="Special">(</span><span class="Statement">if</span> <span class="Special">(</span> <span class="Statement">=</span> x-width <span class="Constant">1920</span><span class="Special">)</span> <span class="Special">(</span><span class="Statement">setq</span> win-edge <span class="Constant">4</span><span class="Special">))</span>
<span class="Special">(</span><span class="Statement">if</span> <span class="Special">(</span><span class="Statement">></span> x-width <span class="Constant">1920</span><span class="Special">)</span> <span class="Special">(</span><span class="Statement">setq</span> win-edge <span class="Constant">4</span><span class="Special">))</span>
<span class="Special">(</span><span class="Statement">if</span> <span class="Special">(</span><span class="Statement">></span> x-width <span class="Constant">1920</span><span class="Special">)</span> <span class="Special">(</span><span class="Statement">setq</span> win-ypos <span class="Constant">64</span><span class="Special">))</span>
<span class="Special">(</span><span class="Statement">if</span> <span class="Special">(</span><span class="Statement">></span> win-num <span class="Constant">1</span><span class="Special">)</span> <span class="Special">(</span><span class="Statement">progn</span>
<span class="Special">(</span><span class="Statement">setq</span> win-width <span class="Special">(</span><span class="Statement">+</span> <span class="Special">(</span><span class="Statement">*</span> nb-cols win-num<span class="Special">)</span> <span class="Special">(</span><span class="Statement">*</span> win-edge <span class="Special">(</span><span class="Statement">-</span> win-num <span class="Constant">1</span><span class="Special">))))</span>
<span class="Special">(</span><span class="Statement">setq</span> win-height <span class="Special">(</span><span class="Statement">/</span> <span class="Special">(</span><span class="Statement">-</span> x-height <span class="Constant">75</span><span class="Special">)</span> y-font<span class="Special">))</span>
<span class="Special">(</span><span class="Statement">setq</span> win-xpos <span class="Special">(</span><span class="Statement">-</span> x-width <span class="Special">(</span><span class="Statement">*</span> <span class="Special">(</span><span class="Statement">+</span> win-width <span class="Special">(</span><span class="Statement">+</span> win-edge <span class="Constant">1</span><span class="Special">))</span> x-font<span class="Special">)))</span>
<span class="Special">(</span><span class="Statement">random</span> <span class="Statement">t</span><span class="Special">)</span>
<span class="Special">(</span><span class="Statement">setq</span> win-xpos <span class="Special">(</span><span class="Statement">random</span> win-xpos<span class="Special">))</span>
<span class="Special">(</span><span class="Statement">setq</span> initial-frame-alist <span class="Special">(</span><span class="Statement">list</span>
<span class="Special">(</span><span class="Statement">cons</span> <span class="Special">'</span><span class="Identifier">top</span> win-ypos<span class="Special">)</span>
<span class="Special">(</span><span class="Statement">cons</span> <span class="Special">'</span><span class="Identifier">left</span> win-xpos<span class="Special">)</span>
<span class="Special">(</span><span class="Statement">cons</span> <span class="Special">'</span><span class="Identifier">width</span> win-width<span class="Special">)</span>
<span class="Special">(</span><span class="Statement">cons</span> <span class="Special">'</span><span class="Identifier">height</span> win-height<span class="Special">)))</span>
<span class="Special">))</span>
<span class="Comment">; Titre de la fenetre</span>
<span class="Special">(</span><span class="Statement">setq</span> frame-title-format <span class="Constant">"Emacs"</span><span class="Special">)</span>
<span class="Comment">; Curseur non clignotant</span>
<span class="Special">(</span>blink-cursor-mode <span class="Constant">0</span><span class="Special">)</span>
<span class="Comment">; Cloche silencieuse</span>
<span class="Special">(</span><span class="Statement">setq</span> visible-bell <span class="Statement">t</span><span class="Special">)</span>
<span class="Comment">; Remplacement des tabulations par des espaces</span>
<span class="Special">(</span><span class="Statement">defun</span> indent-setup <span class="Special">(</span>num<span class="Special">)</span>
<span class="Special">(</span><span class="Statement">setq</span> c-default-style <span class="Constant">"linux"</span><span class="Special">)</span>
<span class="Special">(</span><span class="Statement">if</span> <span class="Special">(</span><span class="Statement">and</span> <span class="Special">(</span><span class="Statement">boundp</span> <span class="Special">'</span><span class="Identifier">c-buffer-is-cc-mode</span><span class="Special">)</span> c-buffer-is-cc-mode<span class="Special">)</span>
<span class="Special">(</span>c-set-style <span class="Constant">"linux"</span><span class="Special">))</span>
<span class="Special">(</span><span class="Statement">setq</span> c-basic-offset num<span class="Special">)</span>
<span class="Special">(</span><span class="Statement">setq</span> indent-tabs-mode <span class="Statement">nil</span><span class="Special">)</span>
<span class="Special">(</span><span class="Statement">setq</span> tab-width num<span class="Special">)</span>
<span class="Special">)</span>
<span class="Special">(</span><span class="Statement">defun</span> indent2 <span class="Special">()</span>
<span class="Special">(</span>interactive<span class="Special">)</span>
<span class="Special">(</span>indent-setup <span class="Constant">2</span><span class="Special">)</span>
<span class="Special">)</span>
<span class="Special">(</span><span class="Statement">defun</span> indent4 <span class="Special">()</span>
<span class="Special">(</span>interactive<span class="Special">)</span>
<span class="Special">(</span>indent-setup <span class="Constant">4</span><span class="Special">)</span>
<span class="Special">)</span>
<span class="Special">(</span><span class="Statement">defun</span> tabwidth4 <span class="Special">()</span>
<span class="Special">(</span>interactive<span class="Special">)</span>
<span class="Special">(</span><span class="Statement">setq</span> tab-width <span class="Constant">4</span><span class="Special">)</span>
<span class="Special">)</span>
<span class="Special">(</span>add-hook <span class="Special">'</span><span class="Identifier">makefile-mode-hook</span> <span class="Special">'</span><span class="Identifier">tabwidth4</span><span class="Special">)</span>
<span class="Special">(</span>add-hook <span class="Special">'</span><span class="Identifier">c++-mode-hook</span> <span class="Special">'</span><span class="Identifier">indent4</span><span class="Special">)</span>
<span class="Special">(</span>add-hook <span class="Special">'</span><span class="Identifier">c-mode-hook</span> <span class="Special">'</span><span class="Identifier">indent4</span><span class="Special">)</span>
<span class="Special">(</span>add-hook <span class="Special">'</span><span class="Identifier">sh-mode-hook</span> <span class="Special">'</span><span class="Identifier">indent4</span><span class="Special">)</span>
<span class="Special">(</span>add-hook <span class="Special">'</span><span class="Identifier">php-mode-hook</span> <span class="Special">'</span><span class="Identifier">indent4</span><span class="Special">)</span>
<span class="Special">(</span>add-hook <span class="Special">'</span><span class="Identifier">js-mode-hook</span> <span class="Special">'</span><span class="Identifier">indent2</span><span class="Special">)</span>
<span class="Special">(</span>add-hook <span class="Special">'</span><span class="Identifier">javascript-mode-hook</span> <span class="Special">'</span><span class="Identifier">indent2</span><span class="Special">)</span>
<span class="Special">(</span>add-hook <span class="Special">'</span><span class="Identifier">nxhtml-mumamo-mode-hook</span> <span class="Special">'</span><span class="Identifier">indent4</span><span class="Special">)</span>
<span class="Special">(</span>add-hook <span class="Special">'</span><span class="Identifier">cmake-mode-hook</span> <span class="Special">'</span><span class="Identifier">indent4</span><span class="Special">)</span>
<span class="Special">(</span><span class="Statement">setq</span> cmake-tab-width <span class="Constant">4</span><span class="Special">)</span>
<span class="Special">(</span><span class="Statement">setq</span> js-indent-level <span class="Constant">2</span><span class="Special">)</span>
<span class="Comment">; Suppression des espaces en fin de ligne a l'enregistrement</span>
<span class="Special">(</span>add-hook <span class="Special">'</span><span class="Identifier">c++-mode-hook</span> #<span class="Special">'</span><span class="Special">(</span><span class="Statement">lambda</span> <span class="Special">()</span>
<span class="Special">(</span>add-hook 'write-contents-hooks 'delete-trailing-whitespace <span class="Statement">nil</span> <span class="Statement">t</span><span class="Special">))</span><span class="Special">)</span>
<span class="Special">(</span>add-hook <span class="Special">'</span><span class="Identifier">c-mode-hook</span> #<span class="Special">'</span><span class="Special">(</span><span class="Statement">lambda</span> <span class="Special">()</span>
<span class="Special">(</span>add-hook 'write-contents-hooks 'delete-trailing-whitespace <span class="Statement">nil</span> <span class="Statement">t</span><span class="Special">))</span><span class="Special">)</span>
<span class="Special">(</span>add-hook <span class="Special">'</span><span class="Identifier">sh-mode-hook</span> #<span class="Special">'</span><span class="Special">(</span><span class="Statement">lambda</span> <span class="Special">()</span>
<span class="Special">(</span>add-hook 'write-contents-hooks 'delete-trailing-whitespace <span class="Statement">nil</span> <span class="Statement">t</span><span class="Special">))</span><span class="Special">)</span>
<span class="Special">(</span>add-hook <span class="Special">'</span><span class="Identifier">js-mode-hook</span> #<span class="Special">'</span><span class="Special">(</span><span class="Statement">lambda</span> <span class="Special">()</span>
<span class="Special">(</span>add-hook 'write-contents-hooks 'delete-trailing-whitespace <span class="Statement">nil</span> <span class="Statement">t</span><span class="Special">))</span><span class="Special">)</span>
<span class="Comment">; HTML / PHP / JavaScript</span>
<span class="Special">(</span>autoload <span class="Special">'</span><span class="Identifier">php-mode</span> <span class="Constant">"php-mode"</span> <span class="Statement">nil</span> <span class="Statement">t</span><span class="Special">)</span>
<span class="Special">(</span>autoload <span class="Special">'</span><span class="Identifier">javascript-mode</span> <span class="Constant">"javascript"</span> <span class="Statement">nil</span> <span class="Statement">t</span><span class="Special">)</span>
<span class="Special">(</span>autoload <span class="Special">'</span><span class="Identifier">nxhtml-mumamo-mode</span> <span class="Constant">"nxhtml/autostart.el"</span> <span class="Statement">nil</span> <span class="Statement">t</span><span class="Special">)</span>
<span class="Special">(</span>add-hook <span class="Special">'</span><span class="Identifier">nxhtml-mumamo-mode-hook</span> #<span class="Special">'</span><span class="Special">(</span><span class="Statement">lambda</span> <span class="Special">()</span>
<span class="Special">(</span><span class="Statement">setq</span> mumamo-background-colors <span class="Statement">nil</span><span class="Special">)</span>
<span class="Special">(</span>font-lock-mode 0<span class="Special">)</span>
<span class="Special">(</span>font-lock-mode 1<span class="Special">))</span><span class="Special">)</span>
<span class="Comment">; Modes</span>
<span class="Special">(</span>add-to-list <span class="Special">'</span><span class="Identifier">auto-mode-alist</span> <span class="Special">'</span><span class="Special">(</span> <span class="Constant">".php$"</span> . php-mode<span class="Special">)</span><span class="Special">)</span>
<span class="Special">(</span>add-to-list <span class="Special">'</span><span class="Identifier">auto-mode-alist</span> <span class="Special">'</span><span class="Special">(</span><span class="Constant">".wsdl$"</span> . sgml-mode<span class="Special">)</span><span class="Special">)</span>
<span class="Special">(</span>add-to-list <span class="Special">'</span><span class="Identifier">auto-mode-alist</span> <span class="Special">'</span><span class="Special">(</span> <span class="Constant">".xsd$"</span> . sgml-mode<span class="Special">)</span><span class="Special">)</span>
<span class="Special">(</span>add-to-list <span class="Special">'</span><span class="Identifier">auto-mode-alist</span> <span class="Special">'</span><span class="Special">(</span> <span class="Constant">".pro$"</span> . makefile-mode<span class="Special">)</span><span class="Special">)</span>
<span class="Special">(</span>add-to-list <span class="Special">'</span><span class="Identifier">auto-mode-alist</span> <span class="Special">'</span><span class="Special">(</span> <span class="Constant">".pri$"</span> . makefile-mode<span class="Special">)</span><span class="Special">)</span>
<span class="Special">(</span>add-to-list <span class="Special">'</span><span class="Identifier">auto-mode-alist</span> <span class="Special">'</span><span class="Special">(</span> <span class="Constant">"Makefile"</span> . makefile-mode<span class="Special">)</span><span class="Special">)</span>
<span class="Comment">; Indent</span>
<span class="Special">(</span><span class="Statement">defun</span> indent <span class="Special">(</span>pmin pmax<span class="Special">)</span>
<span class="Special">(</span>interactive <span class="Constant">"r"</span><span class="Special">)</span>
<span class="Special">(</span>shell-command-on-region pmin pmax
<span class="Constant">"indent -orig -l80 -npsl -cdw -nut -c0 -cd0"</span>
<span class="Special">(</span>current-buffer<span class="Special">)</span> <span class="Statement">t</span> <span class="Special">(</span>get-buffer-create <span class="Constant">"*Indent Errors*"</span><span class="Special">)</span> <span class="Statement">t</span><span class="Special">))</span>
<span class="Comment">; Artistic Style</span>
<span class="Special">(</span><span class="Statement">defun</span> astyle <span class="Special">(</span>pmin pmax<span class="Special">)</span>
<span class="Special">(</span>interactive <span class="Constant">"r"</span><span class="Special">)</span>
<span class="Special">(</span>shell-command-on-region pmin pmax <span class="Constant">"astyle -apUc"</span>
<span class="Special">(</span>current-buffer<span class="Special">)</span> <span class="Statement">t</span> <span class="Special">(</span>get-buffer-create <span class="Constant">"*Astyle Errors*"</span><span class="Special">)</span> <span class="Statement">t</span><span class="Special">))</span>
<span class="Comment">; Uncrustify</span>
<span class="Special">(</span><span class="Statement">defun</span> uncrustify <span class="Special">(</span>pmin pmax<span class="Special">)</span>
<span class="Special">(</span>interactive <span class="Constant">"r"</span><span class="Special">)</span>
<span class="Special">(</span>shell-command-on-region pmin pmax <span class="Constant">"uncrustify -q -l CPP -c ~/.uncrustify.cfg"</span>
<span class="Special">(</span>current-buffer<span class="Special">)</span> <span class="Statement">t</span> <span class="Special">(</span>get-buffer-create <span class="Constant">"*Uncrustify Errors*"</span><span class="Special">)</span> <span class="Statement">t</span><span class="Special">))</span>
<span class="Comment">; Commandes shell</span>
<span class="Special">(</span>autoload <span class="Special">'</span><span class="Identifier">dired-run-shell-command</span> <span class="Constant">"dired-aux"</span> <span class="Statement">nil</span> <span class="Statement">t</span><span class="Special">)</span>
<span class="Special">(</span><span class="Statement">defun</span> purge <span class="Special">()</span> <span class="Special">(</span>interactive<span class="Special">)</span> <span class="Special">(</span>dired-run-shell-command <span class="Constant">"rm -fv *~"</span><span class="Special">))</span>
<span class="Special">(</span><span class="Statement">defun</span> make <span class="Special">()</span> <span class="Special">(</span>interactive<span class="Special">)</span> <span class="Special">(</span>dired-run-shell-command <span class="Constant">"make &"</span><span class="Special">))</span>
<span class="Comment">; Web</span>
<span class="Special">(</span><span class="Statement">provide</span> <span class="Special">'</span><span class="Identifier">w3m-e23</span><span class="Special">)</span>
<span class="Special">(</span>autoload <span class="Special">'</span><span class="Identifier">w3m</span> <span class="Constant">"w3m-load"</span> <span class="Statement">nil</span> <span class="Statement">t</span><span class="Special">)</span>
<span class="Special">(</span>autoload <span class="Special">'</span><span class="Identifier">w3m-find-coding-system</span> <span class="Constant">"w3m-e21"</span> <span class="Statement">nil</span> <span class="Statement">t</span><span class="Special">)</span>
<span class="Special">(</span><span class="Statement">setq</span> w3m-use-cookies <span class="Statement">t</span><span class="Special">)</span>
<span class="Comment">; Une, deux, ou trois fenetres</span>
<span class="Special">(</span><span class="Statement">defun</span> after-make-frame <span class="Special">(</span>frame<span class="Special">)</span>
<span class="Special">(</span>select-frame frame<span class="Special">)</span>
<span class="Special">(</span>frame-setup<span class="Special">)</span>
<span class="Special">(</span><span class="Statement">setq</span> win-width <span class="Special">(</span><span class="Statement">+</span> <span class="Special">(</span><span class="Statement">*</span> nb-cols num<span class="Special">)</span> <span class="Special">(</span><span class="Statement">*</span> win-edge <span class="Special">(</span><span class="Statement">-</span> num <span class="Constant">1</span><span class="Special">))))</span>
<span class="Special">(</span>set-frame-position frame win-xpos win-ypos<span class="Special">)</span>
<span class="Special">(</span>set-frame-size frame win-width win-height<span class="Special">)</span>
<span class="Special">(</span><span class="Statement">if</span> <span class="Special">(</span><span class="Statement">></span> num <span class="Constant">2</span><span class="Special">)</span>
<span class="Special">(</span>split-window <span class="Special">(</span>selected-window<span class="Special">)</span> <span class="Special">(</span><span class="Statement">*</span> <span class="Special">(</span><span class="Statement">+</span> nb-cols win-edge<span class="Special">)</span> <span class="Constant">2</span><span class="Special">)</span> <span class="Statement">t</span> <span class="Statement">nil</span><span class="Special">))</span>
<span class="Special">(</span><span class="Statement">if</span> <span class="Special">(</span><span class="Statement">></span> num <span class="Constant">1</span><span class="Special">)</span>
<span class="Special">(</span>split-window <span class="Special">(</span>selected-window<span class="Special">)</span> <span class="Special">(</span><span class="Statement">+</span> nb-cols win-edge<span class="Special">)</span> <span class="Statement">t</span> <span class="Statement">nil</span><span class="Special">))</span>
<span class="Special">(</span>delete-frame <span class="Special">(</span>previous-frame<span class="Special">))</span>
<span class="Special">)</span>
<span class="Special">(</span>global-set-key [f1] #<span class="Special">'</span><span class="Special">(</span><span class="Statement">lambda</span> <span class="Special">()</span> <span class="Special">(</span>interactive<span class="Special">)</span>
<span class="Special">(</span><span class="Statement">setq</span> after-make-frame-functions 'after-make-frame<span class="Special">)</span>
<span class="Special">(</span><span class="Statement">setq</span> num 1<span class="Special">)</span> <span class="Special">(</span><span class="Statement">if</span> <span class="Special">(</span><span class="Statement"><</span> win-num num<span class="Special">)</span> <span class="Special">(</span><span class="Statement">setq</span> num win-num<span class="Special">))</span>
<span class="Special">(</span>make-frame<span class="Special">)</span>
<span class="Special">)</span><span class="Special">)</span>
<span class="Special">(</span>global-set-key [f2] #<span class="Special">'</span><span class="Special">(</span><span class="Statement">lambda</span> <span class="Special">()</span> <span class="Special">(</span>interactive<span class="Special">)</span>
<span class="Special">(</span><span class="Statement">setq</span> after-make-frame-functions 'after-make-frame<span class="Special">)</span>
<span class="Special">(</span><span class="Statement">setq</span> num 2<span class="Special">)</span> <span class="Special">(</span><span class="Statement">if</span> <span class="Special">(</span><span class="Statement"><</span> win-num num<span class="Special">)</span> <span class="Special">(</span><span class="Statement">setq</span> num win-num<span class="Special">))</span>
<span class="Special">(</span>make-frame<span class="Special">)</span>
<span class="Special">)</span><span class="Special">)</span>
<span class="Special">(</span>global-set-key [f3] #<span class="Special">'</span><span class="Special">(</span><span class="Statement">lambda</span> <span class="Special">()</span> <span class="Special">(</span>interactive<span class="Special">)</span>
<span class="Special">(</span><span class="Statement">setq</span> after-make-frame-functions 'after-make-frame<span class="Special">)</span>
<span class="Special">(</span><span class="Statement">setq</span> num 3<span class="Special">)</span> <span class="Special">(</span><span class="Statement">if</span> <span class="Special">(</span><span class="Statement"><</span> win-num num<span class="Special">)</span> <span class="Special">(</span><span class="Statement">setq</span> num win-num<span class="Special">))</span>
<span class="Special">(</span>make-frame<span class="Special">)</span>
<span class="Special">)</span><span class="Special">)</span>
<span class="Comment">; Sauvegarde des positions dans les fichiers utilises</span>
<span class="Special">(</span><span class="Statement">require</span> <span class="Special">'</span><span class="Identifier">saveplace</span><span class="Special">)</span>
<span class="Special">(</span>setq-default save-place <span class="Statement">t</span><span class="Special">)</span>
<span class="Comment">; Sauvegarde des derniers noms de fichiers utilises</span>
<span class="Special">(</span><span class="Statement">defun</span> save-prev-buffer-file-name <span class="Special">()</span>
<span class="Special">(</span>other-window <span class="Constant">-1</span><span class="Special">)</span>
<span class="Special">(</span><span class="Statement">if</span> buffer-file-name <span class="Special">(</span><span class="Statement">progn</span>
<span class="Special">(</span><span class="Statement">setq</span> list-buffers <span class="Special">(</span><span class="Statement">cons</span> <span class="Special">(</span><span class="Statement">list</span> buffer-file-name<span class="Special">)</span> list-buffers<span class="Special">))</span>
<span class="Special">(</span>kill-this-buffer<span class="Special">)</span>
<span class="Special">))</span>
<span class="Special">)</span>
<span class="Special">(</span>add-hook <span class="Special">'</span><span class="Identifier">kill-emacs-hook</span> #<span class="Special">'</span><span class="Special">(</span><span class="Statement">lambda</span> <span class="Special">()</span>
<span class="Special">(</span>select-window <span class="Special">(</span>window-at 0 0<span class="Special">))</span>
<span class="Special">(</span><span class="Statement">setq</span> list-buffers <span class="Statement">nil</span><span class="Special">)</span>
<span class="Special">(</span><span class="Statement">if</span> <span class="Special">(</span><span class="Statement">></span> win-num 2<span class="Special">)</span> <span class="Special">(</span>save-prev-buffer-file-name<span class="Special">))</span>
<span class="Special">(</span><span class="Statement">if</span> <span class="Special">(</span><span class="Statement">></span> win-num 1<span class="Special">)</span> <span class="Special">(</span>save-prev-buffer-file-name<span class="Special">))</span>
<span class="Special">(</span>save-prev-buffer-file-name<span class="Special">)</span>
<span class="Special">(</span>set-buffer <span class="Special">(</span>get-buffer-create <span class="Constant">"*Saved Last*"</span><span class="Special">))</span>
<span class="Special">(</span>delete-region <span class="Special">(</span>point-min<span class="Special">)</span> <span class="Special">(</span>point-max<span class="Special">))</span>
<span class="Special">(</span><span class="Statement">print</span> list-buffers <span class="Special">(</span>current-buffer<span class="Special">))</span>
<span class="Special">(</span>write-region <span class="Special">(</span>point-min<span class="Special">)</span> <span class="Special">(</span>point-max<span class="Special">)</span> <span class="Constant">"~/.emacs-last"</span><span class="Special">)</span>
<span class="Special">)</span><span class="Special">)</span>
<span class="Comment">; Chargement des derniers fichiers utilises</span>
<span class="Special">(</span>global-set-key [f4] #<span class="Special">'</span><span class="Special">(</span><span class="Statement">lambda</span> <span class="Special">()</span> <span class="Special">(</span>interactive<span class="Special">)</span>
<span class="Special">(</span><span class="Statement">if</span> <span class="Special">(</span>file-readable-p <span class="Constant">"~/.emacs-last"</span><span class="Special">)</span> <span class="Special">(</span><span class="Statement">progn</span>
<span class="Special">(</span>delete-other-windows<span class="Special">)</span>
<span class="Special">(</span>find-file <span class="Constant">"~/.emacs-last"</span><span class="Special">)</span>
<span class="Special">(</span><span class="Statement">setq</span> last-buffers
<span class="Special">(</span><span class="Statement">car</span> <span class="Special">(</span><span class="Statement">read-from-string</span> <span class="Special">(</span>buffer-substring <span class="Special">(</span>point-min<span class="Special">)</span> <span class="Special">(</span>point-max<span class="Special">)))))</span>
<span class="Special">(</span>kill-buffer <span class="Constant">".emacs-last"</span><span class="Special">)</span>
<span class="Special">(</span><span class="Statement">if</span> <span class="Special">(</span><span class="Statement">></span> win-num 2<span class="Special">)</span>
<span class="Special">(</span><span class="Statement">progn</span>
<span class="Special">(</span><span class="Statement">if</span> <span class="Special">(</span><span class="Statement">caar</span> <span class="Special">(</span><span class="Statement">cddr</span> last-buffers<span class="Special">))</span> <span class="Special">(</span>find-file <span class="Special">(</span><span class="Statement">caar</span> <span class="Special">(</span><span class="Statement">cddr</span> last-buffers<span class="Special">))))</span>
<span class="Special">(</span>split-window <span class="Special">(</span>selected-window<span class="Special">)</span> <span class="Special">(</span><span class="Statement">*</span> <span class="Special">(</span><span class="Statement">+</span> nb-cols win-edge<span class="Special">)</span> 2<span class="Special">)</span> 1<span class="Special">)</span>
<span class="Special">)</span>
<span class="Special">)</span>
<span class="Special">(</span><span class="Statement">if</span> <span class="Special">(</span><span class="Statement">></span> win-num 1<span class="Special">)</span>
<span class="Special">(</span><span class="Statement">progn</span>
<span class="Special">(</span><span class="Statement">if</span> <span class="Special">(</span><span class="Statement">car</span> <span class="Special">(</span><span class="Statement">cadr</span> last-buffers<span class="Special">))</span> <span class="Special">(</span>find-file <span class="Special">(</span><span class="Statement">car</span> <span class="Special">(</span><span class="Statement">cadr</span> last-buffers<span class="Special">))))</span>
<span class="Special">(</span>split-window <span class="Special">(</span>selected-window<span class="Special">)</span> <span class="Special">(</span><span class="Statement">+</span> nb-cols win-edge<span class="Special">)</span> 1<span class="Special">)</span>
<span class="Special">)</span>
<span class="Special">)</span>
<span class="Special">(</span><span class="Statement">if</span> <span class="Special">(</span><span class="Statement">caar</span> last-buffers<span class="Special">)</span> <span class="Special">(</span>find-file <span class="Special">(</span><span class="Statement">caar</span> last-buffers<span class="Special">)))</span>
<span class="Special">))</span>
<span class="Special">)</span><span class="Special">)</span>
<span class="Comment">; Buffer precedent</span>
<span class="Special">(</span><span class="Statement">setq</span> last-prev-buffer <span class="Statement">nil</span><span class="Special">)</span>
<span class="Special">(</span>global-set-key [f5] #<span class="Special">'</span><span class="Special">(</span><span class="Statement">lambda</span> <span class="Special">()</span> <span class="Special">(</span>interactive<span class="Special">)</span>
<span class="Special">(</span><span class="Statement">setq</span> last-prev-buffer <span class="Special">(</span>current-buffer<span class="Special">))</span>
<span class="Special">(</span>switch-to-buffer <span class="Special">(</span>other-buffer<span class="Special">))</span>
<span class="Special">)</span><span class="Special">)</span>
<span class="Special">(</span>global-set-key [f6] #<span class="Special">'</span><span class="Special">(</span><span class="Statement">lambda</span> <span class="Special">()</span> <span class="Special">(</span>interactive<span class="Special">)</span>
<span class="Special">(</span>switch-to-buffer <span class="Special">(</span>other-buffer last-prev-buffer<span class="Special">))</span>
<span class="Special">)</span><span class="Special">)</span>
<span class="Comment">; Ajustements des fenetres</span>
<span class="Special">(</span>global-set-key [f7] <span class="Special">'</span><span class="Identifier">shrink-window-horizontally</span><span class="Special">)</span>
<span class="Special">(</span>global-set-key [f8] <span class="Special">'</span><span class="Identifier">enlarge-window-horizontally</span><span class="Special">)</span>
<span class="Comment">; Justification</span>
<span class="Special">(</span><span class="Statement">defun</span> justify-buffer <span class="Special">()</span>
<span class="Special">(</span><span class="Statement">if</span> mark-active
<span class="Special">(</span><span class="Statement">progn</span> <span class="Special">(</span><span class="Statement">setq</span> <span class="Statement">min</span> <span class="Special">(</span>mark<span class="Special">))</span>
<span class="Special">(</span><span class="Statement">setq</span> <span class="Statement">max</span> <span class="Special">(</span>point<span class="Special">)))</span>
<span class="Special">)</span>
<span class="Special">(</span>fill-region <span class="Statement">min</span> <span class="Statement">max</span><span class="Special">)</span>
<span class="Special">)</span>
<span class="Special">(</span>global-set-key [f10] #<span class="Special">'</span><span class="Special">(</span><span class="Statement">lambda</span> <span class="Special">()</span> <span class="Special">(</span>interactive<span class="Special">)</span>
<span class="Special">(</span>justify-buffer<span class="Special">)</span>
<span class="Special">)</span><span class="Special">)</span>
<span class="Comment">; Largeur du texte</span>
<span class="Special">(</span>add-hook <span class="Special">'</span><span class="Identifier">tex-mode-hook</span> #<span class="Special">'</span><span class="Special">(</span><span class="Statement">lambda</span> <span class="Special">()</span>
<span class="Special">(</span><span class="Statement">setq</span> fill-column nb-cols<span class="Special">)</span> <span class="Special">(</span>auto-fill-mode 1<span class="Special">))</span><span class="Special">)</span>
<span class="Special">(</span>add-hook <span class="Special">'</span><span class="Identifier">text-mode-hook</span> #<span class="Special">'</span><span class="Special">(</span><span class="Statement">lambda</span> <span class="Special">()</span>
<span class="Special">(</span><span class="Statement">setq</span> fill-column nb-cols<span class="Special">)</span> <span class="Special">(</span>auto-fill-mode 1<span class="Special">))</span><span class="Special">)</span>
<span class="Comment">; Orthographe</span>
<span class="Special">(</span><span class="Statement">setq</span> flyspell-mode <span class="Statement">nil</span><span class="Special">)</span>
<span class="Special">(</span>unify-8859-on-encoding-mode <span class="Constant">1</span><span class="Special">)</span>
<span class="Special">(</span>unify-8859-on-decoding-mode <span class="Constant">1</span><span class="Special">)</span>
<span class="Special">(</span><span class="Statement">setq</span> ispell-program-name <span class="Constant">"aspell"</span><span class="Special">)</span>
<span class="Special">(</span><span class="Statement">setq</span> ispell-dictionary <span class="Constant">"francais"</span><span class="Special">)</span>
<span class="Special">(</span><span class="Statement">setq</span> flyspell-large-region <span class="Constant">10000</span><span class="Special">)</span>
<span class="Special">(</span>global-set-key [f11] #<span class="Special">'</span><span class="Special">(</span><span class="Statement">lambda</span> <span class="Special">()</span> <span class="Special">(</span>interactive<span class="Special">)</span>
<span class="Special">(</span><span class="Statement">if</span> flyspell-mode
<span class="Special">(</span>flyspell-mode 0<span class="Special">)</span>
<span class="Special">(</span><span class="Statement">progn</span>
<span class="Special">(</span>flyspell-mode 1<span class="Special">)</span>
<span class="Special">(</span><span class="Statement">if</span> mark-active
<span class="Special">(</span>flyspell-region <span class="Special">(</span>mark<span class="Special">)</span> <span class="Special">(</span>point<span class="Special">))</span>
<span class="Special">(</span>flyspell-buffer<span class="Special">)</span>
<span class="Special">)</span>
<span class="Special">)</span>
<span class="Special">)</span>
<span class="Special">)</span><span class="Special">)</span>
<span class="Comment">; Clean</span>
<span class="Special">(</span><span class="Statement">defun</span> clean <span class="Special">()</span> <span class="Special">(</span>interactive<span class="Special">)</span>
<span class="Special">(</span>shell-command <span class="Constant">"rm -f ~/.bash_history~ ~/.viminfo ~/.vim/.netrwhist"</span><span class="Special">)</span>
<span class="Special">(</span>shell-command <span class="Constant">"rm -f ~/.w3m/history ~/.w3m/bufinfo ~/.w3m/cookie"</span><span class="Special">))</span>
<span class="Comment">; Aide sur les touches</span>
<span class="Special">(</span><span class="Statement">defun</span> key-bindings-help <span class="Special">()</span>
<span class="Special">(</span>set-buffer <span class="Special">(</span>get-buffer-create <span class="Constant">"*Key Bindings Help*"</span><span class="Special">))</span>
<span class="Special">(</span>delete-region <span class="Special">(</span>point-min<span class="Special">)</span> <span class="Special">(</span>point-max<span class="Special">))</span>
<span class="Special">(</span>insert <span class="Constant">"F1 Une fenetre de 80 colonnes\n"</span><span class="Special">)</span>
<span class="Special">(</span>insert <span class="Constant">"F2 Deux fenetres de 80 colonnes\n"</span><span class="Special">)</span>
<span class="Special">(</span>insert <span class="Constant">"F3 Trois fenetres de 80 colonnes\n"</span><span class="Special">)</span>
<span class="Special">(</span>insert <span class="Constant">"F4 Charger les derniers fichiers utilises\n"</span><span class="Special">)</span>
<span class="Special">(</span>insert <span class="Constant">"F5 Buffer precedent\n"</span><span class="Special">)</span>
<span class="Special">(</span>insert <span class="Constant">"F6 Buffer precedent 2\n"</span><span class="Special">)</span>
<span class="Special">(</span>insert <span class="Constant">"F7 Retrecir la fenetre\n"</span><span class="Special">)</span>
<span class="Special">(</span>insert <span class="Constant">"F8 Agrandir la fenetre\n"</span><span class="Special">)</span>
<span class="Special">(</span>insert <span class="Constant">"F10 Justifier\n"</span><span class="Special">)</span>
<span class="Special">(</span>insert <span class="Constant">"F11 Orthographe\n"</span><span class="Special">)</span>
<span class="Special">(</span>insert <span class="Constant">"F12 Aide sur les touches\n"</span><span class="Special">)</span>
<span class="Special">(</span>insert <span class="Constant">"<S-right> Fenetre de droite\n"</span><span class="Special">)</span>
<span class="Special">(</span>insert <span class="Constant">"<S-left> Fenetre de gauche\n"</span><span class="Special">)</span>
<span class="Special">(</span>insert <span class="Constant">"<S-up> Defiler vers le haut\n"</span><span class="Special">)</span>
<span class="Special">(</span>insert <span class="Constant">"<S-down> Defiler vers le bas\n"</span><span class="Special">)</span>
<span class="Special">(</span>insert <span class="Constant">"<M-right> Defiler vers la droite\n"</span><span class="Special">)</span>
<span class="Special">(</span>insert <span class="Constant">"<M-left> Defiler vers la gauche\n"</span><span class="Special">)</span>
<span class="Special">(</span>insert <span class="Constant">"<home> Debut de ligne\n"</span><span class="Special">)</span>
<span class="Special">(</span>insert <span class="Constant">"<end> Fin de ligne\n"</span><span class="Special">)</span>
<span class="Special">(</span>insert <span class="Constant">"<M-g> Aller a une ligne\n"</span><span class="Special">)</span>
<span class="Special">(</span>insert <span class="Constant">"astyle Indenter\n"</span><span class="Special">)</span>
<span class="Special">(</span>insert <span class="Constant">"indent Indenter\n"</span><span class="Special">)</span>
<span class="Special">(</span>insert <span class="Constant">"make Compiler\n"</span><span class="Special">)</span>
<span class="Special">(</span>insert <span class="Constant">"purge Supprimer les fichiers temporaires\n\n"</span><span class="Special">)</span>
<span class="Special">(</span>insert <span class="Constant">"C-x C-f find-file\n"</span><span class="Special">)</span>
<span class="Special">(</span>insert <span class="Constant">"C-x C-s save-buffer\n"</span><span class="Special">)</span>
<span class="Special">(</span>insert <span class="Constant">"C-x C-c save-buffers-kill-terminal\n"</span><span class="Special">)</span>
<span class="Special">(</span>insert <span class="Constant">"C-SPC set-mark-command\n"</span><span class="Special">)</span>
<span class="Special">(</span>insert <span class="Constant">"M-w kill-ring-save\n"</span><span class="Special">)</span>
<span class="Special">(</span>insert <span class="Constant">"C-w kill-region\n"</span><span class="Special">)</span>
<span class="Special">(</span>insert <span class="Constant">"C-y yank\n"</span><span class="Special">)</span>
<span class="Special">(</span>insert <span class="Constant">"C-s isearch-forward\n"</span><span class="Special">)</span>
<span class="Special">(</span>insert <span class="Constant">"C-r isearch-backward\n"</span><span class="Special">)</span>
<span class="Special">(</span>insert <span class="Constant">"C-s C-w forward word search\n"</span><span class="Special">)</span>
<span class="Special">(</span>insert <span class="Constant">"M-% query-replace\n"</span><span class="Special">)</span>
<span class="Special">(</span>insert <span class="Constant">"<C-down> forward-paragraph\n"</span><span class="Special">)</span>
<span class="Special">(</span>insert <span class="Constant">"<C-end> end-of-buffer\n"</span><span class="Special">)</span>
<span class="Special">(</span>insert <span class="Constant">"<C-home> beginning-of-buffer\n"</span><span class="Special">)</span>
<span class="Special">(</span>insert <span class="Constant">"<C-left> backward-word\n"</span><span class="Special">)</span>
<span class="Special">(</span>insert <span class="Constant">"<C-next> scroll-left\n"</span><span class="Special">)</span>
<span class="Special">(</span>insert <span class="Constant">"<C-prior> scroll-right\n"</span><span class="Special">)</span>
<span class="Special">(</span>insert <span class="Constant">"<C-right> forward-word\n"</span><span class="Special">)</span>
<span class="Special">(</span>insert <span class="Constant">"<C-up> backward-paragraph\n"</span><span class="Special">)</span>
<span class="Special">(</span>insert <span class="Constant">"C-x h mark-whole-buffer\n"</span><span class="Special">)</span>
<span class="Special">(</span>insert <span class="Constant">"M-x execute-extended-command\n"</span><span class="Special">)</span>
<span class="Special">(</span>insert <span class="Constant">"C-g keyboard-quit\n"</span><span class="Special">)</span>
<span class="Special">(</span>insert <span class="Constant">"C-_ undo\n"</span><span class="Special">)</span>
<span class="Special">(</span>insert <span class="Constant">"C-g C-_ undo undo\n"</span><span class="Special">)</span>
<span class="Special">(</span>insert <span class="Constant">"TAB indent-for-tab-command\n"</span><span class="Special">)</span>
<span class="Special">(</span>insert <span class="Constant">"M-^ join-line\n"</span><span class="Special">)</span>
<span class="Special">(</span>insert <span class="Constant">"C-M-f forward-sexp\n"</span><span class="Special">)</span>
<span class="Special">(</span>insert <span class="Constant">"C-M-b backward-sexp\n"</span><span class="Special">)</span>
<span class="Special">(</span>insert <span class="Constant">"C-x r t string-rectangle\n"</span><span class="Special">)</span>
<span class="Special">(</span>insert <span class="Constant">"C-x r k kill-rectangle\n"</span><span class="Special">)</span>
<span class="Special">(</span>insert <span class="Constant">"C-x r y yank-rectangle\n"</span><span class="Special">)</span>
<span class="Special">(</span>insert <span class="Constant">"C-h f describe-function\n"</span><span class="Special">)</span>
<span class="Special">(</span>insert <span class="Constant">"C-h v describe-variable\n"</span><span class="Special">)</span>
<span class="Special">(</span>goto-char <span class="Constant">0</span><span class="Special">)</span>
<span class="Special">(</span>switch-to-buffer <span class="Special">(</span>current-buffer<span class="Special">))</span>
<span class="Special">)</span>
<span class="Special">(</span>global-set-key [f12] #<span class="Special">'</span><span class="Special">(</span><span class="Statement">lambda</span> <span class="Special">()</span> <span class="Special">(</span>interactive<span class="Special">)</span> <span class="Special">(</span>key-bindings-help<span class="Special">))</span><span class="Special">)</span>
<span class="Comment">; Gtk notify_startup_complete</span>
<span class="Special">(</span>shell-command <span class="Constant">"~/.local/bin/notify_startup_complete.py"</span><span class="Special">)</span>
</pre>
</body>
</html>
<!-- vim: set foldmethod=manual : -->