| 
					
				 | 
			
			
				@@ -231,6 +231,13 @@ 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				                     default-journal-title-formatter)] 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				     (journal-title-> journal-title #(tf/unparse formatter %)))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+(defn date->file-name 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+  [date] 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+  (let [formatter (if-let [format (state/get-journal-file-name-format)] 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+                    (tf/formatter format) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+                    default-journal-title-formatter)] 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+    (tf/unparse formatter date))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+ 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 (defn journal-title->custom-format 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   [journal-title] 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   (journal-title-> journal-title format)) 
			 |