Changeset 5990 for lang/vim

Timestamp:

02/01/08 18:00:37 (10 months ago)

Author:

silphire

Message:

lang/vim/tvitter: warn if update is overlonger than 140 characters

Files:

• lang/vim/tvitter/trunk/tvitter.vim (modified) (3 diffs)

lang/vim/tvitter/trunk/tvitter.vim

@@ -3 +3 @@
 " License: distributed under the same terms of Vim itself
 " Created: 2008-01-20
-" Version: 0.1
+" Version: 0.2
 "
 
@@ -66 +66 @@
 endfunction
 
+"
+function! s:CheckLength(msg)
+        let l:len = strlen(a:msg)
+        if l:len > 140
+                let l:answer = input("Overlong update (".l:len." bytes). Really send? ")
+                if(strlen(l:answer) > 0 && l:answer[0] == 'y')
+                        return 1
+                else
+                        return 0
+                endif
+        endif
+        return 1
+endfunction
+
 " 
 function! s:ReflectResult(response)
@@ -82 +96 @@
         call s:GetMail()
         call s:GetPassword()
+
+        if !s:CheckLength(a:msg)
+                return
+        endif
 
         let l:status = s:UrlEscape(a:msg)