Autohotkey Scripts

From notebook

(Difference between revisions)
Jump to: navigation, search
(Created page with "; 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 ^, c...")
 
(10 intermediate revisions not shown)
Line 1: Line 1:
 +
Copy the below in EDIT mode, not straight from this page prior to entering edit mode! The one below the **** is better. I am not even sure if the one above is needed.
 +
; to remove commas, ampersands and et al. so as to make it easier to search for citations in Zotero
; to remove commas, ampersands and et al. so as to make it easier to search for citations in Zotero
^,::
^,::
Line 10: Line 12:
StringReplace, clipboard, clipboard, et al.,, All
StringReplace, clipboard, clipboard, et al.,, All
Return
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 := "<b>" . clipboard . "</b>"
 +
SendInput {Raw}%clipstrong%
 +
clipboard := clipsave
 +
clipstrong =;
 +
Send {vkF4}
 +
Return
 +
}
 +
 +
!u::
 +
{
 +
Sleep, 100
 +
clipsave := clipboard
 +
Send ^c
 +
Sleep, 50
 +
Send {vkF3}
 +
clipunder := "<u>" . clipboard . "</u>"
 +
SendInput {Raw}%clipunder%
 +
clipboard := clipsave
 +
clipunder =;
 +
Send {vkF4}
 +
Return
 +
}
 +
 +
!i::
 +
{
 +
Sleep, 100
 +
clipsave := clipboard
 +
Send ^c
 +
Sleep, 50
 +
Send {vkF3}
 +
clipitalic := "<i>" . clipboard . "</i>"
 +
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
 +
}
 +
 +
 +
****************************************************************
 +
#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.
 +
 +
^space::  ;CTRL+SPACE - it will append " - AlwaysOnTop" to windows when they are AlwaysOnTop
 +
  WinGetActiveTitle, t
 +
  WinGet, ExStyle, ExStyle, %t%
 +
  if (ExStyle & 0x8)
 +
  {
 +
    WinSet, AlwaysOnTop, Off, %t%
 +
    WinSetTitle, %t%,, % RegexReplace(t, " - AlwaysOnTop")
 +
  }
 +
  else
 +
  {
 +
    WinSet, AlwaysOnTop, On, %t%
 +
    WinSetTitle, %t%,, %t% - AlwaysOnTop
 +
  }
 +
return
 +
 +
^,::
 +
{
 +
; 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 write your own opinion preceded by “This summary agrees / This summary argues however that...
 +
 +
:COT:pip::Please use first-line indented paragraphs, as is common in academic writing, rather than “blocked paragraphs” as is common in business letters.
 +
 +
:COT:duh::Don't use "his," nor "his/her" 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:pup::Please use the plural to refer to generalities such as humans (not "the human" nor "a human"). The sounds pompous. "a human" is often grammatically wrong.
 +
 +
: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:pum::Please generally use “make a decision” not “take a decision”. Taking a decision is different from making a decision, and comes at the end of the decision making process.
 +
 +
:COT:dus::Avoid the use of "should" unless you give the reason why. If you use "should" without a reason, you sound like a moralist, passing judgement on others.
 +
 +
:COT:pnf::Please name the file starting with your family name.
 +
 +
:COT:duetc::Please don't use "etc" nor "and so on" because they are informal. Use "such as" instead, before the list.
 +
 +
:COT:dui::Please avoid the use of pronouns such as "it" and "this" and "that" but instead repeat what you want to say, unless it is *completely* cleat what "it"/"that"/"this" refers to. The meaning of your pronoun is not clear in the above.
 +
 +
:COT:dut::Please avoid using "the" especially before plurals where it is generally not needed.
 +
 +
:COT:dam::First please go to the "Review" ribbon in Word and display "All Markup" (please see attached file).
 +
 +
: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: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 := "<b>" . clipboard . "</b>"
 +
SendInput {Raw}%clipstrong%
 +
clipboard := clipsave
 +
clipstrong =;
 +
Return
 +
}
 +
 +
!i::
 +
{
 +
Sleep, 100
 +
clipsave := clipboard
 +
Send ^c
 +
Sleep, 50
 +
clipitalic := "<i>" . clipboard . "</i>"
 +
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
 +
}

Latest revision as of 04:39, 8 March 2024

Copy the below in EDIT mode, not straight from this page prior to entering edit mode! The one below the **** is better. I am not even sure if the one above is needed.

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.

^space::  ;CTRL+SPACE - it will append " - AlwaysOnTop" to windows when they are AlwaysOnTop 

 WinGetActiveTitle, t
 WinGet, ExStyle, ExStyle, %t%
 if (ExStyle & 0x8)
 {
   WinSet, AlwaysOnTop, Off, %t%
   WinSetTitle, %t%,, % RegexReplace(t, " - AlwaysOnTop")
 }
 else
 {
   WinSet, AlwaysOnTop, On, %t%
   WinSetTitle, %t%,, %t% - AlwaysOnTop
 }

return

^,:: {

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 write your own opinion preceded by “This summary agrees / This summary argues however that...
COT:pip::Please use first-line indented paragraphs, as is common in academic writing, rather than “blocked paragraphs” as is common in business letters.
COT:duh::Don't use "his," nor "his/her" 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:pup::Please use the plural to refer to generalities such as humans (not "the human" nor "a human"). The sounds pompous. "a human" is often grammatically wrong.
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:pum::Please generally use “make a decision” not “take a decision”. Taking a decision is different from making a decision, and comes at the end of the decision making process.
COT:dus::Avoid the use of "should" unless you give the reason why. If you use "should" without a reason, you sound like a moralist, passing judgement on others.
COT:pnf::Please name the file starting with your family name.
COT:duetc::Please don't use "etc" nor "and so on" because they are informal. Use "such as" instead, before the list.
COT:dui::Please avoid the use of pronouns such as "it" and "this" and "that" but instead repeat what you want to say, unless it is *completely* cleat what "it"/"that"/"this" refers to. The meaning of your pronoun is not clear in the above.
COT:dut::Please avoid using "the" especially before plurals where it is generally not needed.
COT:dam::First please go to the "Review" ribbon in Word and display "All Markup" (please see attached file).
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: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 }

Retrieved from "http://nihonbunka.com/wiki/index.php?title=Autohotkey_Scripts"
Personal tools