Emacs settings.
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

26 lines
988 B

2 years ago
Set objShell = WScript.CreateObject("WScript.Shell")
' objShell.Run "runemacs.exe -q --load E:\WorkSpace\Emacs\init.el", 0, false
' <EFBFBD>Ȼ<EFBFBD>ȡvbs<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ŀ¼, Ȼ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>·<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȡ<EFBFBD><EFBFBD>Emacs<EFBFBD><EFBFBD>ʼ<EFBFBD>ļ<EFBFBD>
' Ŀ¼<EFBFBD>
' X:\BaiduSync\Emacs\init.el
' X:\Software\Emacs\bin\runemacs.exe
' X:\Software\Emacs\bin\emacs.vbs
' <EFBFBD><EFBFBD>ȡ<EFBFBD><EFBFBD>ǰ<EFBFBD><EFBFBD><EFBFBD>нű<EFBFBD>(emacs.vbs)<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>·<EFBFBD><EFBFBD>
scriptPath = WScript.ScriptFullName
' <EFBFBD><EFBFBD><EFBFBD>ݽű<EFBFBD>·<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Լ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ŀ¼<EFBFBD>ṹ, <EFBFBD><EFBFBD>ȡEmacs<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>init.el<EFBFBD>ļ<EFBFBD>·<EFBFBD><EFBFBD>
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
basePath = fso.GetParentFolderName(fso.GetParentFolderName(fso.getParentFolderName(scriptPath)))
baiduSyncPath = fso.BuildPath(basePath, "BaiduSyncdisk")
softwarePath = fso.BuildPath(basePath, "Software")
emacsPath = fso.BuildPath(softwarePath, "Emacs\bin\runemacs.exe")
initelPath = fso.BuildPath(baiduSyncPath, "Emacs\init.el")
' <EFBFBD><EFBFBD><EFBFBD><EFBFBD>Emacs
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run emacsPath & " -q --load " & initelPath, 0, false