marcuskammer/emacs.d
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

use customfile to define hyperspec location

Browse source
This commit is contained in:
Marcus Kammer 2023-02-09 18:24:14 +01:00
parent 002b9a740d
commit f2ec227245
2 changed files with 12 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
bundle/bundle--customfile.el
View file

@ -16,7 +16,11 @@
'(("german" "[[:alpha:]]" "[^[:alpha:]]" "[']" t ("-d" "de_DE_frami,de_AT_frami,de_CH_frami") nil utf-8) '(("german" "[[:alpha:]]" "[^[:alpha:]]" "[']" t ("-d" "de_DE_frami,de_AT_frami,de_CH_frami") nil utf-8)
("english" "[[:alpha:]]" "[^[:alpha:]]" "[']" nil ("-d" "en_US") nil utf-8) ("english" "[[:alpha:]]" "[^[:alpha:]]" "[']" nil ("-d" "en_US") nil utf-8)
("german,english" "[[:alpha:]]" "[^[:alpha:]]" "[']" nil ("-d" "de_DE_frami,en_US") nil utf-8)) ("german,english" "[[:alpha:]]" "[^[:alpha:]]" "[']" nil ("-d" "de_DE_frami,en_US") nil utf-8))
ispell-hunspell-dictionary-alist ispell-local-dictionary-alist)) ispell-hunspell-dictionary-alist ispell-local-dictionary-alist)
(when (file-exists-p "~/Documents/slime_filename_translations.el")
(load-file "~/Documents/slime_filename_translations.el"))
(setq common-lisp-hyperspec-root
(concat "file://" (expand-file-name "~/Documents/sites/lisp-docs/HyperSpec-7-0/HyperSpec/"))))
(when (eq system-type 'windows-nt) (when (eq system-type 'windows-nt)
;; (add-to-list 'exec-path "C:/msys64/mingw64/bin") ;; (add-to-list 'exec-path "C:/msys64/mingw64/bin")
@ -36,6 +40,8 @@
("english" "[[:alpha:]]" "[^[:alpha:]]" "[']" nil ("-d" "en_US") nil utf-8) ("english" "[[:alpha:]]" "[^[:alpha:]]" "[']" nil ("-d" "en_US") nil utf-8)
("german,english" "[[:alpha:]]" "[^[:alpha:]]" "[']" nil ("-d" "de_DE_frami,en_US") nil utf-8)) ("german,english" "[[:alpha:]]" "[^[:alpha:]]" "[']" nil ("-d" "de_DE_frami,en_US") nil utf-8))
ispell-hunspell-dictionary-alist ispell-local-dictionary-alist) ispell-hunspell-dictionary-alist ispell-local-dictionary-alist)
(when (file-exists-p "d:/visua/Documents/slime_filename_translations.el")
(load-file "d:/visua/Documents/slime_filename_translations.el"))
;; (defun powershell (&optional buffer) ;; (defun powershell (&optional buffer)
;; "Launches a powershell in buffer *powershell* and switches to it." ;; "Launches a powershell in buffer *powershell* and switches to it."
@ -47,7 +53,9 @@
(when (string= (system-name) "EVG02667NB") (when (string= (system-name) "EVG02667NB")
(cd "d:/opt") (cd "d:/opt")
(setq custom-file "~/.emacs.d/bundle/custom_win32_EVG02667NB.el"))) (setq custom-file "~/.emacs.d/bundle/custom_win32_EVG02667NB.el")
(setq common-lisp-hyperspec-root
(concat "file:///" (expand-file-name "~/sites/HyperSpec/")))))
;; CUSTOM_FILE ;; CUSTOM_FILE
(load custom-file :noerror) (load custom-file :noerror)

14
bundle/bundle--package.el
View file

@ -153,10 +153,6 @@
slime-editing-commands slime-editing-commands
slime-sbcl-exts)) slime-sbcl-exts))
(progn (progn
(setq common-lisp-hyperspec-root
(let ((file (if (eq system-type 'windows-nt) "file:///" "file://")))
(concat file
(expand-file-name "~/Documents/sites/lisp-docs/HyperSpec-7-0/HyperSpec/"))))
(setq common-lisp-hyperspec-symbol-table (setq common-lisp-hyperspec-symbol-table
(concat common-lisp-hyperspec-root "Data/Map_Sym.txt")) (concat common-lisp-hyperspec-root "Data/Map_Sym.txt"))
(setq common-lisp-hyperspec-issuex-table (setq common-lisp-hyperspec-issuex-table
@ -168,14 +164,8 @@
slime-lisp-implementations `((sbcl (,sbcl-exe "--noinform" "--core" ,sbcl-core)))) slime-lisp-implementations `((sbcl (,sbcl-exe "--noinform" "--core" ,sbcl-core))))
(setq inferior-lisp-program "/usr/bin/sbcl --noinform")) (setq inferior-lisp-program "/usr/bin/sbcl --noinform"))
(let ((helper (expand-file-name "~/quicklisp/slime-helper.el"))) (let ((helper (expand-file-name "~/quicklisp/slime-helper.el")))
(when (file-exists-p helper) (load helper))) (when (file-exists-p helper) (load-file helper))))
(let* ((docs-dir
(if (eq system-type 'windows-nt)
(expand-file-name "d:/visua/Documents")
(expand-file-name "~/Documents")))
(file (concat docs-dir "/slime_filename_translations.el")))
(when (file-exists-p file)
(load-file file))))
(use-package simple-httpd (use-package simple-httpd
:defer t) :defer t)