Evernote Daily Dialyが熱い

だいぶ前に読んだ記事だったのだが、なかなか「何が便利なの？」というフェーズから抜け出せずに試すことすらしていないかった。が、使ってみたらすごい便利！

Mac版 FastEverですね。LaunchBarとの組み合わせも絶好調です。本当にお勧め。

Evernoteへ超絶簡単にメモ出来るスクリプトがとにかく素晴らしすぎる！ | goryugo, addicted to Evernote

Evernoteへ超絶簡単にメモ出来るスクリプトがとにかく素晴らしすぎる！

感じ通信さんのとこで紹介されていた Evernote Daily Diary というスクリプト。

@goryugo氏のスクリプトを使わせていただこうかと思ったのですが、まずはオリジナルに敬意を払うためにgoryugo氏が参考にされたという

思いついたメモを Evernote に – 感じ通信

パソコン画面に向かって作業中、あるいはウェブページを閲覧中、フト頭に浮かんで記述しておきたいことがあると思う。

を参照してみる。うん、こちらの方がEvernoteをHTML形式で入れてくれたりClipboardが使えたり、ちょっと機能が多そう。で、実際のオリジナルはここにあると。

Evernote Daily Diary – Veritrope

Modified from an older post on Juggling Eggs…this script creates a notebook called Daily Diary and then creates a new note for the day with the date as the title. If the note exists then content is appended.

これは、イイ。これをベースに少しカスタマイズしてみます。といっても、たいしたことはやっておらず、ノートブック名の指定をInboxに変更したのとタグを設定するようにしたこと、タグをH1からH3に変更したことくらいです。

(* BEGIN HANDLER CALL

NOTE:  I have added a new portion to the script so that users who aren't familiar with how to use a handler can run the Script directly and check it out.

If you'd like to use this as a handler in your own AppleScript, Just delete or comment out the portion of code between "BEGIN HANDLER CALL" and "END HANDLER CALL"!
*)

set notetext to text returned of (display dialog "Evernote Entry" default answer "")
my handle_string(notetext)

on handle_string(notetext)
 if notetext is not "" then
  CreateDailyEvernote(notetext)
 end if
end handle_string

(* END HANDLER CALL *)

on CreateDailyEvernote(txt)
 set t0 to do shell script "date +'%Y/%m/%d'"
 set t to "memo: " & t0
 set timeStr to time string of (current date)
 
 tell application "Evernote"
  set foundNotes to find notes "notebook:\"" & nb & "\"" & " intitle:\"" & t & "\""
  set found to ((length of foundNotes) is not 0)
  if not found then
   set curnote to create note with html "<h3>Entry : " & timeStr & "</h3>" title t notebook nb
   
   if (not (tag named tagName exists)) then
    make tag with properties {name:tagName}
   end if
   set curtag to tag named tagName
   assign curtag to curnote
   
   tell curnote to append html "<br;>"
   tell curnote to append text txt
   tell curnote to append html "<br;>"
   set question to display dialog "Include clipboard?" buttons {"Yes", "No"} default button 2
   set answer to button returned of question
   
   if answer is equal to "Yes" then
    if (the clipboard) is not "" then
     tell curnote to append html "<h3>Clipboard</h3>"
     tell curnote to append text the clipboard
    end if
   end if
   tell curnote to append html "<hr>"
  else
   repeat with curnote in foundNotes
    tell curnote to append html "<h3>Entry : " & timeStr & "</h3>"
    tell curnote to append text txt
    tell curnote to append html "<br;>"
    set clipTxt to the clipboard
    
    set question to display dialog "Include clipboard?" buttons {"Yes", "No"} default button 2
    set answer to button returned of question
    
    if answer is equal to "Yes" then
     tell curnote to append html "<h3>Clipboard</h3>"
     tell curnote to append text the clipboard
    end if
    
    tell curnote to append html "<hr>"
   end repeat
  end if
  activate
 end tell
end CreateDailyEvernote

(* BEGIN HANDLER CALL

NOTE: I have added a new portion to the script so that users who aren't familiar with how to use a handler can run the Script directly and check it out.

If you'd like to use this as a handler in your own AppleScript, Just delete or comment out the portion of code between "BEGIN HANDLER CALL" and "END HANDLER CALL"!

set notetext to text returned of (display dialog "Evernote Entry" default answer "")

my handle_string(notetext)

on handle_string(notetext)

if notetext is not "" then

CreateDailyEvernote(notetext)

end if

end handle_string

(* END HANDLER CALL *)

on CreateDailyEvernote(txt)

set t0 to do shell script "date +'%Y/%m/%d'"

set t to "memo: " & t0

set timeStr to time string of (current date)

tell application "Evernote"

set foundNotes to find notes "notebook:\"" & nb & "\"" & " intitle:\"" & t & "\""

set found to ((length of foundNotes) is not 0)

if not found then

set curnote to create note with html "<h3>Entry : " & timeStr & "</h3>" title t notebook nb

if (not (tag named tagName exists)) then

make tag with properties {name:tagName}

end if

set curtag to tag named tagName

assign curtag to curnote

tell curnote to append html "<br;>"

tell curnote to append text txt

tell curnote to append html "<br;>"

set question to display dialog "Include clipboard?" buttons {"Yes", "No"} default button 2

set answer to button returned of question

if answer is equal to "Yes" then

if (the clipboard) is not "" then

tell curnote to append html "<h3>Clipboard</h3>"

tell curnote to append text the clipboard

end if

tell curnote to append html "<hr>"

else

repeat with curnote in foundNotes

tell curnote to append html "<h3>Entry : " & timeStr & "</h3>"

tell curnote to append text txt

tell curnote to append html "<br;>"

set clipTxt to the clipboard

set question to display dialog "Include clipboard?" buttons {"Yes", "No"} default button 2

set answer to button returned of question

if answer is equal to "Yes" then

tell curnote to append html "<h3>Clipboard</h3>"

tell curnote to append text the clipboard

end if

tell curnote to append html "<hr>"

end repeat

end if

activate

end tell

end CreateDailyEvernote

あとは、これをLaunchBarが認識(インデクシング)できるところに置いて、LauchBarで実行するだけでEvernoteにどんどんため込むことができます。LaunchBarで使うための設定は、冒頭のgoryugo氏エントリに丸投げです。スミマセン。

このスクリプトの良いところは

一日一つのファイルになる(追記される)。
クライアントのEvernoteと繋ぐのでオフラインでも使える
LaunchBarから使うとキーボードから一切手を離さずにEvernoteにメモをできるのでとにかく思考にロスがない

ということです。とにかく素早く簡単にメモができるのがうれしいです。EmacsのScratch Padやスティッキーズよりも断然便利。iPhoneではFastEverというアプリを使っているにもかかわらず、同じことをMacでやろうという思いが無かったことに驚きました。そして、使っていたらやっぱり便利でした。

今回はAppleScriptを使う方法だったわけですが、Workflow(Automator)もあるし、Webだけでなくクライアント側も結構面白そうです。Evernoteが提供しているAppleScriptで使えるAPIは、Apple Script Editorのメニューで「ファイル」→「用語説明を開く」で表示されるダイアログからEvernoteを選択することで参照することができます。

Evernoteが公開しているサンプルも簡単でわかりやすいです。

Integrating with Evernote for Mac | Evernote Corporation

In version 1.11.0, the Evernote for Mac client has significantly expanded support for AppleScript. The Evernote AppleScript Dictionary provides access to notebooks, tags, notes and a subset of their properties.