add other MUA related config files

2017-04-13 13:08:50 +02:00
parent 9e4f99145f
commit 04522a176e
16 changed files with 545 additions and 0 deletions
--- a/vim/.vim/astroid.vim
+++ b/vim/.vim/astroid.vim
@@ -0,0 +1,111 @@
+" Error message handling
+set shortmess=s   " less messages
+set cmdheight=2
+
+" Jump to To:, Cc:, Subject:
+nmap <M-t> 2GA
+map! <M-t> <ESC>2GA
+nmap <M-c> 3GA
+map! <M-c> <ESC>3GA
+nmap <M-b> 4GA
+map! <M-b> <ESC>4GA
+
+" delete lines until end
+nmap <C-d> dG1o
+map! <C-d> <ESC>dG1o
+
+" delete current line
+nmap <C-s> ddi
+map! <C-s> <ESC>ddi
+
+" add empty line
+nmap <C-a> 1o
+map! <C-a> <ESC>1o
+
+
+" Go to first empty line and start insert mode
+execute "normal /^$/\n"
+execute ":startinsert"
+
+" add two empty lines after header (where we jumped to)
+execute "call append(line('.')-1, '')"
+execute "call append(line('.')-1, '')"
+
+" Email auto completion for headers
+let g:qcc_query_command='abook --datafile ~/DAV/CardDAV/mxmehl-fsfe.abook --mutt-query'
+setlocal omnifunc=QueryCommandComplete
+
+" Functions
+
+" Set tw to 500 if in the first 4 lines, else 500
+au CursorMovedI * call ModifyTextWidth() " execute when cursor has moved, use for all files
+function! ModifyTextWidth()
+    let line=getline('.')  " get the current line number of the cursor
+    if line('.') < 5  " if line number smaller than 5
+        setlocal textwidth=500   " use high tw setting
+    else
+        setlocal textwidth=72 " Otherwise use normal textwidth
+    endif
+endfunction
+
+function! Mail_Erase_Sig()
+  " search for the signature pattern (takes into account signature delimiters
+  " from broken mailers that forget the space after the two dashes)
+  let i = 0
+  while ((i <= line('$')) && (getline(i) !~ '^> *-- \=$'))
+    let i = i + 1
+  endwhile
+
+  " if found, then
+  if (i != line('$') + 1)
+    " first, look for our own signature, to avoid deleting it
+    let j = i
+    while (j < line('$') && (getline(j + 1) !~ '^-- $'))
+      let j = j + 1
+    endwhile
+
+    " second, search for the last non empty (non sig) line
+    while ((i > 0) && (getline(i - 1) =~ '^\(>\s*\)*$'))
+      let i = i - 1
+    endwhile
+
+    " third, delete those lines plus the signature
+    exe ':'.i.','.j.'d'
+  endif
+endfunction
+
+function! Mail_Erase_Own_Sig()
+  let i = 0
+  while ((i <= line('$')) && (getline(i) !~ '^-- \=$'))
+    let i = i + 1
+  endwhile
+
+  " if found, then
+  if (i != line('$') + 1)
+    " first, look for our own signature, to avoid deleting it
+    let j = i
+    while (j < line('$') && (getline(j + 1) !~ '^-- $'))
+      let j = j + 1
+    endwhile
+
+    " second, search for the last non empty (non sig) line
+    while ((i > 0) && (getline(i - 1) =~ '^\(>\s*\)*$'))
+      let i = i - 1
+    endwhile
+
+    " third, delete those lines plus the signature
+    exe ':'.i.','.j.'d'
+  endif
+endfunction
+
+function! Mail_Beginning()
+  exe "normal gg"
+  if getline (line ('.')) =~ '^From: '
+    " if we use edit_headers in Mutt, then go after the headers
+    exe "normal /^$\<CR>"
+  endif
+endfunction
+
+call Mail_Erase_Own_Sig()
+call Mail_Erase_Sig()
+call Mail_Beginning()