feat(init): Reintroduce sly configuration

Sly is back!
This commit is contained in:
Vincent Ambo 2018-06-28 11:02:24 +02:00 committed by Vincent Ambo
parent 47ba177c00
commit 660fc549f4

26
init.el
View file

@ -66,7 +66,7 @@
(use-package s) (use-package s)
(use-package smartparens :init (smartparens-global-mode)) (use-package smartparens :init (smartparens-global-mode))
(use-package string-edit) (use-package string-edit)
(use-package telephone-line :init (telephone-line-setup)) (use-package telephone-line) ;; configuration happens outside of use-package
(use-package undo-tree :init (global-undo-tree-mode)) (use-package undo-tree :init (global-undo-tree-mode))
(use-package uuidgen) (use-package uuidgen)
(use-package which-key :init (which-key-mode t)) (use-package which-key :init (which-key-mode t))
@ -139,11 +139,6 @@
(use-package web-mode) (use-package web-mode)
(use-package yaml-mode) (use-package yaml-mode)
;; (use-package sly
;; :init
;; (setq inferior-lisp-program (concat (nix-store-path "sbcl") "/bin/sbcl"))
;; (add-to-list 'company-backends 'sly-company))
;; ;;
;; EXWM / NixOS related packages ;; EXWM / NixOS related packages
;; ;;
@ -152,16 +147,11 @@
(setq custom-file (concat user-emacs-directory "init/custom.el")) (setq custom-file (concat user-emacs-directory "init/custom.el"))
(load custom-file) (load custom-file)
(defvar home-dir) (defvar home-dir (expand-file-name "~"))
(setq home-dir (expand-file-name "~"))
;; Seed RNG ;; Seed RNG
(random t) (random t)
;; Load configuration that makes use of installed packages:
;; Emacs will automatically initialise all installed packages.
;; After initialisation, proceed to load configuration that requires packages:
(defun load-other-settings () (defun load-other-settings ()
(mapc 'require '(nixos (mapc 'require '(nixos
mail-setup mail-setup
@ -172,7 +162,17 @@
bindings bindings
term-setup term-setup
eshell-setup eshell-setup
))) ))
(telephone-line-setup)
(use-package sly
:init (setq inferior-lisp-program (concat (nix-store-path "sbcl") "/bin/sbcl"))
;;(add-to-list 'company-backends 'sly-company)
))
;; Some packages can only be initialised after the rest of the
;; settings has been applied:
(add-hook 'after-init-hook 'load-other-settings) (add-hook 'after-init-hook 'load-other-settings)
(put 'narrow-to-region 'disabled nil) (put 'narrow-to-region 'disabled nil)