fredefox/dotfiles
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Load packages from lisp directory

Browse source
This commit is contained in:
Frederik Hanghøj Iversen 2019-04-07 22:25:37 +01:00
parent 00dfa7a0e5
commit 9844a205a3
1 changed files with 19 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
emacs.el
View file

@ -116,13 +116,24 @@
"agda-mode" "agda-mode"
"psc-ide-emacs")) "psc-ide-emacs"))
;; TODO: Use the following pattern (setenv "XDG_CONFIG_HOME" (substitute-in-file-name "$HOME/.config"))
;; (substitute-in-file-name "$XDG_DATA_HOME/emacs/libs/%s") (setenv "XDG_DATA_HOME" (substitute-in-file-name "$HOME/.local/share"))
(setenv "XDG_CACHE_HOME" (substitute-in-file-name "$HOME/.cache"))
(add-to-list 'load-path "~/.config/emacs/libs/agda-mode/") ;; (let* ((additional-packages
(add-to-list 'Info-default-directory-list "~/.config/emacs/libs/agda-mode/") ;; (list
(add-to-list 'load-path "~/.config/emacs/libs/psc-ide-emacs/") ;; "agda-mode"
(add-to-list 'Info-default-directory-list "~/.config/emacs/libs/psc-ide-emacs/") ;; "psc-ide-emacs"))
;; (libs (substitute-in-file-name "$XDG_CONFIG_HOME/emacs/libs"))
;; (add-package (lambda (package)
;; (let ((p (format "%s/%s" libs package)))
;; (print p)
;; (add-to-list 'load-path p)
;; (add-to-list 'Info-default-directory-list p)))))
;; (mapc add-package additional-packages))
(let ((default-directory (substitute-in-file-name "$XDG_CONFIG_HOME/emacs/lisp")))
(normal-top-level-add-subdirs-to-load-path))
(require 'agda2-mode) (require 'agda2-mode)
@ -175,6 +186,7 @@
(require 'dashboard) (require 'dashboard)
(dashboard-setup-startup-hook) (dashboard-setup-startup-hook)
;; FIXME: My MAC is not loading the place where I set `XDG_DATA_HOME`
(setq dashboard-startup-banner (substitute-in-file-name "$HOME/.local/share/emacs/banner.png")) (setq dashboard-startup-banner (substitute-in-file-name "$HOME/.local/share/emacs/banner.png"))
(setq dashboard-items '((recents . 40))) (setq dashboard-items '((recents . 40)))
@ -195,6 +207,7 @@
(global-set-key (kbd "C-x g") 'magit-status) (global-set-key (kbd "C-x g") 'magit-status)
(global-set-key (kbd "C-x M-g") 'magit-dispatch-popup) (global-set-key (kbd "C-x M-g") 'magit-dispatch-popup)
(require 'haskell)
;;;; Ruby ;;;; Ruby
(require 'ruby-mode) (require 'ruby-mode)