Shaun Parker shaunparker

## media_segments.cljc
(ns media-segments)

(defn merge-segments
  "Merges two overlapping segments into one segment."
  [[start1 end1] [start2 end2]]
  [(min start1 start2) (max end1 end2)])

(defn normalize-segments
  "Takes a sequence of segments, sorts them, and merges any that overlap.

## README.md

      
        
          
            
              
              5 files
            
          
          
            
              
              0 forks
            
          
          
            
              
              0 comments
            
          
          
            
              
              0 stars
            
          
        
        
          
              
          
          
            
                shaunparker
                / README.md
            
            
              Last active
              February 10, 2019 18:13
            
              
                Tagged literal to reduce namespaced keyword verbosity
              
          
        
      
        
  
      
    An example of using a custom tagged literal to reduce the verbosity of namespaced keywords in code.
clj -m example

Running from the gist:
clojure -Sdeps '{:deps {keyword-tagged-literal-ex {:git/url "https://gist.github.com/shaunparker/c89ac63cba98d05d9586a837654b1c1e" :sha "bb8513e88698c0cf12108b6df19a96679661c3cc"}}}' -m example
	(ns media-segments)

	(defn merge-segments
	"Merges two overlapping segments into one segment."
	[[start1 end1] [start2 end2]]
	[(min start1 start2) (max end1 end2)])

	(defn normalize-segments
	"Takes a sequence of segments, sorts them, and merges any that overlap.