| 
					
				 | 
			
			
				@@ -61,11 +61,15 @@ 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 (defvar org-babel-tangle-lang-exts) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 (add-to-list 'org-babel-tangle-lang-exts '("clojure" . "clj")) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+(add-to-list 'org-babel-tangle-lang-exts '("clojurescript" . "cljs")) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 (defvar org-babel-default-header-args:clojure '()) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 (defvar org-babel-header-args:clojure '((ns . :any) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 					(package . :any))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+(defvar org-babel-default-header-args:clojurescript '()) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+(defvar org-babel-header-args:clojurescript '((package . :any))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+ 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 (defcustom org-babel-clojure-sync-nrepl-timeout 10 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   "Timeout value, in seconds, of a Clojure sync call. 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 If the value is nil, timeout is disabled." 
			 | 
		
	
	
		
			
				| 
					
				 | 
			
			
				@@ -224,6 +228,11 @@ The underlying process performed by the code block can be output 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 using the :show-process parameter." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   (org-babel-execute:clojure body (cons '(:target . "cljs") params))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+(defun org-babel-edit-prep:clojure (babel-info) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+  "Set org-edit-special src block by injecting `cider-buffer-ns' as namespace." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+  (if-let* ((namespace (cdr (assq :ns (nth 2 babel-info))))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+      (setq-local cider-buffer-ns namespace))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+ 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 (defun org-babel-clojure-initiate-session (&optional session _params) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   "Initiate a session named SESSION according to PARAMS." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   (when (and session (not (string= session "none"))) 
			 |