Version 3 (#40)

Code for version 3

src/JobsJobsJobs/Listings/Domain.fs

@@ -0,0 +1,94 @@
+module JobsJobsJobs.Listings.Domain
+
+open JobsJobsJobs.Domain
+
+/// The data required to add or edit a job listing
+[<CLIMutable; NoComparison; NoEquality>]
+type EditListingForm =
+    {   /// The ID of the listing
+        Id : string
+        
+        /// The listing title
+        Title : string
+        
+        /// The ID of the continent on which this opportunity exists
+        ContinentId : string
+        
+        /// The region in which this opportunity exists
+        Region : string
+        
+        /// Whether this is a remote work opportunity
+        RemoteWork : bool
+        
+        /// The text of the job listing
+        Text : string
+        
+        /// The date by which this job listing is needed
+        NeededBy : string
+    }
+
+/// Support functions to support listings
+module EditListingForm =
+
+    open NodaTime.Text
+
+    /// Create a listing form from an existing listing
+    let fromListing (listing : Listing) theId =
+        let neededBy =
+            match listing.NeededBy with
+            | Some dt -> (LocalDatePattern.CreateWithCurrentCulture "yyyy-MM-dd").Format dt
+            | None -> ""
+        {   Id          = theId
+            Title       = listing.Title
+            ContinentId = ContinentId.toString listing.ContinentId
+            Region      = listing.Region
+            RemoteWork  = listing.IsRemote
+            Text        = MarkdownString.toString listing.Text
+            NeededBy    = neededBy
+        }
+
+
+/// The form submitted to expire a listing
+[<CLIMutable; NoComparison; NoEquality>]
+type ExpireListingForm =
+    {   /// The ID of the listing to expire
+        Id : string
+        
+        /// Whether the job was filled from here
+        FromHere : bool
+        
+        /// The success story written by the user
+        SuccessStory : string
+    }
+
+
+/// The data needed to display a listing
+[<NoComparison; NoEquality>]
+type ListingForView =
+    {   /// The listing itself
+        Listing : Listing
+        
+        /// The name of the continent for the listing
+        ContinentName : string
+
+        /// The citizen who owns the listing
+        Citizen : Citizen
+    }
+
+
+/// The various ways job listings can be searched
+[<CLIMutable; NoComparison; NoEquality>]
+type ListingSearchForm =
+    {   /// Retrieve job listings for this continent
+        ContinentId : string
+        
+        /// Text for a search within a region
+        Region : string
+        
+        /// Whether to retrieve job listings for remote work
+        RemoteWork : string
+        
+        /// Text for a search with the job listing description
+        Text : string
+    }
+