WIN下scheme語言編程環(huán)境的搭建

• 概要
• • 下載并安裝emacs
  • 下載并安裝chezscheme
  • 配置
  • 使用
  • 尾聲

概要

在windows系統(tǒng)下(并不合適,阻力好大),使用chezscheme+emacs 搭建scheme語言的編程環(huán)境.

下載并安裝emacs

請自行搜索并下載安裝emacs(用來和語言實現(xiàn)交互的文本編輯器)

下載并安裝chezscheme

在Github是有windows系統(tǒng)可用的安裝包的,安裝chezscheme后記得將要用的.exe文件配置到win系統(tǒng)的系統(tǒng)環(huán)境變量path中.一般會有兩個版本的.exe文件,線程功能不同.
下文中 M 表示 Alt C 表示 Ctrl C-c 表示 Ctrl+c

配置

修改emacs/site-lisp下的subdirs.el,添加以下幾行

`(defun fullpath-relative-to-call-location (file-path) (concat (file-name-directory (or load-file-name buffer-file-name)) file-path))

(defalias 'fullpath 'fullpath-relative-to-call-location)

(load (fullpath “…/CFG/init.el”) )`

注意CFG會在subdirs.el的上一級路徑中,比如subdirs.el位于…\emacs-28.1\share\emacs\site-lisp,那么CFG就應當在…\emacs-28.1\share\emacs中

參考博文 https://blog.csdn.net/weixin_33208391/article/details/116579680
2. 在路徑 *…\emacs-24.3* 中新建 CFG 文件夾
3. 在CFG文件家中建立init.el文件(可以新建文本文件,將后綴.txt改為.el,查看不了文件后綴的,自行搜索解決)
4. 打開init.el文件,在其中粘貼以下代碼:

(message "Init init.el!") ;;-SET-ENVIRONMENT-------------------------------------------------------------------------------------------- (setq jinz-default-dir (concat default-directory "/../CFG")) (setq jinz-default-path (concat default-directory "/..")) (setq source-directory (concat jinz-default-path "/24.3")) (setq-default frame-title-format (concat "%b - e@" (system-name))) (setq user-init-file jinz-default-path) (setq user-emacs-directory jinz-default-dir) (setenv "HOME" jinz-default-dir) (setenv "PATH" jinz-default-path) ;; set the default file path (add-to-list 'load-path jinz-default-dir) ;; window-system 表示是否為x窗體,其判斷為: ;; (if window-system nil) ;; (if (not window-system) nil);; system-type 表示系統(tǒng)類型 (cond((string-equal system-type "windows-nt") ; Microsoft Windows(progn(message "Microsoft Windows") ))((string-equal system-type "darwin") ; Mac OS X(progn(message "Mac OS X")))((string-equal system-type "gnu/linux") ; linux(progn(message "Linux") )))

CFG文件夾中新建 .emacs 文件(emacs配置文件),打開后在其中粘貼如下代碼:

(custom-set-variables;; custom-set-variables was added by Custom.;; If you edit it by hand, you could mess it up, so be careful.;; Your init file should contain only one such instance.;; If there is more than one, they won't work right.'(case-fold-search nil)'(column-number-mode t)'(cua-mode t nil (cua-base))'(current-language-environment "utf-8")'(safe-local-variable-values (quote ((package . net\.aserve\.client) (package . net\.aserve) (package . net\.html\.generator))))'(show-paren-mode t)'(text-mode-hook (quote (text-mode-hook-identify)))'(uniquify-buffer-name-style (quote forward) nil (uniquify))) (custom-set-faces;; custom-set-faces was added by Custom.;; If you edit it by hand, you could mess it up, so be careful.;; Your init file should contain only one such instance.;; If there is more than one, they won't work right.) ;============================================ (set-language-environment "utf-8") ;注意,下行不能u8,否則打開漢語名文件不顯示內容 (setq file-name-coding-system 'gb18030) (set-buffer-file-coding-system 'utf-8) (set-terminal-coding-system 'utf-8) (set-keyboard-coding-system 'utf-8) (set-selection-coding-system 'utf-8) (set-next-selection-coding-system 'utf-8) (set-default-coding-systems 'utf-8) (set-clipboard-coding-system 'utf-8) (setq ansi-color-for-comint-mode t) (modify-coding-system-alist 'process "*" 'utf-8) (setq-default pathname-coding-system 'utf-8) (prefer-coding-system 'utf-8) (setq default-process-coding-system '(utf-8 . utf-8)) (setq locale-coding-system 'utf-8) (setq default-buffer-file-coding-system 'utf-8) (setq slime-net-coding-system 'utf-8-unix) ;;=============================== ;設置行號 (global-linum-mode 1) (setq linum-format "%d") (set-cursor-color "white") (set-mouse-color "blue") (set-foreground-color "green") (set-background-color "black") (set-border-color "lightgreen") (set-face-foreground 'highlight "red") (set-face-background 'highlight "lightblue") (set-face-foreground 'region "darkcyan") (set-face-background 'region "lightblue") (set-face-foreground 'secondary-selection "skyblue") (set-face-background 'secondary-selection "darkblue") ;將幫助命令綁定到 F1鍵 (global-set-key [f1] 'help-command) (global-set-key "\C-c\M-q" 'slime-reindent-defun);;;======================================注意可移動模式，不然每次都要改 ;;;關于scheme需要的包 ;注意有時路徑不對依舊可以啟動scheme-mode ;下行需使用scheme.exe所在的路徑 (add-to-list 'exec-path "C:\\Program Files\\Chez Scheme 9.5\\bin\\ta6nt") (add-to-list 'load-path "C:\\Program Files\\Chez Scheme 9.5\\bin\\ta6nt");paredit是一個插件,M+x paredit-mode啟動, (autoload 'paredit-mode "paredit""Minor mode for pseudo-structurally editing Lisp code."t);; scheme配置 (require 'cmuscheme) ;ALT+x scheme-mode 即可對一個buffer開啟scheme模式 (setq scheme-program-name "scheme");; bypass the interactive question and start the default interpreter (defun scheme-proc ()"Return the current Scheme process, starting one if necessary."(unless (and scheme-buffer(get-buffer scheme-buffer)(comint-check-proc scheme-buffer))(save-window-excursion(run-scheme scheme-program-name)))(or (scheme-get-process)(error "No current process. See variable `scheme-buffer'")))(defun scheme-split-window ()(cond((= 1 (count-windows))(delete-other-windows)(split-window-vertically (floor (* 0.68 (window-height))))(other-window 1)(switch-to-buffer "*scheme*")(other-window 1))((not (find "*scheme*"(mapcar (lambda (w) (buffer-name (window-buffer w)))(window-list)):test 'equal))(other-window 1)(switch-to-buffer "*scheme*")(other-window -1))))(defun scheme-send-last-sexp-split-window ()(interactive)(scheme-split-window)(scheme-send-last-sexp))(defun scheme-send-definition-split-window ()(interactive)(scheme-split-window)(scheme-send-definition))(add-hook 'scheme-mode-hook(lambda ()(paredit-mode 1)(define-key scheme-mode-map (kbd "<f5>") 'scheme-send-last-sexp-split-window)(define-key scheme-mode-map (kbd "<f6>") 'scheme-send-definition-split-window)))

5.geiser配置,在.emacs文件中加入如下代碼(記得將geiser解壓到CFG/.emacs.d/路徑下,沒有的話,請去github下載geiser):

(load-file "~/.emacs.d/geiser-0.9/elisp/geiser.el") ; (setq geiser-active-implementations '(chez))

geiser可以幫助emacs和chezscheme更好地交流,解決很多奇怪的問題, geiser是有使用手冊的, 不長, C-c C-z 估計是最常用的:)
6.scheme代碼自動索引和補全的配置,需要插件popup , fuzzy , pos-tip, auto-complete以及ac-geiser,這些都需要去github下載,解壓到CFG/.emacs.d/路徑下配置到emacs能找到就OK了

;; ==============================================代碼自動補全============================== ;; ac的前件 ;(setq expls '(popup fuzzy)) ;(map 'require expls) (add-to-list 'load-path "~/.emacs.d") (require 'popup) (require 'fuzzy)(add-to-list 'load-path "~/.emacs.d/auto-complete") (require 'auto-complete) (require 'auto-complete-config)(global-auto-complete-mode t) ;全局自動補全;; 使用自帶字典 (add-to-list 'ac-dictionary-directories "~/.emacs.d/auto-complete/dict") (ac-config-default);; 輸入2個字符才開始補全 (setq ac-auto-start 2);; 0輸入即開始補全的快捷鍵 (global-set-key "\M-/" 'auto-complete) ;; 使用增強的pos-tip (require 'pos-tip) (setq ac-quick-help-prefer-pos-tip t);;使用quick-help (setq ac-use-quick-help t) (setq ac-quick-help-delay 0.5);; Show 0.8 second later (setq ac-auto-show-menu 0.8);;設置tab的使用模式--?? ;;(setq ac-dwim t);;?使用fuzzy的模糊匹配 (setq ac-fuzzy-enable t);;菜單參數 (setq ac-menu-height 12) (set-face-background 'ac-candidate-face "lightgray") (set-face-underline 'ac-candidate-face "darkgray") (set-face-background 'ac-selection-face "steelblue") ;; =========================================== ac-geiser配置======================== (add-to-list 'load-path "~/.emacs.d/ac-geiser") (require 'ac-geiser) (add-hook 'geiser-mode-hook 'ac-geiser-setup) (add-hook 'geiser-repl-mode-hook 'ac-geiser-setup) (eval-after-load "auto-complete"'(add-to-list 'ac-modes 'geiser-repl-mode))

CFG文件夾中放入paredit.el文件(一個編輯器插件,用來高效處理lisp代碼,提供括號自動匹配等功能)paredit.el應該也是可以下載到的.

使用

emacs運行后,按C-c C-z, chezscheme就啟動了

或者新建.ss文件,拖動到emacs窗口,再C-c C-z

接下來愉快地彈奏代碼就OK.

尾聲

目前就這樣了,還請各位多多指教.

總結

以上是生活随笔為你收集整理的windows系统下scheme语言编程环境的搭建的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。