Schinckel.net

Got this one from Boing Boing:

Since I need to replace all " in the generated XHTML with ‘, I use the replace function from the previous post.

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45

    (* 
    Bugs:
    
    Does not like no selection: no real way to get the selection from SEE anyway.
    Sometimes does not execute if called from Script Menu.  Intermittant.
    *)
    
    -- If called from Script Menu, need to do this.
    
    tell application "SubEthaEdit"
    	activate
    	tell application "System Events" to keystroke "C" using {command down}
    end tell
    
    set theStart to (the clipboard)
    
    set the clipboard to (my replace(theStart, "\"", "'"))
    
    beep
    
    -- Another way of the Replace Function being called:
    
    -- set the clipboard to (replaceText from theStart to "'" instead of "\"")
    
    on replace(theText, find, replace)
    	set OldDelims to AppleScript's text item delimiters
    	set AppleScript's text item delimiters to find
    	set newText to text items of theText
    	set AppleScript's text item delimiters to replace
    	set theResult to newText as text
    	set AppleScript's text item delimiters to OldDelims
    	return theResult
    end replace
    
    -- Alternate version of replace()
    
    to replaceText from theText to replace instead of find
    	set OldDelims to AppleScript's text item delimiters
    	set AppleScript's text item delimiters to find
    	set theText to text items of theText
    	set AppleScript's text item delimiters to replace
    	set theText to theText as text
    	set AppleScript's text item delimiters to OldDelims
    	theText
    end replaceText

I like to present styled code for my readers, but I’m not totally happy with my methods of getting it: SubEthaEdit’s Export as XHTML is very cool, but I still have to tweak it so it looks nice. And I’ve got a great program for getting the XHTML version of the code Script Editor (AppleScript) is currently displaying. But, I’d like more flexibility. I want the code to be tagged with classes, like it’s possible to do with the Script Editor add-on, rather than using inline styles. I’ve already done this for the Script Editor code, but I just need to remember to remove the inline stylesheet from the start of the generated code. Unfortunately the Script has been saved as a Run Only. I’d love to know a way to decompile one of these Scripts…apparently there isn’t. I’ll have to write my own. Or see if Jon is nice enough to give the Source Code. As for the SubEthaEdit part: I should be able to do it. I’ve learned a couple of tricks that will help.

I used to use ecto to paste all of my entries on my blog, but with Blogsome’s XMLRPC issue, I have to use a browser. But it would be nice to automatically get the name and information about my currently playing iTunes track, just like ecto used to do. I wrote an AppleScript that does this, and, inserts the data in at the insertion point for you. Because it’s intended to be run from the Script Menu, and everything run from there runs as “System Events”, I had to hard code in the browser name. If you use another browser, just replace the second line with whatever your browser is called.

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37

property star : «data utxt2605» as Unicode text
property browser : "Camino"
on run {}
    
    tell application "System Events"
        try
            get process "iTunes"
        on error
            return "No Track"
        end try
    end tell
    
    tell application "iTunes"
        set theTrack to current track
        set theArtist to artist of theTrack
        set theAlbum to album of theTrack
        set theRating to rating of theTrack
        set theTrack to name of theTrack
    end tell
    
    set theString to "<p class=’itunes’> " & theTrack & " • <a href='http://www.google.com/search?q=%22" & theArtist & "%22>" & theArtist & "</a> • <a href=’http://www.google.com/search?q=%22" & theAlbum & "%22>" & theAlbum & "</a> " & myRating(theRating)
    set the clipboard to theString
    
    tell application browser
        activate
        tell application "System Events" to keystroke "v" using {command down}
    end tell
end run

on myRating(theRating)
    set theResult to ""
    set theTimes to (theRating - 9) / 20 as integer
    repeat theTimes times
        set theResult to theResult & star
    end repeat
    return theResult
end myRating

I was hunting for some artwork for some iTunes tracks tonight (very nearly this morning), and I came across this page for the album There is a Way to Fly, by Coda. According to this, people who listen to Coda are likely to be on drugs! Or maybe I just misinterpreted it: maybe Coda is an addiction I need to kick.

The Offer • [Augie March][2] • [Sunset Studies][3]

[2]: http://www.google.com/search?q=%22Augie March%22 [3]: http://www.google.com/search?q=%22Sunset Studies%22

MIT OpenCourseWare | OCW Home This is kind of nice: MIT is now putting a whole lot of their courses online for free. Looks to be some interesting stuff in there, not sure how much detail there is in the courses though. Will report when I’ve downloaded and played around with one or two…

Those funny Americans and their love of banning books. Just one step away from burning them, really. Anyway, over at Dose Magazine, I found a link to a list of the 100 Most BannedChallenged Books in the US (1990-2000). The ones I’ve read:

• The Chocolate War by Robert Cormier
• The Adventures of Huckleberry Finn by Mark Twain
• Of Mice and Men by John Steinbeck
• The Catcher in the Rye by J.D. Salinger
• The Witches by Roald Dahl
• To Kill a Mockingbird by Harper Lee
• Flowers for Algernon by Daniel Keyes
• Brave New World by Aldous Huxley
• James and the Giant Peach by Roald Dahl
• The Anarchist Cookbook by William Powell
• Guess What? by Mem Fox
• Lord of the Flies by William Golding
• Carrie by Stephen King
• The Dead Zone by Stephen King
• The Adventures of Tom Sawyer by Mark Twain
• Where’s Waldo? by Martin Hanford
• Pillars of the Earth by Ken Follett

I’m amazed as to the number of Roald Dahl books on there! And Where’s Waldo?.

Donald Rumsfeld is giving the President his daily briefing on Iraq. He concludes by saying: “Yesterday, 3 Brazilian soldiers were killed.” “OH NO!” the President exclaims. “That’s terrible!” His staff wait, stunned at this display of emotion, nervously watching as the President sits, head in hands. Finally, the President looks up and asks, “How many is a brazillion exactly?”

I think this another thing new to Tiger: when I initiate a PPP connection, my hostname changes, to things like: fliax7-a170.dialup.optusnet.com.au Now, this doesn’t have too many issues, except when I try to initiate a connection with what the hostname used to be, such as a local VNC connection to the other user’s desktop. The solution is to do the following: edit /etc/hostconfig, and replace: HOSTNAME=-AUTOMATIC- with HOSTNAME=the_hostname

I recently upgraded to Tiger, and just yesterday I noticed some strange behaviour from ManOpen, a great little tool for viewing man pages outside of a Terminal. Most man pages still work okay, but openman bash results in a long load time, followed by a crash. Every time. man bash still works fine. I might have to look back into the piping through Preview solution I was using a while ago. • Okay, there is a new version of ManOpen available. I’ll just use that.