share/misc/dragonfly.vim

   1 " Copyright (c) 2007-2008 Sean C. Farley <scf@FreeBSD.org>
   2 " All rights reserved.
   3 "
   4 " Redistribution and use in source and binary forms, with or without
   5 " modification, are permitted provided that the following conditions
   6 " are met:
   7 " 1. Redistributions of source code must retain the above copyright
   8 "    notice, this list of conditions and the following disclaimer,
   9 "    without modification, immediately at the beginning of the file.
  10 " 2. Redistributions in binary form must reproduce the above copyright
  11 "    notice, this list of conditions and the following disclaimer in the
  12 "    documentation and/or other materials provided with the distribution.
  13 "
  14 " THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
  15 " IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
  16 " OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
  17 " IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
  18 " INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
  19 " NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
  20 " DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
  21 " THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
  22 " (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
  23 " THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  24 "
  25 " $FreeBSD: src/tools/tools/editing/freebsd.vim,v 1.2 2008/07/30 03:34:23 scf Exp $
  26
  27 " This is a plugin for Vim (tested with Vim v7.1) to follow the DragonFly style(9)
  28 " indentation.  It registers a macro (see below) for changing a buffer's
  29 " indentation rules but does not change the indentation of existing code.
  30
  31 " Load only once.
  32 if exists('loaded_DragonFly')
  33     finish
  34 endif
  35 let loaded_DragonFly = 1
  36
  37
  38 " DragonFly mapping to switch current buffer to style(9).  This is generally '\f'.
  39 nmap <silent> <Leader>f :call DragonFly_Style()<CR>
  40
  41
  42 " Ignore indents caused by parentheses in DragonFly style.
  43 function! IgnoreParenIndent()
  44     let indent = cindent(v:lnum)
  45
  46     if indent > 4000
  47         if cindent(v:lnum - 1) > 4000
  48             return indent(v:lnum - 1)
  49         else
  50             return indent(v:lnum - 1) + 4
  51         endif
  52     else
  53         return (indent)
  54     endif
  55 endfun
  56
  57
  58 " Follow the DragonFly style(9).
  59 function! DragonFly_Style()
  60     setlocal cindent
  61     setlocal cinoptions=(4200,u4200,+0.5s,*500,:0,t0,U4200
  62     setlocal indentexpr=IgnoreParenIndent()
  63     setlocal indentkeys=0{,0},0),:,0#,!^F,o,O,e
  64     setlocal noexpandtab
  65     setlocal shiftwidth=8
  66     setlocal tabstop=8
  67     setlocal textwidth=80
  68 endfun