Rebase the version of stdheader.vim from 42paris to 42lausanne
This commit is contained in:
Guy Baconniere
@@ -1,3 +1,16 @@
|
|||||||
|
" **************************************************************************** "
|
||||||
|
" "
|
||||||
|
" ::: :::::::: "
|
||||||
|
" stdheader.vim :+: :+: :+: "
|
||||||
|
" +:+ +:+ +:+ "
|
||||||
|
" By: <gbaconni@student.42lausanne.ch> +#+ +:+ +#+ "
|
||||||
|
" +#+#+#+#+#+ +#+ "
|
||||||
|
" Created: 2013/06/15 12:45:56 by zaz #+# #+# "
|
||||||
|
" Updated: 2021/10/25 09:58:04 by gbaconni ### ########.fr "
|
||||||
|
" "
|
||||||
|
" **************************************************************************** "
|
||||||
|
|
||||||
|
|
||||||
let s:asciiart = [
|
let s:asciiart = [
|
||||||
\" ::: ::::::::",
|
\" ::: ::::::::",
|
||||||
\" :+: :+: :+:",
|
\" :+: :+: :+:",
|
||||||
@@ -8,136 +21,175 @@ let s:asciiart = [
|
|||||||
\" ### lausanne.ch "
|
\" ### lausanne.ch "
|
||||||
\]
|
\]
|
||||||
|
|
||||||
let s:start = '/*'
|
let s:styles = [
|
||||||
let s:end = '*/'
|
\{
|
||||||
let s:fill = '*'
|
\'extensions': ['\.c$', '\.h$', '\.cc$', '\.hh$', '\.cpp$', '\.hpp$'],
|
||||||
let s:length = 80
|
\'start': '/*', 'end': '*/', 'fill': '*'
|
||||||
let s:margin = 5
|
\},
|
||||||
|
\{
|
||||||
let s:types = {
|
\'extensions': ['\.htm$', '\.html$', '\.xml$'],
|
||||||
\'\.c$\|\.h$\|\.cc$\|\.hh$\|\.cpp$\|\.hpp$\|\.php':
|
\'start': '<!--', 'end': '-->', 'fill': '*'
|
||||||
\['/*', '*/', '*'],
|
\},
|
||||||
\'\.htm$\|\.html$\|\.xml$':
|
\{
|
||||||
\['<!--', '-->', '*'],
|
\'extensions': ['\.js$'],
|
||||||
\'\.js$':
|
\'start': '//', 'end': '//', 'fill': '*'
|
||||||
\['//', '//', '*'],
|
\},
|
||||||
\'\.tex$':
|
\{
|
||||||
\['%', '%', '*'],
|
\'extensions': ['\.tex$'],
|
||||||
\'\.ml$\|\.mli$\|\.mll$\|\.mly$':
|
\'start': '%', 'end': '%', 'fill': '*'
|
||||||
\['(*', '*)', '*'],
|
\},
|
||||||
\'\.vim$\|\vimrc$':
|
\{
|
||||||
\['"', '"', '*'],
|
\'extensions': ['\.ml$', '\.mli$', '\.mll$', '\.mly$'],
|
||||||
\'\.el$\|\emacs$':
|
\'start': '(*', 'end': '*)', 'fill': '*'
|
||||||
\[';', ';', '*'],
|
\},
|
||||||
\'\.f90$\|\.f95$\|\.f03$\|\.f$\|\.for$':
|
\{
|
||||||
\['!', '!', '/']
|
\'extensions': ['\.vim$', 'vimrc$', '\.myvimrc$', 'vimrc$'],
|
||||||
|
\'start': '"', 'end': '"', 'fill': '*'
|
||||||
|
\},
|
||||||
|
\{
|
||||||
|
\'extensions': ['\.el$', '\.emacs$', '\.myemacs$'],
|
||||||
|
\'start': ';', 'end': ';', 'fill': '*'
|
||||||
|
\},
|
||||||
|
\{
|
||||||
|
\'extensions': ['\.f90$', '\.f95$', '\.f03$', '\.f$', '\.for$'],
|
||||||
|
\'start': '!', 'end': '!', 'fill': '/'
|
||||||
\}
|
\}
|
||||||
|
\]
|
||||||
|
|
||||||
function! s:filetype()
|
let s:linelen = 80
|
||||||
let l:f = s:filename()
|
let s:marginlen = 5
|
||||||
|
let s:contentlen = s:linelen - (3 * s:marginlen - 1) - strlen(s:asciiart[0])
|
||||||
|
|
||||||
|
function! s:trimlogin ()
|
||||||
|
let l:trimlogin = strpart($USER, 0, 9)
|
||||||
|
if strlen(l:trimlogin) == 0
|
||||||
|
let l:trimlogin = "rfederer"
|
||||||
|
endif
|
||||||
|
return l:trimlogin
|
||||||
|
endfunction
|
||||||
|
|
||||||
|
function! s:trimemail ()
|
||||||
|
let l:trimemail = strpart($MAIL, 0, s:contentlen - 16)
|
||||||
|
if strlen(l:trimemail) == 0
|
||||||
|
let l:trimemail = "rfederer@student.42lausanne.ch"
|
||||||
|
endif
|
||||||
|
return l:trimemail
|
||||||
|
endfunction
|
||||||
|
|
||||||
|
function! s:midgap ()
|
||||||
|
return repeat(' ', s:marginlen - 1)
|
||||||
|
endfunction
|
||||||
|
|
||||||
|
function! s:lmargin ()
|
||||||
|
return repeat(' ', s:marginlen - strlen(s:start))
|
||||||
|
endfunction
|
||||||
|
|
||||||
|
function! s:rmargin ()
|
||||||
|
return repeat(' ', s:marginlen - strlen(s:end))
|
||||||
|
endfunction
|
||||||
|
|
||||||
|
function! s:empty_content ()
|
||||||
|
return repeat(' ', s:contentlen)
|
||||||
|
endfunction
|
||||||
|
|
||||||
|
function! s:left ()
|
||||||
|
return s:start . s:lmargin()
|
||||||
|
endfunction
|
||||||
|
|
||||||
|
function! s:right ()
|
||||||
|
return s:rmargin() . s:end
|
||||||
|
endfunction
|
||||||
|
|
||||||
|
function! s:bigline ()
|
||||||
|
return s:start . ' ' . repeat(s:fill, s:linelen - 2 - strlen(s:start) - strlen(s:end)) . ' ' . s:end
|
||||||
|
endfunction
|
||||||
|
|
||||||
|
function! s:logo1 ()
|
||||||
|
return s:left() . s:empty_content() . s:midgap() . s:asciiart[0] . s:right()
|
||||||
|
endfunction
|
||||||
|
|
||||||
|
function! s:fileline ()
|
||||||
|
let l:trimfile = strpart(fnamemodify(bufname('%'), ':t'), 0, s:contentlen)
|
||||||
|
return s:left() . l:trimfile . repeat(' ', s:contentlen - strlen(l:trimfile)) . s:midgap() . s:asciiart[1] . s:right()
|
||||||
|
endfunction
|
||||||
|
|
||||||
|
function! s:logo2 ()
|
||||||
|
return s:left() . s:empty_content() . s:midgap() .s:asciiart[2] . s:right()
|
||||||
|
endfunction
|
||||||
|
|
||||||
|
function! s:coderline ()
|
||||||
|
let l:contentline = "By: ". s:trimlogin () . ' <' . s:trimemail () . '>'
|
||||||
|
return s:left() . l:contentline . repeat(' ', s:contentlen - strlen(l:contentline)) . s:midgap() . s:asciiart[3] . s:right()
|
||||||
|
endfunction
|
||||||
|
|
||||||
|
function! s:logo3 ()
|
||||||
|
return s:left() . s:empty_content() . s:midgap() .s:asciiart[4] . s:right()
|
||||||
|
endfunction
|
||||||
|
|
||||||
|
function! s:dateline (prefix, logo)
|
||||||
|
let l:date = strftime("%Y/%m/%d %H:%M:%S")
|
||||||
|
let l:contentline = a:prefix . ": " . l:date . " by " . s:trimlogin ()
|
||||||
|
return s:left() . l:contentline . repeat(' ', s:contentlen - strlen(l:contentline)) . s:midgap() . s:asciiart[a:logo] . s:right()
|
||||||
|
endfunction
|
||||||
|
|
||||||
|
function! s:createline ()
|
||||||
|
return s:dateline("Created", 5)
|
||||||
|
endfunction
|
||||||
|
|
||||||
|
function! s:updateline ()
|
||||||
|
return s:dateline("Updated", 6)
|
||||||
|
endfunction
|
||||||
|
|
||||||
|
function! s:emptyline ()
|
||||||
|
return s:start . repeat(' ', s:linelen - strlen(s:start) - strlen(s:end)) . s:end
|
||||||
|
endfunction
|
||||||
|
|
||||||
|
function! s:filetype ()
|
||||||
|
let l:file = fnamemodify(bufname("%"), ':t')
|
||||||
|
|
||||||
let s:start = '#'
|
let s:start = '#'
|
||||||
let s:end = '#'
|
let s:end = '#'
|
||||||
let s:fill = '*'
|
let s:fill = '*'
|
||||||
|
|
||||||
for type in keys(s:types)
|
for l:style in s:styles
|
||||||
if l:f =~ type
|
for l:ext in l:style['extensions']
|
||||||
let s:start = s:types[type][0]
|
if l:file =~ l:ext
|
||||||
let s:end = s:types[type][1]
|
let s:start = l:style['start']
|
||||||
let s:fill = s:types[type][2]
|
let s:end = l:style['end']
|
||||||
|
let s:fill = l:style['fill']
|
||||||
endif
|
endif
|
||||||
endfor
|
endfor
|
||||||
|
endfor
|
||||||
endfunction
|
endfunction
|
||||||
|
|
||||||
function! s:ascii(n)
|
function! s:insert ()
|
||||||
return s:asciiart[a:n - 3]
|
call s:filetype ()
|
||||||
endfunction
|
|
||||||
|
|
||||||
function! s:textline(left, right)
|
|
||||||
let l:left = strpart(a:left, 0, s:length - s:margin * 3 - strlen(a:right) + 1)
|
|
||||||
|
|
||||||
return s:start . repeat(' ', s:margin - strlen(s:start)) . l:left . repeat(' ', s:length - s:margin * 2 - strlen(l:left) - strlen(a:right)) . a:right . repeat(' ', s:margin - strlen(s:end)) . s:end
|
|
||||||
endfunction
|
|
||||||
|
|
||||||
function! s:line(n)
|
|
||||||
if a:n == 1 || a:n == 11 " top and bottom line
|
|
||||||
return s:start . ' ' . repeat(s:fill, s:length - strlen(s:start) - strlen(s:end) - 2) . ' ' . s:end
|
|
||||||
elseif a:n == 2 || a:n == 10 " blank line
|
|
||||||
return s:textline('', '')
|
|
||||||
elseif a:n == 3 || a:n == 5 || a:n == 7 " empty with ascii
|
|
||||||
return s:textline('', s:ascii(a:n))
|
|
||||||
elseif a:n == 4 " filename
|
|
||||||
return s:textline(s:filename(), s:ascii(a:n))
|
|
||||||
elseif a:n == 6 " author
|
|
||||||
return s:textline("By: " . "<" . s:mail() . ">", s:ascii(a:n))
|
|
||||||
elseif a:n == 8 " created
|
|
||||||
return s:textline("Created: " . s:date() . " by " . s:user(), s:ascii(a:n))
|
|
||||||
elseif a:n == 9 " updated
|
|
||||||
return s:textline("Updated: " . s:date() . " by " . s:user(), s:ascii(a:n))
|
|
||||||
endif
|
|
||||||
endfunction
|
|
||||||
|
|
||||||
function! s:user()
|
|
||||||
let l:user = $USER
|
|
||||||
if strlen(l:user) == 0
|
|
||||||
let l:user = "rfederer"
|
|
||||||
endif
|
|
||||||
return l:user
|
|
||||||
endfunction
|
|
||||||
|
|
||||||
function! s:mail()
|
|
||||||
let l:mail = $MAIL
|
|
||||||
if strlen(l:mail) == 0
|
|
||||||
let l:mail = "rfederer@student.42lausanne.ch"
|
|
||||||
endif
|
|
||||||
return l:mail
|
|
||||||
endfunction
|
|
||||||
|
|
||||||
function! s:filename()
|
|
||||||
let l:filename = expand("%:t")
|
|
||||||
if strlen(l:filename) == 0
|
|
||||||
let l:filename = "< new >"
|
|
||||||
endif
|
|
||||||
return l:filename
|
|
||||||
endfunction
|
|
||||||
|
|
||||||
function! s:date()
|
|
||||||
return strftime("%Y/%m/%d %H:%M:%S")
|
|
||||||
endfunction
|
|
||||||
|
|
||||||
function! s:insert()
|
|
||||||
let l:line = 11
|
|
||||||
|
|
||||||
" empty line after header
|
|
||||||
call append(0, "")
|
call append(0, "")
|
||||||
|
call append (0, s:bigline())
|
||||||
" loop over lines
|
call append (0, s:emptyline())
|
||||||
while l:line > 0
|
call append (0, s:updateline())
|
||||||
call append(0, s:line(l:line))
|
call append (0, s:createline())
|
||||||
let l:line = l:line - 1
|
call append (0, s:logo3())
|
||||||
endwhile
|
call append (0, s:coderline())
|
||||||
|
call append (0, s:logo2())
|
||||||
|
call append (0, s:fileline())
|
||||||
|
call append (0, s:logo1())
|
||||||
|
call append (0, s:emptyline())
|
||||||
|
call append (0, s:bigline())
|
||||||
endfunction
|
endfunction
|
||||||
|
|
||||||
function! s:update()
|
function! s:update ()
|
||||||
call s:filetype()
|
call s:filetype ()
|
||||||
if getline(9) =~ s:start . repeat(' ', s:margin - strlen(s:start)) . "Updated: "
|
|
||||||
if &mod
|
|
||||||
call setline(9, s:line(9))
|
|
||||||
endif
|
|
||||||
call setline(4, s:line(4))
|
|
||||||
return 0
|
|
||||||
endif
|
|
||||||
return 1
|
|
||||||
endfunction
|
|
||||||
|
|
||||||
function! s:stdheader()
|
let l:pattern = s:start . repeat(' ', 5 - strlen(s:start)) . "Updated: [0-9]"
|
||||||
if s:update()
|
let l:line = getline (9)
|
||||||
call s:insert()
|
|
||||||
|
if l:line =~ l:pattern
|
||||||
|
call setline(9, s:updateline())
|
||||||
endif
|
endif
|
||||||
endfunction
|
endfunction
|
||||||
|
|
||||||
" Bind command and shortcut
|
command! Stdheader call s:insert ()
|
||||||
command! Stdheader call s:stdheader ()
|
nmap <F1> :Stdheader<CR>
|
||||||
map <F1> :Stdheader<CR>
|
|
||||||
autocmd BufWritePre * call s:update ()
|
autocmd BufWritePre * call s:update ()
|
||||||
|
|||||||
Reference in New Issue
Block a user