all repos — nixfiles @ cb812e671e45bea0c33a7361f1bd7262f020c46c

System and user configuration, managed by nix and home-manager

Emacs: remove customisation of byte-compile-dest-file for init.el Instead, rely on installer creating a symlink to ~/projects/dotfiles/init.elc

Alan Pearce
commit

cb812e671e45bea0c33a7361f1bd7262f020c46c

parent

41eefb4a28f5aae4ab78e73cbcb925117b1076ea

3 files changed, 2 insertions(+), 18 deletions(-)

changed files
M emacs/elisp/ap-functions.elemacs/elisp/ap-functions.el
@@ -26,17 +26,6 @@ (error (message "Invalid expression")
(insert (current-kill 0))))) ;;;###autoload -(defun ap/byte-compile-get-dest (filename) - (let ((basename (file-name-nondirectory filename)) - (dirname (file-name-directory filename))) - (cond - ((string-equal basename "init.el") - (if (file-exists-p (concat user-emacs-directory "init.el")) - (concat user-emacs-directory "init.elc"))) - (t (let (byte-compile-dest-file-function) - (byte-compile-dest-file filename)))))) - -;;;###autoload (defun shell-execute (to-current-buffer) (interactive "P") (let ((file-buffer (if (buffer-file-name)
M emacs/init.elemacs/init.el
@@ -877,8 +877,7 @@ :bind (("M-z" . zap-up-to-char)
("M-Z" . zap-to-char))) (use-package ap-functions - :commands (ap/remove-extra-cr - ap/byte-compile-get-dest) + :commands (ap/remove-extra-cr) :bind (("C-x r M-w" . copy-rectangle) ("M-!" . shell-execute)))
@@ -983,10 +982,6 @@
(add-hook 'scheme-mode-hook #'ap/lisp-setup) (add-hook 'lisp-mode-hook #'ap/lisp-setup) (add-hook 'lisp-mode-hook #'set-common-lisp-indentation) - -(use-package bytecomp - :defer t - :config (setq byte-compile-dest-file-function #'ap/byte-compile-get-dest)) (use-package elisp-slime-nav :commands elisp-slime-nav-mode
M installinstall
@@ -21,7 +21,7 @@ done
} install-dot $target/.git/hooks/ $target/git-hooks/* -install-dot .emacs.d/ $target/emacs/* +install-dot .emacs.d/ $target/emacs/{init.el{,c},elisp} install-dot . $target/^install(.) $target/zsh/zshrc $target/zsh/fasdrc install-dot .ssh/ $target/ssh/* if [[ -d projects/dwm ]]