Autohotkey Scripts
From notebook
Copy the below in EDIT mode, not straight from this page prior to entering edit mode!
- to remove commas, ampersands and et al. so as to make it easier to search for citations in Zotero
^,::
- blank the clipboard so clipwait will work correctly
- with sending ^, control comma
clipboard := "" send ^c ClipWait, 1 StringReplace, clipboard, clipboard, `,,, All StringReplace, clipboard, clipboard, `&,, All StringReplace, clipboard, clipboard, et al.,, All Return
- for FLickr descriptions to create html links automatically, embolden, underline and italicise and add cease and desist links. Now with keystrokes that put my IME interface into English mode before running the main part of the script.
!1::
{
Sleep, 100
clipurl := clipboard
Send ^c
Sleep, 50
Send {vkF3}
clipurl := "<a href=""" . clipurl . """>" . clipboard . "</a>"
SendInput {Raw}%clipurl%
clipboard := clipurl
clipurl =;
Send {vkF4}
Return
}
!b:: { Sleep, 100 clipsave := clipboard Send ^c Sleep, 50 Send {vkF3} clipstrong := "" . clipboard . "" SendInput {Raw}%clipstrong% clipboard := clipsave clipstrong =; Send {vkF4} Return }
!u:: { Sleep, 100 clipsave := clipboard Send ^c Sleep, 50 Send {vkF3} clipunder := "" . clipboard . "" SendInput {Raw}%clipunder% clipboard := clipsave clipunder =; Send {vkF4} Return }
!i:: { Sleep, 100 clipsave := clipboard Send ^c Sleep, 50 Send {vkF3} clipitalic := "" . clipboard . "" SendInput {Raw}%clipitalic% clipboard := clipsave clipitalic =; Send {vkF4} Return }
!o:: textinput := "お取り下げご希望の場合は下記のｺﾒﾝﾄ欄か､http://nihonbunka. comで掲示されるﾒｰﾙｱﾄﾞﾚｽにご一筆ください｡" SendInput {Raw}%textinput% Return
!t::
Send {vkF3}
textinput := "Should you wish that I cease and desist - remove this image from the Net then please leave a comment or contact me via the email link at http://nihonbunka.com"
SendInput {Raw}%textinput%
Send {vkF4}
Return
!s:: { textinput := "お取り下げご希望の場合は下記のコメント欄か、http://souzaisho.comで掲示されるメールアドレスにご一筆ください。" Send {vkF3} SendInput {Raw}%textinput% Send {vkF4} Return }
