Emblemas

Energizado por OpenSource
Soporta RSS2
Soporta Atom
Soporta Debian Power User
Energizado por Hacker
Soporta Last.FM
Soporta Ubuntu
Energizado por MySQL

Twitter

  • Quitter un cliente ligero y discreto de Twitter

    Quitter es un cliente ligero de twitter, además es muy discreto para aquellos entornos en los cuales no te dejan tener el "Twitter" abierto en el navegador. Encontré este cliente de pura casualidad y sin estar buscándolo, cuando lo baje me dio algo de lata configurar lo pero luego de configurado funciona de maravilla.

    Lo malo

    El programa no te deja escribir acentos o Ñ's peeeeeero tengo un parche de 3 centavos para el código fuente que agrega esta pequeña funcionalidad y claro que si aquí está el parche para que se lo apliquen al código y puedan ser felices y comer perdices.

    El parche



    El Código Fuente

    Este proyecto esta muy bien diseñado y prueba de esto es que copiando el Main del código todo esta claro como el agua:
    Sub Main()
            Initialize()
            Dim QuitSelected As Boolean = False
            Do
                WriteLine()
                If _CurrentUser.ScreenName <> String.Empty Then
                    WriteLine(String.Format("[{0} ({1})]", _CurrentUser.ScreenName, _HitsRemaining))
                End If
                Write(MAIN_PROMPT)
                Dim Choice As String = ReadKey("acdfhlpqrstu?x")
                Select Case Choice
                    Case String.Empty
                        Write("Read ")
                        Read()
                    Case "A"
                        WriteLine("About Quitter")
                        About()
                    Case "C"
                        WriteLine("Configuration")
                        ConfigureMenu()
                    Case "D"
                        Write("Direct messages ")
                        DirectMessageMenu()
                    Case "F"
                        WriteLine("Follow user")
                        FollowUser()
                    Case "L"
                        WriteLine("Open link")
                        OpenLink()
                    Case "P"
                        WriteLine("Post")
                        PostUpdate()
                    Case "Q"
                        WriteLine("Quit")
                        If ReadYesNo("Are you sure? (Y/N):") Then
                            QuitSelected = True
                        End If
                    Case "R"
                        WriteLine("Reply")
                        Reply()
                    Case "S"
                        WriteLine("Search")
                        Search()
                    Case "T"
                        WriteLine("Re-tweet")
                        ReTweet()
                    Case "U"
                        WriteLine("Unfollow user")
                        UnFollowUser()
                    Case "?"
                        WriteLine("Help")
                        ShowHelp()
                End Select
            Loop Until QuitSelected
        End Sub