その他雑多なこと(tDiary版)

_ 会社マシンに香り屋版vim6.2をいれてhowm-mode.vimを試してみる。メモのタイトル一覧とかタイムスタンプのコマンドを追加して使うことにする。

*** howm-mode.org	Mon Mar 29 15:02:21 2004
--- howm-mode.vim	Mon Mar 22 13:21:33 2004
***************
*** 192,202 ****
--- 192,204 ----
 endif
 let g:mapleader = g:howm_mapleader
 nmap   ,a :call ShowDirectory()
+ nmap   ,T :call ShowAllTitle()
 nmap   ,c :call OpenMemo(GetFilePath(0), 0)
 nmap   ,g :call FullTextSearchInput('egrep')
 nmap   ,m :call FullTextSearchInput('migemo')
 nmap   ,y :call ShowSchedule()
 nmap   ,t :call ShowTodo()
+ nmap   ,s :call HowmAppend(GetTimeStamp(0))
 if exists('s:leader')
   let g:mapleader = s:leader
 else
***************
*** 1733,1736 ****
--- 1735,1765 ----
 
 call s:ParseKeyword()
 
+ function! s:ShowAllTitle()
+   if g:howm_reminder_old_format != 0
+     return s:ShowScheduleOld()
+   endif
+   " grep 検索用のパターンを生成
+   let pattern_title      = g:howm_title_pattern
+   call s:OpenSearchWindow('')
+   if s:ParseSearchResult(s:GrepSearch(pattern_title, 1)) != 0
+     setlocal filetype=howm_importantdate
+     let i = 1
+     while i <= b:searchResultNum
+       let b:content{i} = strpart(b:content{i}, match(b:content{i}, s:pattern_date))
+       let i = i + 1
+     endwhile
+     call s:SortByContent()
+     call s:FormatSearchResult()
+     let retval = 1
+   else
+     redraw!
+     echo s:prefix_howm.s:msg_ftnomatch
+     call s:SafeClose()
+     let retval = 0
+   endif
+ 
+   return retval
+ endfunction
+