diff --git a/config/fg42.user.el b/config/fg42.user.el index 20d0769..6868e18 100644 --- a/config/fg42.user.el +++ b/config/fg42.user.el @@ -33,6 +33,7 @@ 'common-lisp 'python 'arduino + 'racket 'irc 'latex) diff --git a/lib/extensions/clojure.el b/lib/extensions/clojure.el index 75b153f..de89377 100644 --- a/lib/extensions/clojure.el +++ b/lib/extensions/clojure.el @@ -10,7 +10,6 @@ (depends-on 'flycheck-clojure) (depends-on 'clj-refactor) (depends-on 'let-alist) -(depends-on 'flycheck-clojure) (depends-on 'clojure-mode-extra-font-locking) ;(depends-on 'core-async-mode) diff --git a/lib/extensions/development/livemd.el b/lib/extensions/development/livemd.el index 79f4ddb..da9c91f 100644 --- a/lib/extensions/development/livemd.el +++ b/lib/extensions/development/livemd.el @@ -14,7 +14,6 @@ ;;; Commentary: ;; Realtime Markdown previews for Emacs. ;;; Code: - (defgroup livemd nil "Realtime Markdown previews" :group 'livemd @@ -49,15 +48,7 @@ (defun livemd-preview () "Preview the current file in livemd." (interactive) - (call-process-shell-command (format "livedown stop --port %s &" livemd-port)) - - (message (format "%s start %s --port %s %s %s " - livedown-path - buffer-file-name - livemd-port - (if livemd-browser (concat "--browser " livemd-browser) "") - (if livemd-open "--open" ""))) (start-process-shell-command "livedown" "*fg42-livemd-buffer*" @@ -66,9 +57,11 @@ buffer-file-name livemd-port (if livemd-browser (concat "--browser " livemd-browser) "") - (if livemd-open "--open" "")))) + (if livemd-open "--open" ""))) + + (add-hook 'kill-emacs-query-functions (lambda () (livemd-kill t))) + (print (format "%s rendered @ %s" buffer-file-name livemd-port) (get-buffer "emacs-livemd-buffer"))) -;; (print (format "%s rendered @ %s" buffer-file-name livemd-port) (get-buffer "emacs-livemd-buffer"))) ;;;###autoload (defun livemd-kill (&optional async) "Stop the livemd process ASYNC or otherwise." @@ -76,11 +69,6 @@ (let ((stop-livemd (if async 'async-shell-command 'call-process-shell-command))) (funcall stop-livemd (format "%s stop --port %s &" livedown-path livemd-port)))) -(if livemd-autostart - (eval-after-load 'markdown-mode '(livemd-preview))) - -(add-hook 'kill-emacs-query-functions (lambda () (livemd-kill t))) - (provide 'extensions/development/livemd) ;;; livemd.el ends here