Autohotkey Scripts
From notebook
| Line 13: | Line 13: | ||
Return | Return | ||
| - | ; for FLickr descriptions to create html links automatically, embolden, and | + | ; 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:: | !1:: | ||
{ | { | ||
| Line 23: | Line 22: | ||
Send ^c | Send ^c | ||
Sleep, 50 | Sleep, 50 | ||
| + | Send {vkF3} | ||
clipurl := "<a href=""" . clipurl . """>" . clipboard . "</a>" | clipurl := "<a href=""" . clipurl . """>" . clipboard . "</a>" | ||
SendInput {Raw}%clipurl% | SendInput {Raw}%clipurl% | ||
clipboard := clipurl | clipboard := clipurl | ||
clipurl =; | clipurl =; | ||
| + | Send {vkF4} | ||
Return | Return | ||
} | } | ||
| Line 36: | Line 37: | ||
Send ^c | Send ^c | ||
Sleep, 50 | Sleep, 50 | ||
| + | Send {vkF3} | ||
clipstrong := "<b>" . clipboard . "</b>" | clipstrong := "<b>" . clipboard . "</b>" | ||
SendInput {Raw}%clipstrong% | SendInput {Raw}%clipstrong% | ||
clipboard := clipsave | clipboard := clipsave | ||
clipstrong =; | clipstrong =; | ||
| + | Send {vkF4} | ||
Return | Return | ||
} | } | ||
| - | ! | + | !u:: |
| - | Sleep, 100 clipsave := clipboard | + | { |
| - | Send ^c | + | Sleep, 100 |
| - | Sleep, 50 | + | clipsave := clipboard |
| - | + | Send ^c | |
| - | SendInput {Raw}% | + | Sleep, 50 |
| - | clipboard := clipsave | + | Send {vkF3} |
| - | + | clipunder := "<u>" . clipboard . "</u>" | |
| - | Return | + | SendInput {Raw}%clipunder% |
| - | + | clipboard := clipsave | |
| + | clipunder =; | ||
| + | Send {vkF4} | ||
| + | Return | ||
| + | } | ||
!i:: | !i:: | ||
| Line 60: | Line 67: | ||
Send ^c | Send ^c | ||
Sleep, 50 | Sleep, 50 | ||
| + | Send {vkF3} | ||
clipitalic := "<i>" . clipboard . "</i>" | clipitalic := "<i>" . clipboard . "</i>" | ||
SendInput {Raw}%clipitalic% | SendInput {Raw}%clipitalic% | ||
clipboard := clipsave | clipboard := clipsave | ||
clipitalic =; | clipitalic =; | ||
| + | Send {vkF4} | ||
Return | Return | ||
} | } | ||
| - | ! | + | !t:: |
{ | { | ||
| - | textinput := "お取り下げご希望の場合は下記のコメント欄か、http://nihonbunka. | + | textinput := "お取り下げご希望の場合は下記のコメント欄か、http://nihonbunka.comで掲 |
| - | + | ||
| + | 示されるメールアドレスにご一筆ください。" | ||
| + | Send {vkF3} | ||
SendInput {Raw}%textinput% | SendInput {Raw}%textinput% | ||
| + | Send {vkF4} | ||
Return | Return | ||
} | } | ||
| - | ! | + | !s:: |
{ | { | ||
| - | textinput := " | + | textinput := "お取り下げご希望の場合は下記のコメント欄か、http://souzaisho.comで掲 |
| + | |||
| + | 示されるメールアドレスにご一筆ください。" | ||
| + | Send {vkF3} | ||
SendInput {Raw}%textinput% | SendInput {Raw}%textinput% | ||
| + | Send {vkF4} | ||
Return | Return | ||
} | } | ||
Revision as of 08:14, 19 July 2018
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 }
!t:: { textinput := "お取り下げご希望の場合は下記のコメント欄か、http://nihonbunka.comで掲
示されるメールアドレスにご一筆ください。" Send {vkF3} SendInput {Raw}%textinput% Send {vkF4} Return }
!s:: { textinput := "お取り下げご希望の場合は下記のコメント欄か、http://souzaisho.comで掲
示されるメールアドレスにご一筆ください。" Send {vkF3} SendInput {Raw}%textinput% Send {vkF4} Return }
