Autohotkey Scripts

From notebook

Revision as of 04:11, 4 January 2021

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 }

1. NoEnv  ; FROM BH Recommended for performance and compatibility with future AutoHotkey releases.

#Warn  ; Enable warnings to assist with detecting common errors.

SendMode Input  ; Recommended for new scripts due to its superior speed and reliability. SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.

^,:: {

blank the clipboard so clipwait will work correctly

with sending ^c

clipboard := "" send ^c ClipWait, 1 StringReplace, clipboard, clipboard, `,,, All StringReplace, clipboard, clipboard, `&,, All StringReplace, clipboard, clipboard, et al.,, All Return }

COT:pwo::Please give your own opinion preceded by “This summary agrees / This summary argues however that...

COT:duh::Don't use "his," please use a plural (such as individuals, people, subjects) and "their"

COT:aws::Academic Writing Suggestions

COT:pfe::Please find enclosed my suggestions for corrections to your Academic Writing Text. Sincerely, Takemoto

COT:yvu::英会話担当の武本です。宿題のビデオを添削しようと思いましたが、ビデオが閲覧できません。閲覧できるようにしていただけますか？よろしくお願いいたします。

COT:dup::日本語のplayは何でも楽しいことですが、英語のplayは球技やボードゲームやパソコンなどのゲーム機のゲームのみですので、we can have fun at/ we can hang out at (米国っぽいですが、遊ぶ）, we can have a good time atがよいです。

COT:aoi::時間の前置詞は　時点の前はat 期間の前はin、おして時点と期間の間？の曜日・誕生日・お正月など（24時間という意味の）日の前はon

COT:dul::Please avoid using the word "life" because it refers to the opposite of death. If your statement could not apply to dead people then there is no need to say "life."

COT:snn::参考文献一覧表にありませんので、参考文献一覧表に加えるか、どの教科書で読んだかを加えていただきたいです。

COT:duk::卒論のチェックリスト（１６）にありますように、「ではないであろうか」「はなぜだろうか」など読者に質問しないこと。質問を使うと著者（私・主観）と読者の対話になりますが、学術論文はなるべく主観を排除した、客観性を見せかける・主張する文です。

$^+v:: ; CTRL+SHIFT+V { ClipSaved := ClipboardAll ;save original clipboard contents clipboard = %clipboard% ;remove formatting Send ^v ;send the Ctrl+V command Clipboard := ClipSaved ;restore the original clipboard contents ClipSaved = ;clear the variable Return }

!1:: { Sleep, 100 clipurl := clipboard Send ^c Sleep, 50 clipurl := "<a href=""" . clipurl . """>" . clipboard . "</a>" SendInput {Raw}%clipurl% clipboard := clipurl clipurl =; Return }

!b:: { Sleep, 100 clipsave := clipboard Send ^c Sleep, 50 clipstrong := "" . clipboard . "" SendInput {Raw}%clipstrong% clipboard := clipsave clipstrong =; Return }

!i:: { Sleep, 100 clipsave := clipboard Send ^c Sleep, 50 clipitalic := "" . clipboard . "" SendInput {Raw}%clipitalic% clipboard := clipsave clipitalic =; Return }

!t:: { textinput := "お取り下げご希望の場合は下記のコメント欄か、http://nihonbunka.comで掲示されるメールアドレスにご一筆ください。 " SendInput {Raw}%textinput% Return }

!^+t:: { 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% Return }

!d:: { textinput := "Don't use “his,” please use a plural (such as individuals, people, subjects) and “their”" SendInput {Raw}%textinput% Return }

!p:: { textinput := "Please give your own opinion preceded by “This summary agrees / This summary argues however that...”" SendInput {Raw}%textinput% Return }