autohotkey typora 快捷键

C:\my_script\typora\typora - 副本.ahk

;热键标记
; !感叹号代表Alt键
; # 井号代表 Windows 键
; ^ 上三角号代表 Ctrl键
; + 加号代表 Shift 键
; 执行
; ::代表按下前面快捷键后会执行后面的命令。

; Typora
; 快捷增加字体颜色
; SendInput {Text} 解决中文输入法问题

#IfWinActive ahk_exe Typora.exe
{
    ; alt+0 红色
    ;!0::addFontColor("black")

    ; alt+1 红色
    !1::addFontColor("#ef7a82")

    ; alt+1 橙色
    !2::addFontColor("#ffa631") 

     ; alt+3 绿色
    !3::addFontColor("#9ed900")

     ; alt+4 紫色
    !4::addFontColor("#cca4e3")

     ; alt+5 蓝灰色
    !5::addFontColor("#a1afc9") 

    ; alt+6 紫色
    ;!6::addFontColor("purple") 

    ; alt+7 黄色
    ;!7::addFontColor("yellow")

    ; 增加 字体框
    ;!f::addFont()

    ;增加 div 标签
    ;!d::addDiv()

    ;增加 ` 号
    ;!`::addPunctuation()

}

; 快捷增加字体颜色
addFontColor(color){
    clipboard := "" ; 清空剪切板
    Send {ctrl down}c{ctrl up} ; 复制
    SendInput {TEXT}<font style="background-color: %color%;padding:2px 5px;">
    SendInput {ctrl down}v{ctrl up} ; 粘贴
    If(clipboard = ""){
        ; Typora 在这不会自动补充
        SendInput {TEXT}</font> 
        ; 清空剪切板
        clipboard := ""
    }else{
        ; Typora中自动补全标签
        SendInput {TEXT}</
    }

}
; 添加 font 标签
addFont(){
    clipboard := "" ; 清空剪切板
    Send {ctrl down}c{ctrl up} ; 复制
    SendInput {TEXT}<font style="color:;font-size:">
    SendInput {ctrl down}v{ctrl up} ; 粘贴
    If(clipboard = ""){
        SendInput {TEXT}</font> ; Typora 在这不会自动补充
          clipboard := "" ; 清空剪切板
    }else{
        SendInput {TEXT}</ ; Typora中自动补全标签
    } 
}

    ; 添加 Div 标签
addDiv(){
    clipboard := "" ; 清空剪切板
    Send {ctrl down}c{ctrl up} ; 复制
    SendInput {TEXT}<div style="">
    SendInput {ctrl down}v{ctrl up} ; 粘贴
    If(clipboard = ""){
        SendInput {TEXT}</div> ; Typora 在这不会自动补充
          clipboard := "" ; 清空剪切板
    }else{
        SendInput {TEXT}</ ; Typora中自动补全标签
    }
}

addPunctuation(){
    clipboard := "" ; 清空剪切板
    Send {ctrl down}c{ctrl up} ; 复制
    SendInput {TEXT}``
    SendInput {ctrl down}v{ctrl up} ; 粘贴
    SendInput {TEXT}``
}

C:\my_script\typora\typora.ahk

;热键标记
; !感叹号代表Alt键
; # 井号代表 Windows 键
; ^ 上三角号代表 Ctrl键
; + 加号代表 Shift 键
; 执行
; ::代表按下前面快捷键后会执行后面的命令。

; Typora
; 快捷增加字体颜色
; SendInput {Text} 解决中文输入法问题

#IfWinActive ahk_exe Typora.exe
{
    ; alt+0 红色
    ;!0::addFontColor("black")

    ; alt+1 红色
    !1::addFontColor("#ef7a82")

    ; alt+1 橙色
    !2::addFontColor("#ffa631") 

     ; alt+3 绿色
    !3::addFontColor("#9ed900")

     ; alt+4 紫色
    !4::addFontColor("#cca4e3")

     ; alt+5 蓝灰色
    !5::addFontColor("#a1afc9") 

    ; alt+6 紫色
    ;!6::addFontColor("purple") 

    ; alt+7 黄色
    ;!7::addFontColor("yellow")

    ; 增加 字体框
    ;!f::addFont()

    ;增加 div 标签
    ;!d::addDiv()

    ;增加 ` 号
    ;!`::addPunctuation()

}

; 快捷增加字体颜色
addFontColor(color){
    clipboard := "" ; 清空剪切板
    Send {ctrl down}c{ctrl up} ; 复制
    SendInput {TEXT}<font style="background-color: %color%;padding:2px 5px;">
    SendInput {ctrl down}v{ctrl up} ; 粘贴
    If(clipboard = ""){
        ; Typora 在这不会自动补充
        SendInput {TEXT}</font> 
        ; 清空剪切板
        clipboard := ""
    }else{
        ; Typora中自动补全标签
        SendInput {TEXT}</
    }

}
; 添加 font 标签
addFont(){
    clipboard := "" ; 清空剪切板
    Send {ctrl down}c{ctrl up} ; 复制
    SendInput {TEXT}<font style="color:;font-size:">
    SendInput {ctrl down}v{ctrl up} ; 粘贴
    If(clipboard = ""){
        SendInput {TEXT}</font> ; Typora 在这不会自动补充
          clipboard := "" ; 清空剪切板
    }else{
        SendInput {TEXT}</ ; Typora中自动补全标签
    } 
}

    ; 添加 Div 标签
addDiv(){
    clipboard := "" ; 清空剪切板
    Send {ctrl down}c{ctrl up} ; 复制
    SendInput {TEXT}<div style="">
    SendInput {ctrl down}v{ctrl up} ; 粘贴
    If(clipboard = ""){
        SendInput {TEXT}</div> ; Typora 在这不会自动补充
          clipboard := "" ; 清空剪切板
    }else{
        SendInput {TEXT}</ ; Typora中自动补全标签
    }
}

addPunctuation(){
    clipboard := "" ; 清空剪切板
    Send {ctrl down}c{ctrl up} ; 复制
    SendInput {TEXT}``
    SendInput {ctrl down}v{ctrl up} ; 粘贴
    SendInput {TEXT}``
}

C:\my_script\typora\typoraRead.ahk

;热键标记
; !感叹号代表Alt键
; # 井号代表 Windows 键
; ^ 上三角号代表 Ctrl键
; + 加号代表 Shift 键
; 执行
; ::代表按下前面快捷键后会执行后面的命令。

; Typora
; 快捷增加字体颜色
; SendInput {Text} 解决中文输入法问题asssaasaaaaa

#IfWinActive ahk_exe Typora.exe
{
    A::SendInput, {Shift down}{Enter}{Shift up}
    S::SendInput, {Enter}
}

C:\my_script\typora\博客园-Chrome.ahk

;热键标记
; !感叹号代表Alt键
; # 井号代表 Windows 键
; ^ 上三角号代表 Ctrl键
; + 加号代表 Shift 键
; 执行
; ::代表按下前面快捷键后会执行后面的命令。

; Typora
; 快捷增加字体颜色
; SendInput {Text} 解决中文输入法问题

; Define the group: 博客园和typora
GroupAdd, Ms_Ty, ahk_exe Chrome.exe ; 
GroupAdd, Ms_Ty, ahk_exe Typora.exe

#IfWinActive ahk_group Ms_Ty
{
    ; alt+0 红色
    ;!x::addFontColor("black")

    ; alt+1 红色
    !1::addFontColor("#ef7a82")

    ; alt+1 橙色
    !2::addFontColor("#ffa631") 

     ; alt+3 绿色
    !3::addFontColor("#9ed900")

     ; alt+4 紫色
    !4::addFontColor("#cca4e3")

     ; alt+5 蓝灰色
    !5::addFontColor("#a1afc9") 

    ; alt+6 紫色
    ;!6::addFontColor("purple") 

    ; alt+7 黄色
    ;!7::addFontColor("yellow")

}
; 快捷增加字体颜色
addFontColor(color){
    clipboard := "" ; 清空剪切板
    Send {ctrl down}c{ctrl up} ; 复制
    content = %clipboard% 
    SendInput {TEXT}<font style="background-color: %color%;padding:2px 5px;">
    SendInput {ctrl down}v{ctrl up} ; 粘贴
    If(clipboard = ""){
        ; Typora 在这不会自动补充
        SendInput {TEXT}</font> 
        ; 清空剪切板
        clipboard := ""
    }else{
        str1 := "](http"
        str3 := "**"
        flag:= False
        IfInString, content, %str1%
        {
        flag:= True
        }
        IfInString, content, %str3%
        {
        flag:= True
        }
        If flag
        {
            SendInput {TEXT}</font>
        }Else{
             SendInput {TEXT}</
        }
       
    }
}

C:\my_script\typora\博客园.ahk

;热键标记
; !感叹号代表Alt键
; # 井号代表 Windows 键
; ^ 上三角号代表 Ctrl键
; + 加号代表 Shift 键
; 执行
; ::代表按下前面快捷键后会执行后面的命令。

; Typora
; 快捷增加字体颜色
; SendInput {Text} 解决中文输入法问题

; Define the group: 博客园和typora
GroupAdd, Ms_Ty, ahk_exe msedge.exe ; 
GroupAdd, Ms_Ty, ahk_exe Typora.exe

#IfWinActive ahk_group Ms_Ty
{
    ; alt+0 红色
    ;!x::addFontColor("black")

    ; alt+1 红色
    !1::addFontColor("#ef7a82")

    ; alt+1 橙色
    !2::addFontColor("#ffa631") 

     ; alt+3 绿色
    !3::addFontColor("#9ed900")

     ; alt+4 紫色
    !4::addFontColor("#cca4e3")

     ; alt+5 蓝灰色
    !5::addFontColor("#a1afc9") 

    ; alt+6 紫色
    ;!6::addFontColor("purple") 

    ; alt+7 黄色
    ;!7::addFontColor("yellow")

    ; 增加 字体框
    ;!f::addFont()

    ;增加 div 标签
    ;!d::addDiv()

    ;增加 ` 号
    ;!`::addPunctuation()
    
    
    

}

; 快捷增加字体颜色
addFontColor(color){
    clipboard := "" ; 清空剪切板
    Send {ctrl down}c{ctrl up} ; 复制
    SendInput {TEXT}<font style="background-color: %color%;padding:2px 5px;">
    SendInput {ctrl down}v{ctrl up} ; 粘贴
    If(clipboard = ""){
        ; Typora 在这不会自动补充
        SendInput {TEXT}</font> 
        ; 清空剪切板
        clipboard := ""
    }else{
        ; Typora中自动补全标签
        SendInput {TEXT}</
    }

}
; 添加 font 标签
addFont(){
    clipboard := "" ; 清空剪切板
    Send {ctrl down}c{ctrl up} ; 复制
    SendInput {TEXT}<font style="color:;font-size:">
    SendInput {ctrl down}v{ctrl up} ; 粘贴
    If(clipboard = ""){
        SendInput {TEXT}</font> ; Typora 在这不会自动补充
          clipboard := "" ; 清空剪切板
    }else{
        SendInput {TEXT}</ ; Typora中自动补全标签
    } 
}

    ; 添加 Div 标签
addDiv(){
    clipboard := "" ; 清空剪切板
    Send {ctrl down}c{ctrl up} ; 复制
    SendInput {TEXT}<div style="">
    SendInput {ctrl down}v{ctrl up} ; 粘贴
    If(clipboard = ""){
        SendInput {TEXT}</div> ; Typora 在这不会自动补充
          clipboard := "" ; 清空剪切板
    }else{
        SendInput {TEXT}</ ; Typora中自动补全标签
    }
}

addPunctuation(){
    clipboard := "" ; 清空剪切板
    Send {ctrl down}c{ctrl up} ; 复制
    SendInput {TEXT}``
    SendInput {ctrl down}v{ctrl up} ; 粘贴
    SendInput {TEXT}``
}

C:\my_script\typora\博客园高级版.ahk

;热键标记
; !感叹号代表Alt键
; # 井号代表 Windows 键
; ^ 上三角号代表 Ctrl键
; + 加号代表 Shift 键
; 执行
; ::代表按下前面快捷键后会执行后面的命令。

; Typora
; 快捷增加字体颜色
; SendInput {Text} 解决中文输入法问题

; Define the group: 博客园和typora
GroupAdd, Ms_Ty, ahk_exe msedge.exe ; 
GroupAdd, Ms_Ty, ahk_exe Typora.exe

#IfWinActive ahk_group Ms_Ty
{
    ; alt+0 红色
    ;!x::addFontColor("black")

    ; alt+1 红色
    !1::addFontColor("#ef7a82")

    ; alt+1 橙色
    !2::addFontColor("#ffa631") 

     ; alt+3 绿色
    !3::addFontColor("#9ed900")

     ; alt+4 紫色
    !4::addFontColor("#cca4e3")

     ; alt+5 蓝灰色
    !5::addFontColor("#a1afc9") 

    ; alt+6 紫色
    ;!6::addFontColor("purple") 

    ; alt+7 黄色
    ;!7::addFontColor("yellow")

}
; 快捷增加字体颜色
addFontColor(color){
    clipboard := "" ; 清空剪切板
    Send {ctrl down}c{ctrl up} ; 复制
    content = %clipboard% 
    SendInput {TEXT}<font style="background-color: %color%;padding:2px 5px;">
    SendInput {ctrl down}v{ctrl up} ; 粘贴
    If(clipboard = ""){
        ; Typora 在这不会自动补充
        SendInput {TEXT}</font> 
        ; 清空剪切板
        clipboard := ""
    }else{
        str1 := "](http"
        str3 := "**"
        flag:= False
        IfInString, content, %str1%
        {
        flag:= True
        }
        IfInString, content, %str3%
        {
        flag:= True
        }
        If flag
        {
            SendInput {TEXT}</font>
        }Else{
             SendInput {TEXT}</
        }
       
    }
}