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

Put filename translations into --package

Browse source
This commit is contained in:
Marcus Kammer 2023-02-19 17:37:21 +01:00
parent a8c78a7a31
commit e53dcba276
Signed by: marcuskammer
GPG key ID: C374817BE285268F
2 changed files with 9 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
bundle/bundle--customfile.el
View file

@ -36,7 +36,7 @@
;; '(("de_DE_frami" "~/Library/Spelling/de_DE_frami.aff") ;; '(("de_DE_frami" "~/Library/Spelling/de_DE_frami.aff")
;; ("en_US" "/usr/share/hunspell/en_US.aff"))) ;; ("en_US" "/usr/share/hunspell/en_US.aff")))
(defvar mk/slime-filename-translations "~/Documents/slime_filename_translations.el")) )
(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")
@ -48,7 +48,6 @@
(setq custom-file "~/.emacs.d/bundle/custom_win32.el") (setq custom-file "~/.emacs.d/bundle/custom_win32.el")
(setq org-babel-python-command "python") (setq org-babel-python-command "python")
(defvar mk/slime-filename-translations "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."

11
bundle/bundle--package.el
View file

@ -161,10 +161,15 @@
inferior-lisp-program "sbcl" inferior-lisp-program "sbcl"
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"))
(when (file-exists-p mk/slime-filename-translations)
(load-file mk/slime-filename-translations))
(let ((helper (expand-file-name "~/quicklisp/slime-helper.el"))) (let ((helper (expand-file-name "~/quicklisp/slime-helper.el")))
(when (file-exists-p helper) (load-file helper)))) (when (file-exists-p helper) (load-file helper)))
(let ((hunchentoot
(slime-create-filename-translator
:machine-instance "hunchentoot"
:remote-host "hunchentoot.metaebene.dev"
:username "marcus")))
(push hunchentoot slime-filename-translations)))
(use-package simple-httpd (use-package simple-httpd
:defer t) :defer t)