|
@ -47,13 +47,6 @@ asynchronously." |
|
|
(lambda () |
|
|
(lambda () |
|
|
(or (not (process-live-p (get-process "tangle-process"))) |
|
|
(or (not (process-live-p (get-process "tangle-process"))) |
|
|
(y-or-n-p "\"me/tangle-config\" is running; kill it? ")))) |
|
|
(y-or-n-p "\"me/tangle-config\" is running; kill it? ")))) |
|
|
; ;; tangle config asynchronously ;; for now not async anymore |
|
|
|
|
|
; ;; async only on linux because bash is called |
|
|
|
|
|
; (if *sys/linux* |
|
|
|
|
|
; (me/async-process |
|
|
|
|
|
; (format "emacs %s --batch --eval '(org-babel-tangle nil \"%s\")'" config-org config-el) |
|
|
|
|
|
; "tangle-process") |
|
|
|
|
|
; (format "emacs %s --batch --eval '(org-babel-tangle nil \"%s\")'" config-org config-el)) |
|
|
|
|
|
(org-babel-tangle-file config-org config-el) |
|
|
(org-babel-tangle-file config-org config-el) |
|
|
(message "reloading user-init-file") |
|
|
(message "reloading user-init-file") |
|
|
(load-file config-el)) |
|
|
(load-file config-el)) |
|
@ -81,16 +74,6 @@ FILTER is function that runs after the process is finished, its args should be |
|
|
"async-process") |
|
|
"async-process") |
|
|
:filter (if filter filter |
|
|
:filter (if filter filter |
|
|
(lambda (process output) (message output))))) |
|
|
(lambda (process output) (message output))))) |
|
|
; (lambda (process output) (message (s-trim output)))))) |
|
|
|
|
|
|
|
|
|
|
|
;; Examples: |
|
|
|
|
|
;; |
|
|
|
|
|
;; (me/async-process "ls") |
|
|
|
|
|
;; |
|
|
|
|
|
;; (me/async-process "ls" "my ls process" |
|
|
|
|
|
;; (lambda (process output) (message "Output:\n\n%s" output))) |
|
|
|
|
|
;; |
|
|
|
|
|
;; (me/async-process "unknown command") |
|
|
|
|
|
#+END_SRC |
|
|
#+END_SRC |
|
|
|
|
|
|
|
|
A small function to measure start up time. |
|
|
A small function to measure start up time. |
|
|