Fantastical Workflow

[spacecadet9]

Quickly but together a Fantastical workflow

 

Totally just used the Applescript from the V1 fantastical extension here:

 

http://jdfwarrior.tumblr.com/post/7380798414/alfred-0-9-9-scripts-now-available

 

Download

 

[jdfwarrior]

So you ripped off my extension huh? J/k, thanks for updating it.

[jarhead]

You can also just use a custom search with Fantastical...

 

http://support.alfredapp.com/kb:fantastical

[spacecadet9]

HI David...

 

Hope you don't mind!

[jdfwarrior]

HI David...

 

Hope you don't mind!

 

Haha, nah man I really was just messing with you. Seriously, thanks for getting it updated. Keep the workflows coming

[theboyler]

I've amended this on my Alfred to allow a modifier after the date to choose whether to add the event directly, or to open Fantastical to review first.

set str to q as string
set AppleScript's text item delimiters to " " as string
considering case
	set len to str's last text item's length
end considering
set AppleScript's text item delimiters to ""
set theend to text ((-(" "'s length) - len) + 1) thru -1 of q
set q to text 1 thru (-(" "'s length) - len) of q
if theend does not contain "rev" then
	tell application "Fantastical" to parse sentence q with add immediately
else
	tell application "Fantastical" to parse sentence q
end if

If you add 'rev' after the text for the new event, you can review in fantastical first; if rev doesn't appear, then the event is added directly. To change the default, change the line 

if theend does not contain "rev" then

to 

if theend contains "add" then

and use the phrase 'add' afterwards to force it be added directly.

[xandrik]

@theboyler - I'm not proficient with scripting at all. Where would I copy your enhancement to the exisisting workflow script. What I've done is this.

 

on alfred_script(q)

tell application "Fantastical"

  parse sentence q

end tell

end alfred_script

 

set str to q as string

set AppleScript's text item delimiters to " " as string

considering case

set len to str's last text item's length

end considering

set AppleScript's text item delimiters to ""

set theend to text ((-(" "'s length) - len) + 1) thru -1 of q

set q to text 1 thru (-(" "'s length) - len) of q

if theend does not contain "rev" then

tell application "Fantastical" to parse sentence q with add immediately

else

tell application "Fantastical" to parse sentence q

end if

 

 

Any help would be greatly appreciated!

 

Rick