 (ns nav-source
-  (:use [clojure.test])
-  (:require [clojure.string]))
+  (:require [clojure.string :as string]))
 
 (def type-id-map {"Table" 1 "Form" 2 "Report" 3 "Dataport" 4 "Codeunit" 5 "XMLport" 6 "MenuSuite" 7 "Page" 8})
 (def first-line-regex #"^OBJECT (.+) (\d+) (.+)")

(defn make-single-file-name
  "Returns a file name built from object meta data."
  [object-metadata]
  (let [file-name (clojure.string/join "-" (map object-metadata [:type-id :type :id]))]
    (str file-name source-file-extension)))
    
(defn save-single-source-file

(defn get-big-source-lines
  "doc"
  [file-name]
  (let [lines (string/split-lines (slurp file-name :encoding "ibm850"))]
    lines))

(defn first-line-of-object-source?
