Platon Technologies
not logged in Login Registration
EnglishSlovak
open source software development celebrating 10 years of open source development! Friday, October 16, 2026
[BACK] [TXT][DIR] Up to [Platon] / vimconfig / vim / plugin

Diff for vimconfig/vim/plugin/calendar.vim between version 1.4 and 1.5

version 1.4, 2003/02/16 21:54:32 version 1.5, 2003/11/03 16:04:07
Line 1 
Line 1 
 "=============================================================================  "=============================================================================
   " What Is This: Calendar
 " File: calendar.vim  " File: calendar.vim
 " Author: Yasuhiro Matsumoto <mattn_jp@hotmail.com>  " Author: Yasuhiro Matsumoto <mattn_jp@hotmail.com>
 " Last Change:  Fri, 10 Jan 2003  " Last Change: Thu, 19 Jun 2003
 " Version: 1.3r  " Version: 1.3u
 " Thanks:  " Thanks:
   "     Ronald Hoelwarth    : gave a hint for 1.3s
 "     Vikas Agnihotri     : bug report  "     Vikas Agnihotri     : bug report
 "     Steve Hall          : gave a hint for 1.3q  "     Steve Hall          : gave a hint for 1.3q
 "     James Devenish      : bug fix  "     James Devenish      : bug fix
Line 38 
Line 40 
 "     <Leader>ch  "     <Leader>ch
 "       show horizontal calendar ...  "       show horizontal calendar ...
 " ChangeLog:  " ChangeLog:
   "     1.3u : bug fix
   "             when enter diary first time,
   "              it don't warn that you don't have diary directory.
   "     1.3t : bug fix
   "             make sure the variables for help
   "     1.3s : bug fix
   "             make a map CalendarV for <Leader>ca
   "            add option calendar_navi_label
   "             see Additional:
   "            add option calendar_focus_today
   "             see Additional:
   "            add map ? for help
 "     1.3r : bug fix  "     1.3r : bug fix
 "            if clicked navigator, cursor go to strange position.  "             if clicked navigator, cursor go to strange position.
 "     1.3q : bug fix  "     1.3q : bug fix
 "             coundn't set calendar_navi  "             coundn't set calendar_navi
 "              in its horizontal direction  "              in its horizontal direction
Line 131 
Line 145 
 "     1.0a : bug fix by Leif Wickland.  "     1.0a : bug fix by Leif Wickland.
 "            it"s about strftime("%w")  "            it"s about strftime("%w")
 "     1.0  : first release.  "     1.0  : first release.
   " TODO:
   "     add the option for diary which is separate or single file.
 " Additional:  " Additional:
   "     *if you want to keep focus when goto next or prev calendar,
   "       add the following to your .vimrc:
   "
   "       let g:calendar_focus_today = 1
   "
 "     *if you want to place the mark('*' or '+') after the day,  "     *if you want to place the mark('*' or '+') after the day,
 "       add the following to your .vimrc:  "       add the following to your .vimrc:
 "  "
Line 146 
Line 167 
 "  "
 "       NOTE:you can set 'top', 'bottom', 'both' for this option.  "       NOTE:you can set 'top', 'bottom', 'both' for this option.
 "  "
   "     *if you want to replace navigator in your language,
   "       add the following to your .vimrc:
   "
   "       let g:calendar_navi_label = 'Prev,Today,Next'
   "
   "       NOTE:it must be separated with ','.
   "
 "     *if you want to replace calendar header,  "     *if you want to replace calendar header,
 "       add the following in your favorite language to your .vimrc:  "       add the following in your favorite language to your .vimrc:
 "  "
Line 205 
Line 233 
 "  "
 "       :echo calendar_version  "       :echo calendar_version
   
 let g:calendar_version = "1.3r"  let g:calendar_version = "1.3u"
 if !exists("g:calendar_action")  if !exists("g:calendar_action")
   let g:calendar_action = "<SID>CalendarDiary"    let g:calendar_action = "<SID>CalendarDiary"
 endif  endif
 if !exists("g:calendar_diary")  
   let g:calendar_diary = "~/diary"  
 endif  
 if !exists("g:calendar_sign")  if !exists("g:calendar_sign")
   let g:calendar_sign = "<SID>CalendarSign"    let g:calendar_sign = "<SID>CalendarSign"
 endif  endif
Line 224  endif
Line 249  endif
 if !exists("g:calendar_navi")  if !exists("g:calendar_navi")
  \|| (g:calendar_navi != 'top'   \|| (g:calendar_navi != 'top'
  \&& g:calendar_navi != 'bottom'   \&& g:calendar_navi != 'bottom'
  \&& g:calendar_navi != 'both')   \&& g:calendar_navi != 'both'
    \&& g:calendar_navi != '')
   let g:calendar_navi = 'top'    let g:calendar_navi = 'top'
 endif  endif
   if !exists("g:calendar_navi_label")
     let g:calendar_navi_label = "Prev,Today,Next"
   endif
   if !exists("g:calendar_diary")
     let g:calendar_diary = "~/diary"
   endif
   if !exists("g:calendar_focus_today")
     let g:calendar_focus_today = 0
   endif
   
 "*****************************************************************  "*****************************************************************
 "* Calendar commands  "* Calendar commands
Line 234  endif
Line 269  endif
 :command! -nargs=* Calendar  call Calendar(0,<f-args>)  :command! -nargs=* Calendar  call Calendar(0,<f-args>)
 :command! -nargs=* CalendarH call Calendar(1,<f-args>)  :command! -nargs=* CalendarH call Calendar(1,<f-args>)
   
 if !hasmapto("<Plug>Calendar")  if !hasmapto("<Plug>CalendarV")
   nmap <unique> <Leader>ca <Plug>Calendar    nmap <unique> <Leader>ca <Plug>CalendarV
 endif  endif
 if !hasmapto("<Plug>CalendarH")  if !hasmapto("<Plug>CalendarH")
   nmap <unique> <Leader>ch <Plug>CalendarH    nmap <unique> <Leader>ch <Plug>CalendarH
 endif  endif
 nmap <silent> <Plug>Calendar  :cal Calendar(0)<CR>  nmap <silent> <Plug>CalendarV :cal Calendar(0)<CR>
 nmap <silent> <Plug>CalendarH :cal Calendar(1)<CR>  nmap <silent> <Plug>CalendarH :cal Calendar(1)<CR>
   
 "*****************************************************************  "*****************************************************************
Line 286  function! s:CalendarDoAction()
Line 321  function! s:CalendarDoAction()
   if exists('g:calendar_navi')    if exists('g:calendar_navi')
     let navi = expand("<cword>")      let navi = expand("<cword>")
     let curl = line(".")      let curl = line(".")
     if navi == 'Prev'      if navi == s:GetToken(g:calendar_navi_label, ',', 1)
       exec substitute(maparg('<s-left>', 'n'), '<CR>', '', '')        exec substitute(maparg('<s-left>', 'n'), '<CR>', '', '')
     elseif navi == 'Next'      elseif navi == s:GetToken(g:calendar_navi_label, ',', 3)
       exec substitute(maparg('<s-right>', 'n'), '<CR>', '', '')        exec substitute(maparg('<s-right>', 'n'), '<CR>', '', '')
     elseif navi == 'Today'      elseif navi == s:GetToken(g:calendar_navi_label, ',', 2)
       call Calendar(b:CalendarDir)        call Calendar(b:CalendarDir)
     else      else
       let navi = ''        let navi = ''
     endif      endif
     if navi != ''      if navi != ''
       if curl < line('$')/2        if g:calendar_focus_today == 1 && search("\*","w") > 0
         silent execute "normal! gg/".navi."\<cr>"          silent execute "normal! gg/\*\<cr>"
           return
       else        else
         silent execute "normal! gg?".navi."\<cr>"          if curl < line('$')/2
             silent execute "normal! gg/".navi."\<cr>"
           elseif curl < line('$')/2
             silent execute "normal! gg?".navi."\<cr>"
           endif
           return
       endif        endif
       return  
     endif      endif
   endif    endif
   
Line 836  function! Calendar(...)
Line 876  function! Calendar(...)
   
   " navi    " navi
   if exists('g:calendar_navi')    if exists('g:calendar_navi')
       let navi_label = '<'
                   \.s:GetToken(g:calendar_navi_label, ',', 1).' '
                   \.s:GetToken(g:calendar_navi_label, ',', 2).' '
                   \.s:GetToken(g:calendar_navi_label, ',', 3).'>'
     if dir      if dir
       let navcol = ((vcolumn/2)*3-8)        let navcol = vcolumn + (vcolumn-strlen(navi_label)+2)/2
     else      else
       let navcol = ((vcolumn/2)-8)        let navcol = (vcolumn-strlen(navi_label)+2)/2
     endif      endif
   
     if g:calendar_navi == 'top'      if g:calendar_navi == 'top'
       execute "normal gg".navcol."i "        execute "normal gg".navcol."i "
       silent exec "normal! i<Prev Today Next>\<cr>\<cr>"        silent exec "normal! i".navi_label."\<cr>\<cr>"
       silent put! =vdisplay1        silent put! =vdisplay1
     endif      endif
     if g:calendar_navi == 'bottom'      if g:calendar_navi == 'bottom'
       silent put! =vdisplay1        silent put! =vdisplay1
       silent exec "normal! Gi\<cr>"        silent exec "normal! Gi\<cr>"
       execute "normal ".navcol."i "        execute "normal ".navcol."i "
       silent exec "normal! i<Prev Today Next>"        silent exec "normal! i".navi_label
     endif      endif
     if g:calendar_navi == 'both'      if g:calendar_navi == 'both'
       execute "normal gg".navcol."i "        execute "normal gg".navcol."i "
       silent exec "normal! i<Prev Today Next>\<cr>\<cr>"        silent exec "normal! i".navi_label."\<cr>\<cr>"
       silent put! =vdisplay1        silent put! =vdisplay1
       silent exec "normal! Gi\<cr>"        silent exec "normal! Gi\<cr>"
       execute "normal ".navcol."i "        execute "normal ".navcol."i "
       silent exec "normal! i<Prev Today Next>"        silent exec "normal! i".navi_label
     endif      endif
   else    else
     silent put! =vdisplay1      silent put! =vdisplay1
Line 892  function! Calendar(...)
Line 936  function! Calendar(...)
   
   execute 'nnoremap <silent> <buffer> <cr> :call <SID>CalendarDoAction()<cr>'    execute 'nnoremap <silent> <buffer> <cr> :call <SID>CalendarDoAction()<cr>'
   execute 'nnoremap <silent> <buffer> <2-LeftMouse> :call <SID>CalendarDoAction()<cr>'    execute 'nnoremap <silent> <buffer> <2-LeftMouse> :call <SID>CalendarDoAction()<cr>'
     execute 'nnoremap <silent> <buffer> t gg/\*<cr>'
     execute 'nnoremap <silent> <buffer> ? :call <SID>CalendarHelp()<cr>'
   
   "++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++    "++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
   "+++ build highlight    "+++ build highlight
   "++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++    "++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Line 914  function! Calendar(...)
Line 961  function! Calendar(...)
   
   " navi    " navi
   if exists('g:calendar_navi')    if exists('g:calendar_navi')
     syn match Search display "\(<Prev\|Next>\)"      exec "syn match Search display \"\\(<"
     syn match Search display "\sToday\s"hs=s+1,he=e-1          \.s:GetToken(g:calendar_navi_label, ',', 1)."\\|"
           \.s:GetToken(g:calendar_navi_label, ',', 3).">\\)\""
       exec "syn match Search display \"\\s"
           \.s:GetToken(g:calendar_navi_label, ',', 2)."\\s\"hs=s+1,he=e-1"
   endif    endif
   
   " saturday, sunday    " saturday, sunday
Line 956  function! Calendar(...)
Line 1006  function! Calendar(...)
   execute 'syn match StatusLine "'.vwruler.'"'    execute 'syn match StatusLine "'.vwruler.'"'
   
   if search("\*","w") > 0    if search("\*","w") > 0
     silent execute "normal! gg/*\<cr>"      silent execute "normal! gg/\*\<cr>"
   endif    endif
   
   return ''    return ''
Line 993  endfunc
Line 1043  endfunc
 "*****************************************************************  "*****************************************************************
 function! s:CalendarDiary(day, month, year, week, dir)  function! s:CalendarDiary(day, month, year, week, dir)
   " build the file name and create directories as needed    " build the file name and create directories as needed
   if expand(g:calendar_diary) == ''    if !isdirectory(expand(g:calendar_diary))
     call confirm("please create diary directory : ".g:calendar_diary, 'OK')      call confirm("please create diary directory : ".g:calendar_diary, 'OK')
     return      return
   endif    endif
Line 1015  function! s:CalendarDiary(day, month, ye
Line 1065  function! s:CalendarDiary(day, month, ye
   
   " load the file    " load the file
   exe "sp " . sfile    exe "sp " . sfile
     set ft=calendar
   exe "auto BufLeave ".escape(sfile, ' \\')." normal! ".vwinnum."<c-w>w"    exe "auto BufLeave ".escape(sfile, ' \\')." normal! ".vwinnum."<c-w>w"
 endfunc  endfunc
   
Line 1029  function! s:CalendarSign(day, month, yea
Line 1080  function! s:CalendarSign(day, month, yea
   let sfile = g:calendar_diary."/".a:year."/".a:month."/".a:day.".cal"    let sfile = g:calendar_diary."/".a:year."/".a:month."/".a:day.".cal"
   return filereadable(expand(sfile))    return filereadable(expand(sfile))
 endfunction  endfunction
   
   "*****************************************************************
   "* CalendarVar : get variable
   "*----------------------------------------------------------------
   "*****************************************************************
   function! s:CalendarVar(var)
     if !exists(a:var)
       return ''
     endif
     exec 'return ' . a:var
   endfunction
   
   "*****************************************************************
   "* CalendarHelp : show help for Calendar
   "*----------------------------------------------------------------
   "*****************************************************************
   function! s:CalendarHelp()
     echohl SpecialKey
     echo '<s-left>  : goto prev month'
     echo '<s-right> : goto next month'
     echo 't         : goto today'
     echo 'q         : close window'
     echo '?         : show this help'
     if g:calendar_action == "<SID>CalendarDiary"
       echo '<cr>      : show diary'
     endif
     echo ''
     echohl Question
     echo 'calendar_erafmt=' . s:CalendarVar('g:calendar_erafmt')
     echo 'calendar_mruler=' . s:CalendarVar('g:calendar_mruler')
     echo 'calendar_wruler=' . s:CalendarVar('g:calendar_wruler')
     echo 'calendar_weeknm=' . s:CalendarVar('g:calendar_weeknm')
     echo 'calendar_navi_label=' . s:CalendarVar('g:calendar_navi_label')
     echo 'calendar_diary=' . s:CalendarVar('g:calendar_diary')
     echo 'calendar_mark=' . s:CalendarVar('g:calendar_mark')
     echo 'calendar_navi=' . s:CalendarVar('g:calendar_navi')
     echohl MoreMsg
     echo "[Hit any key]"
     echohl None
     call getchar()
     redraw!
   endfunction
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
Platon Group <platon@platon.org> http://platon.org/
Copyright © 2002-2006 Platon Group
Site powered by Metafox CMS 		Go to Top