New Blog Design

Thank you, Kim for this great design (based on some updates to the Stranger Studios site coming soon). Let us know what you think.

Daily Links and Annotations 06/12/2009

Posted from Diigo. The rest of my favorite links are here.

Daily Links and Annotations 04/18/2009

  • Now’s as good a time as any to take a break from mocking the teabaggers in favor of a more serious look at what they accomplished yesterday.

    I’ve never made a secret for my distaste of most street protests, and of groups like Code Pink that think they are accomplishing anything with their street theater. But when I set out to write Taking on the System, my book on effective organizing in the 21st century, I had to dig deep to figure out why I didn’t like them, and how to differentiate the usual ineffective ANSWER-organized protests with those that actually had a positive effect (e.g. the Jena Six and pro-immigration protests of a few years ago).

    I finally determined that for a protest to be effective it needed to:

    be novel and/or unexpected
    have a sympathetic, singular, and media-friendly message
    provide great visuals
    tap into a hot-button and timely issue.

    tags: no_tag

Posted from Diigo. The rest of my favorite links are here.

Daily Links and Annotations 04/14/2009

  • Script to rename all files in a directory… to e.g. replace underscores with spaces… I altered to do the reverse.

    tags: no_tag

    • ‘========================================================
      ‘ VBScript to replace underscore in file name with space
      ‘ for each files in a folder
      ‘ Written by ApOgEE of http://coderstalk.blogspot.com
      ‘========================================================
      Dim sName
      Dim fso
      Dim fol

      ‘ create the filesystem object
      Set fso = WScript.CreateObject(“Scripting.FileSystemObject”)

      ‘ get current folder
      Set fol = fso.GetFolder(“.”)

      ‘ go thru each files in the folder
      For Each fil In fol.Files
      ‘ check if the file name contains underscore
      If InStr(1, fil.Name, “_”) <> 0 Then
      ‘ replace underscore with space
      sName = Replace(fil.Name, “_”, ” “)
      ‘ rename the file
      fil.Name = sName
      End If
      Next

      ‘ echo the job is completed
      WScript.Echo “Completed!”

      • Worked like a charm. I altered it to do the reverse. – post by ideadude

Posted from Diigo. The rest of my favorite links are here.