; WN Ontology

(cl-define-primitive-concept 'print-media 'CLASSIC-THING)
(cl-define-primitive-role 'name)
(cl-define-primitive-role 'creator)
(cl-define-primitive-role 'type)
(cl-define-primitive-role 'target-audience)
(cl-define-primitive-role 'content)
(cl-define-primitive-role 'general-topics)


; PRESS

(cl-define-primitive-concept 'press 'print-media)
(cl-define-primitive-role 'frequency)

(cl-define-primitive-concept 'newspaper 'press)
(cl-define-concept 'daily '(and newspaper (fills frequency "daily")))
(cl-define-primitive-role 'ISSN)
(cl-define-concept 'magazine '(and press (atleast 1 ISSN)))
(cl-define-primitive-concept 'pulp-magazine 'magazine)
(cl-define-primitive-concept 'slick-magazine 'magazine)
(cl-define-primitive-concept 'comic-book 'magazine)

; JOURNALISM

(cl-define-primitive-concept 'journalism 'print-media)

(cl-define-primitive-concept 'fleet-street 'journalism)
(cl-define-primitive-concept 'wire-service 'journalism)
(cl-define-primitive-concept 'photojournalism 'journalism)

; PUBLICATION

(cl-define-primitive-role 'pages)
(cl-define-primitive-role 'language)
(cl-define-primitive-role 'dimensions)
(cl-define-primitive-role 'awards)
(cl-define-primitive-role 'place-publication)
(cl-define-concept 'publication '(and print-media (atleast 1 place-publication)))

; Book

(cl-define-primitive-role 'ISBN)
(cl-define-concept 'book '(and publication (atleast 1 ISBN)))
(cl-define-primitive-role 'publisher)
(cl-define-primitive-role 'date)

(cl-define-primitive-concept 'trade-book 'book)
(cl-define-primitive-concept 'best-seller 'trade-book)

(cl-define-primitive-concept 'brochure 'book)
(cl-define-primitive-concept 'ticket-book 'brochure)

(cl-define-primitive-concept 'textbook 'book)
(cl-define-primitive-concept 'crammer 'textbook)
(cl-define-primitive-concept 'primmer 'textbook)

(cl-define-primitive-concept 'songbook 'book)

(cl-define-primitive-concept 'prayer-book 'book)
(cl-define-primitive-concept 'breviary 'prayer-book)
(cl-define-primitive-concept 'missal 'prayer-book)
(cl-define-primitive-concept 'book-of-Psalms 'prayer-book)

; reference-book

(cl-define-primitive-concept 'reference-book 'book)

(cl-define-primitive-concept 'cookbook 'reference-book)

(cl-define-primitive-concept 'instruction-book 'reference-book)

(cl-define-primitive-concept 'wordbook 'reference-book)
(cl-define-concept 'dictionary '(and book (fills content "d")))
(cl-define-primitive-concept 'bilingual-dictionary 'dictionary)
(cl-define-primitive-concept 'etymological-dictionary 'dictionary)
(cl-define-primitive-concept 'pocket-dictionary 'dictionary)
(cl-define-primitive-concept 'thesaurus 'wordbook)

(cl-define-concept 'handbook '(and book (fills content "f")))
(cl-define-primitive-concept 'manual 'handbook)
(cl-define-primitive-concept 'instructions 'manual)
(cl-define-primitive-concept 'reference-manual 'manual)
(cl-define-primitive-concept 'bible 'handbook)
(cl-define-primitive-concept 'guidebook 'handbook)
(cl-define-primitive-concept 'roadbook 'guidebook)
(cl-define-primitive-concept 'travel-guidebook 'guidebook)

(cl-define-concept 'directory '(and book (fills content "r")))
(cl-define-primitive-concept 'phone-book 'directory)
(cl-define-primitive-concept 'blue-book 'directory)

(cl-define-primitive-concept 'annual 'reference-book)
(cl-define-primitive-concept 'almanac 'annual)
(cl-define-primitive-concept 'farmers-calendar 'annual)

(cl-define-concept 'encyclopedia '(and book (fills content "e")))

; Periodical

(cl-define-primitive-concept 'periodical 'publication)

(cl-define-primitive-concept 'pictorial 'periodical)

(cl-define-primitive-concept 'series 'periodical)
(cl-define-primitive-concept 'monthly 'series)
(cl-define-primitive-concept 'quaterly 'series)
(cl-define-primitive-concept 'weekly 'series)

(cl-define-primitive-concept 'journals 'periodical)