Browse Source

removed async function completely

master
Marc 1 year ago
parent
commit
ba807226c7
1 changed files with 0 additions and 17 deletions
  1. 17
      config.org

17
config.org

@ -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.

Loading…
Cancel
Save