Scite Make Monospace

wiki

只要再寫一點程式碼，就能自動讓某些類型的檔案以等寬字型開啟。這樣就能建立一個混和等寬字型和比例字型的環境，而不用一直按 Ctrl+F11。

這個腳本會覆寫一般的樣式屬性，強制一個緩衝區採用等寬模式。它使用 extman 掛勾到 OnSwitchFile。

-----------------------------------------------------------------------
-- makes a buffer monospace <khman@users.sf.net> public domain 20060906
-----------------------------------------------------------------------
-- [[
scite_Command('Make Monospace|MakeMonospace|Ctrl+8')

function MakeMonospace()
  local MonoFont, MonoSize = "Courier New", 9
  local SIG = "MakeMonospace"
  local function AllMono()
    for i = 0, 127 do
      editor.StyleFont[i] = MonoFont
      editor.StyleSize[i] = MonoSize
    end
    editor:Colourise(0, -1)
  end
  scite_OnSwitchFile(function() if buffer[SIG] then AllMono() return true end end)
  buffer[SIG] = true
  AllMono()
end
--]]

  -- retrieve monospace font information
  local StyleMono = {}
  local monoprop = props["font.monospace"]
  for style, value in string.gfind(monoprop, "([^,:]+):([^,]+)") do
    StyleMono[style] = value
  end
  -- grab styles, assuming they are defined
  MonoFont = StyleMono.font
  MonoSize = tonumber(StyleMono.size)

function ToggleMonospace()
    scite.MenuCommand(450)
    return false
end

scite_OnOpen(ToggleMonospace)

若要確保新建立的檔案以等寬模式開始，試著這樣做

function ToggleMonospace()
  -- the buffer table is provided for user data
  if buffer and not buffer["MadeMonospace"] then
    scite.MenuCommand(IDM_MONOFONT)
    buffer["MadeMonospace"] = true
  end
end

function OpenMonospace(filename) 
  if filename ~= "" then 
    ToggleMonospace()
  end
end

-- OnOpen event (with empty filename) is generated when SciTE starts
--  with new file, but not when File->New creates another new file tab.
scite_OnOpen(OpenMonospace)  -- for opening existing file
scite_OnSavePointLeft(ToggleMonospace) -- first character typed in new file