 (require 'cl-lib)
 (require 'company)
+(require 's)
 
 (defun cwl--empty-line-p ()
   "Return non-nil if the current line is empty."

              (cwl--current-line)))
    (candidates
     (cl-loop for buffer in (cwl--buffers-in-mode major-mode)
              append (cwl--matching-lines arg buffer)))
    (duplicates t)
    (meta
     (format "Line %d from %s"

      (cl-loop
       if (looking-at
           ;; The current prefix followed some additional characters.
           (rx-to-string `(seq (0+ whitespace) ,prefix (1+ not-newline))))
       collect (propertize
                (cwl--current-line)
                'buffer buffer
