Writing a "CS-1 in Python" book: probably averaging half a day per week right now.
Herding catskittens: a day a week---a day and a half if you include grad students.
Writing grant proposals: variable, but I'd guess it has averaged at least two days a week since last May. Three small ones have come through, along with contributions from the Jonah Group and Idee (thanks, folks), but NSERC and a couple of other companies have turned down all the larger (i.e., more time-consuming) ones.
Organizing stuff: a day and a half per week. This includes student lunches with people from industry, DemoCamp, special issues of journals, meetings to introduce local companies with researchers in the department, networking on behalf of my grad students, etc. I could cut a lot of this, but I honestly think this is where I add most value.
Departmental responsibilities (such as preparing a proposal for a Professional Master's in Computer Science): has been highly variable; probably averages half a day a week.
Keeping up with email: I send roughly 2500 email messages a month, and read at least three times that number; I think this takes 2-3 hours per day, much of it outside office hours.
Research: half a day per week, tops. I'm including everything from design discussions for DrProject to writing "real" academic papers in this category.
Socializing with colleagues: half an hour to an hour a day. Coffee-room discussions are where most small issues around teaching and organizational matters seem to get hashed out.