From 49340f6524fb0bbd569645ad403d0cf43ecfe70a Mon Sep 17 00:00:00 2001 From: Thomas von Dein Date: Wed, 1 Jan 2020 13:16:35 +0100 Subject: [PATCH] fixed hydra text --- .emacs | 7 +- emacs.html | 9896 +--------------------------------------------------- 2 files changed, 6 insertions(+), 9897 deletions(-) diff --git a/.emacs b/.emacs index 5ce7398..1c42d25 100644 --- a/.emacs +++ b/.emacs @@ -1,4 +1,4 @@ -;; Toms Emacs Config - portable - version ("20190705.01") -*-emacs-lisp-*- +;; Toms Emacs Config - portable - version ("20200101.01") -*-emacs-lisp-*- ;; * Introduction ;; This is my emacs config, it is more than twenty years old. It @@ -783,6 +783,7 @@ ;; 20190705.01 ;; - added smerge hydra plus alias 'merge +;; - fixed window resize hydra help ;; ** TODO @@ -811,7 +812,7 @@ ;; My emacs config has a version (consisting of a timestamp with a ;; serial), which I display in the mode line. So I can clearly see, if ;; I'm using an outdated config somewhere. -(defvar tvd-emacs-version "20190705.01") +(defvar tvd-emacs-version "20200101.01") ;; -------------------------------------------------------------------------------- @@ -5962,7 +5963,7 @@ _a_ || _d_ |---| _w_ --- _s_ =" ^Window Management^ ^^------------------------------------------------------------------------ _+_ Increase Font | _-_ Decrease Font Resize ^ ^ _w_ ^ ^ -_f_: Flip Windows ^^ Current ← ^ ^ _d_ +_f_: Flip Windows ^^ Current _a_ ^ ^ _d_ _4_: Quarter Windows ^^ Window: ^ ^ _s_ ^ ^ _u_: Windows Undo _r_: Windows Redo ^^ _l_: Adjust Background brighter diff --git a/emacs.html b/emacs.html index d23be27..4200095 100644 --- a/emacs.html +++ b/emacs.html @@ -3,7 +3,7 @@ "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> - + @@ -228,9902 +228,10 @@ for the JavaScript code in this tag.
-
-

Table of Contents

-
- -
-
-

-Toms Emacs Config - portable - version ("20190112.02") -*-emacs-lisp-*- -

-
-

1 Introduction

-
-

-This is my emacs config, it is more than twenty years old. It -mostly contains stuff implemented by myself, but there are also -snippets I found here and there. The config will probably not be -usefull for anyone else but myself. -

- -

-If you're reading the html exported version: be advised, that I do -NOT maintain my emacs config with "literate programming". Instead I -maintain a plain old .emacs file, which I use at home and work, on -windows, linux and freebsd, console or X11. I use outshine minor -mode to organize my config and I use outorg to export it to org -mode and from there to html. -

- -

-Also I don't use any packaging mechanism, instead I download all -the required elisp files manually and update them only if -required. There's a melpa config toggle though, which I only use to -try out new modes. I distribute my .emacs config along with the -lisp directory to all systems where I need it using a Makefile and -scp. The reason is that I work on a couple of systems without -direct internet access, where packaging or git don't work. So, I -don't use these things nowhere. It's ok for me, I'm used to it. -

- -

-Another thing you might wonder about are my key bindings or -(sometimes) the lack thereof. My problem with key bindings is that -I don't have any useful prefixes left. I am using ONLY commandline -tools, my window manager is Xmonad, I use screen, bash and -mutt. The only applications where I use the mouse is firefox and -gimp. So, it is very hard to avoid conflicts AND memoize new key -bindings. Some key bindings are so deeply wired into muscle memory -that I could use them while drunk or dying. -

- -

-Therefore I use lots of aliases in emacs for not-so-regular used -functions, which turned out to be sometimes easier to type than an -actual key binding. -

- -

-The html export has been created with the function -outshine-to-html, written by myself, see below. -

-
-
- - -
-

2 Config Log, Trivia, Notes, Changes

-
-
-

2.1 Changelog

-
-

-20160420.03: -

-
    -
  • started with Changelog and outshine mode
    • -
  • fixed tabs
    • -
  • reorganized keys
    • -
  • added new goto line func
    • -
- -

-20160421.01: -

-
    -
  • added smex
    • -
  • added show-keys()
    • -
  • added redo
    • -
  • ssh et. al. interactive in eshell
    • -
  • added recompile()
    • -
- -

-20160421.02: -

-
    -
  • added dividers
    • -
  • using org headers
    • -
  • better show-keys()
    • -
- -

-20160421.03: -

-
    -
  • added windows support
    • -
- -

-20160421.04: -

-
    -
  • added elisp repl support
    • -
- -

-20160424.01: -

-
    -
  • added custom modeline
    • -
  • added which-func-mode
    • -
  • shortened some major mode names
    • -
  • added diminish for shorter minor mode names
    • -
  • added better printing menu
    • -
- -

-20160425.01: -

-
    -
  • fixed ielm integration
    • -
  • C-x e = eval (buffer|region)
    • -
  • C-x C-e = send (buffer|region) to ielm and eval there
    • -
- -

-20160425.02: -

-
    -
  • fix word wrapping
    • -
- -

-20160426.01: -

-
    -
  • fixed mode-line config 4 win emacs
    • -
  • added M-<up|down> move-region
    • -
- -

-20160426.01: -

-
    -
  • added markdown
    • -
- -

-20160427.01+02: -

-
    -
  • cosmetics
    • -
- -

-20160428.01: -

-
    -
  • fringe cursor
    • -
- -

-20160429.01: -

-
    -
  • file name completion
    • -
  • C-# finally, search for symbol at point
    • -
  • C-c C-c now comments or uncomments regios or line, whatever is current
    • -
- -

-20160501.01: -

-
    -
  • no outshine minor in python
    • -
  • added recent files support
    • -
- -

-20160501.02: -

-
    -
  • added margin() function, no key binding though
    • -
- -

-20160503.01: -

-
    -
  • added C-q fill+justify paragraph macro
    • -
  • added alias 'i' for info manuals
    • -
- -

-20160503.02: -

-
    -
  • added 'cp to create read-only buffer copy
    • -
- -

-20160504.01: -

-
    -
  • better fringe, now also inversed with C-c i
    • -
- -

-20160505.01: -

-
    -
  • added electric-align mode
    • -
  • better outline header colors
    • -
  • no more line numbers in sk occur buffer
    • -
- -

-20160507.01: -

-
    -
  • disable electric-align-momde (broken), using M-x align instead
    • -
  • hightlighting TABs with extra font
    • -
- -

-20160509.01: -

-
    -
  • fixed margin()
    • -
  • discovered that C-x 0 deletes current window, god did I miss this one!
    • -
- -

-20160510.01: -

-
    -
  • added kill-all-buffers()
    • -
-

-20160510.02: -

-
    -
  • no more load-file
    • -
  • added C-c [wlpa]: easy copy things at point -without marking them
    • -
- -

-20160511.01: -

-
    -
  • better buffer names with uniquify
    • -
- -

-20160511.02: -

-
    -
  • copy-* functions now blink region
    • -
  • added del-* functions, bound to C-d: -press multiple times to delete word, line, paragraph, buffer
    • -
- -

-20160513.01: -

-
    -
  • fixed END key func
    • -
- -

-20160516.01: -

-
    -
  • removed C-d stuff, replaced with vikiing-mode
    • -
- -

-20160517.01: -

-
    -
  • changed highlight face
    • -
  • enabled debug-on-error in lispmode
    • -
  • enabled IDO mode globally, I just tend to love love love it
    • -
- -

-20160517.02: -

-
    -
  • added workgroup.el, started experimenting
    • -
  • enabled SuperL (for workgroups)
    • -
- -

-20160519.01: -

-
    -
  • fixed write-file, now ido mode is disabled for this one.
    • -
- -

-20160520.01: -

-
    -
  • no x-sel on windows (C-v+C-c => emacs doesn't work anymore otherwise)
    • -
  • added eldoc mode to elisp hook
    • -
- -

-20160520.02: -

-
    -
  • added novel-mode, for better reading
    • -
- -

-20160522.01: -

-
    -
  • added vi's % jump paren emulation
    • -
  • enhanced novel-mode
    • -
  • enabled save-place mode which is VERY useful in combination with -novel-mode
    • -
- -

-20160523.01: -

-
    -
  • detached novel-mode into its own module, maintain on github -enabled with C-n
    • -
- -

-20160526.01: -

-
    -
  • added toggle-melpa
    • -
- -

-20160527.01: -

-
    -
  • added htmlize
    • -
- -

-20160529.01: -

-
    -
  • added html-listify
    • -
- -

-20160530.01: -

-
    -
  • added key chords
    • -
  • added open-line-above+below
    • -
- -

-20160602.01: -

-
    -
  • C-q now fills and pressing it again un-fills
    • -
- -

-20160606.01: -

-
    -
  • deactivated key-chords, I didn't use them and they were annoying.
    • -
- -

-20160609.01: -

-
    -
  • added puppet mode
    • -
- -

-20160614.01: -

-
    -
  • added rotate-text (C-t)
    • -
  • added macro math (C-x-0) (0 used as =)
    • -
- -

-20160713.01: -

-
    -
  • fixed indent for Makefiles
    • -
- -

-20160729.01: -

-
    -
  • rm duplicate abbr defs
    • -
- -

-20160916.01: -

-
    -
  • enable mouse mark to copy
    • -
- -

-20160926.01: -

-
    -
  • Dont kill-buffer, kill-this-buffer instead
    • -
- -

-20160928.01: -

-
    -
  • change macro math C-x 0 to C-x C-0 so that C-0 is -usable again for close window
    • -
  • elisp mode: debug-on-error only on non-cygwin
    • -
- -

-20161011.01: -

-
    -
  • added dos2unix and unix2dos
    • -
- -

-20161014.01: -

-
    -
  • fix auto-indent in conf-mode
    • -
  • force C-c C-c comment-uncomment in conf-mode
    • -
- -

-20161018.01: -

-
    -
  • more effective conf-mode disarming (own defun)
    • -
- -

-20161022.01: -

-
    -
  • better paren mode
    • -
- -

-20161024.01: -

-
    -
  • fixed org mode hook
    • -
- -

-20161027.01: -

-
    -
  • turn off tramp stuff in kill-all-buffers as well, -so that after executing it, no more ssh prompt -appears on C-x f.
    • -
- -

-20161106.01: -

-
    -
  • added iedit mode with C-c e
    • -
  • added file-open support to eshell (aliases: vi + emacs)
    • -
  • much better C-l behavior in eshell (eshell/clear)
    • -
- -

-20161205.01: -

-
    -
  • added SLIME, sbcl and paredit support, only loaded when exists
    • -
- -

-20161206.01: -

-
    -
  • elisp mode: debug-on-error finally completeley disabled
    • -
  • added alias 'table, which enables org-mode table support everywhere
    • -
- -

-20170205.01: -

-
    -
  • started with ETAGS support
    • -
- -

-20170212.01: -

-
    -
  • added copy-defun (C-c f) to copy whole functions as is
    • -
- -

-20170212.02: -

-
    -
  • now using € (alt-r + e) as jump to etag
    • -
- -

-20170215.02: -

-
    -
  • added goto-last-change (C-b)
    • -
  • +test section
    • -
  • paredit
    • -
- -

-20170215.02: -

-
    -
  • disabled workgoups mode, don't use it, doesn't load correctly
    • -
  • fixed windows switch, no more printing popup on startup
    • -
- -

-20170220.01: -

-
    -
  • finally disabled aggressive-indent, it annoys more than it helps
    • -
  • added some bookmark aliases (bm, to, bl, like apparix)
    • -
  • added C-c y [..] copy+yank functions so that I can copy and paste -stuff very fast with one key commbo, like yy in vi.
    • -
  • added copy-parens, copy-quote, copy-help (help message)
    • -
- -

-20170220.02: -

-
    -
  • fixed C-c y y: indent correctly
    • -
- -

-20170220.03: -

-
    -
  • fixed C-y+mouse-2: both use primary selection
    • -
- -

-20170221.01: -

-
    -
  • added which-key
    • -
- -

-20170223.01: -

-
    -
  • org-mode enhancements, C-n capture from everywhere
    • -
  • fixed org-mode todo keywords
    • -
  • fixed duplicate yank on win32 on mouse2
    • -
- -

-20170223.01: -

-
    -
  • forgot to mv novel-mode to C-c C-n
    • -
  • better org heading faces
    • -
- -

-20170224.01: -

-
    -
  • finally fixed C-t, now works everywhere
    • -
  • added more org short commands
    • -
- -

-20170224.02: -

-
    -
  • fixed org-mode M-return
    • -
  • added support for windmove (WINDOWS-Key+Arrow: switch window)
    • -
- -

-20170224.03: -

-
    -
  • better org colours
    • -
- -

-20170224.03: -

-
    -
  • better org capture tpl (DRAFT)
    • -
  • capturing works now globally, even if no org file is open
    • -
  • using org-indent 4
    • -
- -

-20170224.05: -

-
    -
  • fixed org tpls
    • -
- -

-20170227.01: -

-
    -
  • fix cut/paste org subtress
    • -
  • M-o now switch buffer if 1 window, else switch window
    • -
- -

-20170227.02: -

-
    -
  • added alias 'dp which displays everything -there is to know about point (like current face, mode, etc)
    • -
- -

-20170228.01: -

-
    -
  • org-refile now works recursivly with completion
    • -
  • org-refile also now uses ido-mode and completes in minibuffer
    • -
  • added alias '2table which converts CSV region to table
    • -
  • added shortcut formatting defuns 'bold, 'italic, 'underline and 'code -which call 'org-emphasize respectively on current region, -including key bindings with org mode keymap (C-c b,/,c,_)
    • -
  • hide emphasized markers in org mode
    • -
  • renamed 'recompile to 'recompile-el and fixed it
    • -
  • added 'info-find-file
    • -
- -

-20170301.01: -

-
    -
  • added 'tvd-org-left-or-level-up bound to <C-left> in org mode
    • -
  • <C-up|down> in org mode now jump up on current level and -fold current one and unfolds the target heading
    • -
  • enabled org-bullets
    • -
  • customized height of org-level faces
    • -
- -

-20170301.02: -

-
    -
  • org mode emphasize shortcuts (C-c b…) expand region if -theres no region active.
    • -
- -

-20170301.03: -

-
    -
  • dis line num in org (faster)
    • -
- -

-20170303.01: -

-
    -
  • elmacro support added, incl fix for org and outshine, -F6 starts (or stops) a macro and displays the generated -defun. CTRL-F6 executes the last macro interactively, -<ret> repeats, a repeats til EOF, q aborts, e enter macro -(with completion)
    • -
  • C-x C-s on * elmacro … * buffer stores it to tvd-macro-file
    • -
- -

-20170305.01: -

-
    -
  • added elmacro defadvice, run after done with macro, it will -be evaluated and saved along with a repeater defun.
    • -
  • display red [REC] hint on the mode-line while recording
    • -
  • added ~ shortcut for use inside IDO so I can reach $HOME -very fast from everywhere, no more editing pre-filled -current path and entering home/$user. Yeah!
    • -
  • added flip-window (bound to M-O (ALT-shift-o)
    • -
  • added cleanup-buffer (alias cb)
    • -
  • fixed C-<ret> and C-S-<ret>
    • -
- -

-20170306.01: -

-
    -
  • re-enabled linenum mode
    • -
  • fixed custom modeline
    • -
- -

-20170306.01: -

-
    -
  • which-func not in elisp anymore
    • -
  • added alias 'ee for 'eval-expression
    • -
  • added 'sa (show-aliases)
    • -
  • some occur enhancements for 'sk and 'sa.
    • -
  • note: inside Occur: q:quit, g:reload, e:edit (buffer must be open)
    • -
- -

-20170307.01: -

-
    -
  • fixed 'sk and 'sa
    • -
  • added key bindings to mark things. M-a is the prefix, followed by: -a - all, p - paragraph, f - function, l - line, w - word.
    • -
  • disabled M-O (flip-windows) on console emacs
    • -
- -

-20170309.01: -

-
    -
  • added C-c s,u,e and M-a s,u,e
    • -
- -

-20170309.02: -

-
    -
  • re-enabled paredit, its better in ielm and slime
    • -
  • added alias 'pe to quickly enable/disable par-edit
    • -
  • added virtual eShell dev /dev/log which stores stuff in LOG
    • -
- -

-20170313.01: -

-
    -
  • iedit to C-c C-e, so C-c e works again (copy email)
    • -
  • put eshell aliases into .emacs(here) no need for aliases file anymore
    • -
  • added copy-comment (C-c c), copy-and-yank-comment (C-c y c) and -m-mark-comment (M-a c)
    • -
- -

-20170314.01: -

-
    -
  • enhanced copy-comment (that is, rewrote it), it now supports -indented multiline comments
    • -
- -

-20170315.01: -

-
    -
  • fixed C-c y [cpwf]
    • -
  • fixed copy[+yank+mark] word, it now includes - _ .
    • -
  • added copy-ip (C-c i), yank-ip (C-c y i) and mark-ip (M-a i)
    • -
  • copy-url alternatively copies file-path if it's no url at point
    • -
  • added numerical arg support to yy
    • -
- -

-20170321.01: -

-
    -
  • rewrote copy-comment stuff, now supports blocks of comment -after code etc.
    • -
- -

-20170323.01: -

-
    -
  • moved the mark,copy,yank stuff into its own mode
    • -
- -

-20170327.01: -

-
    -
  • added defadvice for mcyt mode, so that I can use C-v to -always yank the last thing copied.
    • -
- -

-20170502.01: -

-
    -
  • added config for ibuffer
    • -
- -

-20170503.01: -

-
    -
  • added ibuffer-vc support
    • -
- -

-20170503.02: -

-
    -
  • added ibuffer-tramp support
    • -
  • disabled ibuffer tab-collaps stuff
    • -
- -

-20170505.01: -

-
    -
  • generalized init-dir+file variables, now more portable, i hope
    • -
- -

-20170508.01: -

-
    -
  • backup tramp files remote
    • -
  • do not backup emacs state files
    • -
- -

-20170509.01: -

-
    -
  • version fix
    • -
- -

-20170523.01: -

-
    -
  • commented ssh backup stuff, not working yet, destroys tramp
    • -
  • added inferior shells for perl, ruby and python (iperl, iruby, ipython) -with ansi-term
    • -
- -

-20170610.01: -

-
    -
  • org mode: added C-c C-# to edit src blocks in an extra window
    • -
  • org mode: <ret> opens link in eww
    • -
  • ido-find-file advice: if not writable, try sudo/tramp
    • -
  • +eshell-there remote eshell (Alias: et)
    • -
  • disabled pager in eshell
    • -
  • fixed eshell/x, now uses C-d
    • -
  • org mode: DONE makes heading greyish
    • -
  • re-organized emacs config, now with subsections
    • -
  • removed lisp electric return, destroyed almost all modes
    • -
  • added POD mode with specific abbrevs and including specific outlining
    • -
  • added heading cycle code for outline mode as well
    • -
  • added outline 'n (narrow) + 'w (widen)
    • -
  • added orange fringe for narrowing (org, outline and everywhere else
    • -
  • added alias 'colors
    • -
  • added 'dl (aka describe-library to display the doc string in -COMMENTARY section of .el files
    • -
  • added "C-c t" to copy an org mode cell
    • -
  • ena org pretty entities, list: org-entities-help
    • -
  • 2table => tablify, which is now a function and uses region or whole buffer
    • -
  • added indirect narrowing buffers
    • -
  • renamed all occurences of my- to tvd- so I better know which stuff is mine
    • -
  • added table-to-* org table exporters with aliases
    • -
  • inside org mode: C-c o copy table c[o]lumn, C-c t copy [t]able cell
    • -
  • experimental: added beacon mode (blinking pointer) -(moved 'seq from exp. elpa to lisp/)
    • -
  • added render-html to render current html buffer with eww
    • -
  • added align-regexp-repeat[-left|right] wrappers
    • -
  • fixed org mode C-<down|up> jump paragraphs if not on heading
    • -
  • added 'tvd-outshine-jump (alias 'j) to directly jump to headers -with IDO completion and as sparse-tree, very cool! -mapped to C-c C-j
    • -
  • added text scratch buffer with text mode
    • -
  • added jump-paren-match-or-insert-percent, bound to %, which jumps parens -or inserts a % if not on a paren. Better than C-5, haha.
    • -
  • added 'ffxs
    • -
  • added emacs-change-log
    • -
  • removed GNUS config, not used anymore
    • -
  • restored C-d binding to viking in paredit
    • -
  • added outshine HTML exporter via org: outshine-to-html
    • -
  • fixed outshine config
    • -
  • added (my) config-general-mode
    • -
  • fixed pod format inserters
    • -
- -

-20170629.01: -

-
    -
  • added tablist-minor-mode (+config)
    • -
  • added config for tabulated-list-mode
    • -
  • added config for help-mode
    • -
  • added default filename for outshine-to-html
    • -
  • Info mode: C-left+C-right history keys
    • -
  • added loader for el2markdown
    • -
  • removed smart-forward, it annoys me
    • -
  • made tvd-outshine-jump more portable, do not use hardcoded -regexps anymore, use outshine functions
    • -
  • added 'change-inner and ci simulators'
    • -
  • added suggest.el with my own reload function
    • -
  • modified recentf: do not provide files already visited
    • -
- -

-20170703.01: -

-
    -
  • fixed recentf-exclude list, now REALLY ignores unreadables
    • -
  • added export for easier export and commit of dot-emacs
    • -
  • added tvd-suggest-jump to jump between input and output
    • -
- -

-20170707.01: -

-
    -
  • added C-x 4 to split fram into 4 windows
    • -
  • fixed config-general-mode config
    • -
  • fixed 'emacs-change-log (didn't expand trees before work)
    • -
  • fix python loading
    • -
- -

-20170711.01: -

-
    -
  • fixed outshine: only loaded with elisp
    • -
  • fixed tvd-outshine-jump: use imenu if outside outshine
    • -
  • fixed kill-all-buffers: restore scratch after killing all buffers
    • -
  • do not ask to save abbrevs on exit anymore
    • -
  • reformat changelog
    • -
  • rm open-line-below
    • -
- -

-20170711.02: -

-
    -
  • fixed POD abbrevs, added way to move point after expansion
    • -
- -

-20170712.01: -

-
    -
  • disabled org mode superscripts
    • -
  • + winner mode
    • -
  • org mode 'code new binding: C-c 0
    • -
  • fixed emacs-change-log
    • -
  • added tvd-outshine-end-of-section incl speed command
    • -
- -

-20170712.02: -

-
    -
  • fixed tvd-outshine-end-of-section, it's way faster now and -works without narrowing.
    • -
- -

-20170714.01: -

-
    -
  • fixed pod-mode abbrev cursor jumping if no jump pos exists
    • -
  • fix initial-buffer-choice
    • -
  • added mmm-mode
    • -
  • added here-doc support to config-general using mmm-mode
    • -
  • made outline faces a little bigger, added face for level 4
    • -
  • rm initial buffer, doesnt open commandline files anymore with this
    • -
  • finally initial buffer works, opens command line file or text scratch
    • -
- -

-20170715.01: -

-
    -
  • no more MMM for C::G, destroys indent
    • -
  • incorporated my C::G customizations, Steve Purcell removed from -it because inappropriate, -see d7e8323
    • -
  • fixed autoscratch hook
    • -
  • add scratch alias
    • -
- -

-20170718.01: -

-
    -
  • better autoscratch config
    • -
  • added persistent-scratch mode
    • -
- -

-20170719.01: -

-
    -
  • fixed electric-indent in autoscratch config
    • -
  • use my own autoscratch triggers
    • -
  • kill-all-buffers now uses 'autoscratch-buffer
    • -
  • renamce autoscratch
    • -
  • tuned recenter-positions
    • -
- -

-20170722.01: -

-
    -
  • added followcursor-mode
    • -
- -

-20170724.01: -

-
    -
  • added ido completion for tramp hostnames
    • -
- -

-20170725.01: -

-
    -
  • autoscratch lambda=>progn
    • -
  • added sort-table-ip[desc] and fixed auto-alignment so -that ip's are left aligned
    • -
  • +req org-table
    • -
- -

-20170727.01: -

-
    -
  • +magit
    • -
  • configured magit dirs
    • -
  • +magit ido
    • -
  • fix magit info dir
    • -
- -

-20170730.01 -

-
    -
  • +some magit navigation keys
    • -
- -

-20170731.01 -

-
    -
  • do not load magit on w32
    • -
  • Always call `magit-status' with prefix arg
    • -
  • do bigger jumps in magit with just C-<up|down>
    • -
  • add "ls" to magit-status leading to dired
    • -
- -

-20170801.01 -

-
    -
  • added C command to magit to switch repo
    • -
  • add : trigger for ido-find-file to begin with tramp
    • -
- -

-20170802.01 -

-
    -
  • +table-to-excel
    • -
  • added some git wrappers to dired to add or rm files
    • -
- -

-20170805.01 -

-
    -
  • +C-c C-c for rename files in dired
    • -
- -

-20170807.01 -

-
    -
  • added dired config and functions
    • -
  • added dired-hacks: ranger and filters, enhanced navigation commands
    • -
- -

-20170808.01 -

-
    -
  • (i) is now a function, not an alias anymore and more comfortable
    • -
  • added org info path
    • -
  • added info+
    • -
- -

-20170821.01 -

-
    -
  • highlight line color light green with default bg
    • -
- -

-20170901.01 -

-
    -
  • added :jump-to-captured to org capture templates, -didn't know about it before
    • -
- -

-20170913.01 -

-
    -
  • disabled outline in config-general-mode
    • -
- -

-20170924.01 -

-
    -
  • experimenting swiper
    • -
- -

-20171201.01 -

-
    -
  • highlight TABs with ruby as well
    • -
- -

-20171205.01 -

-
    -
  • fixed ORG template headings
    • -
- -

-20180210.01 -

-
    -
  • added ediff config
    • -
  • fixed ob-sh to ob-shell
    • -
- -

-20180730.01 -

-
    -
  • added autoscratch-reset-default-directory t
    • -
- -

-20181004.01 -

-
    -
  • added projectile and config
    • -
  • added hydra and config (for org tables and projectile)
    • -
  • finished org table hydra
    • -
  • added info hydra, fixed 't bug
    • -
- -

-20181016.01 -

-
    -
  • fixed dired under cygwin w/o git
    • -
- -

-20181019.01 -

-
    -
  • using C-x for all hydras now: -C-x w: windows -C-x t: org table -C-y p: projectile
    • -
  • added copy org table row
    • -
  • enhanced window hyrda by resizing chords
    • -
  • changed table copy key chords (C-c t [ctr]
    • -
- - -
    -
  • better windows hydra
    • -
  • on help close restore windows setup
    • -
  • fixed hydra hints
    • -
- -

-20181021.01 -

-
    -
  • fixed window resizing
    • -
- -

-20181022.01 -

-
    -
  • enhanced M-o for window switching a lot, using a hydra and the arrow keys
    • -
- -

-20181029.01 -

-
    -
  • fixed recentf max files
    • -
- -

-20181030.01 -

-
    -
  • fixed windows hydra flip window call
    • -
- -

-20181105.01 -

-
    -
  • added eyebrowse with config and hydra, prefix: C-x C-x
    • -
- -

-20181106.01 -

-
    -
  • close help windows regularly again
    • -
- -

-20181107.01 -

-
    -
  • removed debug toggle
    • -
  • added magit status window new "q" feature which kills -all magit buffers and restores window setup
    • -
  • added magit status margin timestamps
    • -
- -

-20181107.01 -

-
    -
  • fixed function, inserts at ()
    • -
  • added / to dired hydra
    • -
- -

-20181110.01 -

-
    -
  • fixed % function, really
    • -
  • fixed elisp autoscratch config
    • -
- -

-20181111.01 -

-
    -
  • fixed autoscratch elisp trigger
    • -
  • started with smartparens, first config just replaces paredit
    • -
- -

-20181113.01 -

-
    -
  • disabled paredit, enabled smartparens
    • -
- -

-20181115.01 -

-
    -
  • disabled smartparens strict mode, much annoying
    • -
  • map C-k to 'sp-kill-hybrid-sexp
    • -
- -

-20181117.01 -

-
    -
  • disabled outline C-<left> it overwrote sp slurp left
    • -
  • enhanced emacs-changelog
    • -
  • fixed parens bug, added sp ti monibuffer
    • -
  • added tvd-lisp-comment
    • -
  • (re-)added electric pair mode to eval-expression
    • -
  • diret -lt
    • -
- -

-20181121.01 -

-
    -
  • added org agenda
    • -
- -

-20181122.01 -

-
    -
  • + new agenda o function
    • -
- -

-20181126.01 -

-
    -
  • unlimited recentf
    • -
- -

-20181127.01 -

-
    -
  • fixed tvd-replace-all
    • -
  • fixed agenda capture template
    • -
- -

-20181127.02 -

-
    -
  • fixed C-up|down in agenda
    • -
- -

-20181206.01 -

-
    -
  • added support for scheduled agenda entries and fixed tvd-replace-all -(I already had this in 20181123 but overwrote it somehow!)
    • -
- -

-20181210.01 -

-
    -
  • fixed agenda g command
    • -
- -

-20181212.01 -

-
    -
  • configured agenda sorting
    • -
- -

-20181212.02 -

-
    -
  • fixed agenda sorting, must be global
    • -
- -

-20181220.01 -

-
    -
  • added org table move cells functions
    • -
- -

-20181222.01 -

-
    -
  • removed duplicate key bindings, added via comment
    • -
- -

-20181227.01 -

-
    -
  • ena variable pitch w/ org, turned face config into theme
    • -
- -

-20190108.01 -

-
    -
  • added server
    • -
- -

-20190112.01 -

-
    -
  • added wdired cleanup function
    • -
- -

-20190112.02 -

-
    -
  • enhanced cleaner
    • -
-
-
- - - -
-

2.3 Parking Lot / Snippets

-
-

-Snippets which maybe of use in the future -

-
- -
-

2.3.1 buffer-local hook

-
-

-(with-current-buffer (get-buffer "scratch") - (add-hook 'kill-buffer-hook - (lambda () (error "DENIED! don't kill my precious scratch!!")) - nil t)) -

- -
-
-
-
-
-

2.4 .emacs config version

-
-

-My emacs config has a version (consisting of a timestamp with a -serial), which I display in the mode line. So I can clearly see, if -I'm using an outdated config somewhere. -

-
-
(defvar tvd-emacs-version "20190112.02")
-
-
- -
-
-
-
- -
-

3 System Specifics

-
-
-

3.1 Global init file+dir vars, portable

-
-
    -
  • added dev function which opens a new development frame
    • -
- -

-since I always use ~/.emacs as my init file, this results in the -correct emacs dir: -

-
-
(setq user-init-dir (expand-file-name (concat user-init-file ".d")))
-
-
- -

-FIXME: use (pwd) to determine .emacs.d, make it more portable -use different init dir on cygwin systems -

-
-
(setq tvd-win-home "C:/Cygwin/home/iz00468")
-(if (file-exists-p tvd-win-home)
-    (setq user-init-dir (expand-file-name ".emacs.d" tvd-win-home))
-  (setq tvd-win-home nil))
-
-
- -

-all modes and extensions are located here -

-
-
(setq tvd-lisp-dir (expand-file-name "lisp" user-init-dir))
-
-
- -
-
-
-
-

3.2 Shortcut Mode - mode specific help about my own customizations

-
-

-FIXME: complete -

- -
-
(defun add-shortcut (mode help)
-  (add-to-list 'shortcut-alist '(mode . help)))
-
-(defun shortcut ()
-  (interactive)
-  (message (cdr (assoc major-mode 'shortcut-alist))))
-
-
- -
-
-
-
-

3.3 Fontlock-mode - use syntax highlighting on graphical displays

-
-

-look: emacswiki -

-
-
(if window-system
-    (progn
-      (global-font-lock-mode 1)
-      (set-background-color "white")
-      (set-foreground-color "DarkBlue")))
-
-
- -
-
-
-
-

3.4 line-cursor in console

-
-

-better visibility of cursor in console sessions -

-
-
(unless (display-graphic-p)
-  (global-hl-line-mode)
-  (set-face-background hl-line-face "DarkGray")
-  (set-face-foreground hl-line-face "Black"))
-
-
- -
-
-
-
-

3.5 Backup Config

-
-

-I save backup files in a central location below the init dir, that -way they don't clutter productive file systems or repos. -

- -
-
(setq tvd-backup-directory (expand-file-name "backups" user-init-dir))
-(if (not (file-exists-p tvd-backup-directory))
-    (make-directory tvd-backup-directory t))
-
-
- -

-there's even a trash -

-
-
(setq tvd-trash-directory (expand-file-name "trash" tvd-backup-directory))
-
-
- - -

-actual configuration of all things backup related: -

-
-
(setq make-backup-files t               ; backup of a file the first time it is saved.
-      backup-by-copying t               ; don't clobber symlinks
-      version-control t                 ; version numbers for backup files
-      delete-old-versions t             ; delete excess backup files silently
-      delete-by-moving-to-trash t
-      kept-old-versions 6               ; oldest versions to keep when a new numbered backup is made (default: 2)
-      kept-new-versions 9               ; newest versions to keep when a new numbered backup is made (default: 2)
-      auto-save-default t               ; auto-save every buffer that visits a file
-      auto-save-timeout 20              ; number of seconds idle time before auto-save (default: 30)
-      auto-save-interval 200            ; number of keystrokes between auto-saves (default: 300)
-      delete-by-moving-to-trash t
-      trash-directory tvd-trash-directory
-      backup-directory-alist `(("emacs.d/\\(recentf\\|ido.last\\|places\\)" . nil) ; do not backup state files
-                               ("." . ,tvd-backup-directory))) ; backup everything else
-
-
- -

-However, if the file to be backed up is remote, backup -per remote directory. that way, no root owned files end -up in my home directory, ready to be read by everyone. -This is system specific and only matches special host names. -FIXME: find out programatically hostname und remote user to make this generic -

-
-
(advice-add 'make-backup-file-name-1 :before
-            '(lambda (&rest file)
-               (let ((filename (car file)))
-                 (if (string-match "\\(/ssh:.devel[0-9]+\\):/" filename)
-                     (setq backup-directory-alist `(("." . ,(concat (match-string 1 filename) ":/root/.emacs.d/backups"))))
-                   (setq backup-directory-alist `(("." . ,tvd-backup-directory)))))))
-
-
- -

-FIXME: and/or check gnu.org -

-
    -
  • tramp-default-proxies-alist
    • -
- -
-
-
-
-

3.6 console backspace fix

-
-

-make backspace work in console sessions -

-
-
(define-key key-translation-map [?\C-h] [?\C-?])
-
-
- -
-
-
-
-

3.7 hide menu- and tool-bar

-
-

-I prefer a bare bones emacs window without any distractions, so turn them off. -

-
-
(menu-bar-mode -1)
-(tool-bar-mode -1)
-(setq use-dialog-box nil)
-(scroll-bar-mode 0)
-
-
- -
-
-
-
-

3.8 stay silent on startup

-
-
-
(setq initial-scratch-message "")
-(setq inhibit-startup-message t)
-(setq inhibit-startup-screen t)
-(setq inhibit-startup-echo-area-message "scip")
-
-
- -
-
-
-
-

3.9 y means yes

-
-

-y is shorter than yes and less error prone. -

-
-
(defalias 'yes-or-no-p 'y-or-n-p)
-
-
- -
-
-
-
-

3.10 show col in modeline

-
-

-very useful to know current column -

-
-
(column-number-mode t)
-
-
- -
-
-
-
-

3.11 file or buffer in title

-
-

-this can be seen in xmobar -

-
-
(setq frame-title-format '(buffer-file-name "emacs %f" ("emacs %b")))
-
-
- - -
-
-
-
-

3.12 avoid invalid files

-
-
-
(setq require-final-newline t)
-
-
- -
-
-
-
-

3.13 prepare load-path

-
-

-where to look for extensions: -

-
-
(add-to-list 'load-path tvd-lisp-dir)
-
-(if (null tvd-win-home)
-    (add-to-list 'load-path (expand-file-name "compat" tvd-lisp-dir)))
-
-
- -

-modules -

-
-
(add-to-list 'load-path (concat tvd-lisp-dir "/er"))
-(add-to-list 'load-path (concat tvd-lisp-dir "/org/lisp"))
-(add-to-list 'load-path (concat tvd-lisp-dir "/ivy"))
-(add-to-list 'load-path (concat tvd-lisp-dir "/doremi"))
-(add-to-list 'load-path (concat tvd-lisp-dir "/org/contrib/lisp"))
-
-
- -
-
-
-
-

3.14 Hydra

-
-

-Used here and there below, loaded as early as possible -

-
-
(require 'hydra)
-
-
-
-
- -
-

3.15 byte-compile all of them, if needed

-
-

-handy function to recompile all lisp files -

-
-
(defun recompile-el()
-  (interactive)
-  (byte-recompile-directory tvd-lisp-dir 0))
-
-
- -
-
-
-
-

3.16 increase fontsize with ctrl-+ and ctrl--

-
-

-I use those bindings everywhere (firefox, terminal, etc), and in -emacs as well. -

- -
-
(defun tvd-global-font-size-bigger ()
-  "Make font size larger."
-  (interactive)
-  (text-scale-increase 0.5))
-
-(defun tvd-global-font-size-smaller ()
-  "Change font size back to original."
-  (interactive)
-  (text-scale-increase -0.5))
-
-(global-set-key (kbd "C-+")             'tvd-global-font-size-bigger) ; Schrift groesser
-(global-set-key (kbd "C--")             'tvd-global-font-size-smaller) ; kleiner
-
-
- -
-
-
-
-

3.17 WINDOW management stuff

-
-
-

3.17.1 resize windows by keyboard

-
-

-Very practical: resize windows easily. -

- -

-hit C-c C-r then use cursor keys to resize, <ret> to finish -

-
-
(require 'windresize)
-(global-set-key (kbd "C-c C-r")         'windresize) ; Split Buffer Groesse Aendern
-
-
-
-
- -
-

3.17.2 switch windows with MS-WINDOWS key

-
-
-
(require 'windmove)
-(windmove-default-keybindings 'super)
-(setq windmove-wrap-around t)
-
-
-
-
- -
-

3.17.3 M-o switch window or buffer

-
-

-The key M-o has different functions depending on context: -

- -

-If there's only 1 window open, switch to the last active. -

- -

-If there are 2 windows open, switch back and forth between the -two. In order to flip them, Use M-O (that is: ALT+shift+o). -

- -

-And if there are more than 2 windows open, call the hydra, which -allows to switch to another window using the arrow keys. The hydra -stays for 1 second unles an arrow key has been pressed. So, I can -press multiple arrow keys in a row as long as I'm fast enough -between key presses. If I stop,the hydra disappears and I end up -whereever I was last. -

- -

-Also, within the hydra 'o' jumps to the last active window and -'f' flips all windows. -

- -

-from https://github.com/lukhas/buffer-move -

-
-
(require 'buffer-move)
-
-(defun tvd-previous-window (&optional ignore)
-  "Toggle between the last two selected windows."
-  (interactive)
-  (let ((win (get-mru-window t t t)))
-    (unless win (error "Last window not found."))
-    (select-window win)))
-
-
- -

-via -whattheemacs.d: -exchange left with right buffer (or up and down), love it. -

-
-
(defun tvd-flip-windows ()
-  "Rotate your windows"
-  (interactive)
-  (cond ((not (> (count-windows)1))
-         (message "You can't rotate a single window!"))
-        (t
-         (setq i 1)
-         (setq numWindows (count-windows))
-         (while  (< i numWindows)
-           (let* (
-                  (w1 (elt (window-list) i))
-                  (w2 (elt (window-list) (+ (% i numWindows) 1)))
-                  (b1 (window-buffer w1))
-                  (b2 (window-buffer w2))
-                  (s1 (window-start w1))
-                  (s2 (window-start w2))
-                  )
-             (set-window-buffer w1  b2)
-             (set-window-buffer w2 b1)
-             (set-window-start w1 s2)
-             (set-window-start w2 s1)
-             (setq i (1+ i)))))))
-
-(defhydra hydra-switch-windows (:color pink: :timeout 2.5)
-  "
-Switch to buffer: ← ↑ → ↓   | _o_: previous | _f_: flip | MOVE: _u_: up    _d_: down   _l_: left   _r_: right"
-  ("<up>"    windmove-up    nil)
-  ("<down>"  windmove-down  nil)
-  ("<left>"  windmove-left  nil)
-  ("<right>" windmove-right nil)
-  ("o"       tvd-previous-window nil :color blue)
-  ("f"       tvd-flip-windows    nil :color blue)
-  ("u"       buf-move-up         nil :color blue)
-  ("d"       buf-move-down       nil :color blue)
-  ("l"       buf-move-left       nil :color blue)
-  ("r"       buf-move-right      nil :color blue)
-  ("q" nil nil :color red))
-
-
- -

-via mbork -modified to call the above hydra if there are more than 2 windows -

-
-
(defun other-window-or-switch-buffer ()
-  "Call `other-window' if more than one window is visible, switch
-to next buffer otherwise."
-  (interactive)
-  (if (one-window-p)
-      (switch-to-buffer nil)
-    (progn
-      (if (= (length (window-list)) 2)
-          (other-window 1)
-        (hydra-switch-windows/body)))))
-
-(global-set-key (kbd "M-o")             'other-window-or-switch-buffer)
-
-
- -

-M-o doesn't work when using emacs via Win->RDP->VNC->X11->Xmonad, -so fall back to C-o. -

-
-
(global-set-key (kbd "C-o")             'other-window-or-switch-buffer)
-
-
- -

-Use only in X11 emacs - setting M-O inside console causes <up> and -<down> to stop working properly, for whatever reasons. -

-
-
(if (display-graphic-p)
-    (global-set-key (kbd "M-O")             'tvd-flip-windows))
-
-
- -
-
-
-
-

3.17.4 Split window to 4 parts

-
-
-
(defun tvd-quarter-windows ()
-  (interactive)
-  (split-window-vertically)
-  (split-window-horizontally)
-  (windmove-down)
-  (split-window-horizontally))
-
-(global-set-key (kbd "C-x 4")           'tvd-quarter-windows)
-
-
- -
-
-
- -
-

3.17.5 Remember and Restore Window Configurations - winner mode

-
-
-
(winner-mode 1)
-
-
- -

-keybindings: C-c left - winner-undo -keybindings: C-c right - winner-redo -

-
-
-
- -
-

3.18 re-read a modified buffer

-
-

-F5 == reload file if it has been modified by another process, shift -because Xmonad -

-
-
(global-set-key (kbd "S-<f5>") ; re-read a buffer from disk (revert)
-                (lambda (&optional force-reverting)
-                  "Interactive call to revert-buffer. Ignoring the auto-save
- file and not requesting for confirmation. When the current buffer
- is modified, the command refuses to revert it, unless you specify
- the optional argument: force-reverting to true."
-                  (interactive "P")
-                  ;;(message "force-reverting value is %s" force-reverting)
-                  (if (or force-reverting (not (buffer-modified-p)))
-                      (revert-buffer :ignore-auto :noconfirm)
-                    (error "The buffer has been modified"))))
-
-
- - -
-
-
-
-

3.19 global TAB/Indent config

-
-

-I use spaces everywhere but Makefiles. If I encounter TABs I -replace them with spaces, if I encounter users entering TABs into -files, I block them. -

- -

-FIXME: also check ethan-wspace ! -

- -
-
(setq-default indent-tabs-mode nil)
-(setq-default tab-width 4)
-(setq indent-line-function 'insert-tab)
-(setq tab-stop-list (quote (4 8 12 16 20 24 28 32 36 40 44 48 52 56 60 64 68 72 76 80 84 88 92 96 100 104 108 112 116 120)))
-(setq tab-always-indent 'complete) ; /FIXME/: doesnt work in cperl-mode
-(setq show-trailing-whitespace t)
-
-(defun indent-buffer ()
-  ;; Author: Mathias Creutz
-  "Re-Indent every line in the current buffer."
-  (interactive)
-  (indent-region (point-min) (point-max) nil))
-
-
- -

-Use normal tabs in makefiles -

-
-
(add-hook 'makefile-mode-hook '(lambda() (setq indent-tabs-mode t)))
-
-
- - -
-
-
-
-

3.20 handy aliases

-
-

-M-x q r <ret> is short enough for me, no need for key bindings for -those -

- -
-
(defalias 'qrr       'query-replace-regexp)
-(defalias 'qr        'query-replace)
-(defalias 'cr        'comment-region)
-(defalias 'ur        'uncomment-region)
-(defalias 'ir        'indent-region)
-(defalias 'dv        'describe-variable)
-(defalias 'dk        'describe-key)
-(defalias 'df        'describe-function)
-(defalias 'dp        'describe-char)
-(defalias 'dm        'describe-mode)
-(defalias 'db        'describe-bindings)
-(defalias 'dl        'finder-commentary) ; aka "describe library"
-(defalias 'repl      'ielm)
-(defalias 'ws        'window-configuration-to-register) ; save window config
-(defalias 'wr        'jump-to-register) ; restore window config
-(defalias 'rec       'rectangle-mark-mode)
-(defalias '|         'shell-command-on-region) ; apply shell command on region
-
-
- -
-
-
-
-

3.21 various settings

-
-

-point stays while scrolling -

-
-
(setq scroll-preserve-screen-position t)
-
-
- -

-no comment margins -

-
-
(setq-default comment-column 0)
-
-
- -

-do not save until I hit C-x-s -

-
-
(setq auto-save-default nil)
-
-
- -

-show all buffers in buffer menu -

-
-
(setq buffers-menu-max-size nil)
-
-
- -

-start to wrap at 30 entries -

-
-
(setq mouse-buffer-menu-mode-mult 30)
-
-
- -

-I'm grown up! -

-
-
(setq disabled-command-function nil)
-
-
- -
-
-
-
-

3.22 load imenu

-
-
-
(define-key global-map [C-down-mouse-2] 'imenu)
-
-
- -
-
-
-
-

3.23 copy/paste Config

-
-

-Related: -

-
    -
  • see also mark-copy-yank-things-mode below!
    • -
  • see also: move-region below (for M-<up|down>)
    • -
  • see also: expand-region below (for C-0)
    • -
- -

-middle mouse button paste at click not where cursor is -

-
-
(setq mouse-yank-at-point t)
-
-
- -

-highlight selected stuff (also allows DEL of active region) -

-
-
(setq transient-mark-mode t)
-
-
- -

-pasting onto selection deletes it -

-
-
(delete-selection-mode t)
-
-
- -

-delete whole lines -

-
-
(setq kill-whole-line t)
-
-
- -

-middle-mouse and C-y use both X-selection and Emacs-clipboard -

-
-
(if (null tvd-win-home)
-    (progn  ; unix
-      (setq x-select-enable-primary t)
-      (setq x-select-enable-clipboard nil))
-  (progn    ; win
-    (global-set-key (kbd "<up-mouse-2>") 'yank)))
-
-
- -

-marked region automatically copied, also on win -

-
-
(setq mouse-drag-copy-region t)
-
-
- -
-
-
-
-

3.24 use more mem

-
-

-are you from the past? -

-
-
(setq gc-cons-threshold 20000000)
-
-
- -
-
-
-
-

3.25 better file name completion

-
-

-Complete filenames case insensitive and ignore certain files during completion. -

-
-
(setq read-file-name-completion-ignore-case t)
-(setq read-buffer-completion-ignore-case t)
-
-
- -

-via endlessparantheses -

-
-
(mapc (lambda (x)
-        (add-to-list 'completion-ignored-extensions x))
-      '(".aux" ".bbl" ".blg" ".exe"
-        ".log" ".meta" ".out" ".pdf"
-        ".synctex.gz" ".tdo" ".toc"
-        "-pkg.el" "-autoloads.el" ".elc"
-        ".dump" ".ps" ".png" ".jpg"
-        ".gz" ".tgz" ".zip"
-        "Notes.bib" "auto/"))
-
-
- -
-
-
-
-

3.26 abbreviations

-
-

-Do I really need those anymore? Added ca 1999… -

- -
-
(define-abbrev-table 'global-abbrev-table '(
-                                            ("oe" "&ouml;" nil 0)
-                                            ("ue" "&uuml;" nil 0)
-                                            ("ae" "&auml;" nil 0)
-                                            ("Oe" "&Ouml;" nil 0)
-                                            ("Ue" "&Uuml;" nil 0)
-                                            ("Ae" "&Auml;" nil 0)
-                                            ("<li>" "<li> </li>" nil 0)
-                                            ("<ul>" "<ul> </ul>" nil 0)
-                                            ))
-
-
- -

-do NOT ask to save abbrevs on exit -

-
-
(setq save-abbrevs nil)
-
-
-
-
- -
-

3.27 meaningful names for buffers with the same name

-
-

-from (prelude) -

- -
-
(require 'uniquify)
-(setq uniquify-buffer-name-style 'forward)
-(setq uniquify-separator "/")
-(setq uniquify-after-kill-buffer-p t) ; rename after killing uniquified
-(setq uniquify-ignore-buffers-re "^\\*") ; don't muck with special buffers
-
-
- -
-
-
-
-

3.28 packages

-
-

-I dont need it all the time and only for experimentation, so lets -only use melpa on demand -

-
-
(defun toggle-melpa()
-  (interactive)
-  (require 'package)
-  (add-to-list 'package-archives
-               '("melpa" . "http://melpa.org/packages/"))
-  (when (< emacs-major-version 24)
-    ;; For important compatibility libraries like cl-lib
-    (add-to-list 'package-archives '("gnu" . "http://elpa.gnu.org/packages/")))
-  (package-initialize)
-  (list-packages))
-
-
- -
-
-
-
-

3.29 My own global variables

-
-

-narrowed fringe background -

-
-
(defvar tvd-fringe-narrow-bg "OrangeRed")
-
-
- -
-
-
-
-

3.30 More scratch space

-
-
-

3.30.1 Text scratch

-
-

-Sometimes I need a text mode scratch buffer while scratch is -already in use. So let's prepare one. I also add a buffer hook so that -this never gets deleted, but cleaned instead. -

- -
-
(with-current-buffer (get-buffer-create "*text*")
-  (text-mode))
-
-
-
-
- -
-

3.30.2 Autoscratch

-
-

-use autoscratch otherwise -autoscratch github -

-
-
(require 'autoscratch-mode)
-(setq initial-major-mode 'autoscratch-mode)
-(add-hook 'autoscratch-mode-hook '(lambda ()
-                                    (setq autoscratch-triggers-alist
-                                          '(("[(;]"         . (progn
-                                                                (call-interactively 'emacs-lisp-mode)
-                                                                (call-interactively 'enable-paredit-mode)
-                                                                (call-interactively 'electric-pair-mode)))
-                                            ("#"            . (progn
-                                                                (call-interactively 'config-general-mode)
-                                                                (electric-indent-local-mode t)))
-                                            ("[-a-zA-Z0-9]" . (text-mode))
-                                            ("/"            . (c-mode))
-                                            ("*"            . (progn (insert " ") (org-mode)))
-                                            ("."            . (fundamental-mode)))
-                                          autoscratch-trigger-on-first-char t
-                                          autoscratch-reset-default-directory t)
-                                    (electric-indent-local-mode nil)
-                                    ))
-(defalias 'scratch 'autoscratch-buffer)
-
-
-
-
- -
-

3.30.3 Persistent Scratch

-
-

-I also like to be scratch buffers persistent with -persistent-scratch -

-
-
(require 'persistent-scratch)
-(setq persistent-scratch-save-file (expand-file-name "scratches.el" user-init-dir))
-(persistent-scratch-setup-default)
-
-(defun tvd-autoscratch-p ()
-  "Return non-nil if the current buffer is a scratch buffer"
-  (string-match "scratch*" (buffer-name)))
-
-(setq persistent-scratch-scratch-buffer-p-function 'tvd-autoscratch-p)
-
-
-
-
-
- -
-

3.31 Recenter config

-
-

-via abo abo -

- -

-However, I set the first position to 1, which causes the window to -be recentered on the second line, that is, I can see one line above -the current one. It works the same with bottom, which I intend, but -I think this is a recenter calculation bug. -

- -
-
(setq recenter-positions '(1 middle bottom))
-
-
-
-
-
- -
-

4 Global Key Bindings

-
-
-
-
-

4.1 c-h != delete

-
-
-
(keyboard-translate ?\C-h ?\C-?)
-(keyboard-translate ?\C-? ?\C-h)
-
-
- -
-
-
-
-

4.2 general keys (re-)mappings

-
-

-(global-set-key (kbd "C-s") 'isearch-forward-regexp) -(global-set-key (kbd "C-r") 'isearch-backward-regexp) -

-
-
(global-set-key (kbd "M-C-s")           'isearch-forward)
-(global-set-key (kbd "M-C-r")           'isearch-backward)
-(global-set-key (kbd "M-%")             'query-replace-regexp)
-(global-set-key (kbd "<backtab>")       'dabbrev-completion) ; shift-tab, inline completion
-
-(global-set-key (kbd "<f9>")            'html-mode)
-(global-set-key (kbd "<delete>")        'delete-char) ; Entf            Char loeschen
-(global-set-key (kbd "<backspace>")     'backward-delete-char) ; Shift+Backspace dito
-(global-set-key (kbd "S-<delete>")      'kill-word) ; Shift+Entf      Wort loeschen
-(global-set-key (kbd "S-<backspace>")   'backward-kill-word) ; Shift+Backspace dito
-(global-set-key (kbd "C-<delete>")      'kill-word) ; Shift+Entf      dito
-(global-set-key (kbd "C-<backspace>")   'backward-kill-word) ; Shift+Backspace dito
-(global-unset-key (kbd "C-z"))
-(global-set-key (kbd "C-x k")           'kill-this-buffer) ; C-x k  really kill current buffer w/o asking
-(global-set-key (kbd "C-x C-b")         'buffer-menu)
-
-
- - - -
-
-
-
-

4.3 display a list of my own global key bindings and aliases

-
-

-via emacswiki -

- -

-Inside Occur: q - quit, e - edit, g - reload -more help with: describe-function occur-mode -

- -
-
(defun occur-mode-clean-buffer ()
-  "Removes all commentary from the *Occur* buffer, leaving the
- unadorned lines."
-  (interactive)
-  (if (get-buffer "*Occur*")
-      (save-excursion
-        (set-buffer (get-buffer "*Occur*"))
-        (goto-char (point-min))
-        (toggle-read-only 0)
-        (if (looking-at "^[0-9]+ lines matching \"")
-            (kill-line 1))
-        (while (re-search-forward "^[ \t]*[0-9]+:"
-                                  (point-max)
-                                  t)
-          (replace-match "")
-          (forward-line 1)))
-    (message "There is no buffer named \"*Occur*\".")))
-
-(defun show-definition(REGEX)
-  (interactive)
-  (let ((dotemacs-loaded nil)
-        (occur-b "*Occur*")
-        (occur-c ""))
-    (if (get-buffer ".emacs")
-        (progn
-          (switch-to-buffer ".emacs")
-          (setq dotemacs-loaded t))
-      (find-file "~/.emacs"))
-    (occur REGEX)
-    (with-current-buffer occur-b
-      (occur-mode-clean-buffer)
-      (setq occur-c (current-buffer))
-      (let ((inhibit-read-only t)) (set-text-properties (point-min) (point-max) ()))
-      (while (re-search-forward "[0-9]*:" nil t)
-        (replace-match ""))
-      (beginning-of-buffer)
-      (kill-line)
-      (sort-lines nil (point-min) (point-max))
-      (emacs-lisp-mode)
-      (beginning-of-buffer)
-      (insert (format ";; *SHOW*:   %s\n" REGEX))
-      (highlight-regexp REGEX)
-      (beginning-of-buffer))
-    (switch-to-buffer occur-b)
-    (delete-other-windows)
-    (if (eq dotemacs-loaded nil)
-        (kill-buffer ".emacs"))))
-
-(defun show-keys()
-  (interactive)
-  (show-definition "^(global-set-key"))
-
-(defun show-aliases()
-  (interactive)
-  (show-definition "^(defalias"))
-
-(defalias 'sk        'show-keys)
-(defalias 'sa        'show-aliases)
-
-
- -
-
-
-
-
-

5 Productivity Functions

-
-
-
-
-

5.1 goto line with tmp line numbers

-
-

-I stole this somewhere, as far as I remember, emacswiki, however, I -always had F7 for goto-line -

- -
-
(defun goto-line-with-feedback ()
-  "Show line numbers temporarily, while prompting for the line number input"
-  (interactive)
-  (unwind-protect
-      (progn
-        (linum-mode 1)
-        (call-interactively 'goto-line))
-    (linum-mode -1)))
-
-(global-set-key (kbd "<f7>")            'goto-line-with-feedback)
-
-
- -
-
-
-
-

5.2 invert fore- and background

-
-

-Sometimes when sitting in a very dark enviroment, my usual light -emacs frame is a too stark contrast to the environment. With this -function I can just invert my current color settings to dark -background and light foreground. -

- -

-remember last inverse -

-
-
(defvar tvd-invert-state t)
-
-
- -

-invert everything, reverse it when called again -

-
-
(defun tvd-invert()
-  "invert fg-bg"
-  (interactive)
-  (invert-face 'default)
-  (invert-face 'mode-line)
-  (set-face-attribute 'fringe nil :inverse-video tvd-invert-state)
-  (setq tvd-invert-state (not tvd-invert-state)) ;; cycle variable tvd-invert-state
-  )
-
-
- -

-fast -

-
-
(global-set-key (kbd "C-c C-i")           'tvd-invert)
-
-
- -
-
-
-
-

5.3 Some useful bindings for Home and End keys Hit the key once to

-
-

-Go to the beginning/end of a line, hit it twice in a row to go to -the beginning/end of the window, three times in a row goes to the -beginning/end of the buffer. NB that there is no timeout involved. -

- -

-Uses a function of viking-mode to establish key repeats, see below. -

- -
-
(defun pc-keys-home ()
-  "Go to beginning of  line/window/buffer. First hitting key goes
-to  beginning of  line,  second in  a row  goes  to beginning  of
-window, third in a row goes to beginning of buffer."
-  (interactive)
-  (let* ((key-times (viking-last-key-repeats)))
-    (cond
-     ((eq key-times 3)
-      (if mark-active
-          (goto-char (point-min))
-        (beginning-of-buffer)))
-     ((eq key-times 2)
-      (if mark-active () (push-mark))
-      (move-to-window-line 0))
-     ((eq key-times 1)
-      (beginning-of-line)))))
-
-(defun pc-keys-end ()
-  "Go to end of  line/window/buffer. First hitting key goes
-to end  of line, second  in a  row goes to  end of
-window, third in a row goes to end of buffer."
-  (interactive)
-  (let* ((key-times (viking-last-key-repeats)))
-    (cond
-     ((eq key-times 3)
-      (if mark-active
-          (goto-char (point-max))
-        (end-of-buffer)))
-     ((eq key-times 2)
-      (if mark-active () (push-mark))
-      (move-to-window-line -1)
-      (end-of-line))
-     ((eq key-times 1)
-      (end-of-line)))))
-
-
- -

-This is the most natural use for those keys -

-
-
(global-set-key (kbd "<home>")          'pc-keys-home)
-(global-set-key (kbd "<end>")           'pc-keys-end)
-
-
- - - -
-
-
-
-

5.4 percent function

-
-

-by Jens Heunemann: jump to percent position into current buffer -

- -
-
(defun goto-percent (p) ;goto Prozentwert (0-100): F8
-  (interactive "nProzent: ")
-  (if (> (point-max) 80000)
-      (goto-char (* (/ (point-max) 100) p)) ;Ueberlauf vermeiden: (max/100)*p
-    (goto-char (/ (* p (point-max)) 100))) ;Rundungsfehler verm.: (max*p)/100
-  (beginning-of-line))
-
-(global-set-key (kbd "<f8>")            'goto-percent) ;F8 goto percent
-
-
- -
-
-
-
-

5.5 Simulate vi's % (percent) function

-
-

-There's not a lot about vi[m] I like, but jumping with % to a -matching paren is one of THOSE features, I also need in emacs. -

- -

-with ideas from emacswiki -

- -

-If (point) is on a paren, jump to the matching paren, otherwise, -just insert a literal ?%. Only make sense if bound to %. -Does not jump in inside () though -

-
-
(defun jump-paren-match-or-insert-percent (arg)
-"Go to  the matching  parenthesis if on  parenthesis. Otherwise
-insert %. Mimics vi stle of % jumping to matching brace."
-(interactive "p")
-(cond ((looking-at "\\s\(\\|\{\\|\\[") (forward-list 1) (backward-char 1))
-      ((and (looking-at "\\s\)\\|\}\\|\\]")
-            (not (looking-back "\\s\(\\|\{\\|\\[")))
-       (forward-char 1) (backward-list 1))
-       (t (insert "%"))))
-
-
- -

-only useful in programming modes -

-
-
(define-key prog-mode-map (kbd "%") 'jump-paren-match-or-insert-percent)
-
-
- -
-
-
-
-

5.6 Move region

-
-

-Mark a region, then use M-up|down to move it around -via emacswiki -code from move-lines -

- -
-
(defun move-lines--internal (n)
-  (let* ((start (point)) ;; The position of beginning of line of the first line
-         (end start) ;; The position of eol+\n of the end line
-         col-init        ;; The current column for the first line
-         (col-end (current-column)) ;; The current column for the end line
-         exchange_pm     ;; If I had exchanged point and mark
-         delete-latest-newline) ;; If I had inserted a newline at the end
-
-    ;; STEP 1: Identifying the line(s) to cut.
-    ;; ---
-    ;; If region is actives, I ensure that point always is at the end of the
-    ;; region and mark at the beginning.
-    (when (region-active-p)
-      (when (< (point) (mark))
-        (setq exchange_pm t)
-        (exchange-point-and-mark))
-      (setq start (mark)
-            end (point)
-            col-end (current-column)))
-
-    (goto-char start) (setq col-init (current-column))
-    (beginning-of-line) (setq start (point))
-
-    (goto-char end) (end-of-line)
-    ;; If point == point-max, this buffers doesn't have the trailing newline.
-    ;; In this case I have to insert a newline otherwise the following
-    ;; `forward-char' (to keep the "\n") will fail.
-    (when (= (point) (point-max))
-      (setq delete-latest-newline t)
-      (insert-char ?\n) (forward-char -1))
-    (forward-char 1) (setq end (point))
-
-    ;; STEP 2: Moving the lines.
-    ;; ---
-    ;; The region I'm cutting span from the beginning of line of the current
-    ;; line (or current region) to the end of line + 1 (newline) of the current
-    ;; line (or current region).
-    (let ((line-text (delete-and-extract-region start end)))
-      (forward-line n)
-      ;; If the current-column != 0, I have moved the region at the bottom of a
-      ;; buffer doesn't have the trailing newline.
-      (when (not (= (current-column) 0))
-        (insert-char ?\n)
-        (setq delete-latest-newline t))
-      (setq start (+ (point) col-init)) ;; Now, start is the start of new region
-      (insert line-text))
-
-    ;; STEP 3: Restoring
-    ;; ---
-    ;; I'm at the end of new region (or line) and start has setted at the
-    ;; beginning of new region (if a region is active).
-    ;; Restoring the end column.
-    (forward-line -1)
-    (forward-char col-end)
-
-    (when delete-latest-newline
-      (save-excursion
-        (goto-char (point-max))
-        (delete-char -1)))
-
-    (when (region-active-p)
-      (setq deactivate-mark nil)
-      (set-mark start)
-      (if exchange_pm
-          (exchange-point-and-mark)))))
-
-(defun move-lines-up (n)
-  "Moves the current line or, if region is actives, the lines surrounding
-region, up by N lines, or 1 line if N is nil."
-  (interactive "p")
-  (if (eq n nil)
-      (setq n 1))
-  (move-lines--internal (- n)))
-
-(defun move-lines-down (n)
-  "Moves the current line or, if region is actives, the lines surrounding
-region, down by N lines, or 1 line if N is nil."
-  (interactive "p")
-  (if (eq n nil)
-      (setq n 1))
-  (move-lines--internal n))
-
-(global-set-key (kbd "M-<up>")          'move-lines-up)
-(global-set-key (kbd "M-<down>")        'move-lines-down)
-
-
- -
-
-
-
-

5.7 comment-uncomment region with one key binding

-
-

-via stackoverflow -

-
-
(defun comment-or-uncomment-region-or-line ()
-  "Comments or uncomments the region or the current line if there's no active region."
-  (interactive)
-  (let (beg end)
-    (if (region-active-p)
-        (setq beg (region-beginning) end (region-end))
-      (setq beg (line-beginning-position) end (line-end-position)))
-    (comment-or-uncomment-region beg end)))
-
-(global-set-key (kbd "C-c C-c")         'comment-or-uncomment-region-or-line)
-
-
- -
-
-
-
-

5.8 search for symbol at point

-
-

-Simulate the # function of vi, marks the symbol at point, C-s then -searches for it. I use this a lot. -

- -

-via ergomacs -

- -
-
(defun xah-search-current-word ()
-  "Call `isearch' on current word or text selection.
-   'word' here is A to Z, a to z, and hyphen and underline, independent of syntax table.
-URL `[[http://ergoemacs.org/emacs/modernization_isearch.html'][ergomacs]]
-Version 2015-04-09"
-  (interactive)
-  (let ( xahp1 xahp2 )
-    (if (use-region-p)
-        (progn
-          (setq xahp1 (region-beginning))
-          (setq xahp2 (region-end)))
-      (save-excursion
-        (skip-chars-backward "-_A-Za-z0-9")
-        (setq xahp1 (point))
-        (right-char)
-        (skip-chars-forward "-_A-Za-z0-9")
-        (setq xahp2 (point))))
-    (setq mark-active nil)
-    (when (< xahp1 (point))
-      (goto-char xahp1))
-    (isearch-mode t)
-    (isearch-yank-string (buffer-substring-no-properties xahp1 xahp2))
-    (message "Now use C-s to search for it ...")
-    ))
-
-(global-set-key (kbd "C-#")             'xah-search-current-word)
-
-
- -
-
-
-
-

5.9 Window Margin

-
-

-Kinda screen reader for the poor. I use this sometimes with info -or woman mode. I also use a full featured screen reader: nove-mode, -see below. -

- -

-left+right margin on demand (but nothing else) -

-
-
(defun margin(m)
-  "set left and right margins for better readability"
-  (interactive "nEnter Margin (0 to disable) [0-9]+: ")
-  (set-window-margins (car (get-buffer-window-list (current-buffer) nil t)) m m) ;; set immediately
-  (setq left-margin-width m) ;; persist until reset
-  (setq right-margin-width m)
-  (message "To reset, change Buffer or call again with arg 0.")
-  )
-
-
- -
-
-
-
-

5.10 Fill and justify a paragraph

-
-

-this is just a shortcut for: - C-u 70 <ret> M-x fill-paragraph -but C-q is just easier to remember -

- -

-however, if pressed again it un-fills the paragraph, -idea via: endlessparentheses -

-
-
(defun tvd-fill-and-justify-or-unfill()
-  (interactive)
-  (let ((fill-column
-         (if (eq last-command 'tvd-fill-and-justify-or-unfill)
-             (progn (setq this-command nil)
-                    (point-max))
-           fill-column)))
-    (fill-paragraph 70)))
-
-(global-set-key (kbd "C-q")             'tvd-fill-and-justify-or-unfill) ; like M-q, which is bound to x-window-quit in xmonad: fill+justify
-
-
- -
-
-
-
-

5.11 Make a read-only copy of the current buffer

-
-

-I just create a new read-only buffer and copy the contents of the -current one into it, which can be used as backup. I use this in -cases where I need to re-factor a file and do lots of changes. With -the buffer copy I have a reference to compare without the need to -leave emacs and look at revision control diffs or the like, and if -a file is not maintained via VC anyway. -

- -
-
(defvar copy-counter 0)
-
-(defun get-copy-buffer-name()
-  "return unique copy buffer name"
-  (let ((name (concat "*COPY " (buffer-name (current-buffer)) " (RO)")))
-    (if (not (get-buffer name))
-        (progn
-          (setq copy-counter (1+ copy-counter))
-          (concat name "<" (number-to-string copy-counter) ">"))
-      (concat name))))
-
-(defun copy-buffer-read-only()
-  "Create a read-only copy of the current buffer"
-  (interactive)
-  (let ((old-buffer (current-buffer))
-        (new-buffer-name (get-copy-buffer-name)))
-    (progn
-      (delete-other-windows)
-      (split-window-horizontally)
-      (other-window 1)
-      (if (not (eq (get-buffer new-buffer-name) nil))
-          (kill-buffer (get-buffer new-buffer-name)))
-      (set-buffer (get-buffer-create new-buffer-name))
-      (insert-buffer-substring old-buffer)
-      (read-only-mode)
-      (switch-to-buffer new-buffer-name)
-      (other-window 1))))
-
-(defalias 'cp        'copy-buffer-read-only)
-
-(global-set-key (kbd "C-c C-p")         'copy-buffer-read-only) ; make read-only buffer copy
-
-
- -
-
-
-
-

5.12 Cleanup, close all windows and kill all buffers

-
-

-From time to time I get annoyed by the many dozen buffers -opened. In such cases I like to close them all at once. -

- -

-No key binding though, just in case I stumble upon it and kill my -setup accidentally. -

- -
-
(defun kill-all-buffers ()
-  "Kill all buffers, clean up, close all windows"
-  (interactive)
-  (when (y-or-n-p "Close all windows and kill all buffers?")
-    (delete-other-windows)
-    (clean-buffer-list)
-    (dolist (buffer (buffer-list))
-      (kill-buffer buffer))
-    (delete-minibuffer-contents)
-    (if (fboundp 'tramp-cleanup-all-connections)
-        (tramp-cleanup-all-connections))
-    (with-current-buffer (get-buffer-create "*text*")
-      (text-mode))
-    (autoscratch-buffer)))
-
-
- -
-
-
-
-

5.13 Cleanup current buffer

-
-

-Remove TABs, leading and trailing spaces, re-indent a buffer. -

- -

-via whattheemacs.d -

- -
-
(defun cleanup-buffer ()
-  "Perform a bunch of safe operations on the whitespace content of a buffer.
-Does not indent buffer, because it is used for a before-save-hook, and that
-might be bad."
-  (interactive)
-  (untabify (point-min) (point-max))
-  (delete-trailing-whitespace)
-  (save-excursion
-    (replace-regexp "^\n\\{3,\\}" "\n\n" nil (point-min) (point-max)))
-  (set-buffer-file-coding-system 'utf-8)
-  (indent-region (point-min) (point-max)))
-
-(defalias 'cb        'cleanup-buffer)
-
-
- -

-related, I use this to cleanup directories and rename files and -directories to my liking. Sometimes I get a disk or stick from -Windows users and they use every character available on their -keyboards to name files and dirs. I can't have this shit. -

- -
-
(defun cleanup-dired-buffer ()
-  "If inside a wdired (edit) buffer, rename everything"
-  (interactive)
-  (delete-trailing-whitespace)
-  (save-excursion
-    (replace-regexp "[\(\)'`#,_&\!]" "" nil (point-min) (point-max))
-    (replace-string " " "-" nil (point-min) (point-max))
-    (replace-regexp "--*" "-" nil (point-min) (point-max))
-    (replace-string "ä" "ae" nil (point-min) (point-max))
-    (replace-string "ö" "oe" nil (point-min) (point-max))
-    (replace-string "ü" "ue" nil (point-min) (point-max))
-    (replace-string "Ä" "Ae" nil (point-min) (point-max))
-    (replace-string "Ö" "Oe" nil (point-min) (point-max))
-    (replace-string "Ü" "Ue" nil (point-min) (point-max))
-    (replace-string "ß" "ss" nil (point-min) (point-max))
-    (replace-string ".." "." nil (point-min) (point-max))))
-
-(defun cleanup-dir()
-  "Cleanup wdired buffer in one whole step, used for emacsclient buffers"
-  (interactive)
-  (wdired-change-to-wdired-mode)
-  (cleanup-dired-buffer)
-  (wdired-finish-edit)
-  (kill-this-buffer))
-
-
- - -
-
-
-
-

5.14 Remove Umlauts and other crab in current buffer

-
-

-converts: - Stan Lem - ein schönes Leben & sonst nix(ungekuerzte Ausgabe) -to: - StanLem-einschoenesLebensonstnixungekuerzteAusgabe -

- -

-used in dired buffers to cleanup filenames by german windows users. -

-
-
(defun umlaute-weg()
-  (interactive)
-  (let ((umlaute '((Ü . Ue)
-                   (Ä . Ae)
-                   (Ö . Oe)
-                   (ü . ue)
-                   (ä . ae)
-                   (ö . oe)
-                   (ß . ss)))
-        (regs (list
-               '(" "       . "_")
-               '("_-_"     . "-")
-               '("[\(\)&]" . "_")
-               '("__*"     . "_")
-               '("_$"      . "")
-               )))
-    (save-excursion
-      (dolist (pair umlaute)
-        (replace-regexp (symbol-name (car pair))
-                        (symbol-name (cdr pair))
-                        nil
-                        (point-min) (point-max)))
-      (dolist (reg regs)
-        (replace-regexp (car reg) (cdr reg) nil
-                        (point-min) (point-max))))))
-
-
- -
-
-
-
-

5.15 Better newline(s)

-
-

-Add newline and jump to indent from wherever I am in the current -line, that is it is not required to be on the end of line. -

- -

-via whattheemacs.d -

- -
-
(defun open-line-below ()
-  (interactive)
-  (end-of-line)
-  (newline)
-  (indent-for-tab-command))
-
-(defun open-line-above ()
-  (interactive)
-  (end-of-line)
-  (beginning-of-line)
-  (newline)
-  (forward-line -1)
-  (indent-for-tab-command))
-
-
- -

-disabled, interferes with modes. -

- -

-(global-set-key (kbd "<C-return>") 'open-line-below) -

- -

-(global-set-key (kbd "<C-S-return>") 'open-line-above) -

- -
-
-
-
-

5.16 Mouse Rectangle

-
-

-There's not much use for the mouse in emacs, but this gimick is -funny and works like a charm. -

- -

-via stackoverflow -

-
-
(defun mouse-start-rectangle (start-event)
-  (interactive "e")
-  (deactivate-mark)
-  (mouse-set-point start-event)
-  (rectangle-mark-mode +1)
-  (let ((drag-event))
-    (track-mouse
-      (while (progn
-               (setq drag-event (read-event))
-               (mouse-movement-p drag-event))
-        (mouse-set-point drag-event)))))
-
-(global-set-key (kbd "S-<down-mouse-1>") 'mouse-start-rectangle)
-
-
- -
-
-
-
-

5.17 DOS <=> UNIX conversion helpers

-
-
-
(defun dos2unix ()
-  (interactive)
-  (set-buffer-file-coding-system 'utf-8-unix)
-  (message (format "converted current buffer to %s" buffer-file-coding-system)))
-
-(defun unix2dos ()
-  (interactive)
-  (set-buffer-file-coding-system 'utf-8-dos)
-  (message (format "converted current buffer to %s" buffer-file-coding-system)))
-
-
-
-
-
-
-

5.18 helper do add the same thing to multiple mode hooks

-
-

-via stackoverflow -usage samples below. -

-
-
(defun add-something-to-mode-hooks (mode-list something)
-  "helper function to add a callback to multiple hooks"
-  (dolist (mode mode-list)
-    (add-hook (intern (concat (symbol-name mode) "-mode-hook")) something)))
-
-
- -
-
-
- -
-

5.19 helper to catch load errors

-
-

-Try to eval 'fn, catch errors, if any but make it possible for -emacs to continue undisturbed, used with SMEX, see below. -

-
-
(defmacro safe-wrap (fn &rest clean-up)
-  `(unwind-protect
-       (let (retval)
-         (condition-case ex
-             (setq retval (progn ,fn))
-           ('error
-            (message (format "Caught exception: [%s]" ex))
-            (setq retval (cons 'exception (list ex)))))
-         retval)
-     ,@clean-up))
-
-
-
-
-
-
-

5.20 Alignment Wrappers

-
-

-align-regexp is already a very usefull tool, however, sometimes I -want to repeat the alignment and I hate C-u, so here are some -wrappers to make this easier. -

- -
-
(defun align-repeat (regex &optional alignment)
-  "Aply  REGEX  to all  columns  not  just  the first.  Align  by
-ALIGNMENT which must be 'left or 'right. The default is 'left.
-
-Right alignment:
-
-col1 ,col2
-col1 ,col2
-
-Left alignment:
-
-col1, col2
-col1, col2"
-  (interactive  "MRepeat Align Regex [ ]: ")
-  (let ((spc " ")
-        (beg (point-min))
-        (end (point-max))
-        (areg "%s\\(\\s-*\\)" ; default left aligned
-              ))
-    (when (string= regex "")
-      (setq regex spc))
-    (when (region-active-p)
-      (setq beg (region-beginning))
-      (setq end (region-end)))
-    (when (eq alignment 'right)
-        (setq areg "\\(\\s-*\\)%s"))
-    (align-regexp beg end (format areg regex) 1 1 t)))
-
-(defun align-repeat-left (regex)
-  (interactive  "MRepeat Left Align Regex [ ]: ")
-  (align-regexp-repeat regex 'left))
-
-(defun align-repeat-right (regex)
-  (interactive  "MRepeat Left Align Regex [ ]: ")
-  (align-regexp-repeat regex 'right))
-
-
-
-
- - -
-

5.21 String Helpers

-
-

-Some helper functions I use here and there. -

- -
-
(defun tvd-alist-keys (A)
-  "return a list of keys of alist A"
-  (let ((K ()))
-    (dolist (e A)
-            (push (car e) K)
-            )
-    K))
-
-(defun tvd-get-line ()
-  "return current line in current buffer"
-  (buffer-substring-no-properties
-   (line-beginning-position)
-   (line-end-position)))
-
-(defun tvd-starts-with (s begins)
-  "Return non-nil if string S starts with BEGINS."
-  (cond ((>= (length s) (length begins))
-         (string-equal (substring s 0 (length begins)) begins))
-        (t nil)))
-
-(defun tvd-replace-all (regex replace)
-  "Replace all matches of REGEX with REPLACE in current buffer."
-  (interactive)
-  (goto-char (point-min))
-  (while (re-search-forward regex nil t)
-    (replace-match replace)))
-
-
-
-
-
- -
-

6 Modes

-
-
-

6.1 Programming Languages

-
-
-

6.1.1 VALA

-
-
-
(autoload 'vala-mode "vala-mode" "Major mode for editing Vala code." t)
-(add-to-list 'auto-mode-alist '("\\.vala$" . vala-mode))
-(add-to-list 'auto-mode-alist '("\\.vapi$" . vala-mode))
-(add-to-list 'file-coding-system-alist '("\\.vala$" . utf-8))
-(add-to-list 'file-coding-system-alist '("\\.vapi$" . utf-8))
-
-
- -
-
-
- -
-

6.1.2 python mode

-
-

-Not much configured for python, I'm happy with the defaults as it seems :) -

-
-
(require 'python)
-(autoload 'python-mode "python-mode" "Major mode for python scripts" t)
-
-(add-hook
- 'python-mode-hook
- (function
-  (lambda()
-    (local-set-key  [delete] 'py-electric-delete)
-    (setq-default indent-tabs-mode nil)
-    (setq mode-name "PY")
-    (outline-minor-mode 0) ;; turn off outline here. /FIXME/: find out where it's turned on!
-    )))
-
-(setq auto-mode-alist
-      (append '(("\\.\\(py\\)$"  . python-mode))
-              auto-mode-alist))
-
-
-
-
-
- -
-

6.1.3 cperl mode

-
-

-I am a perl addict. I love it, therefore, emacs must be prepared -for my addiction. Most importantly, I prefer cperl instead of the -default perl mode. I do not use the cperl version delivered with -emacs though, but the latest git version. -

- -
-
(autoload 'cperl-mode "cperl-mode" "alternate perl mode" t)
-(defalias 'perl-mode 'cperl-mode)
-
-
- -

-enable the most important cperl features -

-
-
(setq cperl-indent-left-aligned-comments nil)
-(setq cperl-comment-column 32)
-(setq cperl-hairy t)
-(setq cperl-electric-linefeed t)
-(setq cperl-electric-keywords t)
-(setq cperl-electric-parens t)
-(setq cperl-electric-parens-string nil)
-
-
- -

-perl special: run, compile, debug -

-
-
(setq perl-run-out-buffer "*Async Shell Command*")
-
-(defun perl-kill ()
-  "get rid of hanging perl compile or run buffers"
-  (interactive)
-  (delete-windows-on perl-run-out-buffer)
-  (kill-buffer perl-run-out-buffer))
-
-(defun perl-run (switches parameters prefix)
-  "execute current perl buffer"
-  (interactive "sPerl-switches:\nsParameter:\nP")
-  (let ((file buffer-file-name))
-    (if (eq prefix nil)
-        (shell-command (concat "perl " switches " " file " " parameters "&"))
-      (shell-command (concat "perl -wc " switches " " file " " parameters "&")))
-    (save-excursion
-      (set-buffer perl-run-out-buffer)
-      (setq perl-error-fontified nil
-            perl-error-start nil
-            perl-error-end nil)
-      (goto-char (point-min)))
-    ))
-
-(defun perl-next-error ()
-  "jump to next perl run error, if any"
-  (interactive)
-  (let (line
-        errorfile
-        (window (get-buffer-window (buffer-name)))
-        (file buffer-file-name)
-        (buffer (buffer-name))
-        )
-    (select-window (display-buffer perl-run-out-buffer))
-    (set-buffer perl-run-out-buffer)
-    (if (eq perl-error-fontified t)
-        (progn
-          (set-text-properties perl-error-start perl-error-end ())
-          (setq perl-error-fontified nil)
-          )
-      )
-    (if (re-search-forward (concat "at \\([-a-zA-Z:0-9._~#/\\]*\\) line \\([0-9]*\\)[.,]") (point-max) t)
-        ()
-      (goto-char (point-min))
-      (message "LAST ERROR, jumping to first")
-      (re-search-forward (concat "at \\([-a-zA-Z:0-9._~#/\\]*\\) line \\([0-9]*\\)[.,]") (point-max) t)
-      )
-    (recenter)
-    (set-text-properties (match-beginning 1)
-                         (match-end 2)
-                         (list 'face font-lock-keyword-face))
-    (setq perl-error-fontified t
-          perl-error-start (match-beginning 1)
-          perl-error-end (match-end 2)
-          errorfile (buffer-substring
-                     (match-beginning 1)
-                     (match-end 1))
-          line (string-to-int (buffer-substring
-                               (match-beginning 2)
-                               (match-end 2))))
-    (select-window window)
-    (find-file errorfile)
-    (goto-line line)))
-
-
- -

-cperl indent region -

-
-
(defun own-cperl-indent-region-or-paragraph (start end)
-  (interactive "r")
-  (if mark-active
-      (cperl-indent-region start end)
-    (save-excursion
-      (mark-paragraph)
-      (cperl-indent-region (point) (mark t))
-      )))
-
-
- -

-and hook them into cperl -

-
-
(add-hook
- 'cperl-mode-hook
- (function
-  (lambda()
-    (make-variable-buffer-local 'perl-error-fontified)
-    (make-variable-buffer-local 'perl-error-start)
-    (make-variable-buffer-local 'perl-error-end)
-    (make-variable-buffer-local 'perl-old-switches)
-    (make-variable-buffer-local 'perl-old-parameters)
-    (local-set-key "\C-hF" 'cperl-info-on-current-command)
-    (local-set-key "\C-hf" 'describe-function)
-    (local-set-key "\C-hV" 'cperl-get-help)
-    (local-set-key "\C-hv" 'describe-variable)
-    (local-set-key "\C-cr" 'perl-run)
-    (local-set-key [f5]          'perl-run) ;F5 perl-run
-    (local-set-key [f6]          'perl-kill) ;F6 perl-kill
-    (local-set-key "\C-ck" 'perl-kill)
-    (local-set-key "\C-c#" 'perl-next-error)
-    (local-set-key "\M-\C-q" 'own-cperl-indent-region-or-paragraph)
-    (setq mode-name "PL")
-    )))
-
-
- - - -
-
-
- -
-

6.1.4 Paredit for lisp only

-
-

-13.11.2018: disabled in exchange for smartparens, which see -

- -

-I use paredit in lisp a lot, and I'm mostly happy with the defaults. -

- -

-(autoload 'enable-paredit-mode "paredit" "Turn on pseudo-structural editing of Lisp code." t) -

- -

-;; However, I use it with lisp dialects only -(add-hook 'emacs-lisp-mode-hook #'enable-paredit-mode) -(add-hook 'eval-expression-minibuffer-setup-hook #'enable-paredit-mode) -(add-hook 'ielm-mode-hook #'enable-paredit-mode) -(add-hook 'lisp-mode-hook #'enable-paredit-mode) -(add-hook 'lisp-interaction-mode-hook #'enable-paredit-mode) -(add-hook 'scheme-mode-hook #'enable-paredit-mode) -(add-hook 'slime-repl-mode-hook (lambda () (paredit-mode +1))) -

- -

-;; sometimes I need to be able to turn it off fast: -(defalias 'pe 'paredit-mode) -

- -

-(eval-after-load 'paredit - '(progn - ;; force my own bindings for those - (define-key paredit-mode-map (kbd "C-d") nil) - (define-key paredit-mode-map (kbd "<M-up>") nil) - (define-key paredit-mode-map (kbd "<M-down>") nil))) -

-
-
-
-
-

6.1.5 Smart Parens

-
-

-I'm trying to migrate to smart-parens, since it supports all of -paredit but can do more -

- -

-Also look at: -https://github.com/Fuco1/.emacs.d/blob/master/files/smartparens.el -https://github.com/Fuco1/smartparens/wiki -https://ebzzry.io/en/emacs-pairs/ -

-
-
(require 'smartparens-config)
-(require 'cl)
-
-(defun tvd-disable-par-and-pair()
-  "Disables Paredit and Electric-Pair-Mode if currently active.
-Used when enabling smartparens-mode."
-  (interactive)
-  (when electric-pair-mode
-    (electric-pair-mode))
-  (when (fboundp 'pparedit-mode)
-        (when paredit-mode
-          (disable-paredit-mode))))
-
-
- -

-enable sp in minibuffer as well -maybe, see: https://github.com/Fuco1/smartparens/issues/33: -(sp-local-pair 'minibuffer-inactive-mode "'" nil :actions nil) -

-
-
(setq sp-ignore-modes-list
-      (delete 'minibuffer-inactive-mode sp-ignore-modes-list))
-
-
- -

-automatically enable where needed -

-
-
(add-something-to-mode-hooks
- '(emacs-lisp ielm lisp lisp-interaction scheme slime-repl ) 'smartparens-mode)
-
-
- -

-also in some select prog modes -

-
-
(add-something-to-mode-hooks
- '(perl ruby c c++ shell-script makefile config-general) 'smartparens-mode)
-
-
- -

-I use my own lisp comment tool until sp#942 is fixed -

-
-
(defun tvd-lisp-comment ()
-  (interactive)
-  (if (not (looking-at "\s*\("))
-      (self-insert-command 1)
-    (let ((beg (point)))
-      (forward-list 1)
-      (when (looking-at "\s*\)")
-        (insert "\n"))
-      (comment-region beg (point))
-      (indent-for-tab-command)
-      (goto-char beg))))
-
-(eval-after-load 'smartparens
-  '(progn
-     ;; hydra via https://github.com/lunaryorn/old-emacs-configuration/blob/master/init.el
-     (defhydra hydra-smartparens (:hint nil)
-    "
-Sexps [quit with _q_, reach this hydra with 'C-x (']
-
-^Nav^                       ^Barf/Slurp^                           ^Depth^
-^---^-----------------------^----------^---------------------------^-----^-----------------
-_f_: forward  (C-M-right)   _→_:          slurp forward (C-right)  _R_: splice
-_b_: backward (C-M-left)    _←_:          barf forward  (C-left)   _r_: raise
-_u_: backward ↑             _C-<right>_:  slurp backward           _↑_: raise backward
-_d_: forward  ↓ (C-M-down)  _C-<left>_:   barf backward            _↓_: raise forward
-_p_: backward ↓
-_n_: forward  ↑ (C-M-up)
-
-^Kill^           ^Misc^                       ^Wrap^
-^----^-----------^----^-----------------------^----^------------------
-_w_: copy        _j_: join                    _(_: wrap with ( )
-_k_: kill (C-k)  _s_: split                   _{_: wrap with { }
-^^               _t_: transpose               _'_: wrap with ' '
-^^               _c_: convolute               _\"_: wrap with \" \"
-^^               _i_: indent defun
-
-"
-    ("q" nil)
-    ;; Wrapping
-    ("(" (lambda (_) (interactive "P") (sp-wrap-with-pair "(")))
-    ("{" (lambda (_) (interactive "P") (sp-wrap-with-pair "{")))
-    ("'" (lambda (_) (interactive "P") (sp-wrap-with-pair "'")))
-    ("\"" (lambda (_) (interactive "P") (sp-wrap-with-pair "\"")))
-    ;; Navigation
-    ("f" sp-forward-sexp )
-    ("b" sp-backward-sexp)
-    ("u" sp-backward-up-sexp)
-    ("d" sp-down-sexp)
-    ("p" sp-backward-down-sexp)
-    ("n" sp-up-sexp)
-    ;; Kill/copy
-    ("w" sp-copy-sexp)
-    ("k" sp-kill-sexp)
-    ;; Misc
-    ("t" sp-transpose-sexp)
-    ("j" sp-join-sexp)
-    ("s" sp-split-sexp)
-    ("c" sp-convolute-sexp)
-    ("i" sp-indent-defun)
-    ;; Depth changing
-    ("R" sp-splice-sexp)
-    ("r" sp-splice-sexp-killing-around)
-    ("<up>" sp-splice-sexp-killing-backward)
-    ("<down>" sp-splice-sexp-killing-forward)
-    ;; Barfing/slurping
-    ("<left>"     sp-forward-slurp-sexp)
-    ("<right>"    sp-forward-barf-sexp)
-    ("C-<left>"   sp-backward-barf-sexp)
-    ("C-<right>"  sp-backward-slurp-sexp))
-
-     ;; via https://ebzzry.io/en/emacs-pairs/:
-     (defmacro def-pairs (pairs)
-  "Define functions for pairing. PAIRS is an alist of (NAME . STRING)
-conses, where NAME is the function name that will be created and
-STRING is a single-character string that marks the opening character.
-
-  (def-pairs ((paren . \"(\")
-              (bracket . \"[\"))
-
-defines the functions WRAP-WITH-PAREN and WRAP-WITH-BRACKET,
-respectively."
-  `(progn
-     ,@(loop for (key . val) in pairs
-             collect
-             `(defun ,(read (concat
-                             "wrap-with-"
-                             (prin1-to-string key)
-                             "s"))
-                  (&optional arg)
-                (interactive "p")
-                (sp-wrap-with-pair ,val)))))
-     (def-pairs ((paren . "(")
-            (bracket . "[")
-            (brace . "{")
-            (single-quote . "'")
-            (double-quote . "\"")
-            (back-quote . "`")))
-
-     ;;(add-hook 'smartparens-enabled-hook #'tvd-disable-par-and-pair)
-     ;;(add-hook 'smartparens-enabled-hook #'turn-on-smartparens-strict-mode)
-
-     ;; auto wrapping w/o region
-     (define-key smartparens-mode-map (kbd "C-c (")  'wrap-with-parens)
-     (define-key smartparens-mode-map (kbd "C-c [")  'wrap-with-brackets)
-     (define-key smartparens-mode-map (kbd "C-c {")  'wrap-with-braces)
-     (define-key smartparens-mode-map (kbd "C-c '")  'wrap-with-single-quotes)
-     (define-key smartparens-mode-map (kbd "C-c \"") 'wrap-with-double-quotes)
-     (define-key smartparens-mode-map (kbd "C-c `")  'wrap-with-back-quotes)
-
-     ;; modification
-     (define-key smartparens-mode-map (kbd "C-x (")         'hydra-smartparens/body)
-     (define-key smartparens-mode-map (kbd "C-k")           'sp-kill-hybrid-sexp)
-     (define-key smartparens-mode-map (kbd "C-<left>")      'sp-forward-slurp-sexp)
-     (define-key smartparens-mode-map (kbd "C-<right>")     'sp-forward-barf-sexp)
-
-     ;; movement
-     ;; Also Check: https://github.com/Fuco1/smartparens/wiki/Working-with-expressions
-     ;; (look for "quick summary for each navigation function")
-     ;;
-     ;; Jump after  the next  balanced expression.  If inside  one and
-     ;; there is no forward exp., jump after its closing pair.
-     (define-key smartparens-mode-map (kbd "C-M-<right>") 'sp-forward-sexp)
-     ;; Jump before  the previous  balanced expression. If  inside one
-     ;; and there is no previous exp., jump before its opening pair.
-     (define-key smartparens-mode-map (kbd "C-M-<left>")  'sp-backward-sexp)
-     ;; Jump up one  level from the current  balanced expression. This
-     ;; means skipping  all the  enclosed expressions within  this and
-     ;; then jumping after the closing pair.
-     (define-key smartparens-mode-map (kbd "C-M-<up>")    'sp-up-sexp)
-     ;; Jump after the opening pair  of next balanced expression. This
-     ;; effectively  descends  one  level   down  in  the  "expression
-     ;; hierarchy".  If there  is no  expression to  descend to,  jump
-     ;; after current expression's  opening pair. This can  be used to
-     ;; quickly  navigate   to  the  beginning  of   current  balanced
-     ;; expression.
-     (define-key smartparens-mode-map (kbd "C-M-<down>")  'sp-down-sexp)
-     ;;  Jump to  the beginning  of following balanced  expression. If
-     ;;  there is no  following expression on the  current level, jump
-     ;;  one level up backward, effectively doing sp-backward-up-sexp.
-     (define-key smartparens-mode-map (kbd "C-S-<left>")  'sp-next-sexp)
-     ;; Jump to the end of  the previous balanced expression. If there
-     ;; is no previous expression on the current level, jupm one level
-     ;; up forward, effectively doing sp-up-sexp.
-     (define-key smartparens-mode-map (kbd "C-S-<right>") 'sp-previous-sexp)
-
-     ;; comment the whole sexp
-     (define-key smartparens-mode-map (kbd ";") 'tvd-lisp-comment)
-
-     ;; replace my global setting
-     ;; /FIXME/: fhceck/fix M<up+down>!
-     (define-key smartparens-mode-map (kbd "M-<right>")   'sp-forward-symbol)
-     (define-key smartparens-mode-map (kbd "M-<left>")    'sp-backward-symbol)))
-
-
- -
-
-
-
-

6.1.6 ETAGS

-
-

-I use ETAGS for some projects. With etags I can easily jump to the -definition of a function, struct or whatever across files and -directories. -

- -

-manually generate the tags file: -/usr/bin/ctags-exuberant -e *.c … -visit-tags-file ("TAGS" whereever ctags run) -

- -

-then load TAGS with visit-tags-table -

-
-
(require 'etags-select)
-
-
- -

-generate TAGS and load it -

-
-
(defun etags-create (dir-name)
-  "Create tags file."
-  (interactive "DDirectory: ")
-  (let* ((ctags "/usr/bin/ctags-exuberant")
-         (odir  (directory-file-name dir-name))
-         (ofile (concat odir "/TAGS"))
-         (langs "lisp,python,perl,c,c++,shell")
-         (shell-command
-          (format "%s -f %s -e -R --languages=%s %s" ctags ofile langs odir))
-         (visit-tags-table ofile))))
-
-
- -

-ALTR + e (equals on de keyboard € sign): jump to tag source -

-
-
(global-set-key (kbd "€")               'etags-select-find-tag-at-point) ; alt-right + e: jump to tag definition
-
-
- -

-Use ido to list tags, but then select via etags-select (best of both worlds!) -

-
-
(defun etags-find ()
-  "Find a tag using ido"
-  (interactive)
-  (tags-completion-table)
-  (let (tag-names)
-    (mapatoms (lambda (x)
-                (push (prin1-to-string x t) tag-names))
-              tags-completion-table)
-    (etags-select-find (ido-completing-read "Tag: " tag-names))))
-
-
- -

-some handy aliases -

-
-
(defalias 'ec        'etags-create)
-(defalias 'ef        'etags-find)
-
-
- -
-
-
-
- -
-

6.2 Text Modes

-
-
-

6.2.1 sgml

-
-

-Used for XML and the likes. -

- -
-
(setq sgml-set-face t)
-(setq sgml-balanced-tag-edit t)
-(setq sgml-omittag-transparent nil)
-(setq sgml-auto-insert-required-elements t)
-
-(setq sgml-markup-faces
-      '((start-tag . font-lock-function-name-face)
-        (end-tag . font-lock-function-name-face)
-        (comment . font-lock-comment-face)
-        (pi . font-lock-other-type-face)
-        (sgml . font-lock-variable-name-face)
-        (doctype . font-lock-type-face)
-        (entity . font-lock-string-face)
-        (shortref . font-lock-keyword-face)))
-
-
-
-
-
- -
-

6.2.2 web-mode (JS, HTML, CSS combined)

-
-

-Web development is shit. Tech involved is a mess, and in most cases -intermixed. web-mode provides a great fix for this: it handles -HTML, CSS and Javascript in the same buffer very well. -

- -

-See: web-mode.org -

- -
-
(require 'web-mode)
-
-
- -

-associate with the usual suspects -

-
-
(add-to-list 'auto-mode-alist '("\\.phtml\\'" . web-mode))
-(add-to-list 'auto-mode-alist '("\\.tpl\\.php\\'" . web-mode))
-(add-to-list 'auto-mode-alist '("\\.[agj]sp\\'" . web-mode))
-(add-to-list 'auto-mode-alist '("\\.as[cp]x\\'" . web-mode))
-(add-to-list 'auto-mode-alist '("\\.erb\\'" . web-mode))
-(add-to-list 'auto-mode-alist '("\\.mustache\\'" . web-mode))
-(add-to-list 'auto-mode-alist '("\\.djhtml\\'" . web-mode))
-(add-to-list 'auto-mode-alist '("\\.html?\\'" . web-mode))
-
-
- -

-configure web mode -

-
-
(defun tvd-web-mode-hook ()
-  "Hooks for Web mode."
-  (setq web-mode-markup-indent-offset 2)
-  (setq web-mode-css-indent-offset 2)
-  (setq web-mode-code-indent-offset 2)
-  (setq web-mode-style-padding 1)
-  (setq web-mode-script-padding 1)
-  (setq web-mode-block-padding 0)
-  (setq web-mode-enable-auto-pairing t)
-  (setq web-mode-enable-auto-expanding t))
-(add-hook 'web-mode-hook  'tvd-web-mode-hook)
-
-
- -

-some handy html code inserters -

-
-
(defun html-insert-p()
-  (interactive)
-  (web-mode-element-wrap "p"))
-
-(defun html-insert-li()
-  (interactive)
-  (web-mode-element-wrap "li"))
-
-(defun html-insert-ul()
-  (interactive)
-  (web-mode-element-wrap "ul"))
-
-(defun html-insert-b()
-  (interactive)
-  (web-mode-element-wrap "b"))
-
-
- -

-convert a text list into a html list. -

-
-
(defun html-listify (beg end)
-  (interactive "r")
-  (save-excursion
-    (let* ((lines (split-string (buffer-substring beg end) "\n" t)))
-      (delete-region beg end)
-      (insert "<ul>\n")
-      (while lines
-        (insert "  <li>")
-        (insert (pop lines))
-        (insert "</li>\n"))
-      (insert "</ul>\n")
-      )))
-
-
-
-
-
- -
-

6.2.3 Cisco Mode

-
-

-Written by myself many years ago, but I'm still using it daily to -view and prepare cisco configs. -

- -
-
(autoload 'cisco-mode "cisco-mode" "Major mode for CISCO configs" t)
-(setq auto-mode-alist
-      (append '(("\\.\\(cfg\\)$"  . cisco-mode))
-              auto-mode-alist))
-
-
-
-
-
- -
-

6.2.4 Markdown

-
-

-I rarely use markdown, but sometimes I stumble upon such a file and -like to view it with emacs without rendering. -Source: jblevins.org -

- -
-
(autoload 'markdown-mode "markdown-mode"
-  "Major mode for editing Markdown files" t)
-
-(add-to-list 'auto-mode-alist '("\\.text\\'"     . markdown-mode))
-(add-to-list 'auto-mode-alist '("\\.markdown\\'" . markdown-mode))
-(add-to-list 'auto-mode-alist '("\\.md\\'"       . markdown-mode))
-
-
- -

-parens and quotes constraints check on save -

-
-
(add-hook 'markdown-mode-hook
-          (lambda ()
-            (when buffer-file-name
-              (add-hook 'after-save-hook
-                        'check-parens
-                        nil t))
-            (modify-syntax-entry ?\" "\"" markdown-mode-syntax-table)
-            ))
-
-
-
-
-
- -
-

6.2.5 POD mode

-
-

-I LOVE POD! POD is the documentation format of perl and there's a -solid toolset available for it. I use it to write documentation and -manual pages. It's much more powerfull than lame markdown and you -can even program great tools yourself around POD (like I did with -PodWiki years ago!) -

- -

-Although cperl mode already has some POD support, pod mode is way -better. -

- -

-Source: emacs-pod-mode -

- -
-
(require 'pod-mode)
-(add-to-list 'auto-mode-alist '("\\.pod$" . pod-mode))
-(add-hook 'pod-mode-hook 'font-lock-mode)
-
-
- -

-using expand-region: apply pod entity formatting to word at point. -

-
-
(defun tvd-outline-emphasize(CHAR)
-  "expand once if no region and apply emphasize CHAR"
-  (interactive)
-  (unless (use-region-p)
-    (er/expand-region 1))
-  (save-excursion
-    (goto-char (region-beginning))
-    (insert (format "%c<" CHAR))
-    (goto-char (region-end))
-    (insert ">")))
-
-(defun pod-bold()
-  "bold text in outline mode"
-  (interactive)
-  (tvd-outline-emphasize ?B))
-
-(defun pod-italic()
-  "italic text in outline mode"
-  (interactive)
-  (tvd-outline-emphasize ?I))
-
-(defun pod-code()
-  "verbatim text in outline mode"
-  (interactive)
-  (tvd-outline-emphasize ?C))
-
-
- -

-enhance abbrevs and jump into expanded area to the -$ character (if it exists), which it also removes -

-
-
(setq tvd-abbrev-pos 0)
-(advice-add 'expand-abbrev :before
-            '(lambda () (setq tvd-abbrev-pos (point))))
-(advice-add 'expand-abbrev :after
-            '(lambda ()
-               (ignore-errors
-                 (when (re-search-backward "\\$" (- tvd-abbrev-pos 0))
-                   (delete-char 1)))))
-
-
- -

-pod mode config -

-
-
(add-hook 'pod-mode-hook
-          (lambda ()
-            ;; tune syntax table
-            (modify-syntax-entry ?= "w" pod-mode-syntax-table)
-
-            ;; POD contains headers and I'm used to outlining if there are headers
-            ;; so, enable outlining
-            (setq outline-heading-alist '(("=head1" . 1)
-                                           ("=head2" . 2)
-                                            ("=head3" . 3)
-                                             ("=head4" . 4)
-                                              ("=over" . 5)
-                                               ("=item" . 6)
-                                              ("=begin" . 5)
-                                              ("=pod" . 5)
-                                          ))
-
-            ;; outline alone, however, works well
-            (outline-minor-mode)
-
-            ;; my own abbrevs for POD using mode-specific abbrev table
-            (define-abbrev-table 'pod-mode-abbrev-table '(
-                                                            ("=o" "=over\n\n=item *$\n\n=back\n\n")
-                                                            ("=i" "=item ")
-                                                            ("=h1" "=head1 ")
-                                                            ("=h2" "=head2 ")
-                                                            ("=h3" "=head3 ")
-                                                            ("=h4" "=head4 ")
-                                                            ("=c"  "=cut")
-                                                            ("=b"  "=begin")
-                                                            ("=e"  "=end")
-                                                            ("b"  "B<$>")
-                                                            ("c"  "C<$>")
-                                                            ("l"  "L<$>")
-                                                            ("i"  "I<$>")
-                                                            ("e"  "E<$>")
-                                                            ("f"  "F<$>"))
-                                    "POD mode abbreviations, see .emacs")
-
-            (abbrev-table-put pod-mode-abbrev-table :case-fixed t)
-            (abbrev-table-put pod-mode-abbrev-table :system t)
-
-            ;; enable abbreviations
-            (setq local-abbrev-table pod-mode-abbrev-table)
-            (abbrev-mode 1)
-
-            ;; POD easy formatting
-            (local-set-key (kbd "C-c b") 'pod-bold)
-            (local-set-key (kbd "C-c /") 'pod-italic)
-            (local-set-key (kbd "C-c c") 'pod-code)))
-
-
- -
-
-
-
-

6.2.6 conf-mode

-
-

-conf-mode annoyingly overwrites the global keybinding C-c C-c with -some of its internal crab. So, force it to use my own defun. Also, -while we're at it, disable electric indent, it's annoying in -configs. Applies for derivates as well. -

- -
-
(defun tvd-disarm-conf-mode()
-  (local-set-key  (kbd "C-c C-c") 'comment-or-uncomment-region-or-line)
-  (electric-indent-local-mode 0))
-
-(add-something-to-mode-hooks '(conf cisco fundamental conf-space pod) 'tvd-disarm-conf-mode)
-
-
-
-
-
- -
-

6.2.7 Config::General mode

-
-
  1. Config and doc
    -

    -config-general-mode (also on Melpa). -

    - -

    -My own mode for Config::General -config files. Whenever I write some perl stuff, which needs a config file, I use -this module (and I do this a lot). Previously I used conf-mode or html-mode, but -both did not satisfy me. Now (as of 20170625) I solved this mess once and for all. -

    - -
    -
    (require 'config-general-mode)
-(require 'sh-script)
-
    -
    -
    2. - -
  2. Convenicence Wrappers
    -
    -
    (defun config-general-completion-at-point ()
-  "Complete word at point using hippie-expand, if not on a comment."
-  (interactive)
-  (when (looking-back "[-%$_a-zA-Z0-9]")
-    (unless (eq (get-text-property (point) 'face) 'font-lock-comment-face)
-      (hippie-expand nil))))
-
-(defun config-general-do-electric-tab ()
-  "Enter a <TAB> or goto current indentation."
-  (interactive)
-  (if (eq (point) (line-end-position))
-        (indent-for-tab-command)
-      (back-to-indentation)))
-
-(defun config-general-tab-or-expand ()
-  "Do electric TAB or completion depending where point is.
-
-This is just a convenience function, which can be mapped
-to `tab' by the user. .Not in use by default."
-  (interactive)
-  (unless (config-general-completion-at-point)
-    (config-general-do-electric-tab)))
-
    -
    - -

    -FIXME: Use this patched version for older emacsen and the default -for version which contain the patch (if any, ever). -

    - -

    -The original function try-expand-dabbrev-all-buffers doesn't work -correctly, it ignores a buffer-local configuration of the variables -hippie-expand-only-buffers and hippie-expand-ignore-buffers. This -is the patched version of the function. -

    - -

    -Bugreport: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=27501 -

    -
    -
    (defun config-general--try-expand-dabbrev-all-buffers (old)
-    "Try to expand word \"dynamically\", searching all other buffers.
-The argument OLD has to be nil the first call of this function, and t
-for subsequent calls (for further possible expansions of the same
-string).  It returns t if a new expansion is found, nil otherwise."
-  (let ((expansion ())
-        (buf (current-buffer))
-        (orig-case-fold-search case-fold-search)
-        (heib hippie-expand-ignore-buffers)
-        (heob hippie-expand-only-buffers)
-        )
-    (if (not old)
-        (progn
-          (he-init-string (he-dabbrev-beg) (point))
-          (setq he-search-bufs (buffer-list))
-          (setq he-searched-n-bufs 0)
-          (set-marker he-search-loc 1 (car he-search-bufs))))
-
-    (if (not (equal he-search-string ""))
-        (while (and he-search-bufs
-                    (not expansion)
-                    (or (not hippie-expand-max-buffers)
-                        (< he-searched-n-bufs hippie-expand-max-buffers)))
-          (set-buffer (car he-search-bufs))
-          (if (and (not (eq (current-buffer) buf))
-                   (if heob
-                       (he-buffer-member heob)
-                     (not (he-buffer-member heib))))
-              (save-excursion
-                (save-restriction
-                  (if hippie-expand-no-restriction
-                      (widen))
-                  (goto-char he-search-loc)
-                  (setq expansion
-                        (let ((case-fold-search orig-case-fold-search))
-                          (he-dabbrev-search he-search-string nil)))
-                  (set-marker he-search-loc (point))
-                  (if (not expansion)
-                      (progn
-                        (setq he-search-bufs (cdr he-search-bufs))
-                        (setq he-searched-n-bufs (1+ he-searched-n-bufs))
-                        (set-marker he-search-loc 1 (car he-search-bufs))))))
-            (setq he-search-bufs (cdr he-search-bufs))
-            (set-marker he-search-loc 1 (car he-search-bufs)))))
-
-    (set-buffer buf)
-    (if (not expansion)
-        (progn
-          (if old (he-reset-string))
-          ())
-      (progn
-        (he-substitute-string expansion t)
-        t))))
-
    -
    -
    3. - -
  3. Mode Hook
    -

    -I use TAB for completion AND tab and outshine. Also, the mode -enables electric indent automatically, but I disabled it for -conf-mode (see tvd-disarm-conf-mode), therefore I re-enable it here -for config-general-mode (which inherits from conf-mode). -

    -
    -
    (add-hook 'config-general-mode-hook
-          (lambda ()
-            (electric-indent-mode)
-            ;; de-activate some senseless bindings
-            (local-unset-key (kbd "C-c C-c"))
-            (local-unset-key (kbd "C-c C-p"))
-            (local-unset-key (kbd "C-c C-u"))
-            (local-unset-key (kbd "C-c C-w"))
-            (local-unset-key (kbd "C-c C-x"))
-            (local-unset-key (kbd "C-c :"))
-            (local-set-key (kbd "<tab>") 'config-general-tab-or-expand)
-
-            ;; from shell-script-mode, turn << into here-doc
-            (sh-electric-here-document-mode 1)
-
-            ;; Inserting a brace or quote automatically inserts the matching pair
-            ;; use smartparens now
-            ;; (electric-pair-mode t)
-            (setq-local hippie-expand-only-buffers '(config-general-mode))
-
-            ;; configure order of expansion functions
-            (if (version< emacs-version "25.1")
-                (set (make-local-variable 'hippie-expand-try-functions-list)
-                     '(try-expand-dabbrev ;; use patched version
-                       config-general--try-expand-dabbrev-all-buffers
-                       try-complete-file-name-partially
-                       try-complete-file-name))
-              (set (make-local-variable 'hippie-expand-try-functions-list)
-                   '(try-expand-dabbrev
-                     try-expand-dabbrev-all-buffers
-                     try-complete-file-name-partially
-                     try-complete-file-name)))
-            ;; enable
-            (add-hook 'completion-at-point-functions 'config-general-completion-at-point)
-            )
-          )
-
    -
    - -
    -
-
-
-

6.2.8 Xmodmap Mode

-
-

-the shortest mode ever, via emacswiki. -

- -
-
(define-generic-mode 'xmodmap-mode
-  '(?!)
-  '("add" "clear" "keycode" "keysym" "pointer" "remove")
-  '(("[0-9]+" . 'font-lock-variable-name-face))
-  '("[xX]modmap\\(rc\\)?\\'")
-  nil
-  "Simple mode for xmodmap files.")
-
-
- -

-see GenericMode for more examples. -

-
-
- -
-

6.2.9 MMM Mode

-
-
  1. MMM configure:
    -
    -
    (add-to-list 'load-path (concat tvd-lisp-dir "/mmm-mode"))
-
-(require 'cl)
-(require 'mmm-auto)
-(require 'mmm-vars)
-
-(setq mmm-submode-decoration-level 2)
-
    -
    - - -

    -mmm-mode github -see doc for class definition in var 'mmm-classes-alist -

    -
    2. - -
  2. MMM config for POD mode
    -
    -
    (mmm-add-classes
- '((html-pod
-    :submode html-mode ;; web-mode doesnt work this way!
-    :delimiter-mode nil
-    :front "=begin html"
-    :back "=end html")))
-
-(mmm-add-mode-ext-class 'pod-mode nil 'html-pod)
-
-(add-hook 'pod-mode-hook 'mmm-mode-on)
-
    -
    -
-
-
- -
-

6.3 Text Manupilation

-
-
-

6.3.1 expand-region

-
-

-One of the best modes I ever discovered. Press C-= multiple times -to create a larger and larger region. I use C-0 (zero) because on a -german keyboard this is the same as C-= without pressing shift. -

- -
-
(require 'expand-region)
-(global-set-key (kbd "C-0")             'er/expand-region) ; C-= without pressing shift on DE keyboard
-
-
- -

-related to ER: -

-
-
-
-

6.3.2 Mark, Copy, Yank Things

-
-

-For a long time this stuff was located here in my emacs config. As -it grew larger and larger I decided to put it into its own mode: -mark-copy-yank-things-mode, which can be found on github these -days. -

- -

-With this, you can quickly mark or copy or copy+yank things like -words, ip's, url's, lines or defun's with one key binding. I use -this permanently and couldn't live without it anymore. -

- -

-A special feature is the copy+yanking, this is something vi offers: -go to a line, press yy, then p and the current line will be yanked -below. Prefix with a number and copy+yank more lines. This is -really cool and (in vi) often used. So, with this mode, I can use -it with emacs as well. For example, say you edit a configuration -file and added a complicated statement. Next you need to add -another very similar statement. Instead of entering it again, you -just hit <C-c y y> and the current line appears as a copy -below. Change the differences and you're done! -

- -
-
(require 'mark-copy-yank-things-mode)
-(mark-copy-yank-things-global-mode)
-
-
- -

-The mode has a rather impractical prefix since it's published on -github and therefore must be written in a way not to disturb other -modes. However, I myself need those simple prefixes: -

-
-
(define-key mark-copy-yank-things-mode-map (kbd "C-c")   'mcyt-copy-map)
-(define-key mark-copy-yank-things-mode-map (kbd "M-a")   'mcyt-mark-map)
-
-
-

-I use the default yank map -

- -

-With this I put the last thing copied into a register 'c. I can -then later yank this using C-v anytime without browsing the -kill-ring if I kill things between yanking. So, C-v always inserts -the last copied thing, while C-y yanks the last thing killed, which -might be something else. -

-
-
(advice-add 'mcyt--copy-thing
-            :after
-            '(lambda (&rest args)
-               (with-temp-buffer
-                 (yank)
-                 (copy-to-register 'c (point-min) (point-max)))))
-
-(defun tvd-insert-c-register ()
-  (interactive)
-  (insert-register 'c))
-
-(global-set-key (kbd "C-v")             'tvd-insert-c-register)
-
-
- -

-copy a real number and convert it to german punctuation upon -yanking, so I can do some calculations in 'calculator, copy the -result NNN.NN and paste it into my online banking formular, where -it appears as NNN,NN. -

-
-
(defun tvd-mcyt-copy-euro (&optional arg)
-  "Copy  euro  at point  into  kill-ring  and convert  to  german
-punctuation"
-  (interactive "P")
-  (mcyt--blink-and-copy-thing 'mcyt-beginning-of-ip 'mcyt-end-of-ip arg)
-  (with-temp-buffer
-    (yank)
-    (beginning-of-buffer)
-    (while (re-search-forward "\\." nil t)
-      (replace-match ","))
-    (kill-region (point-min) (point-max))))
-
-(eval-after-load "mark-copy-yank-things-mode"
-  '(progn
-     (add-hook 'mark-copy-yank-things-mode-hook
-               (lambda () ;; g like [G]eld
-                 (define-key mcyt-copy-map (kbd "g") 'tvd-mcyt-copy-euro)))))
-
-
- - - -
-
-
- -
-

6.3.3 change-inner

-
-

-I use change-inner with a prefix key and some wrappers around -mark-copy-yank-things-mode, which is related to change-inner -and expand-region. -

- -

-github source: -

-
-
(require 'change-inner)
-
-
- -

-first some functions: -

- -
-
(defun tvd-ci (beg end &optional ins)
-  "change-inner simulator which works with symbols instead of strings.
-
-BEG and END must be executable elisp symbols moving (point). Everything
-in between will be killed. If INS is non-nil, it will be inserted then."
-  (interactive)
-  (let ((B nil))
-    (funcall beg)
-    (setq B (point))
-    (funcall end)
-    (kill-region B (point))
-    (when ins
-      (insert ins))))
-
-(defun tvd-ci-comment ()
-  "\"change inner\" a whole comment [block]."
-  (interactive)
-  (tvd-ci 'mcyt-beginning-of-comment-block
-          'mcyt-end-of-comment-block
-          (format "%s;# " comment-start)))
-
-(defun tvd-ci-quote ()
-  "\"change inner\" quoted text."
-  (interactive)
-  (tvd-ci 'mcyt-beginning-of-quote
-          'mcyt-end-of-quote))
-
-(defun tvd-ci-word ()
-  "\"change inner\" a word (like cw in vi)."
-  (interactive)
-  (tvd-ci 'mcyt-beginning-of-symbol
-          'mcyt-end-of-symbol))
-
-(defun tvd-ci-line ()
-  "\"change inner\" a whole line."
-  (interactive)
-  (tvd-ci 'beginning-of-line
-          'end-of-line))
-
-(defun tvd-ci-paragraph ()
-  "\"change inner\" a whole paragraph."
-  (interactive)
-  (tvd-ci 'backward-paragraph
-          'forward-paragraph))
-
-(defun tvd-ci-buffer ()
-  "\"change inner\" a whole buffer."
-  (interactive)
-  (tvd-ci 'point-min
-          'point-max))
-
-(defun tvd-ci-sexp ()
-  "\"change inner\" a whole sexp."
-  (interactive)
-  (er/mark-inside-pairs)
-  (call-interactively 'kill-region))
-
-
- -

-Define ALTR (AltGR) + i as my prefix command for change-inner stuff. -Since I use a german keyboard, this translates to →. -I'll refrence it here now as <A-i …> -

-
-
(define-prefix-command 'ci-map)
-(global-set-key (kbd "→") 'ci-map)
-
-
- -

-typing the prefix key twice calls the real change-inner -

-
-
(define-key ci-map (kbd "→") 'change-inner) ;; <A-i A-i>
-
-(define-key ci-map (kbd "c") 'tvd-ci-comment) ;; <A-i c>
-(define-key ci-map (kbd "¢") 'tvd-ci-comment) ;; <A-i A-c>
-
-(define-key ci-map (kbd "q") 'tvd-ci-quote) ;; <A-i q>
-(define-key ci-map (kbd "@") 'tvd-ci-quote) ;; <A-i A-q>
-
-(define-key ci-map (kbd "w") 'tvd-ci-word) ;; <A-i w>
-(define-key ci-map (kbd "ł") 'tvd-ci-word) ;; <A-i A-w>
-
-(define-key ci-map (kbd "l") 'tvd-ci-line) ;; <A-i l>
-
-(define-key ci-map (kbd "s") 'tvd-ci-sexp) ;; <A-i s>
-(define-key ci-map (kbd "ſ") 'tvd-ci-sexp) ;; <A-i A-s>
-
-(define-key ci-map (kbd "p") 'tvd-ci-paragraph) ;; <A-i p>
-(define-key ci-map (kbd "þ") 'tvd-ci-paragraph) ;; <A-i A-p>
-
-(define-key ci-map (kbd "a") 'tvd-ci-buffer) ;; <A-i a>
-(define-key ci-map (kbd "æ") 'tvd-ci-buffer) ;; <A-i A-a>
-
-
- -
-
-
-
-

6.3.4 Rotate text

-
-

-This one is great as well, I use it to toggle flags and such stuff -in configs or code with just one key binding. -

- -

-Source: nschum.de -

- -
-
(autoload 'rotate-text "rotate-text" nil t)
-(autoload 'rotate-text-backward "rotate-text" nil t)
-
-
- -

-my toggle list -

-
-
(setq rotate-text-words '(("width" "height")
-                          ("left" "right" "top" "bottom")
-                          ("ja" "nein")
-                          ("off" "on")
-                          ("true" "false")
-                          ("nil" "t")
-                          ("yes" "no")))
-
-
- -

-C-t normally used by transpose-chars, so, unbind it first -

-
-
(global-unset-key (kbd "C-t"))
-
-
- -

-however, we cannot re-bind it globally since then it could not be -used in org-mode for org-todo (see below) FIXME: I only use the "t" -short command anymore, so C-t would be free now, wouldn't it? -

-
-
(add-something-to-mode-hooks
- '(c c++ cperl vala web emacs-lisp python ruby)
- '(lambda ()
-    (local-set-key (kbd "C-t") 'rotate-text)))
-
-
- -
-
-
- -
-

6.3.5 Word wrapping

-
-

-same as word-wrap but without the fringe which I hate the most! -

-
-
(add-something-to-mode-hooks '(tex text eww) 'visual-line-mode)
-
-
- -

-however, it's required when coding, so enable it globally -overwritten by visual-line-mode above for specifics -

-
-
(setq word-wrap t)
-
-
-
-
-
- -
-

6.3.6 Viking Mode

-
-

-Delete stuff fast. Press the key multiple times - delete more -things. Inspired by expand-region. Written by myself. -

- -
-
(require 'viking-mode)
-(viking-global-mode)
-(setq viking-greedy-kill nil)
-(define-key viking-mode-map (kbd "M-d") 'viking-repeat-last-kill)
-
-
-
-
-
- -
-

6.3.7 HTMLize

-
-

-extracted from debian package emacs-goodies-el-35.2+nmu1, since -there's no other source left. Generates a fontified html version of -the current buffer, however it looks. -

- -
-
(require 'htmlize)
-(setq htmlize-output-type "inline-css")
-
-
-
-
- - -
-

6.3.8 iEdit (inline edit multiple searches)

-
-

-Edit all occurences of something at once. Great for re-factoring. -

- -
-
(require 'iedit)
-
-(global-set-key (kbd "C-c C-e")           'iedit-mode)
-
-
- -

-Keep buffer-undo-list as is while iedit is active, that is, as long -as I am inside iedit I can undo/redo current occurences. However, -if I leave iedit and issue the undo command, ALL changes made with -iedit are undone, whereas the default behaviour would be to go -through every change made iside iedit, which I hate. -

- -

-iedit doesn't provide a customizable flag to configure it's undo -behavior, so, I modify it myself using defadvice. -

- -
-
(setq tvd-buffer-undo-list nil)
-(advice-add 'iedit-mode :before '(lambda (&rest args) ;; save current
-                                   (setq tvd-buffer-undo-list buffer-undo-list)))
-
-(advice-add 'iedit-mode :after '(lambda (&rest args) ;; restore previously saved
-                                  (setq buffer-undo-list tvd-buffer-undo-list)))
-
-
- -
-
-
-
- -
-

6.4 Interactives

-
-
-

6.4.1 eShell stuff, or if interactive stuff is needed, use ansi-term

-
-

-I am a hardcore bash user, but from time to time eshell is good -enough. It's great when used remote when only sftp is supported. -

- -
-
(require 'eshell)
-
-
- -

-fac'ifier -

-
-
(defmacro with-face (str &rest properties)
-  `(propertize ,str 'face (list ,@properties)))
-
-
- -

-custom prompt, which resembles my bash prompt -

-
-
(defun shk-eshell-prompt ()
-  (let ((header-bg "Azure"))
-    (concat
-     (with-face "\n")
-     (with-face (format-time-string
-                 "[%Y-%m-%d %H:%M] --- ["
-                 (current-time)) :background header-bg :foreground "Black")
-     (with-face (concat (eshell/pwd) "") :background header-bg :foreground "Blue")
-     (with-face "] --- " :background header-bg :foreground "Black")
-     (with-face  (or
-                  (ignore-errors (format "(%s)" (vc-responsible-backend default-directory)))
-                  "") :background header-bg)
-     (with-face "\n" :background header-bg)
-     (with-face user-login-name :foreground "blue")
-     "@"
-     (with-face "localhost" :foreground "blue")
-     (if (= (user-uid) 0)
-         (with-face " #" :foreground "red")
-       " $")
-     " ")))
-
-(setq eshell-prompt-function 'shk-eshell-prompt)
-(setq eshell-highlight-prompt nil)
-
-
- -

-I use my own virtual loggin target /dev/log, just redirect -command output to /dev/log and it will be saved to -the LOG buffer. > inserts, >> appends -N.B: /dev/kill puts the stuff into the kill-ring. -

-
-
(defun log-comment ()
-  (with-current-buffer (get-buffer-create "*LOG*")
-    (insert (format "# %s\n" (time-stamp-string)))))
-
-(defun log-insert (string)
-  (with-current-buffer (get-buffer-create "*LOG*")
-    (delete-region (point-min) (point-max))
-    (log-comment)
-    (insert string)
-    (message "wrote output to *LOG* buffer")))
-
-(defun log-append (string)
-  (with-current-buffer (get-buffer-create "*LOG*")
-    (end-of-buffer)
-    (newline)
-    (log-comment)
-    (insert string)
-    (message "wrote output to *LOG* buffer")))
-
-
- -

-must return a defun which gets the stuff as ARG1 -'mode is 'overwrite or 'append -

-
-
(add-to-list 'eshell-virtual-targets '("/dev/log" (lambda (mode)
-                                              (if (eq mode 'overwrite)
-                                                  'log-insert
-                                                'log-append))
-                                      t
-                                      ))
-
-
- -

-eshell config -

-
-
(eval-after-load "eshell"
-  '(progn
-     (add-hook 'eshell-mode-hook
-               (lambda ()
-                 (local-unset-key (kbd "C-c C-r")) ; we're already using this for windresize
-                 (add-to-list 'eshell-visual-commands "tail")
-                 (add-to-list 'eshell-visual-commands "top")
-                 (add-to-list 'eshell-visual-commands "vi")
-                 (add-to-list 'eshell-visual-commands "ssh")
-                 (add-to-list 'eshell-visual-commands "tail")
-                 (add-to-list 'eshell-visual-commands "mutt")
-                 (add-to-list 'eshell-visual-commands "note")
-                 (setenv "TERM" "xterm")
-                 (local-set-key (kbd "C-l") 'eshell/clear)
-                 (define-key viking-mode-map (kbd "C-d") nil) ;; need to undef C-d first
-                 (local-set-key (kbd "C-d") 'eshell/x)
-                 (setq mode-name "ESH"
-                       eshell-hist-ignoredups t
-                       eshell-history-size 5000
-                       eshell-where-to-jump 'begin
-                       eshell-review-quick-commands nil
-                       eshell-smart-space-goes-to-end t
-                       eshell-scroll-to-bottom-on-input 'all
-                       eshell-error-if-no-glob t
-                       eshell-save-history-on-exit t
-                       eshell-prefer-lisp-functions t)))))
-
-
- -

-exit and restore viking key binding afterwards -

-
-
(defun eshell/x (&rest args)
-  (interactive)
-  (eshell-life-is-too-much)
-  (define-key viking-mode-map (kbd "C-d") 'viking-kill-thing-at-point))
-
-
- -

-open files in emacs, split the shell if not already splitted -open empty window if no file argument given. -

-
-
(defun eshell/emacs (&rest args)
-  "Editor commands fired from eshell will be handled by emacs, which already runs anyway."
-  (interactive)
-  (let* ((framesize (frame-width))
-         (winsize (window-body-width)))
-    (progn
-      (if (eq winsize framesize)
-          (split-window-horizontally))
-      (other-window 1)
-      (if (null args)
-          (bury-buffer)
-        (mapc #'find-file (mapcar #'expand-file-name (eshell-flatten-list (reverse args))))))))
-
-(defun eshell/clear ()
-  "Better clear  command than (recenter  0) which doesn't work  as I
-want.  This version really removes  the output of previous commands
-and puts the shell to the beginning of a really (then) empty eshell
-buffer. However,  just to be sure  that I do no  accidentally clear
-some  shell output  that might  be useful  in the  future, it  also
-copies   the   cleared   stuff   into   a   backup   buffer   named
-*eshell-log-buffer*, just in case."
-  (interactive)
-  (let ((beg (point-min))
-        (end (point-max))
-        (savebuffer "*eshell-log-buffer*")
-        (log (buffer-substring-no-properties (point-min) (point-max))))
-    (progn
-      (if (not (get-buffer savebuffer))
-          (get-buffer-create savebuffer))
-      (with-current-buffer savebuffer
-        (goto-char (point-max))
-        (insert log))
-      (delete-region beg end)
-      (eshell-emit-prompt))))
-
-(defun eshell/perldoc (&rest args)
-  "Like `eshell/man', but invoke `perldoc'."
-  (funcall 'eshell/perldoc (apply 'eshell-flatten-and-stringify args)))
-
-(defun eshell/perldoc (man-args)
-  (interactive "sPerldoc: ")
-  (require 'man)
-  (let ((manual-program "perldoc"))
-    (man man-args)))
-
-(defun eshell-here ()
-  "Opens up a new shell in the directory associated with the
-current buffer's file. The eshell is renamed to match that
-directory to make multiple eshell windows easier."
-  (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)
-    (eshell "new")
-    (rename-buffer (concat "*eshell: " name "*"))
-    (insert (concat "ls"))
-    (eshell-send-input)))
-
-
- -

-via howardism -

-
-
(defun eshell-there (host)
-  "Opens a shell on a remote host using tramp."
-  (interactive "sHost: ")
-  (let ((default-directory (format "/%s:" host)))
-    (eshell host)))
-
-(defalias 'es        'eshell-here)
-(defalias 'et        'eshell-there)
-(defalias 'eshell/vi 'eshell/emacs)
-
-
- -

-plan9 smart command, edit while exec if not silent or successful -

-
-
(require 'em-smart)
-
-
- -

-eshell shell aliases. I set the global -defvar here so there's no need to transport -~/.emacs.d/eshell/aliases across networks -

-
-
(setq eshell-command-aliases-list ())
-
-(defun +alias (al cmd)
-  "handy wrapper function to convert alias symbols
-to alias strings to avoid writing 4 quotes per alias.
-AL is a single-word symbol naming the alias, CMD is
-a list symbol describing the command."
-  (add-to-list 'eshell-command-aliases-list
-               (list (symbol-name al)
-                     (mapconcat 'symbol-name cmd " "))))
-
-
- -

-actual aliases -

-
-
(+alias 'l      '(ls -laF $*))
-(+alias 'll     '(ls -l $*))
-(+alias 'la     '(ls -a $*))
-(+alias 'lt     '(ls -ltr $*))
-(+alias '..     '(cd ..))
-(+alias '...    '(cd ../..))
-(+alias '....   '(cd ../../..))
-(+alias '.....  '(cd ../../../..))
-(+alias 'md     '(mkdir -p $*))
-(+alias 'emacs  '(find-file $1))
-(+alias 'less   '(find-file-read-only $1))
-(+alias 'x      '(eshell/exit))
-
-
- -

-no need for less or more, this is emacs, isn't it? -

-
-
(setenv "PAGER" "cat")
-
-
- -
-
-
- -
-

6.4.2 Emacs LISP interactive

-
-

-General configuration for all things elisp. -

- -

-By using C-x-e I can push region or buffer -of lisp code (i.e. inside scratch) into -REPL where it will be evaluated -

- -
-
(defun tvd-get-code()
-  "helper: returns marked region or the whole buffer contents"
-  ;; /FIXME/: mv to string helpers?
-  (if mark-active
-      (let (  ;; save region and buffer
-            (partb (buffer-substring-no-properties (region-beginning) (region-end)))
-            (whole (buffer-substring-no-properties (point-min) (point-max)))
-            )
-        (if (> (length partb) 0)
-            partb
-          whole
-          )
-        )
-    ;; no mark, also return everything
-    (buffer-substring-no-properties (point-min) (point-max))))
-
-(defun tvd-send-region-to-repl ()
-  "put region or buffer into elisp repl and eval"
-  (interactive)
-  (let ( ;; fetch region or buffer contents
-        (code  (tvd-get-code)))
-    (progn
-      (if (not (get-buffer "*ielm*"))
-          ;; ielm not yet running, start it in split window but stay here
-          (progn
-            (split-window-horizontally)
-            (other-window 1)
-            (ielm)
-            (other-window 1)))
-      ;; finially, paste content into ielm and evaluate it
-      ;; still we stay where we are
-      (with-current-buffer "*ielm*"
-        (goto-char (point-max))
-        (insert code)
-        (ielm-return)))))
-
-(defun tvd-elisp-eval()
-  "just eval region or buffer whatever feasible"
-  (interactive)
-  (progn
-    (if mark-active
-        (eval-region)
-      (eval-buffer))))
-
-(defun ff ()
-  "Jump to function definition at point."
-  (interactive)
-  (find-function-other-window (symbol-at-point)))
-
-(defun tvd-make-defun-links ()
-  "experimental: make function calls clickable, on click, jump to definition of it"
-  (interactive)
-  (let ((beg 0)
-        (end 0)
-        (fun nil))
-    (goto-char (point-min))
-    (while (re-search-forward "(tvd[-a-z0-9]*" nil t)
-      (setq end (point))
-      (re-search-backward "(" nil t)
-      (forward-char 1)
-      (setq beg (point))
-      (setq fun (buffer-substring-no-properties beg end))
-      (make-button beg end 'action
-                   (lambda (x)
-                     (find-function-other-window (symbol-at-point))))
-      (goto-char end))))
-
-(defun emacs-change-version (v)
-  "Change version of .emacs (must be the current buffer).
-Returns t if version changed, nil otherwise."
-  (interactive
-   (list
-    (completing-read "New config version (press TAB for old): "
-                     (list tvd-emacs-version))))
-  (if (equal v tvd-emacs-version)
-      nil
-    (save-excursion
-      (show-all)
-      (beginning-of-buffer)
-      (tvd-replace-all (format "\"%s\"" tvd-emacs-version)
-                       (format "\"%s\"" v))
-      (setq tvd-emacs-version v)
-      (message (format "New config version set: %s" v))
-      t)))
-
-(defun emacs-change-log (entry)
-  "Add a changelog entry to .emacs Changelog"
-  (interactive "Menter change log entry: ")
-  (let ((newversion (call-interactively 'emacs-change-version)))
-      (save-excursion
-        (show-all)
-        (beginning-of-buffer)
-        (re-search-forward ";; .. Changelog")
-        (next-line)
-        (tvd-outshine-end-of-section)
-        (when newversion
-          (insert (format "\n;; %s\n" tvd-emacs-version)))
-        (insert (format ";;    - %s\n" entry)))))
-
-
- -

-elisp config -

-
-
(add-hook 'emacs-lisp-mode-hook
-          (lambda()
-            ;; non-separated x-e == eval hidden, aka current buffer
-            (local-set-key (kbd "C-x C-e")  'tvd-elisp-eval)
-            ;; separate 'e' == separate buffer
-            (local-set-key (kbd "C-x e")    'tvd-send-region-to-repl)
-            (setq mode-name "EL"
-                  show-trailing-whitespace t)
-            (eldoc-mode t)
-
-            ;; enable outline (with outshine)
-            (outline-minor-mode)
-
-            ;; enable outshine mode
-            (outshine-hook-function)
-
-            (electric-indent-mode t)))
-
-
- -

-use UP arrow for history in ielm as well, just as C-up -

-
-
(add-hook 'comint-mode-hook
-          (lambda()
-            (define-key comint-mode-map [up] 'comint-previous-input)))
-
-
- -

-sometimes I use lisp in minibuffer -

-
-
(defun ee()
-  (interactive)
-  (electric-pair-mode)
-  (call-interactively 'eval-expression)
-  (electric-pair-mode))
-
-
- -

-sometimes I eval regions -

-
-
(defalias 'er        'eval-region)
-
-
- -

-… or defuns -

-
-
(defalias 'ef        'eval-defun)
-
-
- -

-I like to have some functions fontified differently -

-
-
(font-lock-add-keywords
- 'emacs-lisp-mode
- '(("(\\s-*\\(eq\\|if\\|cond\\|and\\|set\\|or\\|not\\|when\\|setq\\|let**\\|lambda\\|kbd\\|defun\\|car\\|cdr\\)\\s-+"
-    1 'font-lock-keyword-face)))
-
-
- -

-same applies for quoted symbols -

-
-
(font-lock-add-keywords
- 'emacs-lisp-mode
- '(("'[-a-zA-Z_][-a-zA-Z0-9_]*\\>" 0 'font-lock-constant-face)))
-
-
- -

-I hate it when help, debug, ielm and other peripheral buffers -litter my emacs window setup. So, this function fixes this: it -opens a new frame with all those buffers already opened and pinned. -

- -
-
(defun dev ()
-  "Open a new emacs frame with some development peripheral buffers."
-  (interactive)
-  (let ((F (new-frame)))
-    (with-selected-frame F
-      (with-current-buffer (get-buffer-create "*Help*")
-        (help-mode))
-      (with-current-buffer (get-buffer-create "*ielm*")
-        (ielm))
-      (with-current-buffer (get-buffer-create "*suggest*")
-        (suggest))
-      (switch-to-buffer "*ielm*")
-      (split-window-horizontally)
-      (split-window-vertically)
-      (windmove-down)
-      (switch-to-buffer "*suggest*")
-      (tvd-suggest-reload)
-      (tvd-suggest-reload)
-      (windmove-right)
-      (switch-to-buffer "*Help*")
-      (split-window-vertically)
-      (windmove-down)
-      (switch-to-buffer "*scratch*")
-      (set-window-dedicated-p (selected-window) t)
-      (set-background-color "azure"))))
-
-
- - -
-
-
-
-

6.4.3 el2markdown

-
-

-el2markdown is a module which -can be used to convert Commentary sections into markdown files. I use this to -avoid maintaining the README.md and the Commentary section in parallel. -

- -
-
(require 'el2markdown)
-
-
- -

-To use, call el2markdown-view-buffer and put it into the -README.md. Take care though: it doesn't convert the META section. -

- -

-FIXME: write a wrapper to circumvent these restrictions. -

-
-
- -
-

6.4.4 tramp mode

-
-

-Edit remote files, one of the best things in emacs. I use it every day heavily. -

- -

-Sample: C-x-f /$host:/$file ($host as of .ssh/config or direct, $file including completion) -

- -

-doku: gnu.org -

-
-
(setq tramp-default-method "ssh"
-      tramp-default-user nil
-      tramp-verbose 1
-      ido-enable-tramp-completion t)
-
-
- -

-see also backup section -

- -
-
-
- -
-

6.4.5 org mode

-
-

-I use org mode to take notes mostly at work. I also track projects -and TODO lists etc. I do not, however, use agenda or any -scheduling whatsoever. -

- -
-
(require 'org)
-
-
- -

-I like custom bullets -

-
-
(require 'org-bullets)
-
-
- -

-enable syntax highlighting for embedded source blocks -

-
-
(require 'ob-python)
-(require 'ob-perl)
-(require 'ob-shell)
-
-(setq org-bullets-bullet-list '("►" "✜" "✸" "✿" "♦"))
-
-
- -

-capture target, os-dependend -

-
-
(if (null tvd-win-home)
-    (setq tvd-org-file (concat tvd-lisp-dir "/notizen.org")
-          org-attach-directory (concat tvd-lisp-dir "/attachments"))
-  (setq tvd-org-file (concat tvd-win-home "/notizen.org")
-        org-attach-directory (concat tvd-win-home "/attachments")))
-
-
- -

-text formatting made easy, bound to C-c keys locally -

-
-
(defun tvd-org-emphasize(CHAR)
-  "expand once if no region and apply emphasize CHAR"
-  (interactive)
-  (unless (region-active-p)
-    (er/expand-region 1))
-  (org-emphasize CHAR))
-
-(defun bold()
-  "bold text in org mode"
-  (interactive)
-  (tvd-org-emphasize '42))
-
-(defun italic()
-  "italic text in org mode"
-  (interactive)
-  (tvd-org-emphasize '47))
-
-(defun code()
-  "verbatim text in org mode"
-  (interactive)
-  (tvd-org-emphasize '126))
-
-(defun underline()
-  "underline text in org mode"
-  (interactive)
-  (tvd-org-emphasize '95))
-
-
- -

-my org-mode specific <C-left> and <C-right> -

-
-
(defun tvd-org-left-or-level-up()
-  "jump one word to the left if not on a org heading,
-otherwise fold current level and jump one level up."
-  (interactive)
-  (if (and (org-at-heading-p) (looking-at "*"))
-      (progn
-        (hide-subtree)
-        (outline-up-heading 1))
-    (left-word)))
-
-(defun tvd-org-heading-up()
-  "If on a heading, fold current heading, jump one level
-up and unfold it, otherwise jump paragraph as usual."
-  (interactive)
-  (if (and (org-at-heading-p) (looking-at "*"))
-      (progn
-        (hide-subtree)
-        (org-backward-heading-same-level 1)
-        (org-cycle))
-    (backward-paragraph)))
-
-(defun tvd-org-heading-down()
-  "If on a heading, fold current heading, jump one level
-down and unfold it, otherwise jump paragraph as usual."
-  (interactive)
-  (if (and (org-at-heading-p) (looking-at "*"))
-      (progn
-        (hide-subtree)
-        (org-forward-heading-same-level 1)
-        (org-cycle))
-    (forward-paragraph)))
-
-
- -

-org-mode specific config, after load -

-
-
(eval-after-load "org"
-  '(progn
-     (add-hook 'org-mode-hook
-               (lambda ()
-                 (setq
-                  org-M-RET-may-split-line nil
-                  org-agenda-files (list tvd-org-file)
-                  org-agenda-restore-windows-after-quit t
-                  org-blank-before-new-entry (quote ((heading . auto) (plain-list-item . auto)))
-                  org-catch-invisible-edits (quote error)
-                  org-columns-default-format "%80ITEM %22Timestamp %TODO %TAGS %0PRIORITY"
-                  org-insert-heading-always-after-current (quote t)
-                  org-mouse-1-follows-link nil
-                  org-remember-store-without-prompt t
-                  org-reverse-note-order t
-                  org-startup-indented t
-                  org-startup-truncated nil
-                  org-return-follows-link t
-                  org-use-speed-commands t
-                  org-yank-adjusted-subtrees t
-                  org-refile-targets '((nil . (:maxlevel . 5)))
-                  org-refile-use-outline-path t
-                  org-outline-path-complete-in-steps nil
-                  org-completion-use-ido t
-                  org-support-shift-select t
-                  org-hide-emphasis-markers t
-                  org-fontify-done-headline t
-                  org-pretty-entities t
-                  org-use-sub-superscripts nil
-                  org-confirm-babel-evaluate nil)
-                                        ; shortcuts
-                 (setq org-speed-commands-user
-                       (quote (
-                               ("0" . ignore)
-                               ("1" . delete-other-windows)
-                               ("2" . ignore)
-                               ("3" . ignore)
-                               ("d" . org-archive-subtree-default-with-confirmation) ; delete, keep track
-                               ("v" . org-narrow-to-subtree) ; only show current heading ("view")
-                               ("q" . widen) ; close current heading and show all ("quit")
-                               (":" . org-set-tags-command) ; add/edit tags
-                               ("t" . org-todo) ; toggle todo type, same as C-t
-                               ("z" . org-refile) ; archive the (sub-)tree
-                               ("a" . org-attach) ; manage attachments
-                               )))
-                                        ; same as toggle
-                 (local-set-key (kbd "C-t") 'org-todo)
-
-                                        ; alt-enter = insert new subheading below current
-                 (local-set-key (kbd "<M-return>") 'org-insert-subheading)
-
-                                        ; search for tags (ends up in agenda view)
-                 (local-set-key (kbd "C-f") 'org-tags-view)
-
-                                        ; run presenter, org-present must be installed and loadedwhite
-                 (local-set-key (kbd "C-p") 'org-present)
-
-                                        ; todo colors
-                 (setq org-todo-keyword-faces '(
-                                                ("TODO"   . (:foreground "#b70101"     :weight bold))
-                                                ("START"  . (:foreground "blue"        :weight bold))
-                                                ("WAIT"   . (:foreground "darkorange"  :weight bold))
-                                                ("DONE"   . (:foreground "forestgreen" :weight bold))
-                                                ("CANCEL" . (:foreground "red"         :weight bold))
-                                                ))
-
-                 (local-set-key (kbd "C-c b") 'bold)
-                 (local-set-key (kbd "C-c /") 'italic)
-                 (local-set-key (kbd "C-c 0") 'code) ; aka = without shift
-                 (local-set-key (kbd "C-c _") 'underline)
-
-                                        ; edit babel src block in extra buffer:
-                                        ; default is C-c ' which is hard to type
-                                        ; brings me to src code editor buffer
-                                        ; Also note: enter <s then TAB inserts a code block
-                                        ; Next, C-c C-c executes the code, adding :results table at the
-                                        ; end of the begin line, creates a table of the output
-                 (local-set-key (kbd "C-c C-#") 'org-edit-special)
-
-                                        ; faster jumping
-                 (local-set-key (kbd "<C-up>")   'tvd-org-heading-up)
-                 (local-set-key (kbd "<C-down>") 'tvd-org-heading-down)
-
-                                        ; move word left or heading up, depending where point is
-                 (local-set-key (kbd "<C-left>") 'tvd-org-left-or-level-up)
-
-                                        ; use nicer bullets
-                 (org-bullets-mode 1)
-
-                 ;; looks better, esp. w/ agenda
-                 (variable-pitch-mode 1)
-
-                 (org-babel-do-load-languages 'org-babel-load-languages
-                                              '((python     . t)
-                                                (emacs-lisp . t)
-                                                (shell      . t)
-                                                (perl       . t)))))))
-
-
- -

-no more … at the end of a heading -

-
-
(setq org-ellipsis " ⤵")
-
-
- -

-my own keywords, must be set globally, not catched correctly inside hook -

-
-
(setq org-todo-keywords
-      '((sequence "TODO" "START" "WAIT" "|" "DONE" "CANCEL")))
-
-
- -

-I always want to be able to capture, even if no ORG is running -

-
-
(global-set-key (kbd "C-n")             (lambda () (interactive) (org-capture)))
-
-
- -

-must be global since code edit sub buffers run their own major mode, not org -

-
-
(global-set-key (kbd "C-c C-#")         'org-edit-src-exit)
-
-
- -

-some org mode vars must be set globally -

-
-
(setq org-default-notes-file tvd-org-file
-      org-startup-indented t
-      org-indent-indentation-per-level 4)
-
-
- -

-my own capture templates -

-
-
(setq org-capture-templates
-      '(("n" "Project" entry (file+headline tvd-org-file "Unsorted Tasks")
-         "* TODO %^{title}\n%u\n** Kostenstelle\n** Contact Peer\n** Contact Customer\n** Aufträge\n** Daten\n** Notizen\n  %i%?\n"
-         :prepend t :jump-to-captured t)
-
-        ("t" "Todo Item" entry (file+headline tvd-org-file "Manual-Agenda-Tasks")
-         "* TODO %^{title}\n:LOGBOOK:\n%u:END:\n" :prepend t :immediate-finish t)
-
-        ("j" "Journal" entry (file+headline tvd-org-file "Kurznotizen")
-         "* TODO %^{title}\n%u\n  %i%?\n" :prepend t :jump-to-captured t)
-
-        ("c" "Copy/Paste" entry (file+headline tvd-org-file "Kurznotizen")
-         "* TODO %^{title}\n%u\n  %x\n" :immediate-finish t :prepend t :jump-to-captured t)))
-
-
- -

-follow links using eww, if present -

-
-
(if (fboundp 'eww-browse-url)
-    (setq browse-url-browser-function 'eww-browse-url))
-
-
- -

-mark narrowing with an orange fringe, the advice for 'widen -is in the outline section. -

-
-
(advice-add 'org-narrow-to-subtree :after
-            '(lambda (&rest args)
-               (set-face-attribute 'fringe nil :background tvd-fringe-narrow-bg)))
-
-
- -

-always use the latest docs -

-
-
(with-eval-after-load 'info
-    (info-initialize)
-    (add-to-list 'Info-directory-list
-                 (expand-file-name "~/.emacs.d/lisp/org/doc")))
-
-
-
-
-
-
-

6.4.6 org agenda mode

-
-

-I use org mode for along time now, primarily at work, but did not -use agenda. Instead I developed the habit of maintaining one org -entry which contains just a list with all things to do today. I -just edited this list manually and it worked. However, recently I -found out that agenda provides lots of features and commands -precisely for what I already did manually. So, now, finally (as of -november 2018) I switch to using the agenda. -

- -

-My agenda use is very simple though: I don't use any scheduling, no -priorities, no recurring events, no daily or other time based -views. I just keep a list of TODO entries and another of entries in -WAIT state, that's it. All those entries are located under a -special org entry with the title "Heute" and the category (as -property) WORK, which I use for filtering out agenda items. -

- -

-The general workflow is as follows: I execute (agenda) which starts -directly my custom agenda view. It lists open TODO items and -waiting WAIT items below. If I press `n', I will be asked for a -title and a new TODO item appears in my agenda. I can press `d' to -mark it as DONE, it will also be archived into a subsibling below -"HEUTE". I can press `w' to move an item into WAIT state and I can -press `a' to add text to the org entry under point (like "waiting -for customer email"). -

- -

-So, I don't use my regular org entries, which are in most cases -very large containing lots of information, as agenda items, but -only very short ones which act as reminders about what work I have -to do. However, since I have the org buffer always opened and -visible in a split buffer next to the agenda, it is no problem to -go to such a deep entry for editing or viewing. -

- -
-
(require 'org-agenda)
-
-
- -

-This is my one and only agenda custom view, it displays TODO items -below entries categorized as WORK and WAIT items under the same -category. The cool thing here is, that the `tags' agenda view can -be used to filter for properties as well. In order to have this -working the following property drawer must exist in an entry with -TODO siblings: -

- -
    -

  • -START Arbeit -

    -

    -:CATEGORY: WORK -

    • -
-

-* TODO a thing to do -* WAIT a thing waiting for something -

- -
-
(setq org-agenda-custom-commands
-      '(("o" "Daily TODO Tasks"
-         (
-          ;; a block containing only items scheduled for today, if any
-          (agenda ""
-                  ((org-agenda-span 1)
-                   (org-agenda-overriding-header "Tasks scheduled:")))
-          ;; manually created todo items due (state TODO)
-          (tags "CATEGORY=\"WORK\""
-                ((org-agenda-skip-function '(org-agenda-skip-entry-if 'todo '("CANCEL" "START" "DONE" "WAIT")))
-                 (org-agenda-overriding-header "\nTasks to do today:")
-                 (org-agenda-follow-mode t)
-                 (org-agenda-entry-text-mode t)))
-          ;; manually created todo items in wait state
-          (tags "CATEGORY=\"WORK\""
-                ((org-agenda-skip-function '(org-agenda-skip-entry-if 'todo '("CANCEL" "START" "DONE" "TODO")))
-                 (org-agenda-overriding-header "\nTasks Waiting:"))))
-         ((org-agenda-compact-blocks t)))))
-
-
- -

-A shortcut to reach my custom view directly -

-
-
(defun agenda ()
-  "Visit my org agenda directly."
-  (interactive)
-  (org-agenda nil "o"))
-
-
- -

-Add a line of text to the top of an existing TODO entry and refresh -the agenda -

-
-
(defun tvd-org-agenda-edit-entry (note)
-  "Insert a note as plain text into an entry"
-  (interactive "sEnter note: ")
-  (save-excursion
-    (org-agenda-switch-to)
-    (end-of-line)
-    (newline)
-    (insert note))
-  (switch-to-buffer "*Org Agenda*")
-  (org-agenda-redo t))
-
-
- -

-Mark an entry as DONE, archive it to an archive sibling and refresh -the agenda -

-
-
(defun tvd-org-agenda-done()
-  (interactive)
-  (org-agenda-todo 'done)
-  (org-agenda-archive-to-archive-sibling)
-  (org-agenda-redo t))
-
-
- -

-Mark an entry as WAIT, archive it to an archive sibling and refresh -the agenda -

-
-
(defun tvd-org-agenda-wait()
-  (interactive)
-  (org-agenda-todo "WAIT")
-  (org-agenda-redo t))
-
-
- -

-A wrapper which executes an org capture directly. `t' is the -shortcut for the capture, defined above in org mode. -

-
-
(defun tvd-org-agenda-capture (&optional vanilla)
-  "Capture a task in agenda mode, using the date at point.
-
-If VANILLA is non-nil, run the standard `org-capture'."
-  (interactive "P")
-  (if vanilla
-      (org-capture)
-    (let ((org-overriding-default-time (org-get-cursor-date)))
-      (org-capture nil "t")
-      (org-agenda-redo t))))
-
-
- -

-Sometimes it is nice to see the agenda alone, so I press -`o'. However, since follow mode is enabled, once I move point, the -org buffer re-appears. -

-
-
(defun tvd-org-agenda-solitair ()
-  (interactive)
-  (delete-other-windows)
-  (setq org-agenda-follow-mode nil)
-  (message "Org Agenda Follow Mode Disabled"))
-
-
- -

-The original function scrolls the buffer every time when it runs a -little bit up, which is annoying, to say the least -

-
-
(defun tvd-org-agenda-redo()
-  (interactive)
-  (org-agenda-redo t)
-  (beginning-of-buffer))
-
-
- -

-Since I learned to love hydra, I have one for my agenda as well, of course: -

-
-
(defhydra hydra-org-agenda (:color blue
-                                   :pre (setq which-key-inhibit t)
-                                   :post (setq which-key-inhibit nil)
-                                   :hint none)
-  "
-Org Agenda (_q_uit)
-
-^Tasks^                             ^Options^             ^Movement^
--^^^^^^-------------------------------------------------------------------------------------
-_n_: create new task                _f_: follow =?f?      ENTER:     switch to entry
-_d_: mark task done and archive     _e_: entry  =?e?      C-<up>:    go one entry up
-_w_: mark task waiting              _o_: one window       C-<down>:  go one entry down
-_t_: toggle todo state              ^^                    M-<up>:    move entry up
-_z_: archive task                   ^^                    M-<down>:  move entry down
-_+_: increase prio                  ^Marking^
-_-_: decrease prio                  _m_: mark entry
-_g_: refresh                        _u_: un-mark entry
-_s_: save org buffer(s)             _U_: un-mark all
-_a_: add a note to the entry        _B_: bulk action
-
-"
-  ("a" tvd-org-agenda-edit-entry nil)
-  ("n" tvd-org-agenda-capture nil)
-  ("o" tvd-org-agenda-solitair nil)
-  ("g" tvd-org-agenda-redo)
-  ("t" org-agenda-todo)
-  ("d" tvd-org-agenda-done nil)
-  ("w" tvd-org-agenda-wait nil)
-  ("z" org-agenda-archive-to-archive-sibling nil)
-  ("+" org-agenda-priority-up nil)
-  ("-" org-agenda-priority-down nil)
-  ("s" org-save-all-org-buffers nil)
-  ("f" org-agenda-follow-mode
-   (format "% -3S" org-agenda-follow-mode))
-  ("e" org-agenda-entry-text-mode
-   (format "% -3S" org-agenda-entry-text-mode))
-  ("m" org-agenda-bulk-mark nil)
-  ("u" org-agenda-bulk-unmark nil)
-  ("U" org-agenda-bulk-remove-all-marks nil)
-  ("B" org-agenda-bulk-action nil)
-  ("q" nil nil :color red))
-
-
- -

-Configuration and key bindings for org agenda (same as in the hydra) -

-
-
(add-hook 'org-agenda-mode-hook '(lambda () (progn
-                                              (setq org-agenda-follow-mode t
-                                                    org-log-into-drawer t
-                                                    org-agenda-entry-text-mode t
-                                                    org-agenda-sorting-strategy '(priority-down timestamp-down))
-                                              (local-set-key (kbd "n") 'tvd-org-agenda-capture)
-                                              (local-set-key (kbd "o") 'tvd-org-agenda-solitair)
-                                              (local-set-key (kbd "a") 'tvd-org-agenda-edit-entry)
-                                              (local-set-key (kbd "d") 'tvd-org-agenda-done)
-                                              (local-set-key (kbd "w") 'tvd-org-agenda-wait)
-                                              (local-set-key (kbd "g") 'tvd-org-agenda-redo)
-                                              (local-set-key (kbd "f") 'org-agenda-follow-mode)
-                                              (local-set-key (kbd "e") 'org-agenda-entry-text-mode)
-                                              (local-set-key (kbd "z") 'org-agenda-archive-to-archive-sibling)
-                                              (local-set-key (kbd "C-<up>") 'org-agenda-previous-item)
-                                              (local-set-key (kbd "C-<down>") 'org-agenda-next-item)
-                                              (local-set-key (kbd "?") 'hydra-org-agenda/body))))
-
-
-
-
-
-
-

6.4.7 org table mode

-
-

-I'm so used to lovely org mode tables, I need them everywhere! -

-
-
(require 'org-table)
-
-
- - - -

-convert CSV region to table -

-
-
(defun tablify (regex)
-  "Convert a whitespace separated column list into
-an org mode table and enable orgtbl-mode. You can
-specify another regex for cell splitting."
-  (interactive "MConvert [region] to table with regex ([\t\s]+): ")
-  (let ((spc "[\t\s]+"))
-    (when (string= regex "")
-      (setq regex spc))
-    (delete-trailing-whitespace)
-    (if (org-region-active-p)
-        (org-table-convert-region (region-beginning) (region-end) regex)
-      (org-table-convert-region (point-min) (point-max) regex))
-    (when (not (eq major-mode 'org-mode))
-      (orgtbl-mode))))
-
-
- -

-table sorting shortcuts -

-
-
(defun sort-table-numeric ()
-  "sort org table numerically by current column"
-  (interactive)
-  (org-table-sort-lines nil ?n))
-
-(defun sort-table-numeric-desc ()
-  "reverse sort org table numerically by current column"
-  (interactive)
-  (org-table-sort-lines nil ?N))
-
-(defun sort-table-alphanumeric ()
-  "sort org table charwise by current column"
-  (interactive)
-  (org-table-sort-lines nil ?a))
-
-(defun sort-table-alphanumeric-desc ()
-  "reverse sort org table charwise by current column"
-  (interactive)
-  (org-table-sort-lines nil ?A))
-
-(defun sort-table-time ()
-  "sort org table by times by current column"
-  (interactive)
-  (org-table-sort-lines nil ?t))
-
-(defun sort-table-time-desc ()
-  "reverse sort org table by times by current column"
-  (interactive)
-  (org-table-sort-lines nil ?T))
-
-
- -

-via jcs/irreal.org -however, I renamed the actual sort wrappers to match my -naming scheme -

-
-
(defun jcs-ip-lessp (ip1 ip2 &optional op)
-  "Compare two IP addresses.
-Unless the optional argument OP is provided, this function will return T
-if IP1 is less than IP2 or NIL otherwise. The optional argument OP is
-intended to be #'> to support reverse sorting."
-  (setq cmp (or op #'<))
-  (cl-labels ((compare (l1 l2)
-                       (if (or (null l1) (null l2))
-                           nil
-                         (let ((n1 (string-to-number (car l1)))
-                               (n2 (string-to-number (car l2))))
-                           (cond
-                            ((funcall cmp n1 n2) t)
-                            ((= n1 n2) (compare (cdr l1) (cdr l2)))
-                            (t nil))))))
-    (compare (split-string ip1 "\\.") (split-string ip2 "\\."))))
-
-(defun sort-table-ip ()
-  (interactive)
-  (org-table-sort-lines nil ?f #'org-sort-remove-invisible #'jcs-ip-lessp))
-
-(defun sort-table-ip-desc ()
-  (interactive)
-  (org-table-sort-lines nil ?F #'org-sort-remove-invisible
-                        (lambda (ip1 ip2) (jcs-ip-lessp ip1 ip2 #'>))))
-
-
- - -

-easy access for the shortcuts -

-
-
(defalias 'stn       'sort-table-numeric)
-(defalias 'stnd      'sort-table-numeric-desc)
-(defalias 'sta       'sort-table-alphanumeric)
-(defalias 'stad      'sort-table-alphanumeric-desc)
-(defalias 'stt       'sort-table-time)
-(defalias 'sttd      'sort-table-time-desc)
-(defalias 'sti       'sort-table-ip)
-(defalias 'stid      'sort-table-ip-desc)
-
-
- -

-generic table exporter -

-
-
(defun tvd-export-org-table (fmt)
-  "export an org table using format FMT"
-  (interactive)
-  (let ((efile "/tmp/org-table-export.tmp")
-        (ebuf (format "*table-%s*" fmt)))
-    (when (file-exists-p efile)
-      (delete-file efile))
-    (org-table-export efile (format "orgtbl-to-%s" fmt))
-    (other-window 1)
-    (if (not (eq (get-buffer ebuf) nil))
-        (kill-buffer (get-buffer ebuf)))
-    (set-buffer (get-buffer-create ebuf))
-    (insert-file-contents efile)
-    (switch-to-buffer ebuf)
-    (delete-file efile)))
-
-
- -

-FIXME: once there's an org solution to this, remove this code -format specific exporters -

-
-
(defun tvd-org-quote-csv-field (s)
-  "Quote every field."
-  (if (string-match "." s)
-      (concat "=\"" (mapconcat 'identity
-                               (split-string s "\"") "\"\"") "\"")
-    s))
-
-(defun table-to-excel ()
-  "export current org table to CSV format suitable for MS Excel."
-  (interactive)
-  ;; quote everything, map temporarily 'org-quote-csv-field
-  ;; to my version
-  (cl-letf (((symbol-function 'org-quote-csv-field)
-             #'tvd-org-quote-csv-field))
-           (tvd-export-org-table "csv")))
-
-(defun table-to-csv ()
-  "export current org table to CSV format"
-  (interactive)
-  (tvd-export-org-table "csv"))
-
-(defun table-to-latex ()
-  "export current org table to LaTeX format"
-  (interactive)
-  (tvd-export-org-table "latex"))
-
-(defun table-to-html ()
-  "export current org table to HTML format"
-  (interactive)
-  (tvd-export-org-table "html"))
-
-(defun table-to-csv-tab ()
-  "export current org table to CSV format, separated by <tab>"
-  (interactive)
-  (tvd-export-org-table "tsv"))
-
-(defun table-to-aligned ()
-  "export current org table to space-aligned columns format"
-  (interactive)
-  (tvd-export-org-table "csv")
-  (with-current-buffer "*table-csv*"
-    (align-regexp (point-min) (point-max) "\\(\\s-*\\)," 1 1 t)
-    (while (re-search-forward " ," nil t)
-      (replace-match "    "))))
-
-
- -

-exporter shortcuts -

-
-
(defalias 'ttc      'table-to-csv)
-(defalias 'tte      'table-to-excel)
-(defalias 'ttl      'table-to-latex)
-(defalias 'tth      'table-to-html)
-(defalias 'ttt      'table-to-csv-tab)
-(defalias 'tta      'table-to-aligned)
-
-
- -

-In org mode I sometimes want to copy the content of a table cell -

-
-
(defun tvd-beginning-of-cell (&optional arg)
-  "move (point) to the beginning of a org mode table cell"
-  (interactive)
-  (if  (re-search-backward "|" (line-beginning-position) 3 1)
-      (forward-char)))
-
-(defun tvd-end-of-cell (&optional arg)
-  "move (point) to the end of a org mode table cell"
-  (interactive)
-  (if  (re-search-forward "|" (line-end-position) 3 1)
-      (backward-char)))
-
-(defun tvd-copy-org-table-cell(&optional arg)
-  "Copy an org mode table cell to the kill ring using MCYT"
-  (interactive "P")
-  (mcyt--blink-and-copy-thing 'tvd-beginning-of-cell 'tvd-end-of-cell arg))
-
-(defun tvd-del-org-table-cell (&optional arg)
-  "Delete a cell"
-  (interactive "P")
-  (let
-      ((beg (progn (tvd-beginning-of-cell) (point)))
-       (end (progn (tvd-end-of-cell) (point))))
-    (delete-region beg end)
-    (org-table-align)))
-
-(defun tvd-del-org-table-row ()
-  "Delete a table row's contents"
-  (interactive)
-  (org-beginning-of-line 1)
-  (kill-line)
-  (org-table-insert-row nil))
-
-(defun tvd-del-org-table-col ()
-  "Delete a table column's contents, keep heading as is"
-  (interactive)
-  (let ((head (org-table-get 1 nil)))
-    (org-table-delete-column)
-    (re-search-forward "|")
-    (org-table-insert-column)
-    (tvd-org-table-goto-col-beginning)
-    (insert head)
-    (org-table-align))
-  )
-
-
- -

-Sometimes I need to copy whole columns too: -via stackoverflow -

- -
-
(defun tvd-org-table-goto-col-beginning ()
-  "Go to beginning of current column and return `point'."
-  (interactive)
-  (assert (org-table-p) "Not in org-table.")
-  (org-table-align)
-  (let ((col (org-table-current-column)))
-    (goto-char (org-table-begin))
-    (org-table-goto-column col))
-  (point))
-
-(defun tvd-org-table-col-beginning ()
-  "Return beginning position of current column."
-  (save-excursion
-    (tvd-org-table-goto-col-beginning)))
-
-(defun tvd-org-table-goto-col-end ()
-  "Goto end of current column and return `point'."
-  (interactive)
-  (assert (org-table-p) "Not in org-table.")
-  (org-table-align)
-  (let ((col (org-table-current-column)))
-    (goto-char (1- (org-table-end)))
-    (org-table-goto-column col)
-    (skip-chars-forward "^|"))
-  (point))
-
-(defun tvd-org-table-col-end ()
-  "Return end position of current column."
-  (save-excursion
-    (tvd-org-table-goto-col-end)))
-
-(defun tvd-org-table-select-col ()
-  "Select current column."
-  (interactive)
-  (set-mark (tvd-org-table-col-beginning))
-  (tvd-org-table-goto-col-end)
-  (rectangle-mark-mode))
-
-(defun tvd-copy-org-table-col ()
-  "Copy current column."
-  (interactive)
-  (tvd-org-table-select-col)
-  (sit-for 0.2 t)
-  (copy-region-as-kill nil nil t)
-  (with-temp-buffer
-    (yank)
-    (delete-trailing-whitespace)
-    (delete-whitespace-rectangle (point-min) (point-max))
-    (font-lock-unfontify-buffer)
-    (copy-region-as-kill (point-min) (point-max))))
-
-(defun tvd-copy-org-table-row ()
-  "Copy current row, space aligned"
-  (interactive)
-  (mcyt-copy-line)
-  (with-temp-buffer
-    (yank)
-    (goto-char (point-min))
-    (let ((spc ""))
-      (while (re-search-forward "|[ ]*" nil t)
-        (replace-match spc)
-        (setq spc " ")))
-    (delete-trailing-whitespace)
-    (copy-region-as-kill (point-min) (point-max))))
-
-
- -

-Move single cells using C-M-up C-M-down C-M-left C-M-right -via Kauffmann -

-
-
(defun org-table-swap-cells (i1 j1 i2 j2)
-  "Swap two cells"
-  (let ((c1 (org-table-get i1 j1))
-        (c2 (org-table-get i2 j2)))
-    (org-table-put i1 j1 c2)
-    (org-table-put i2 j2 c1)
-    (org-table-align)))
-
-(defun org-table-move-single-cell (direction)
-  "Move the current cell in a cardinal direction according to the
-  parameter symbol: 'up 'down 'left 'right. Swaps contents of
-  adjacent cell with current one."
-  (unless (org-at-table-p)
-    (error "No table at point"))
-  (let ((di 0) (dj 0))
-    (cond ((equal direction 'up) (setq di -1))
-          ((equal direction 'down) (setq di +1))
-          ((equal direction 'left) (setq dj -1))
-          ((equal direction 'right) (setq dj +1))
-          (t (error "Not a valid direction, must be up down left right")))
-    (let* ((i1 (org-table-current-line))
-           (j1 (org-table-current-column))
-           (i2 (+ i1 di))
-           (j2 (+ j1 dj)))
-      (org-table-swap-cells i1 j1 i2 j2)
-      (org-table-goto-line i2)
-      (org-table-goto-column j2))))
-
-(defun org-table-move-single-cell-up ()
-  "Move a single cell up in a table; swap with anything in target cell"
-  (interactive)
-  (org-table-move-single-cell 'up))
-
-(defun org-table-move-single-cell-down ()
-  "Move a single cell down in a table; swap with anything in target cell"
-  (interactive)
-  (org-table-move-single-cell 'down))
-
-(defun org-table-move-single-cell-left ()
-  "Move a single cell left in a table; swap with anything in target cell"
-  (interactive)
-  (org-table-move-single-cell 'left))
-
-(defun org-table-move-single-cell-right ()
-  "Move a single cell right in a table; swap with anything in target cell"
-  (interactive)
-  (org-table-move-single-cell 'right))
-
-
- -

-actual org table config -

-
-
(with-eval-after-load "org"
-  (add-hook 'org-mode-hook
-            (lambda ()
-              (local-set-key (kbd "C-c t l") 'tvd-copy-org-table-col)
-              (local-set-key (kbd "C-c t r") 'tvd-copy-org-table-row)
-              (local-set-key (kbd "C-c t c") 'tvd-copy-org-table-cell)
-              (local-set-key (kbd "C-M-<left>")  'org-table-move-single-cell-left)
-              (local-set-key (kbd "C-M-<right>") 'org-table-move-single-cell-right)
-              (local-set-key (kbd "C-M-<up>")    'org-table-move-single-cell-up)
-              (local-set-key (kbd "C-M-<down>")  'org-table-move-single-cell-down))))
-
-
- -

-eval-after-load 'orgtbl doesn't work -

-
-
(add-hook 'orgtbl-mode-hook '(lambda ()
-                               (define-key orgtbl-mode-map (kbd "C-c t l") 'tvd-copy-org-table-col)
-                               (define-key orgtbl-mode-map (kbd "C-c t r") 'tvd-copy-org-table-row)
-                               (define-key orgtbl-mode-map (kbd "C-c t c") 'tvd-copy-org-table-cell)))
-
-
- -

-integers, reals, positives, set via custom -

-
-
(setq org-table-number-regexp "^[-+]?\\([0-9]*\\.[0-9]+\\|[0-9]+\\.?[0-9]*\\)$")
-
-
- -

-table hydras, maybe better than aliases?! -

-
-
(defhydra hydra-org-tables (:color blue)
-  "
-^Sort by^             ^Transform to^      ^Copy/Del what^                ^Modify^                 ^Outside Org^
-^^^^^^^^-----------------------------------------------------------------------------------------------------------------------
-_sa_:  alphanumeric   _tc_: CSV           _cl_: Copy Column (C-c t l)    _ic_: Insert Column      _ot_: Table to Org Mode
-_sA_: -alphanumeric   _te_: Excel         _cr_: Copy Row    (C-c t r)    _ir_: Insert Row         _oe_: Enable Org-Tbl Mode
-_si_:  ip             _tl_: Latex         _cc_: Copy Cell   (C-c t c)    _il_: Insert Line        _oc_: Turn region to columns
-_sI_: -ip             _th_: HTML          _dd_: Delete Cell              _tr_: Transpose Table
-_sn_:  numeric        _tt_: Tab           _dc_: Delete Column            _mr_: Move Cell right
-_sN_: -numeric        _ta_: Aligned       _dr_: Delete Row               _ml_: Move Cell left
-_st_:  time           ^^                  _kr_: Kill Row                 _mu_: Move Cell up
-_sT_: -time           ^^                  _kc_: Kill Column              _md_: Move Cell down     _q_: Cancel
-
-
-^^^^^^^^-----------------------------------------------------------------------------------------------------------------------
-Reach this hydra with <C-x t>
-^^^^^^^^-----------------------------------------------------------------------------------------------------------------------
-
-
-"
-  ("mr" org-table-move-single-cell-right)
-  ("ml" org-table-move-single-cell-left)
-  ("mu" org-table-move-single-cell-up)
-  ("md" org-table-move-single-cell-down)
-  ("sa" sort-table-alphanumeric  nil)
-  ("sA" sort-table-alphanumeric-desc nil)
-  ("si" sort-table-ip nil)
-  ("sI" sort-table-ip-desc  nil)
-  ("sn" sort-table-numeric  nil)
-  ("sN" sort-table-numeric-desc  nil)
-  ("st" sort-table-time  nil)
-  ("sT" sort-table-time-desc  nil)
-
-  ("tc" table-to-csv nil)
-  ("te" table-to-excel    nil)
-  ("tl" table-to-latex    nil)
-  ("th" table-to-html     nil)
-  ("tt" table-to-csv-tab  nil)
-  ("ta" table-to-aligned  nil)
-
-  ("cl" tvd-copy-org-table-col nil)
-  ("cr" tvd-copy-org-table-row nil)
-  ("cc" tvd-copy-org-table-cell nil)
-  ("dd" org-table-blank-field nil)
-  ("dr" tvd-del-org-table-row nil)
-  ("dc" tvd-del-org-table-col nil)
-  ("kc" org-table-delete-column nil)
-  ("kr" org-table-kill-row nil)
-
-  ("ic" org-table-insert-column nil)
-  ("ir" org-table-insert-row nil)
-  ("il" org-table-hline-and-move nil)
-  ("tr" org-table-transpose-table-at-point nil)
-
-  ("ot" tablify  nil)
-  ("oe" orgtbl-mode nil)
-  ("oc" align-repeat nil)
-
-  ("q" nil nil :color red))
-
-
- -

-allow me to insert org tables everywhere on request -

-
-
(defalias 'table     'hydra-org-tables/body)
-(global-set-key (kbd "C-x t") 'hydra-org-tables/body)
-
-
-
-
- -
-

6.4.8 org mode slideshows

-
-

-Making presentations within emacs with org mode is cool as well. -

- -
-
(require 'org-present)
-(require 'darkroom) ;; hides distractions
-
-
- -

-showtime helpers -

-
-
(defun slide-return-to-present ()
-  "wherever we are, go back to slideshow"
-  (interactive)
-  (switch-to-buffer-other-window "*slide*")
-  (delete-other-windows))
-
-(defun slide-split-to-past ()
-  "split slide show and show previous buffer next to it"
-  (interactive)
-  (split-window-horizontally)
-  (other-window 1)
-  (if (get-buffer "*eshell*")
-      ;; if there's no eshell running, start it, otherwise switch to it
-      (switch-to-buffer "*eshell*")
-    (eshell)))
-
-
- -

-org present config -

-
-
(eval-after-load "org-present"
-  '(progn
-     (add-hook 'org-present-mode-hook
-               (lambda ()
-                 (org-present-big)
-                 (org-display-inline-images)
-                 (org-present-hide-cursor)
-                 (org-present-read-only)
-
-                 ;; some opticals
-                 (setq org-hide-emphasis-markers t)
-                 (font-lock-add-keywords 'org-mode
-                                         '(("^ +\\([-*]\\) "
-                                            (0 (prog1 () (compose-region (match-beginning 1) (match-end 1) "•"))))))
-                 ;; keys
-                 (define-key org-present-mode-keymap [down]    'org-present-next)
-                 (define-key org-present-mode-keymap [up]      'org-present-prev)
-                 (define-key org-present-mode-keymap (kbd "q") 'org-present-quit)
-                 (global-set-key (kbd "C-c p") 'slide-return-to-present) ; used inside eshell to return to slide
-                 (define-key org-present-mode-keymap (kbd "s") 'slide-split-to-past)
-                 (setq current-buffer (buffer-name)) ; remember slide buffer name
-                 (rename-buffer "*slide*")
-                 ;;(darkroom-tentative-mode)
-                 ))
-
-     (add-hook 'org-present-mode-quit-hook
-               (lambda ()
-                 (org-present-small)
-                 (org-remove-inline-images)
-                 (org-present-show-cursor)
-                 (org-present-read-write)
-                 (setq org-hide-emphasis-markers nil)
-                 (rename-buffer current-buffer)
-                 (global-unset-key (kbd "C-c p"))
-                 ;;(darkroom-tentative-mode)
-                 ))))
-
-
- -

-Will be inserted as first help slide in a slide show -(edit table in org-mode!) -

-
-
(defun slide-header (prefix)
-  (interactive "P")
-  (save-excursion
-    (if (eq prefix nil)
-        ()
-      (goto-char (point-min)))
-    (insert "\n* ORG-MODE slide show commands
-
-  | Key   | Command                                                    |
-  +-------+------------------------------------------------------------+
-  | C-p   | start slide show                                           |
-  | q     | stop slide show                                            |
-  | s     | slit window and switchto or start eshell                   |
-  | C-c p | while in split mode, return to full screen slide show      |
-  | C-c r | enter window resize mode, use cursor keys, <ret> to finish |
-  | C--   | (CTRL and minus) shrink font size                          |
-  | C-+   | (CTRL and plus) increase font size                         |
-
-")))
-
-
- - -
-
-
-
-

6.4.9 outshine mode

-
-

-I maintain my emacs config with outshine mode. It works a lot like -org mode, but I still have a normal emacs lisp buffer, which I can -use directly without any conversion beforehand and which works if -outshine is not installed. Also I thing "literal programming" is -bullshit. -

- -
-
(require 'outshine)
-
-
- -

-Generate an alist of all headings with each position in buffer and -use this later to jump to those positions with IDO. -

-
-
(make-variable-buffer-local 'tvd-headings)
-
-(defun tvd-outshine-get-level (heading)
-  "Return level of HEADING as number, or nil"
-  (if (string-match " \\(*+\\) " heading) ; normal outline heading
-      (length (match-string 1 heading))
-    (when (string-match "^;;\\(;+\\) " heading) ; else look for elisp heading
-      (length (match-string 1 heading)))))
-
-(defun tvd-outshine-cl-heading (heading)
-  (let ((regex (cadar outshine-imenu-preliminary-generic-expression)))
-    (when (string-match regex heading)
-      (match-string-no-properties 1 heading))))
-
-(defun tvd-outshine-parse-headings ()
-  "extract outshine headings of current buffer"
-  (interactive)
-  (let ((line nil))
-    (save-excursion
-      (setq tvd-headings ())
-      (beginning-of-buffer)
-      (while (not (eobp))
-        (setq line (tvd-get-line))
-        (when (outline-on-heading-p t)
-          (add-to-list 'tvd-headings (cons (tvd-outshine-cl-heading line) (point))))
-        (forward-line)))))
-
-(defun tvd-outshine-sparse-tree ()
-  "expand outline tree from current position as sparse tree"
-  (interactive)
-  (let ((done nil)
-        (pos (point))
-        (tree (list (list (point) 5)))
-        (l 0))
-    (while (not done)
-      (outline-up-heading 1)
-      (setq l (tvd-outshine-get-level (tvd-get-line)))
-      (add-to-list 'tree (list (point) l))
-      (when (eq l 1)
-        (setq done t)))
-    (outline-hide-other)
-    (dolist (pos tree)
-      (goto-char (car pos))
-      (outline-cycle))))
-
-(defun tvd-outshine-jump ()
-  "jump to an outshine heading with IDO prompt,
-update heading list if neccessary."
-  (interactive)
-  (let ((heading nil))
-    (if (string= "" outshine-normalized-outline-regexp-base)
-        (call-interactively 'imenu) ;; use imenu outside outshine
-      (when (or (not tvd-headings)
-                (buffer-modified-p))
-        (tvd-outshine-parse-headings))
-      (if (not tvd-headings)
-          (message "Could not parse headings")
-        (setq heading (ido-completing-read
-                       "Jump to heading: "
-                       (tvd-alist-keys tvd-headings)))
-        (when heading
-          (show-all)
-          (goto-char (cdr (assoc heading tvd-headings)))
-          (tvd-outshine-sparse-tree))))))
-
-
-(defun tvd-outshine-end-of-section ()
-  "Jump to the end of an outshine section."
-  (interactive)
-  (let ((end))
-    (outline-show-subtree)
-    (save-excursion
-      (outline-next-heading)
-      (when (outline-on-heading-p)
-        (backward-paragraph))
-      (setq end (point)))
-    (goto-char end)))
-
-
- -

-outshine mode config (inside outline mode) -

-
-
(eval-after-load "outline"
-  '(progn
-     (add-hook 'outline-minor-mode-hook
-               (lambda ()
-                 (defalias 'j    'tvd-outshine-jump)
-                 (defalias 'jump 'tvd-outshine-jump)
-                 (define-key outline-minor-mode-map (kbd "C-c C-j")  'tvd-outshine-jump)
-                 (setq outshine-org-style-global-cycling-at-bob-p t
-                       outshine-use-speed-commands t
-                       outshine-speed-commands-user
-                       (quote (
-                               ("v" . outshine-narrow-to-subtree)
-                               ("q" . widen)
-                               ("e" . tvd-outshine-end-of-section))))))))
-
-
- -

-Narrowing now works within the headline rather than requiring to be on it -

-
-
(advice-add 'outshine-narrow-to-subtree :before
-            (lambda (&rest args) (unless (outline-on-heading-p t)
-                                   (outline-previous-visible-heading 1))))
-
-
- -

-convert outshine buffer to org buffer using outorg, which is part -of outshine. -

-
-
(defun outshine-to-org ()
-  (interactive)
-  (outorg-convert-to-org)
-  (org-mode))
-
-
- -

-I use this to generate a HTML version of my emacs config for -posting online, which makes it way easier to read. -

-
-
(defun outshine-to-html (file)
-  (interactive
-   (list
-    (read-file-name "HTML output file: "
-                    (expand-file-name "~/D/github/dot-emacs")
-                    "emacs.html")))
-  (let ((B (current-buffer)))
-    (with-temp-buffer
-      (insert-buffer-substring B)
-      ;; remove 'sk spacings for smaller <pre>'s
-      (tvd-replace-all ")\s*;" ") ;")
-      ;; highlight at least a little
-      (tvd-replace-all "/FIXME/" "//FIXME//")
-      (emacs-lisp-mode)
-      (outshine-to-org)
-      (org-export-to-file 'html file))))
-
-(defun export (cmessage)
-  "Export .emacs to git, do not use."
-  ;; /FIXME/: generate version number, add last changelog to git
-  (interactive "sEnter Commit Message: ")
-  (outshine-to-html "~/D/github/dot-emacs/emacs.html")
-  (shell-command "cp ~/.emacs ~/D/github/dot-emacs/")
-  (shell-command (format "cd ~/D/github/dot-emacs && git ci '%s' .emacs emacs.html" cmessage))
-  (shell-command "cd ~/D/github/dot-emacs && git push"))
-
-
- -
-
-
- -
-

6.4.10 outline mode

-
-

-I use the very same cycle style as in org mode: when on a heading, -hide it, jump to next heading on the same level and expand that (or -vice versa). however, when NOT on a heading behave as loved: jump -paragraphs. -

- -

-Note, that this also affects outshine mode, since that inherits -from outline. -

- -
-
(defun tvd-outline-left-or-level-up()
-  "jump one word to the left if not on a heading,
-otherwise fold current level and jump one level up."
-  (interactive)
-  (if (outline-on-heading-p)
-      (progn
-        (hide-subtree)
-        (outline-up-heading 1))
-    (left-word)))
-
-(defun tvd-outline-heading-up()
-  "fold current heading, jump one level up and unfold it"
-  (interactive)
-  (if (not (outline-on-heading-p))
-      (backward-paragraph)
-    (hide-subtree)
-    (outline-backward-same-level 1)
-    (outline-cycle)))
-
-(defun tvd-outline-heading-down()
-  "fold current heading, jump one level down and unfold it"
-  (interactive)
-  (if (not (outline-on-heading-p))
-      (forward-paragraph)
-    (hide-subtree)
-    (outline-forward-same-level 1)
-    (outline-cycle)))
-
-
- -

-unused, see tvd-outshine-jump -

-
-
(defun tvd-outline-jump (part)
-  "Jump interactively to next header containing PART using search."
-  (interactive "Mjump to: ")
-  (let ((done nil)
-        (pwd (point)))
-    (beginning-of-buffer)
-    (outline-show-all)
-    (when (re-search-forward (format "^;; \\*+.*%s" part) (point-max) t)
-      (when (outline-on-heading-p)
-        (beginning-of-line)
-        (setq done t)))
-    (when (not done)
-      (message (format "no heading with '%s' found" part))
-      (goto-char pwd))))
-
-
- -

-outline mode config -

-
-
(eval-after-load "outline"
-  '(progn
-     (add-hook 'outline-minor-mode-hook
-               (lambda ()
-                 ;; narrowing, we use outshine functions, it's loaded anyway
-                 (defalias 'n 'outshine-narrow-to-subtree)
-                 (defalias 'w 'widen)
-                 (define-key outline-minor-mode-map (kbd "<C-up>")   'tvd-outline-heading-up)
-                 (define-key outline-minor-mode-map (kbd "<C-down>") 'tvd-outline-heading-down)
-                 ;;(define-key outline-minor-mode-map (kbd "<C-left>") 'tvd-outline-left-or-level-up)
-                 ))))
-
-
- -

-orange fringe when narrowed -

-
-
(advice-add 'outshine-narrow-to-subtree :after
-            '(lambda (&rest args)
-               (set-face-attribute 'fringe nil :background tvd-fringe-narrow-bg)))
-
-
- - -
-
-
-
-

6.4.11 narrowing (no mode but fits here)

-
-

-I use narrowing quite frequently, so here are some enhancements. -

- -

-easier narrowing with Indirect Buffers -Source: emacswiki -

-
-
(require 'narrow-indirect)
-(defalias 'nf 'ni-narrow-to-defun-indirect-other-window)
-(defalias 'nr 'ni-narrow-to-region-indirect-other-window)
-
-
- -

-I like to have an orange fringe background when narrowing is -active, since I forget that it is in effect otherwise sometimes. -

- -

-via stackoverflow -

-
-
(defun tvd-narrowed-fringe-status ()
-  "Make the fringe background reflect the buffer's narrowing status."
-  (set-face-attribute
-   'fringe nil :background (if (buffer-narrowed-p)
-                               tvd-fringe-narrow-bg
-                             nil)))
-
-(add-hook 'post-command-hook 'tvd-narrowed-fringe-status)
-
-
- -
-
-
-
-

6.4.12 ANSI-TERM (inferior shells/interpreters and REPLs)

-
-

-I use ansi term for inferior shells only. -

- -

-via echosa -

- -

-kill buffer when done -

-
-
(defadvice term-sentinel (around tvd-advice-term-sentinel (proc msg))
-  (if (memq (process-status proc) '(signal exit))
-      (let ((buffer (process-buffer proc)))
-        ad-do-it
-        (kill-buffer buffer))
-    ad-do-it))
-(ad-activate 'term-sentinel)
-
-
- -

-force utf8 -

-
-
(defun tvd-term-use-utf8 ()
-  (set-buffer-process-coding-system 'utf-8-unix 'utf-8-unix))
-(add-hook 'term-exec-hook 'tvd-term-use-utf8)
-
-
- -

-make C-y work -

-
-
(defun tvd-term-paste (&optional string)
-                      (interactive)
-                      (process-send-string
-                       (get-buffer-process (current-buffer))
-                       (if string string (current-kill 0))))
-
-
- -

-put all term hooks in here -

-
-
(defun tvd-term-hook ()
-  (goto-address-mode)
-  (define-key term-raw-map (kbd "C-y") 'tvd-term-paste)
-  (define-key term-raw-map (kbd "C-c C-d") 'kill-this-buffer)
-  (define-key term-raw-map (kbd "C-d") 'kill-this-buffer)
-  (define-key term-raw-map (kbd "C-c C-l") 'term-line-mode)
-  (define-key term-raw-map (kbd "C-k")
-    (lambda ()
-      (interactive)
-      (term-send-raw-string "\C-k")
-      (kill-line))))
-(add-hook 'term-mode-hook 'tvd-term-hook)
-
-
- -

-via emacswiki: -Use to supply commandline arguments to ansi-term -

-
-
(defun term-with-args (new-buffer-name cmd &rest switches)
-  (setq term-ansi-buffer-name (concat "*" new-buffer-name "*"))
-  (setq term-ansi-buffer-name (generate-new-buffer-name term-ansi-buffer-name))
-  (setq term-ansi-buffer-name (apply 'make-term term-ansi-buffer-name cmd nil switches))
-  (set-buffer term-ansi-buffer-name)
-  (term-mode)
-  (term-char-mode)
-  (message "Line mode: C-c C-l, Char mode: C-c C-k, Exit: C-c C-d")
-  (switch-to-buffer term-ansi-buffer-name))
-
-
- -

-finally the inferior REPLs: -

-
-
(defun iperl ()
-  "interactive perl (via perlbrew if exist or global)"
-  (interactive)
-  (let ((perlbrew (expand-file-name "~/perl5/perlbrew/bin/perlbrew")))
-    (if (file-exists-p perlbrew)
-        (term-with-args "*perlbrew-de0*" perlbrew "exec" "--" "perl" "-de0")
-      (term-with-args "*perl-de0*" "perl" "-de0"))))
-
-(defun iruby ()
-  "interactive ruby"
-  (interactive)
-  (term-with-args "*ruby-irb*" "irb"))
-
-(defun ipython ()
-  "interactive python"
-  (interactive)
-  (setenv "PYTHONSTARTUP" (expand-file-name "~/.pythonrc"))
-  (term-with-args "*python-i*" "python" "-i"))
-
-(defun icalc ()
-  "interactive calc"
-  (interactive)
-  (term-with-args "*calc*" (expand-file-name "~/bin/calc")))
-
-
- -
-
-
- -
-

6.4.13 Puppet

-
-

-adds hook for .pp files -

-
-
(require 'puppet-mode)
-
-
- -
-
-
- -
-

6.4.14 Novel Mode - Screen Reader

-
-

-my own emacs screen reader, very handy to read docs on the road. -

- -
-
(require 'novel-mode)
-(global-set-key (kbd "C-c C-n")         'novel-mode)
-
-
- -
-
-
- -
-

6.4.15 Macro Math

-
-

-see macro-math -

- -

-perform elisp evaluation/caluclaton directly in the buffer. -mark something and hit C-x C-0 (which is a reminder to C-x C-= w/o the shift) -

- -
-
(autoload 'macro-math-eval-and-round-region "macro-math" t nil)
-(autoload 'macro-math-eval-region "macro-math" t nil)
-
-(global-set-key (kbd "C-x C-0")         'macro-math-eval-region)
-
-
- -
-
-
- -
-

6.4.16 Common-Lisp (SLIME)

-
-

-I'm learing CL with slime, start with M-x slime. -

- -

-INSTALL: (see: jonathanfischer.net -

- -
-
(setq slimehelper (expand-file-name "~/quicklisp/slime-helper.el"))
-
-(if (file-exists-p slimehelper)
-    (progn
-      (load slimehelper)
-
-      ;; Replace "sbcl" with the path to your implementation
-      (setq inferior-lisp-program "sbcl")
-
-      ;; Stop SLIME's REPL from grabbing DEL,
-      ;; which is annoying when backspacing over a '('
-      (defun override-slime-repl-bindings-with-paredit ()
-        (define-key slime-repl-mode-map
-          (read-kbd-macro paredit-backward-delete-key) nil))
-      (add-hook 'slime-repl-mode-hook 'override-slime-repl-bindings-with-paredit)))
-
-
- -
-
-
- -
-

6.4.17 INFO Mode

-
-
-
(require 'info)
-
-
- -

-open an info file somewhere outside %infodir% with info-mode -

-
-
(defun info-find-file (file)
-  (interactive "f")
-  (info-setup file
-              (pop-to-buffer-same-window
-               (format "*info*<%s>"
-                       (file-name-sans-extension
-                        (file-name-nondirectory file))))))
-
-
- -

-easier navigation in Info mode, intuitive history back and forth. -

-
-
(eval-after-load "Info"
-  '(progn
-     (define-key Info-mode-map (kbd "<C-left>")  'Info-history-back)
-     (define-key Info-mode-map (kbd "<C-right>") 'Info-history-forward)
-     (require 'info+)))
-
-
- -

-make Info great again! -based on Marcins info dispatch, -contains (interactive) code from 'info-display-manual for manual selection. -

-
-
(defun i (manual)
-    "Read documentation for MANUAL in the info system.  Name the
-buffer '*Info MANUAL*'.  If that buffer is already present, just
-switch to it.
-
-If MANUAL not given as argument, ask interactively with completion
-to select from a list of installed manuals."
-  (interactive
-   (list
-    (progn
-      (info-initialize)
-      (ido-completing-read "Manual name: "
-                       (info--manual-names current-prefix-arg)
-                       nil t))))
-  (let ((buffer (format "*Info %s*" manual)))
-    (if (get-buffer buffer)
-      (switch-to-buffer bufer)
-      (info manual buffer))))
-
-
- -

-from examples, I love this one!, replaces the ? buffer -

-
-
(define-key Info-mode-map (kbd "?") #'hydra-info/body)
-(defhydra hydra-info (:color blue
-                      :hint nil)
-      "
-Info-mode:
-  ^^_]_ forward  (next logical node)       ^^_l_ast (←)        _u_p (↑)                             _f_ollow reference       _T_OC
-  ^^_[_ backward (prev logical node)       ^^_r_eturn (→)      _m_enu (↓) (C-u for new window)      _i_ndex                  _d_irectory
-  ^^_n_ext (same level only)               ^^_H_istory         _g_oto (C-u for new window)          _,_ next index item      _c_opy node name
-  ^^_p_rev (same level only)               _<_/_t_op           _b_eginning of buffer                virtual _I_ndex          _C_lone buffer
-  regex _s_earch (_S_ case sensitive)      ^^_>_ final         _e_nd of buffer                      ^^                       _a_propos
-
-  _1_ .. _9_ Pick first .. ninth item in the node's menu.
-
-"
-      ("]"   Info-forward-node nil)
-      ("["   Info-backward-node nil)
-      ("n"   Info-next nil)
-      ("p"   Info-prev nil)
-      ("s"   Info-search nil)
-      ("S"   Info-search-case-sensitively nil)
-
-      ("l"   Info-history-back nil)
-      ("r"   Info-history-forward nil)
-      ("H"   Info-history nil)
-      ("t"   Info-top-node nil)
-      ("<"   Info-top-node nil)
-      (">"   Info-final-node nil)
-
-      ("u"   Info-up nil)
-      ("^"   Info-up nil)
-      ("m"   Info-menu nil)
-      ("g"   Info-goto-node nil)
-      ("b"   beginning-of-buffer nil)
-      ("e"   end-of-buffer nil)
-
-      ("f"   Info-follow-reference nil)
-      ("i"   Info-index nil)
-      (","   Info-index-next nil)
-      ("I"   Info-virtual-index nil)
-
-      ("T"   Info-toc nil)
-      ("d"   Info-directory nil)
-      ("c"   Info-copy-current-node-name nil)
-      ("C"   clone-buffer nil)
-      ("a"   info-apropos nil)
-
-      ("1"   Info-nth-menu-item nil)
-      ("2"   Info-nth-menu-item nil)
-      ("3"   Info-nth-menu-item nil)
-      ("4"   Info-nth-menu-item nil)
-      ("5"   Info-nth-menu-item nil)
-      ("6"   Info-nth-menu-item nil)
-      ("7"   Info-nth-menu-item nil)
-      ("8"   Info-nth-menu-item nil)
-      ("9"   Info-nth-menu-item nil)
-
-      ("?"   Info-summary "Info summary")
-      ("h"   Info-help "Info help")
-      ("q"   Info-exit "Info exit")
-      ("C-g" nil "cancel" :color blue))
-
-
- -
-
-
- -
-

6.4.18 calc et al.

-
-

-emacs provides 4 ways to calculate: -

- -

-M-x calc: -RPN calc with stack. Enter numbers, when done, operator, enter, etc -heavy duty. -

- -

-provided by calc: -

- -
-(defun c (expr)
-  (interactive "Mcalc:")
-  (message (format "result: %s" (calc-eval expr))))
-
- -

-by calc as well, but with algebraic input, access last result with $ -algebraic == 1 +1 / 3. result will stored in kill-ring, use C-y to paste -

-
-
(defalias 'c         'quick-calc)
-
-
- -

-M-x calculator -interactive, simpler than calc, but comprehensive nevertheless, input -is algebraic as well, but last result can be used just as ~/bin/calc -

- -

-lisp can be used to calc as well: -M-x evaluate-expression <ret> (+ 1 2) <ret> -

- -

-or, inferior perl calc: M-x icalc, see above -

- -
-
-
- -
-

6.4.19 MACROs

-
-

-help: emacswiki macro tricks. -

- -

-Default keybindings: -start-kbd-macro default binding: ‘C-x (’ — Starts recording a keyboard macro. -end-kbd-macro default binding: ‘C-x )’ — Ends recording of a keyboard macro. -call-last-kbd-macro default binding: ‘C-x e’ — Executes the last keyboard macro defined. -

- -

-however, I use elmacro. -

- -
-
(require 'elmacro)
-(elmacro-mode)
-
-(setq tvd-macro-name "last-macro")
-
-
- -

-ignore stuff -

-
-
(add-to-list 'elmacro-unwanted-commands-regexps "^(mouse.*)$")
-(add-to-list 'elmacro-unwanted-commands-regexps "^(tvd-start-or-stop-macro)$")
-
-(defun tvd-get-macro-name()
-  "Ask for a macro name, check for duplicates.
-If the given name is already defined, ask again (and again until unique).
-If a buffer with the given name exists, kill it (that is, the buffer is
-there but has not been saved or evaluated yet). Return the name as string."
-  (interactive)
-  (let ((done nil)
-        (name nil)
-        (mbuf nil)
-        (err ""))
-    (while (not done)
-      (setq name (read-string (format "%s - enter macro name (last-macro): " err) nil nil "last-macro"))
-      (if (fboundp (intern name))
-          (setq err (format "macro '%s is already defined" name))
-        (setq mbuf (format "* elmacro - %s *" name))
-        (if (get-buffer mbuf)
-            (with-current-buffer mbuf
-              (kill-buffer mbuf)))
-        (setq done t)))
-    name))
-
-(defun tvd-get-exec-macro-name()
-  "Ask for a macro name to be executed"
-  (interactive)
-  (let ((macros ())
-        (N 1)
-        (S nil)
-        (T ""))
-    (dolist (entry (cdr (assoc tvd-macro-file load-history )))
-      (setq S (cdr entry))
-      (setq T (symbol-name S))
-      (push (list T N) macros)
-      (setq N (1+ N)))
-    (completing-read "enter macro name: " macros nil t nil)))
-
-
- -

-the heart of my elmacro stuff -

-
-
(defun tvd-start-or-stop-macro()
-  "start macro or stop if started"
-  (interactive)
-  (if (eq defining-kbd-macro nil)
-      (progn
-        (elmacro-clear-command-history)
-        (start-kbd-macro nil)
-        (message "Recording macro. Finish with <shift-F6> ..."))
-    (progn
-      (call-interactively 'end-kbd-macro)
-      (setq tvd-macro-name (tvd-get-macro-name))
-      (elmacro-show-last-macro tvd-macro-name)
-      (message "Recording done. Execute with <C-F6>, save or <C-x C-e> buffer..."))))
-
-
- -

-better than the default function -

-
-
(defun tvd-exec-last-macro(&optional ARG)
-  "execute last macro (or ARG, if given) repeatedly after every
-<ret>, abort with C-g or q, and repeat until EOF after pressing a.
-
-If macro defun is known (i.e. because you evaluated the elmacro buffer
-containing the generated defun), it will be executed. Otherwise the
-last kbd-macro will be executed."
-  (interactive)
-  (let ((melm-count 0)
-        (melm-all nil)
-        (melm-abort nil)
-        (melm-beg (eobp))
-        (melm-code (or ARG tvd-macro-name)))
-    (if (eobp)
-        (if (yes-or-no-p "(point) is at end of buffer. Jump to top?")
-            (goto-char (point-min))))
-    (while (and (not melm-abort)
-                (not (eobp)))
-       (when (not melm-all)
-         (message (concat
-                   (format
-                    "Executing last macro '%s (%d). Keys:\n"  melm-code melm-count)
-                   "<enter>      repeat once\n"
-                   "a            repeat until EOF\n"
-                   "e            enter macro name to execute\n"
-                   "<C-g> or q   abort ..\n "))
-         (setq K (read-event))
-         (cond ((or (eq K 'return) (eq K 'C-f6)) t)
-               ((equal (char-to-string K) "q") (setq melm-abort t))
-               ((equal (char-to-string K) "a") (message "Repeating until EOF")(setq melm-all t))
-               ((equal (char-to-string K) "e") (setq tvd-macro-name (tvd-get-exec-macro-name)))
-               (t (setq melm-abort t))))
-       (if (not melm-abort)
-           (progn
-             (if (fboundp (intern melm-code))
-                 (call-interactively (intern melm-code))
-               (call-interactively 'call-last-kbd-macro))
-             (setq melm-count (1+ melm-count)))))
-    (if (and (eq melm-count 0) (eq (point) (point-max)))
-        (message "(point) is at end of buffer, aborted")
-      (message (format "executed '%s %d times" melm-code melm-count)))))
-
-
- -

-My macro recording workflow: -

-
    -
  • shift-F6
    • -
  • … do things …
    • -
  • shift-F6 again
    • -
  • enter a name
    • -
  • a new buffer with macro defun appears
    • -
  • C-x C-e evals it
    • -
  • C-F6 (repeatedly) executes it.
    • -
-
-
(global-set-key (kbd "<f6>")            'tvd-start-or-stop-macro)
-(global-set-key (kbd "<C-f6>")          'tvd-exec-last-macro)
-
-
- -

-I use my own macro file -

-
-
(setq tvd-macro-file (concat tvd-lisp-dir "/macros.el"))
-
-
- -

-but only load if in use -

-
-
(if (file-exists-p tvd-macro-file)
-    (load-file tvd-macro-file))
-
-(defun tvd-macro-store()
-  "store current macro to emacs config"
-  (interactive)
-  (copy-region-as-kill (point-min) (point-max))
-  (if (not (get-buffer "macros.el"))
-      (find-file tvd-macro-file))
-  (with-current-buffer "macros.el"
-    (goto-char (point-max))
-    (newline)
-    (insert ";;")
-    (newline)
-    (insert (format ";; elmacro added on %s" (current-time-string)))
-    (newline)
-    (yank)
-    (newline)
-    (save-buffer))
-  (switch-to-buffer nil)
-  (delete-window))
-
-(defalias 'ms        'tvd-macro-store)
-
-(defun tvd-macro-gen-repeater-and-save()
-  "generate repeater and save the defun's
-Runs when (point) is at 0,0 of generated
-defun."
-  (next-line)
-  (goto-char (point-max))
-  (newline)
-  (insert (format "(defun %s-repeat()\n" tvd-macro-name))
-  (insert "  (interactive)\n")
-  (insert (format "  (tvd-exec-last-macro \"%s\"))\n" tvd-macro-name))
-  (newline)
-  (eval-buffer)
-  (tvd-macro-store))
-
-(advice-add 'elmacro-show-defun :after '(lambda (&rest args)
-                                          (tvd-macro-gen-repeater-and-save)))
-
-
- -
-
-
-
-

6.4.20 EWW browser stuff

-
-

-Emacs has a builtin browser, which is not too bad. -

- -
-
(require 'eww)
-
-
- -

-see also: shr-render-[buffer|region] ! -

-
-
(defun eww-render-current-buffer ()
-  "Render HTML in the current buffer with EWW"
-  (interactive)
-  (beginning-of-buffer)
-  (eww-display-html 'utf8 (buffer-name)))
-
-(defalias 'render-html 'eww-render-current-buffer)
-
-
- -

-eww config -

-
-
(add-hook 'eww-mode-hook #'toggle-word-wrap)
-(add-hook 'eww-mode-hook #'visual-line-mode)
-
-
- -

-custom short commands, see ? for the defaults -

-
-
(define-key eww-mode-map "o" 'eww) ; aka other page
-(define-key eww-mode-map "f" 'eww-browse-with-external-browser) ; aka firefox
-(define-key eww-mode-map "j" 'next-line)
-(define-key eww-mode-map "r" 'eww-reload)
-(define-key eww-mode-map "s" 'shr-save-contents)
-(define-key eww-mode-map "v" 'eww-view-source)
-(define-key eww-mode-map "b" 'eww-add-bookmark)
-(define-key eww-mode-map "p" 'eww-back-url)
-(define-key eww-mode-map "n" 'eww-forward-url)
-
-
- -

-link short commands -

-
-
(define-key eww-link-keymap "c" 'shr-copy-url)
-(define-key eww-link-keymap "s" 'shr-save-contents)
-
-
- -

-FIXME: latest GIT version of eww contains 'eww-readable, which -hides menus and distractions! Update emacs. -

- - -
-
-
-
-

6.4.21 Firestarter

-
-

-experimental: do things on save buffer etc. -Source: firestarter -

-
-
- -
-

6.4.22 Tabulated List Mode

-
-

-built-in, used by many interactive major modes -

- -

-+tablist, which provides many cool features -github source -important commands: -

-
    -
  • < shrink column
    • -
  • > enlarge column
    • -
  • s sort column
    • -
  • / prefix for filter commands -/ e edit filter, e.g. do not list auto-complete sub-packages in melpa: -/ a ! Package =~ ac- <ret>
    • -
-
-
(require 'tablist)
-
-
- -

-we need to kill tablist's binding in order to have ours run (see below) -

-
-
(define-key tablist-minor-mode-map (kbd "q") nil)
-(define-key tablist-minor-mode-map (kbd "q") 'tvd-close-window)
-
-(defun tvd-close-window ()
-  (interactive)
-  (kill-this-buffer)
-  (delete-window))
-
-(eval-after-load "tabulated-list"
-  '(progn
-     (add-hook 'tabulated-list-mode-hook
-               (lambda ()
-                 (tablist-minor-mode)
-                 (local-set-key (kbd "Q") 'delete-other-windows)
-                 (hl-line-mode)))))
-
-
-
-
- -
-

6.4.23 Help Mode

-
-

-I even customize help windows! … at least a little :) -

- -
-
(defun tvd-close-help ()
-  (interactive)
-  (kill-this-buffer)
-  (winner-undo))
-
-(eval-after-load "Help"
-  '(progn
-     (add-hook 'help-mode-hook
-               (lambda ()
-                 ; doesn' work the way I like
-                 ;(local-set-key (kbd "q") 'tvd-close-help)
-                 (local-set-key (kbd "q") 'quit-window)
-                 (local-set-key (kbd "p") 'help-go-back)
-                 (local-set-key (kbd "b") 'help-go-back)
-                 (local-set-key (kbd "n") 'help-go-forward)
-                 (local-set-key (kbd "f") 'help-go-forward)
-                 (setq help-window-select t)
-                 ))))
-
-
-
-
- -
-

6.4.24 Suggest Mode

-
-

-suggest mode is a great -elisp development tool. Execute `M-x suggest' and try it. -

- -
-
(require 'suggest) ;; depends on dash, s, f, loop
-
-
- -

-I use my own clearing function, since suggest doesn't provide this -

-
-
(defun tvd-suggest-reload ()
-  "Clear suggest buffer and re-paint it."
-  (interactive)
-  (let ((inhibit-read-only t))
-    (erase-buffer)
-    (suggest--insert-heading suggest--inputs-heading)
-    (insert "\n\n\n")
-    (suggest--insert-heading suggest--outputs-heading)
-    (insert "\n\n\n")
-    (suggest--insert-heading suggest--results-heading)
-    (insert "\n")
-    (suggest--nth-heading 1)
-    (forward-line 1)))
-
-(defun tvd-suggest-jump ()
-  "Jump between input and output suggest buffer."
-  (interactive)
-  (forward-line -1)
-  (if (eq (line-number-at-pos) 1)
-      (suggest--nth-heading 2)
-    (suggest--nth-heading 1))
-  (forward-line 1))
-
-(eval-after-load "suggest"
-  '(progn
-     (add-hook 'suggest-mode-hook
-               (lambda ()
-                 (local-set-key (kbd "C-l") 'tvd-suggest-reload)
-                 (local-set-key (kbd "<tab>") 'tvd-suggest-jump)))))
-
-
-
-
- -
-

6.4.25 Followcursor Mode

-
-

-source on github -

- -

-From time to time I need to refactor configs and the like based on -lists. For example in the left window I have a list of bgp peers -and in the right window a config file for all peers which I have to -modify based on current settings. With followcursor-mode I can put -point on an ip address and the line in the config containing this -ip address will be highlighted. If I move on to the next address -the next line on the right will be highlighted. -

- -

-The mode is a work-in-progress… -

- -
-
(require 'followcursor-mode)
-
-
-
-
- - - -
-

6.4.26 Magit

-
-

-Not much to say about Magit -

-
-
(unless tvd-win-home
-  (setq tvd-magit-revision "20170725.1153")
-  (add-to-list 'load-path (concat tvd-lisp-dir (concat "/magit-" tvd-magit-revision)))
-
-  (require 'magit)
-
-  (defun tvd-magit-status ()
-    "Always call `magit-status' with prefix arg."
-    (interactive)
-    (let ((current-prefix-arg t))
-      (call-interactively 'magit-status)))
-
-  (with-eval-after-load 'info
-    (info-initialize)
-    (add-to-list 'Info-directory-list
-                 (expand-file-name (concat "~/.emacs.d/lisp/magit-"
-                                           tvd-magit-revision
-                                           "/Documentation/")))
-    (setq magit-view-git-manual-method 'woman))
-
-  (defalias 'git       'magit-status)
-  (defalias 'gitlog    'magit-log-buffer-file)
-
-  ;; configure magit
-  (with-eval-after-load 'magit
-    (dolist (dir (list (expand-file-name "~/D/github")
-                       (expand-file-name "~/dev/git")))
-      (when (file-exists-p dir)
-        (add-to-list 'magit-repository-directories (cons dir 1))))
-    (setq magit-completing-read-function 'magit-ido-completing-read)
-
-    ;; use timestamps in log buffers
-    (setq magit-log-margin '(t "%Y-%m-%d " magit-log-margin-width t 18))
-
-    ;; navigate magit buffers as I do everywhere else, I do not automatically
-    ;; cycle/decycle though, the magit defaults are absolutely sufficient.
-    (define-key magit-mode-map (kbd "<C-down>") 'magit-section-forward-sibling)
-    (define-key magit-mode-map (kbd "<C-up>")   'magit-section-backward-sibling)
-    (define-key magit-mode-map (kbd "<delete>") 'magit-delete-thing))
-
-  ;; one thing though:  on startup it bitches about git  version, but it
-  ;; works nevertheless. So I disable this specific warning.
-
-  (defun tvd-ignore-magit-warnings-if-any ()
-    (interactive)
-    (when (get-buffer "*Warnings*")
-      (with-current-buffer "*Warnings*"
-        (goto-char (point-min))
-        (when (re-search-forward "Magit requires Git >=")
-          (kill-buffer-and-window)))))
-
-  (add-hook 'after-init-hook 'tvd-ignore-magit-warnings-if-any t)
-
-  ;; now, THIS is the pure genius me: hit "ls in magit-status buffer
-  ;; and end up in a dired buffer of current repository. The default
-  ;; binding for this is C-M-i, which is not memorizable, while "ls"
-  ;; is. That is, 'l' is a prefix command leading to magit-log-popup
-  ;; and 's' is undefined, which I define here, which then jumps to
-  ;; dired.
-  (magit-define-popup-action 'magit-log-popup
-    ?s "Dired" 'magit-dired-jump)
-
-  ;; after an exhausting discussion on magit#3139 I use this function
-  ;; to (kind of) switch to another repository from inside magit-status.
-  (defun tvd-switch-magit-repo ()
-    (interactive)
-    (let ((dir (magit-read-repository)))
-      (magit-mode-bury-buffer)
-      (magit-status dir)))
-  (define-key magit-mode-map (kbd "C") 'tvd-switch-magit-repo)
-
-  ;; via
-  ;; http://manuel-uberti.github.io/emacs/2018/02/17/magit-bury-buffer/:
-  ;; a great  enhancement, when closing  the magit status  buffer, ALL
-  ;; other possibly  still remaining magit  buffers will be  killed as
-  ;; well AND the window setup will be restored.
-  (defun tvd-kill-magit-buffers()
-    "Restore window setup from before magit and kill all magit buffers."
-    (interactive)
-    (let ((buffers (magit-mode-get-buffers)))
-      (magit-restore-window-configuration)
-      (mapc #'kill-buffer buffers)))
-  (define-key magit-status-mode-map (kbd "q") #'tvd-kill-magit-buffers))
-
-
- -
-
-
-
-

6.4.27 Dired

-
-

-I use dired for two things: from inside magit as a convenient way -to add or remove files from a repository. Or if I want to rename a -bunch of files using search/replace and other editing commands. -

- -

-But as with everything else I use, it must fit and so I managed to -tune this as well. -

- -

-More Hints -

-
- -
  1. dired-k
    -

    -dired-k is k for dired/emacs: it colorizes files and directory by -age, that is, the older the greyer they get. And it displays flags -about the git status of each file, which is really handy. -

    - -

    -However, it only works with git installed and if enabled stops -dired to work completely. So I define an exception here and don't -load k if there's no git (e.g. on my notebook at work) -

    -
    -
    (when (string-match "version" (shell-command-to-string "git version"))
-  (require 'dired-k)
-  (add-hook 'dired-initial-position-hook 'dired-k)
-  (add-hook 'dired-after-readin-hook #'dired-k-no-revert)
-  (setq dired-k-padding 2))
-
    -
    -
    2. - -
  2. dired-hacks
    -

    -Fuco1s dired-hacks is a -place to find the really cool stuff, I mostly use the filters. -

    -
    -
    (require 'dired-filter)
-
-(defun tvd-dired-quit-or-filter-pop (&optional arg)
-  "Remove a filter from the filter stack. If none left, quit the dired buffer."
-  (interactive "p")
-  (if dired-filter-stack
-      (dired-filter-pop arg)
-    (quit-window)))
-
-(require 'dired-ranger)
-
    -
    -
    3. - -
  3. dired sort helpers
    -

    -This sort function by Xah Lee -is easy to use and does what it should, great!, However, I added some -desc -sister sorts for reverse sorting. -

    -
    -
    (defun xah-dired-sort ()
-  "Sort dired dir listing in different ways.
-Prompt for a choice.
-URL `http://ergoemacs.org/emacs/dired_sort.html'
-Version 2015-07-30"
-  (interactive)
-  (let (sort-by arg)
-    (setq sort-by (ido-completing-read "Sort by:" '( "date" "size" "name" "dir" "date-desc" "size-desc" "name-desc" "dir-desc" )))
-    (cond
-     ((equal sort-by "name") (setq arg "-Al --si --time-style long-iso "))
-     ((equal sort-by "date") (setq arg "-Al --si --time-style long-iso -t"))
-     ((equal sort-by "size") (setq arg "-Al --si --time-style long-iso -S"))
-     ((equal sort-by "dir") (setq arg "-Al --si --time-style long-iso --group-directories-first"))
-     ((equal sort-by "name-desc") (setq arg "-Al --si --time-style long-iso -r"))
-     ((equal sort-by "date-desc") (setq arg "-Al --si --time-style long-iso -t -r"))
-     ((equal sort-by "size-desc") (setq arg "-Al --si --time-style long-iso -S -r"))
-     ((equal sort-by "dir-desc") (setq arg "-Al --si --time-style long-iso --group-directories-first -r"))
-     (t (error "logic error 09535" )))
-    (dired-sort-other arg )))
-
    -
    -
    4. - -
  4. dired git helpers
    -

    -via bin chen: -make git commands available from dired buffer, which can be used in -those rare cases, where my wrappers below don't fit. -

    -
    -
    (defun diredext-exec-git-command-in-shell (command &optional arg file-list)
-  "Run a shell command git COMMAND  ' on the marked files.  if no
-files marked, always operate on current line in dired-mode"
-  (interactive
-   (let ((files (dired-get-marked-files t current-prefix-arg)))
-     (list
-      ;; Want to give feedback whether this file or marked files are used:
-      (dired-read-shell-command "git command on %s: " current-prefix-arg files)
-      current-prefix-arg
-      files)))
-  (unless (string-match "[?][ \t]\'" command)
-    (setq command (concat command " *")))
-  (setq command (concat "git " command))
-  (dired-do-shell-command command arg file-list)
-  (message command))
-
    -
    - -

    -some git commandline wrappers which directly work on git files, -called with "hydras". -

    -
    -
    (defun tvd-dired-git-add(&optional arg file-list)
-  "Add marked or current file to current repository (stash)."
-  (interactive
-    (let ((files (dired-get-marked-files t current-prefix-arg)))
-      (list current-prefix-arg files)))
-  (dired-do-shell-command "git add -v * " arg file-list)
-  (revert-buffer))
-
-(defun tvd-dired-git-rm(&optional arg file-list)
-  "Remove marked or current file from current repository and filesystem."
-  (interactive
-   (let ((files (dired-get-marked-files t current-prefix-arg)))
-     (list current-prefix-arg files)))
-  (dired-do-shell-command "git rm -rf * " arg file-list)
-  (revert-buffer))
-
-(defun tvd-dired-git-ungit(&optional arg file-list)
-  "Like `tvd-dired-git-rm' but keep the files in the filesystem (unstage)."
-  (interactive
-   (let ((files (dired-get-marked-files t current-prefix-arg)))
-     (list current-prefix-arg files)))
-  (dired-do-shell-command "git rm -rf --cached * " arg file-list)
-  (revert-buffer))
-
    -
    -
    5. - -
  5. dired navigation
    -

    -I'm used to jump around with pos1+end -

    -
    -
    (defun tvd-dired-begin ()
-  "Move point to the first directory in the listing .."
-  (interactive)
-  (goto-char (point-min))
-  (dired-next-dirline 2))
-
-(defun tvd-dired-end ()
-  "Move point to the last file or directory in the listing."
-  (interactive)
-  (goto-char (point-max))
-  (dired-previous-line 1))
-
    -
    -
    6. - -
  6. dired buffer names
    -

    -This took me a long time to figure out, but I finally got it: I -really hate it how dired names its buffers, it just uses the -basename part of the current working directory as buffer name. So -when there are a couple of dozen buffers open and one of them is -named "tmp" I just can't see it. So what I do here is to rename -each dired buffer right after its creation by advising -`dired-internal-noselect'. My dired buffers have such names now: -dired: ~/tmp. I can find them easily, and I can reach all dired -buffers very fast thanks to the *dired prefix. And they are now -clearly marked as non-file buffers. In fact I consider this -behavior as a bug, but I doubt many people would agree :) -

    - -
    -
    (advice-add 'dired-internal-noselect
-            :filter-return
-            '(lambda (buffer)
-               "Modify dired buffer names to this pattern: *dired: full-path*"
-               (interactive)
-               (with-current-buffer buffer
-                 (rename-buffer (format "*dired: %s*" default-directory)))
-               buffer))
-
    -
    -
    7. - -
  7. dired config and key bindings
    -

    -and finally put everything together. -

    - -
    -
    (eval-after-load 'dired
-  '(progn
-     ;; dired vars
-     (setq dired-listing-switches "-lt")
-
-     ;; stay  with 1  dired buffer  per instance
-     ;; when changing directories
-     (define-key dired-mode-map (kbd "RET") 'dired-find-alternate-file)
-     (define-key dired-mode-map (kbd "<C-right>") 'dired-find-alternate-file)
-     (define-key dired-mode-map (kbd "^") (lambda () (interactive) (find-alternate-file "..")))
-     (define-key dired-mode-map (kbd "<C-left>") (lambda () (interactive) (find-alternate-file "..")))
-
-     ;; Xah Lee'S custom sort's
-     (define-key dired-mode-map (kbd "s") 'xah-dired-sort)
-
-     ;; my git "hydras"
-     (define-prefix-command 'tvd-dired-git-map)
-     (define-key dired-mode-map (kbd "g") 'tvd-dired-git-map)
-     (define-key tvd-dired-git-map (kbd "a") 'tvd-dired-git-add)
-     (define-key tvd-dired-git-map (kbd "d") 'tvd-dired-git-rm)
-     (define-key tvd-dired-git-map (kbd "u") 'tvd-dired-git-ungit)
-
-     ;; edit filenames
-     (defalias 'edit-dired 'wdired-change-to-wdired-mode)
-     (define-key dired-mode-map (kbd "C-c C-c") 'wdired-change-to-wdired-mode)
-
-     ;; dired-hacks filters
-     (define-key dired-mode-map (kbd "f") dired-filter-map)
-     (define-key dired-mode-map (kbd "q") 'tvd-dired-quit-or-filter-pop)
-     (define-key dired-mode-map (kbd "Q") 'dired-filter-pop-all)
-
-     ;; ranger, multi file copy/move
-     (define-prefix-command 'tvd-dired-ranger-map)
-     (define-key dired-mode-map (kbd "r") 'tvd-dired-ranger-map)
-     (define-key tvd-dired-ranger-map (kbd "c") 'dired-ranger-copy)
-     (define-key tvd-dired-ranger-map (kbd "p") 'dired-ranger-paste)
-     (define-key tvd-dired-ranger-map (kbd "m") 'dired-ranger-move)
-
-     ;; navigation,  use TAB  and C-TAB  to move
-     ;; point to  next or prev dir  like in info
-     ;; mode, and  HOME+END to reach the  end or
-     ;; beginning of the listing.
-     (define-key dired-mode-map (kbd "<tab>") 'dired-next-dirline)
-     (define-key dired-mode-map (kbd "<C-tab>") 'dired-prev-dirline)
-     (define-key dired-mode-map (kbd "<home>") 'tvd-dired-begin)
-     (define-key dired-mode-map (kbd "<end>") 'tvd-dired-end)
-
-     ;; overwrite some defaults I do not use anyway
-     (define-key dired-mode-map (kbd "n") 'dired-create-directory)))
-
    -
    -
    8. -
  8. Dired Hydra
    -

    -FIXME: not yet customized to fit my own config -

    -
    -
    (defhydra hydra-dired (:hint nil :color pink)
-  "
-_+_ mkdir          _v_iew           _m_ark             _(_ details        _i_nsert-subdir    _W_dired (EDIT FILENAMES)
-_C_opy             _O_ view other   _U_nmark all       _)_ omit-mode      _$_ hide-subdir    C-c C-c : edit
-_D_elete           _o_pen other     _u_nmark           _l_ redisplay      _w_ kill-subdir
-_R_ename           _M_ chmod        _t_oggle           _g_ revert buf     _e_ ediff          _q_uit
-_Y_ rel symlink    _G_ chgrp        _E_xtension mark   _s_ort             _=_ pdiff
-_S_ymlink          ^ ^              _F_ind marked      _._ toggle hydra   \\ flyspell
-_r_sync            ^ ^              ^ ^                ^ ^                _?_ summary
-_z_ compress-file  _A_ find regexp   / Filter
-_Z_ compress       _Q_ repl regexp
-
-T - tag prefix
-
-"
-  ("\\" dired-do-ispell nil)
-  ("(" dired-hide-details-mode nil)
-  (")" dired-omit-mode nil)
-  ("+" dired-create-directory nil)
-  ("=" diredp-ediff nil) ;; smart diff
-  ("?" dired-summary nil)
-  ("$" diredp-hide-subdir-nomove nil)
-  ("A" dired-do-find-regexp nil)
-  ("C" dired-do-copy nil) ;; Copy all marked files
-  ("D" dired-do-delete nil)
-  ("E" dired-mark-extension nil)
-  ("e" dired-ediff-files nil)
-  ("F" dired-do-find-marked-files nil)
-  ("G" dired-do-chgrp nil)
-  ("g" revert-buffer nil) ;; read all directories again (refresh nil)
-  ("i" dired-maybe-insert-subdir nil)
-  ("l" dired-do-redisplay nil) ;; relist the marked or singel directory
-  ("M" dired-do-chmod nil)
-  ("m" dired-mark nil)
-  ("O" dired-display-file nil)
-  ("o" dired-find-file-other-window nil)
-  ("Q" dired-do-find-regexp-and-replace nil)
-  ("R" dired-do-rename nil)
-  ("r" dired-do-rsynch nil)
-  ("S" dired-do-symlink nil)
-  ("s" dired-sort-toggle-or-edit nil)
-  ("t" dired-toggle-marks nil)
-  ("U" dired-unmark-all-marks nil)
-  ("u" dired-unmark nil)
-  ("v" dired-view-file nil) ;; q to exit, s to search, = gets line #
-  ("w" dired-kill-subdir nil)
-  ("W" wdired-change-to-wdired-mode nil)
-  ("Y" dired-do-relsymlink nil)
-  ("z" diredp-compress-this-file nil)
-  ("Z" dired-do-compress nil)
-  ("q" nil nil)
-  ("." nil nil :color blue))
-
-(define-key dired-mode-map "?" 'hydra-dired/body)
-
    -
    -
-
- -
-

6.4.28 Ediff Config

-
-

-Force ediff to use 1 frame (the current) and not open a new frame -for control and help. Also changing the split orientation doesnt -open a new frame. -

- -
-
(eval-after-load "ediff"
-  '(progn
-     (setq ediff-diff-options   "-w"
-           ediff-split-window-function 'split-window-horizontally
-           ediff-window-setup-function 'ediff-setup-windows-plain)
-
-     (add-hook 'ediff-startup-hook 'ediff-toggle-wide-display)
-     (add-hook 'ediff-cleanup-hook 'ediff-toggle-wide-display)
-     (add-hook 'ediff-suspend-hook 'ediff-toggle-wide-display)
-
-     (add-hook 'ediff-mode-hook
-               (lambda ()
-                 (ediff-setup-keymap)
-                 ;; merge left to right
-                 (define-key ediff-mode-map ">" 'ediff-copy-A-to-B)
-                 ;; merge right to left
-                 (define-key ediff-mode-map "<" 'ediff-copy-B-to-A)))
-
-     ;; restore window config on quit
-     (add-hook 'ediff-after-quit-hook-internal 'winner-undo)
-     ))
-
-
- -

-from emacswiki: -Usage: emacs -diff file1 file2 -

-
-
(defun command-line-diff (switch)
-  (let ((file1 (pop command-line-args-left))
-        (file2 (pop command-line-args-left)))
-    (ediff file1 file2)))
-(add-to-list 'command-switch-alist '("diff" . command-line-diff))
-
-
-
-
-
-
-

6.4.29 Projectile

-
-
-
(require 'projectile)
-(projectile-mode +1)
-
-(defun tvd-dir-to-projectile ()
-    "drop a .projectile wherever we are"
-  (interactive)
-  (with-temp-file ".projectile"
-    (insert "-.snapshot\n-.git\n-.RCS\n"))
-  (message (format "Turned %s into projectile project" default-directory)))
-
-
- -

-FIXME: add custom docstring -

-
-
(defhydra hydra-projectile
-  ( :color teal
-    :columns 4)
-  "Projectile (use C-p for this menu)"
-  ("s"   projectile-switch-project           "Switch Project")
-  ("f"   projectile-find-file                "Find File")
-  ("r"   projectile-recentf                  "Recent Files")
-  ("b"   projectile-ibuffer                  "Show Project Buffers")
-
-  ("g"   projectile-grep                     "Grep")
-  ("o"   projectile-multi-occur              "Multi Occur")
-  ("d"   projectile-dired                    "Project Dired")
-  ("R"   projectile-replace                  "Replace in Project")
-
-  ("C"   projectile-invalidate-cache         "Clear Cache")
-  ("t"   projectile-regenerate-tags          "Regenerate Tags")
-  ("X"   projectile-cleanup-known-projects   "Cleanup Known Projects")
-  ("n"   tvd-dir-to-projectile               "Turn current directory into Projectile")
-
-  ("c"   projectile-commander                "Commander")
-  ("k"   projectile-kill-buffers             "Kill Buffers")
-  ("q"   nil                                 "Cancel" :color blue))
-
-(global-set-key (kbd "C-x p") 'hydra-projectile/body)
-
-
- - -
-
-
-
-

6.4.30 Occur

-
-

-https://oremacs.com/2015/01/26/occur-dwim/ -https://github.com/abo-abo/hydra/wiki/Emacs -

-
-
(defun occur-dwim ()
-  "Call `occur' with a sane default, chosen as the thing under point or selected region"
-  (interactive)
-  (push (if (region-active-p)
-            (buffer-substring-no-properties
-             (region-beginning)
-             (region-end))
-          (let ((sym (thing-at-point 'symbol)))
-            (when (stringp sym)
-              (regexp-quote sym))))
-        regexp-history)
-  (call-interactively 'occur))
-
-
-
-
- -
-

6.4.31 Window Hydra

-
-

-brightness wrappers -

-
-
(defun tvd-bg-brighter ()
-  (interactive)
-  (doremi-increment-background-color-1 ?v -1))
-
-(defun tvd-bg-darker ()
-  (interactive)
-  (doremi-increment-background-color-1 ?v 1))
-
-(defun tvd-pre-resize ()
-  "Called as  pre execute  hook py  hydra-windows-resize/body and
-executes the called key once, so that no key press gets lost from
-hydra-windows (a,s,d,w)"
-  (interactive)
-  (let
-      ((key (car (reverse (append (recent-keys) nil)))))
-    (cond
-     ((eq key ?a)
-      (shrink-window-horizontally 1))
-     ((eq key ?d)
-      (enlarge-window-horizontally 1))
-     ((eq key ?w)
-      (shrink-window 1))
-     ((eq key ?s)
-      (enlarge-window 1)))))
-
-(defhydra hydra-windows-resize (:color pink :pre (tvd-pre-resize))
-  ;; small sub hydra  for window resizing, it leaves as  much room for
-  ;; windows as possible
-  "
-_a_ ||    _d_ |---|     _w_ ---   _s_ ="
-  ("a" shrink-window-horizontally nil)
-  ("d" enlarge-window-horizontally nil)
-  ("w" shrink-window nil)
-  ("s" enlarge-window nil)
-  ("q" nil nil :color red))
-
-(defhydra hydra-windows (:color blue)
-"
-
-^Window Management^
-^^------------------------------------------------------------------------
-_+_ Increase Font | _-_ Decrease Font      Resize     ^ ^  _w_  ^ ^
-_f_: Flip Windows    <M-O>            ^^   Current     ←  ^ ^  _d_
-_4_: Quarter Windows <C-x 4>          ^^   Window:    ^ ^  _s_  ^ ^
-_u_: Windows Undo    <C-c left>
-_r_: Windows Redo    <C-c right>      ^^   _l_: Adjust Background brighter
-_i_: Invert Colors   <C-c C-i>        ^^   _b_: Adjust Background darker
-
-_h_: Toggle Highlight Line Mode       ^^   _e_: Eyebrowse Workspaces (C-x C-x)
-_n_: Toogle Line Number Mode
-
-^^------------------------------------------------------------------------
-Reach this hydra with <C-x w>
-^^------------------------------------------------------------------------
-
-"
-  ("+" tvd-global-font-size-bigger nil :color pink)
-  ("-" tvd-global-font-size-smaller nil :color pink)
-  ("f" tvd-flip-windows nil)
-  ("4" tvd-quarter-windows nil)
-  ("u" winner-undo nil)
-  ("r" winner-redo nil)
-  ("i" tvd-invert nil)
-  ("b" tvd-bg-darker nil :color pink)
-  ("l" tvd-bg-brighter nil :color pink)
-  ("a" hydra-windows-resize/body nil)
-  ("d" hydra-windows-resize/body nil)
-  ("w" hydra-windows-resize/body nil)
-  ("s" hydra-windows-resize/body nil)
-  ("e" hydra-eyebrowse/body nil)
-  ("h" hl-line-mode nil)
-  ("n" linum-mode nil)
-  ("q" nil nil :color red))
-
-(global-set-key (kbd "C-x w") 'hydra-windows/body)
-
-
-
-
- - -
-

6.4.32 Eyebrowse Workspaces

-
-

-workspace configuration, like desktops. Seems to be a good implementation, w/o save though -

- -

-"prefix key" has to be set before loading, keep in mind, that -if you change it here, you need to change it below as well! -

-
-
(setq eyebrowse-keymap-prefix (kbd "C-x C-x"))
-(global-unset-key (kbd "C-x C-x"))
-
-(require 'eyebrowse)
-
-(defun tvd-new-eyebrowse-workspace ()
-  "Create new scratch buffer and ask for a name"
-  (interactive)
-  (eyebrowse-rename-window-config (eyebrowse--get 'current-slot) (read-string "Workspace: "))
-  (autoscratch-buffer))
-
-
- -

-always enable -

-
-
(eyebrowse-mode t)
-(setq eyebrowse-new-workspace 'tvd-new-eyebrowse-workspace
-      eyebrowse-switch-back-and-forth t
-      eyebrowse-wrap-around t
-      eyebrowse-mode-line-style t
-      eyebrowse-slot-format "%s:init")
-
-
- -

-add a hydra, just in case, it contains hydra commands and hints -about the actual key bindings, it's also being refered from -hydra-window/body with "e" -

-
-
(defhydra hydra-eyebrowse (:color blue)
-  "
-^Eyebrowse Workspace Management^
-^^--------------------------------------
-_l_: last window      (C-x C-x C-x)
-_n_: next window      (C-x C-x <right>)
-_p_: prev window      (C-x C-x <left>)
-_x_: close workspace  (C-x C-x q)
-_t_: rename workspace (C-x C-x t)
-_c_: create workspace (C-x C-x n)
-
-Use C-x C-x to access eyebrowse directly.
-"
-  ("l" eyebrowse-last-window-config nil)
-  ("n" eyebrowse-next-window-config nil)
-  ("p" eyebrowse-prev-window-config nil)
-  ("x" eyebrowse-close-window-config nil)
-  ("t" eyebrowse-rename-window-config nil)
-  ("c" eyebrowse-create-window-config nil)
-  ("q" nil nil :color red))
-
-
- -

-Modifying the eyebrowse keymap directly doesn't work because it's -not setup correctly. I sent a pull request to fix this: -https://github.com/wasamasa/eyebrowse/pull/94, however, vaslilly choosed -not to accept it. So, I need to configure the whole chords for every -function I use AND set the "prefix key" using the weird way above -(before loading). -

-
-
(global-set-key (kbd "C-x C-x C-x")     'eyebrowse-last-window-config)
-(global-set-key (kbd "C-x C-x <right>") 'eyebrowse-next-window-config)
-(global-set-key (kbd "C-x C-x <left>")  'eyebrowse-prev-window-config)
-(global-set-key (kbd "C-x C-x q")       'eyebrowse-close-window-config)
-(global-set-key (kbd "C-x C-x t")       'eyebrowse-rename-window-config)
-(global-set-key (kbd "C-x C-x n")       'eyebrowse-create-window-config)
-(global-set-key (kbd "C-x C-x ?")       'hydra-eyebrowse/body)
-
-
- -

-There's also some face config, see defcustom at end of file! -

-
-
-
- -
-

6.5 Emacs Interface

-
-
-

6.5.1 Parens

-
-

-display matching braces -

-
-
(show-paren-mode 1)
-
-
- -

-'mixed: highlight all if the other paren is invisible -'expression: highlight the whole sexp -

-
-
(setq show-paren-style 'mixed)
-
-
-
-
- -
-

6.5.2 highlight todo keywords (such as FIXME)

-
-

-Absolutely needed! -

- -
-
(require 'fic-mode)
-(add-something-to-mode-hooks '(c c++ cperl vala web emacs-lisp ruby python) 'turn-on-fic-mode)
-
-
- -
-
-
-
-

6.5.3 UNDO Tree Mode

-
-

-Better undo, with redo support. -

- -

-C-_ (`undo-tree-undo') - Undo changes. -

- -

-C-: (`undo-tree-redo') - Redo changes. -

- -

-more: see undo-tree.el -

-
-
(require 'undo-tree)
-
-
- -

-use always -

-
-
(global-undo-tree-mode)
-
-
- -

-M-_ catched by Xmonad -

-
-
(global-set-key (kbd "C-:")             'undo-tree-redo) ; C-: == REDO   C-_ == UNDO
-
-
- -
-
-
-
-

6.5.4 Smarter M-x Mode (smex)

-
-

-This is really cool and I don't know how I could ever live without it. -

- -

-fails @win, so wrap it -

-
-
(safe-wrap
- (progn
-   (require 'smex)
-   (smex-initialize)
-   (global-set-key (kbd "M-x") 'smex)
-   (global-set-key (kbd "M-X") 'smex-major-mode-commands))
- (message "ignoring unsupported smex"))
-
-
-
-
-
- -
-

6.5.5 Smarter Search

-
-

-test, replace isearch-forward-regexp first only. -dir: ivy/ -

-
-
(require 'swiper)
-(with-eval-after-load 'swiper
-  (setq ivy-wrap t)
-  (global-set-key "\C-s" 'swiper))
-
-
-
-
- -
-

6.5.6 Which Func

-
-

-display current function - if any - in mode line -

-
-
(add-something-to-mode-hooks
-    '(c c++ cperl vala makefile ruby shell-script python)
-    'which-func-mode)
-
-
- -
-
-
-
-

6.5.7 Show current-line in the Fringe

-
-
-
(require 'fringe-current-line)
-(global-fringe-current-line-mode 1)
-
-
- -

-also change the color (matching the mode line -

-
-
(set-face-attribute 'fringe nil :foreground "NavyBlue")
-
-
- -
-
-
-
-

6.5.8 Recent Files

-
-

-You know the file you edited yesterday had "kri" in its name, but -where was it? You don't remember. But don't worry, recent files is -your friend. It shows the last N files you edited recently. -I use it permanently. -

- -

-see also: ido-mode and smex -

- -

-setup -

-
-
(require 'recentf)
-(require 'cl-lib)
-(setq recentf-auto-cleanup 'never) ;; avoid stat() on tramp buffers
-(recentf-mode 1)
-
-
- -

-I like to have a longer list reaching deeper into the past -

-
-
(setq recentf-max-menu-items 200
-      recentf-max-saved-items nil)
-
-
- -

-enable IDO completion -via emacsredux -modified to exclude already visited files -

-
-
(defun tvd-buffer-exists-p (bufname)
-  (not (eq nil (get-file-buffer bufname))))
-
-(defun recentf-ido-find-file ()
-  "Find a recent file using ido."
-  (interactive)
-  (let ((file (ido-completing-read
-               "Choose recent file: "
-               (cl-remove-if 'tvd-buffer-exists-p recentf-list) nil t)))
-    (when file
-      (find-file file))))
-
-(global-set-key (kbd "C-x C-r")         'recentf-ido-find-file) ; open recent files, same as M-x rf
-
-
- -

-now if I incidentally closed a buffer, I can re-open it, thanks to -recent-files -

-
-
(defun undo-kill-buffer (arg)
-  "Re-open the last buffer killed.  With ARG, re-open the nth buffer."
-  (interactive "p")
-  (let ((recently-killed-list (copy-sequence recentf-list))
-        (buffer-files-list
-         (delq nil (mapcar (lambda (buf)
-                             (when (buffer-file-name buf)
-                               (expand-file-name (buffer-file-name buf)))) (buffer-list)))))
-    (mapc
-     (lambda (buf-file)
-       (setq recently-killed-list
-             (delq buf-file recently-killed-list)))
-     buffer-files-list)
-    (find-file
-     (if arg (nth arg recently-killed-list)
-       (car recently-killed-list)))))
-
-
- -

-exclude some auto generated files -

-
-
(setq recentf-exclude (list "ido.last"
-                            "/elpa/"
-                            ".el.gz$"
-                            '(not (file-readable-p))))
-
-
- -
-
-
- -
-

6.5.9 IDO mode

-
-

-There are other completion enhancement packages available like ivy -for example, but I love IDO and I am so used to it, it would be -impossible to change. So, I'll stick with IDO until end of (my) -times. -

- -

-Hint: Use C-f during file selection to switch to regular find-file -

- -

-Basic config -

-
-
(ido-mode t)
-(ido-everywhere nil)
-(setq ido-enable-flex-matching t)
-(setq ido-use-filename-at-point nil)
-(setq ido-use-virtual-buffers t)
-(setq ido-auto-merge-work-directories-length -1)
-
-
- -

-One thing annoys me with IDO though: when writing a new file, IDO -wants me to select from a list of existing files. Since it is -nearly impossible to disable ido mode for write-file, which I HATE, -I came up with this: -

- -

-I added a new global variable, 'tvd-ido-disabled, which is nil by -default. Whenever I hit C-x C-w (in order to execute write-file), -it will be set to t, ido mode will be disabled and ido-write-file -will be called. Since ido mode is now disabled, it just calls the -original write-file, which is what I really want. -

- -

-When I'm finished selecting a filename and writing, ido mode will -be turned on again and the variable will be set to nil. However, -sometimes I may abort the process using C-g. In that case ido mode -may end up being disabled because the :after advice will not be -called on C-g. -

- -

-So, I also advice the minibuffer C-g function, which is -'abort-recursive-edit, and re-enable ido mode from here if it is -still disabled. So far I haven't seen any bad side effects of this. -

- -
-
(defvar tvd-ido-disabled nil)
-(advice-add 'ido-write-file :before '(lambda (&rest args) (ido-mode 0) (setq tvd-ido-disabled t)))
-(advice-add 'ido-write-file :after  '(lambda (&rest args) (ido-mode 1) (setq tvd-ido-disabled nil)))
-
-(defun tvd-keyboard-quit-advice (fn &rest args)
-  (when tvd-ido-disabled
-    (ido-mode 1)
-    (setq tvd-ido-disabled nil))
-  (apply fn args))
-
-(advice-add 'abort-recursive-edit :around #'tvd-keyboard-quit-advice)
-
-
- -

-from emacs wiki -Display ido results vertically, rather than horizontally -

-
-
(setq ido-decorations (quote ("\n-> " "" "\n   " "\n   ..." "[" "]"
-                              " [No match]" " [Matched]" " [Not readable]"
-                              " [Too big]" " [Confirm]")))
-
-(defun ido-disable-line-truncation () (set (make-local-variable 'truncate-lines) nil))
-(add-hook 'ido-minibuffer-setup-hook 'ido-disable-line-truncation)
-(defun ido-define-keys ()
-  (define-key ido-completion-map (kbd "<down>") 'ido-next-match)
-  (define-key ido-completion-map (kbd "<up>") 'ido-prev-match))
-(add-hook 'ido-setup-hook 'ido-define-keys)
-
-
- -

-quickly go to home via ~ wherever I am -via whattheemacs.d -

-
-
(add-hook 'ido-setup-hook
- (lambda ()
-   ;; Go straight home
-   (define-key ido-file-completion-map
-     (kbd "~")
-     (lambda ()
-       (interactive)
-       (if (looking-back "/")
-           (insert "~/")
-         (call-interactively 'self-insert-command))))
-   ;; same thing, but for ssh/tramp triggered by :
-   (define-key ido-file-completion-map
-     (kbd ":")
-     (lambda ()
-       (interactive)
-       (if (looking-back "/")
-           (progn
-             (ido-set-current-directory "/ssh:")
-             (ido-reread-directory))
-         (call-interactively 'self-insert-command))))))
-
-
- -

-by howardism: [re]open non-writable file with sudo -

-
-
(defadvice ido-find-file (after find-file-sudo activate)
-  "Find file as root if necessary."
-  (unless (and buffer-file-name
-               (file-writable-p buffer-file-name))
-    (let* ((file-name (buffer-file-name))
-           (file-root (if (string-match "/ssh:\\([^:]+\\):\\(.*\\)" file-name)
-                          (concat "/ssh:"  (match-string 1 file-name)
-                                  "|sudo:" (match-string 1 file-name)
-                                  ":"      (match-string 2 file-name))
-                        (concat "/sudo:localhost:" file-name))))
-      (find-alternate-file file-root))))
-
-
- -

-FIXME: add ido-ignore-files defun. -

- -
-
-
- -
-

6.5.10 Save cursor position

-
-

-So the next time I start emacs and open a file I were editing -previously, (point) will be in the exact places where it was -before. -

- -
-
(if (version< emacs-version "25.0")
-    (progn
-      (require 'saveplace)
-      (setq-default save-place t))
-  (save-place-mode 1))
-
-
- -
-
-
- -
-

6.5.11 DoReMi experimentation

-
-

-I'm not using it a lot, sometimes I tune the background color though. -

- -

-via emacswiki/DoReMi -cool ones: doremi-buffers, doremi-all-faces-fg+ [s, h] -

- -
-
(require 'doremi)
-(require 'doremi-frm)
-(require 'doremi-cmd)
-
-
- -

-FIXME: find a good key -

-
-
(defalias 'cb 'doremi-buffers+)
-
-
- -
-
-
-
-

6.5.12 Hightligt TABs

-
-

-not a mode, but however: higlight TABs in certain modes -

- -
-
(defface extra-whitespace-face
-  '((t (:background "pale green")))
-  "Used for tabs and such.")
-
-(defvar tvd-extra-keywords
-  '(("\t" . 'extra-whitespace-face)))
-
-(add-something-to-mode-hooks '(c c++ vala cperl emacs-lisp python shell-script ruby)
-                             (lambda () (font-lock-add-keywords nil tvd-extra-keywords)))
-
-
- -
-
-
- -
-

6.5.13 Browse kill-ring

-
-

-when active use n and p to browse, <ret> to select, it's the same -as <M-y> and I never really use it… -

- -
-
(require 'browse-kill-ring)
-(setq browse-kill-ring-highlight-current-entry t
-      browse-kill-ring-highlight-inserted-item t)
-
-
- -
-
-
- -
-

6.5.14 goto-last-change

-
-

-Very handy, jump to last change[s]. -

- -
-
(require 'goto-last-change)
-
-(global-set-key (kbd "C-b")             'goto-last-change)
-
-
- -
-
-
- -
-

6.5.15 Bookmarks

-
-

-I use the builtin bookmark feature quite a lot and am happy with -it. Especially at work, where many files are located in large -path's on remote storage systems, it great to jump quickly to such -places. -

- -

-everytime bookmark is changed, automatically save it -

-
-
(setq bookmark-save-flag 1
-      bookmark-version-control t)
-
-
- -

-I use the same aliases as in apparix for bash (since I'm used to them) -

-
-
(defalias 'to        'bookmark-jump)
-(defalias 'bm        'bookmark-set)
-(defalias 'bl        'bookmark-bmenu-list)
-
-
- -
-
-
- -
-

6.5.16 which-key

-
-

-One of the best unobstrusive modes for key help ever. Just start -entering a key chord, prefix or whatever, and it pops a small -buffer (on the right side in my case) showing the avialable keys to -press from there along with the associated functions. -

- -
-
(require 'which-key)
-(which-key-mode)
-(which-key-setup-side-window-right)
-
-
- -
-
-
- -
-

6.5.17 iBuffer mode

-
-

-iBuffer is a great interactive buffer management tool included with -emacs. I use it with a couple of custom groups, my own -collapse-code (<TAB>) and formats. -

- -
-
(require 'ibuffer)
-
-
- -

-from github: -

-
-
(require 'ibuffer-vc)
-(require 'ibuffer-tramp)
-
-
- -

-replace default list-buffers with ibuffer -

-
-
(global-set-key (kbd "C-x C-b")         'ibuffer)
-
-
- -

-group name -

-
-
(setq tvd-ibuffer-filter-group-name "tvd-filters")
-
-
- -

-filter group config -with hints from Ogbe et.al. -

-
-
(setq ibuffer-saved-filter-groups
-      (list (nreverse
-             `(
-               ("Org" (mode . org-mode))
-               ("Shell" (or (mode . term-mode)
-                            (mode . eshell-mode)
-                            (mode . shell-mode)))
-               ("Emacs-Config"  (filename . "emacs"))
-               ("Cisco-Config" (mode . cisco-mode))
-               ("Code" (or (mode . cperl-mode)
-                           (mode . c-mode)
-                           (mode . python-mode)
-                           (mode . shell-script-mode)
-                           (mode . makefile-mode)
-                           (mode . cc-mode)))
-               ("Text" (or (mode . text-mode)
-                           (filename . "\\.pod$")))
-               ("LaTeX" (mode . latex-mode))
-               ("Interactive" (or
-                               (mode . inferior-python-mode)
-                               (mode . slime-repl-mode)
-                               (mode . inferior-lisp-mode)
-                               (mode . inferior-scheme-mode)
-                               (name . "*ielm*")))
-               ("Crab" (or
-                        (name . "^\\*\\(Help\\|scratch\\|Messages\\)\\*")
-                          ))
-               ,tvd-ibuffer-filter-group-name))))
-
-
- -

-Reverse the order of the filter groups. Kind of confusing: Since -I'm reversing the order of the groups above, this snippet ensures -that the groups are ordered in the way they are written above, with -the "Default" group on top. This advice might need to be ported to -the new advice system soon. -

- -
-
(defadvice ibuffer-generate-filter-groups
-    (after reverse-ibuffer-groups () activate)
-  (setq ad-return-value (nreverse ad-return-value)))
-
-(defun ibuffer-add-dynamic-filter-groups ()
-  (interactive)
-  (dolist (group (ibuffer-vc-generate-filter-groups-by-vc-root))
-    (add-to-list 'ibuffer-filter-groups group))
-  (dolist (group (ibuffer-tramp-generate-filter-groups-by-tramp-connection))
-    (add-to-list 'ibuffer-filter-groups group)))
-
-(defun tvd-ibuffer-hooks ()
-  (ibuffer-auto-mode 1)
-  (ibuffer-switch-to-saved-filter-groups tvd-ibuffer-filter-group-name)
-  (ibuffer-add-dynamic-filter-groups))
-(add-hook 'ibuffer-mode-hook 'tvd-ibuffer-hooks)
-
-
- -

-Only show groups that have active buffers -

-
-
(setq ibuffer-show-empty-filter-groups nil)
-
-
- -

-Don't show the summary or headline -

-
-
(setq ibuffer-display-summary nil)
-
-
- -

-do not prompt for every action -

-
-
(setq ibuffer-expert t)
-
-
- -

-buffers to always ignore -

-
-
(add-to-list 'ibuffer-never-show-predicates "^\\*\\(Completions\\|tramp/\\)")
-
-
- -

-Use human readable Size column instead of original one -

-
-
(define-ibuffer-column size-h
-  (:name "Size" :inline t)
-  (cond
-   ((> (buffer-size) 1000000) (format "%7.1fM" (/ (buffer-size) 1000000.0)))
-   ((> (buffer-size) 100000) (format "%7.0fk" (/ (buffer-size) 1000.0)))
-   ((> (buffer-size) 1000) (format "%7.1fk" (/ (buffer-size) 1000.0)))
-   (t (format "%8d" (buffer-size)))))
-
-
- -

-Modify the default ibuffer-formats -

-
-
(setq ibuffer-formats
-      '((mark modified read-only " "
-              (name 20 40 :left :elide)
-              " "
-              (size-h 9 -1 :right)
-              " "
-              (mode 16 16 :left :elide)
-              " "
-              filename-and-process)))
-
-
- -

-hide annoying groups, but keep its buffers available -

-
-
(defvar ibuffer-collapsed-groups (list "Crab"))
-
-(advice-add 'ibuffer :after '(lambda (&rest args)
-  (ignore args)
-  (save-excursion
-    (dolist (group ibuffer-collapsed-groups)
-      (ignore-errors
-        (ibuffer-jump-to-filter-group group)
-        (ibuffer-toggle-filter-group))))))
-
-
- -

-move point to most recent buffer when entering ibuffer -

-
-
(defadvice ibuffer (around ibuffer-point-to-most-recent) ()
-           "Open ibuffer with cursor pointed to most recent (non-minibuffer) buffer name"
-           (let ((recent-buffer-name
-                  (if (minibufferp (buffer-name))
-                      (buffer-name
-                       (window-buffer (minibuffer-selected-window)))
-                    (buffer-name (other-buffer)))))
-             ad-do-it
-             (ibuffer-jump-to-buffer recent-buffer-name)))
-(ad-activate 'ibuffer)
-
-
- -

-override ibuffer M-o binding -

-
-
(define-key ibuffer-mode-map (kbd "M-o")    'other-window-or-switch-buffer)
-
-
- - -
-
-
- -
-

6.5.18 Printing

-
-

-overwrites printing default menu, access via menu File => Print -or: -

-
    -
  • M-x ps-spool-buffer-with-faces
    • -
  • go to spool buffer
    • -
  • save to .ps file
    • -
  • print
    • -
-
-
(require 'printing)
-(pr-menu-bind)
-
-
- -

-via stackoverflow -

-
-
(when (executable-find "ps2pdf")
-  (defun print-to-pdf (&optional filename)
-    "Print file in the current buffer as pdf, including font, color, and
-underline information.  This command works only if you are using a window system,
-so it has a way to determine color values.
-
-C-u COMMAND prompts user where to save the Postscript file (which is then
-converted to PDF at the same location."
-    (interactive (list (if current-prefix-arg
-                           (ps-print-preprint 4)
-                         (concat (file-name-sans-extension (buffer-file-name))
-                                 ".ps"))))
-    (ps-print-with-faces (point-min) (point-max) filename)
-    (shell-command (concat "ps2pdf " filename))
-    (delete-file filename)
-    (message "Deleted %s" filename)
-    (message "Wrote %s" (concat (file-name-sans-extension filename) ".pdf"))))
-
-
- -
-
-
-
-

6.5.19 Beacon mode (pointer blink)

-
-

-Source: beacon mode -

- -

-Blink the cursor shortly when moving across large text sections or -when changing windows. That way it is easier to find the current -editing position. -

- -
-
(require 'beacon)
-
-(setq beacon-blink-duration 0.1
-      beacon-blink-when-point-moves-vertically 10
-      beacon-color 0.3)
-
-(add-hook 'beacon-dont-blink-predicates
-          (lambda () (bound-and-true-p novel-mode)))
-
-(beacon-mode)
-
-
- -
-
-
-
-
-

6.6 mode-line setup (must be the last mode)

-
-

-I just append the current version of my emacs config and leave out -some stuff to keep the modeline short, so that everything can be -seen even if I have multiple windows open. -

- -

-smaller pos -

-
-
(setq-default mode-line-position
-              '((-3 "%p") (size-indication-mode ("/" (-4 "%I")))
-                " "
-                (line-number-mode
-                 ("%l" (column-number-mode ":%c")))))
-
-
- -

-when macro recording is active, signal it with coloring instead of -just a character -

-
-
(defface rec-face
-  '((t (:background "red" :foreground "white" :weight bold)))
-  "Flag macro recording in mode-line"
-  :group 'tvd-mode-line-faces)
-
-
- -

-custom modeline -

-
-
(setq-default mode-line-format
-              (list
-               "%e"
-               mode-line-front-space
-               mode-line-mule-info
-               mode-line-modified
-               mode-line-remote
-               "  "
-               mode-line-buffer-identification
-               "  "
-               mode-line-position
-               " (%m) "
-
-               " [" tvd-emacs-version "] "
-
-               ; added because of eyebrowse
-               mode-line-misc-info
-
-               '(:eval (propertize
-                        (if (eq defining-kbd-macro t)
-                            "[REC]"
-                          "")
-                        'face 'rec-face))
-
-               mode-line-end-spaces))
-
-
- -
-
-
-
-
-

7 Emacs Autoconfig / Customize group / final stuff

-
-
-
-
-

7.1 font faces

-
-

-Font color config, must always be the last thing so all hook faces are loaded. -

- -

-show available colors: -

-
-
(defalias 'colors 'list-colors-display)
-
-
- -

-from 20181227 I outsourced my font config into a theme, located in -.emacs.d/tom-past-century.el, so that I can load another theme -anytime I like AND switch back to my own config w/o restarting -emacs -

-
-
(add-hook 'after-init-hook (lambda () (load-theme 'tom-past-century t)))
-
-
- -

-unless we're on windoze -

-
-
(if (not (null tvd-win-home))
-    (set-face-font 'default "Courier New"))
-
-
- -
-
-
-
-

7.2 emacs server

-
-

-Based on this -I check both predicates, just to be sure, only one of them doesn't work. -

- -

-FIXME: check if 'server-socket-dir/server exists as well -

-
-
(require 'server)
-(unless (or (server-running-p)
-            (and (boundp 'server-process) server-process))
-  (progn
-    (advice-add 'save-buffers-kill-terminal :before
-                (lambda (&rest args) (server-edit)))
-    (server-start)))
-
-
- -
-
-
-
-

7.3 variables

-
-

-If I ever use custom-group to customize a mode, then I create a -manual config section for it using the values, custom has added -here. So, in normal times this should be empty, but needs to exist. -

- -
-
(custom-set-variables
- ;; custom-set-variables was added by Custom.
- ;; If you edit it by hand, you could mess it up, so be careful.
- ;; Your init file should contain only one such instance.
- ;; If there is more than one, they won't work right.
- '(custom-safe-themes
-   (quote
-    ("d88c43fe03ac912e35963695caf0ae54bc6ce6365c3a42da434ef639f7a37399" default)))
- '(package-selected-packages (quote (magit)))
- '(safe-local-variable-values (quote ((ruby-indent-level 4)))))
-
-
-
-
- -
-

7.4 done

-
-

-Finally, this message is being displayed. If this isn't the case I -know easily that something went wrong. -

- -
-
(message "loading done")
-(custom-set-faces
- ;; custom-set-faces was added by Custom.
- ;; If you edit it by hand, you could mess it up, so be careful.
- ;; Your init file should contain only one such instance.
- ;; If there is more than one, they won't work right.
- )
-
-
-
-
-

Author: Tom

-

Created: 2019-01-12 Sa 14:33

+

Created: 2020-01-01 Mi 13:16

Validate