引言

在typora里面有一個自定義的高亮,

<mark></mark>>

但是單一顏色就太難看了, 我使用人工智能, 搜索全網藝術家, 匯集了幾種好看的格式,并且方便大家側鍵一鍵 調用, 是不是太方便啦 !

示例

午夜模式

春意盎然

深海藍調

石墨文檔

秋日暖陽

蜜桃宣言

使用方法

在typora里面, 選中內容后, 按下 鼠標第二個側鍵(前后側鍵, 后面的那個側鍵)或者按下ctrl+D

即可一鍵改色

雙擊typora_highlight.exe 即可

選中文本, 按下ctrl+D

或者鼠標側鍵

按下ctrl+alt+D 就可以選擇自己喜歡的樣式了

腳本下載

跳轉

腳本自啟動方法

跳轉

源碼自定義編輯生成exe文件方法

跳轉

源碼附錄

#NoEnv
#SingleInstance force; 配置文件路徑
configFile := A_ScriptDir "\config.ini"; 定義樣式方案
styles := {}
styles["秋日暖陽"] := "<span style=""background:#FFF8E1; color:#BF360C; padding:0.2em 0.5em; border:1px solid #FFE082; border-radius:3px"">{text}</span>"
styles["石墨文檔"] := "<span style=""background:#F5F5F5; color:#424242; padding:0.15em 0.3em; border-left:3px solid #9E9E9E"">{text}</span>"
styles["深海藍調"] := "<span style=""background:#E3F2FD; color:#1565C0; padding:0.15em 0.4em; box-shadow:0 1px 3px rgba(21,101,192,0.1)"">{text}</span>"
styles["午夜模式"] := "<span style=""background:#37474F; color:#ECEFF1; padding:0.15em 0.35em; text-shadow:0 1px 1px rgba(0,0,0,0.3)"">{text}</span>"
styles["春意盎然"] := "<span style=""background:#E8F5E9; color:#2E7D32; padding:0.15em 0.4em; border-radius:12px; box-shadow:0 2px 4px rgba(46,125,50,0.1)"">{text}</span>"
styles["蜜桃宣言"] := "<span style=""background:#FFE0E0; color:#8B0000; padding:0.2em 0.6em; border:2px solid #FFB3BA; font-weight:600"">{text}</span>"
styles["石墨文檔（合同條款）"] := "<span style=""background:#F0F0F0; color:#000000; padding:0.1em 0.3em; border-left:4px solid #808080; font-family:等線"">{text}</span>"; 讀取配置文件中的當前樣式，默認使用“秋日暖陽”
IniRead, currentStyle, %configFile%, Settings, Style, 秋日暖陽; 確保 currentStyle 存在于 styles 中
if !styles.HasKey(currentStyle)currentStyle := "秋日暖陽"; 快捷鍵 Ctrl+D：應用當前樣式
XButton1::
^d::; 確保在 Typora 中操作if !WinActive("ahk_exe Typora.exe"){MsgBox, 請在 Typora 中使用此快捷鍵。return}; 每次應用樣式時，從配置文件中讀取當前樣式IniRead, currentStyle, %configFile%, Settings, Style, 秋日暖陽if !styles.HasKey(currentStyle)currentStyle := "秋日暖陽"Send, ^x          ; 剪切選中的文字Sleep, 100        ; 等待 100 毫秒ClipWait, 2       ; 等待剪貼板內容，最多 2 秒if ErrorLevel{MsgBox, 未能獲取選中文字，請重試。return}selectedText := clipboardtemplate := styles[currentStyle]highlightedText := StrReplace(template, "{text}", selectedText)clipboard := highlightedTextSleep, 100        ; 等待 100 毫秒Send, ^v          ; 粘貼回去Sleep, 100        ; 延時Send, {Space}     ; 加個空格，快速顯示原文Sleep, 100        ; 延時Send, ^s          ; 保存原文Sleep, 100        ; 延時
return; 快捷鍵 Ctrl+Alt+D：選擇樣式
^!d::Gui, StyleSelector:New, , 選擇樣式Gui, Add, Text, , 請選擇一個樣式:for styleName in styles{Gui, Add, Button, gSelectStyle, %styleName%}Gui, Show
return; 選擇樣式后更新 currentStyle 并保存到配置文件
SelectStyle:Gui, SubmitselectedStyle := A_GuiControlcurrentStyle := selectedStyleIniWrite, %currentStyle%, %configFile%, Settings, StyleGui, DestroyMsgBox, 已選擇樣式: %currentStyle%
return