yass_3.1.0_9bcb0cc5/src/layouts.adb

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
--    Copyright 2019-2021 Bartek thindil Jasicki
--
--    This file is part of YASS.
--
--    YASS is free software: you can redistribute it and/or modify
--    it under the terms of the GNU General Public License as published by
--    the Free Software Foundation, either version 3 of the License, or
--    (at your option) any later version.
--
--    YASS is distributed in the hope that it will be useful,
--    but WITHOUT ANY WARRANTY; without even the implied warranty of
--    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
--    GNU General Public License for more details.
--
--    You should have received a copy of the GNU General Public License
--    along with YASS.  If not, see <http://www.gnu.org/licenses/>.

with Ada.Wide_Text_IO; use Ada.Wide_Text_IO;
with Ada.Strings.Unbounded;
with GNAT.Directory_Operations; use GNAT.Directory_Operations;
with Config;

package body Layouts is

   procedure Create_Layout(Directory_Name: String) is
      Layout_File: File_Type;
   begin
      Create
        (File => Layout_File, Mode => Append_File,
         Name =>
           Directory_Name & Dir_Separator & "_layouts" & Dir_Separator &
           "default.html");
      Put_Line(File => Layout_File, Item => "<!DOCTYPE html>");
      Put_Line(File => Layout_File, Item => "<html lang=""{%Language%}"">");
      Put_Line(File => Layout_File, Item => "<head>");
      Put_Line(File => Layout_File, Item => "<meta charset=""UTF-8"">");
      Put_Line
        (File => Layout_File,
         Item =>
           "<meta name=""viewport"" content=""width=device-width, initial-scale=1.0"">");
      Put_Line
        (File => Layout_File,
         Item => "<link rel=""canonical"" href=""{%canonicallink%}"" />");
      Put_Line(File => Layout_File, Item => "@@IF@@ {%author%} /= """"");
      Put_Line
        (File => Layout_File,
         Item => "<meta name=""author"" content=""{%author%}"">");
      Put_Line(File => Layout_File, Item => "@@END_IF@@");
      Put_Line(File => Layout_File, Item => "@@IF@@ {%description%} /= """"");
      Put_Line
        (File => Layout_File,
         Item => "<meta name=""description"" content=""{%description%}"">");
      Put_Line(File => Layout_File, Item => "@@END_IF@@");
      Put_Line(File => Layout_File, Item => "@@IF@@ {%AtomLink%} /= """"");
      Put_Line(File => Layout_File, Item => "{%AtomLink%}");
      Put_Line(File => Layout_File, Item => "@@END_IF@@");
      Put_Line(File => Layout_File, Item => "<title>{%Name%}</title>");
      Put_Line(File => Layout_File, Item => "</head>");
      Put_Line(File => Layout_File, Item => "<body>");
      Put_Line(File => Layout_File, Item => "{%Content%}");
      Put_Line(File => Layout_File, Item => "</body>");
      Put_Line(File => Layout_File, Item => "</html>");
      Close(File => Layout_File);
   end Create_Layout;

   procedure Create_Directory_Layout(Directory_Name: String) is
      use Ada.Strings.Unbounded;
      use Config;

      Layout_File: File_Type;
   begin
      Create
        (File => Layout_File, Mode => Append_File,
         Name =>
           Directory_Name & Dir_Separator &
           To_String(Source => Yass_Config.Layouts_Directory) & Dir_Separator &
           "directory.html");
      Put_Line(File => Layout_File, Item => "<!DOCTYPE html>");
      Put_Line(File => Layout_File, Item => "<html>");
      Put_Line(File => Layout_File, Item => "<head>");
      Put_Line(File => Layout_File, Item => "<meta charset=""UTF-8"">");
      Put_Line
        (File => Layout_File,
         Item =>
           "<meta name=""viewport"" content=""width=device-width, initial-scale=1.0"">");
      Put_Line(File => Layout_File, Item => "</head>");
      Put_Line(File => Layout_File, Item => "<body>");
      Put_Line(File => Layout_File, Item => "@@TABLE@@");
      Put_Line
        (File => Layout_File,
         Item => "<a href=""{%NAME_V%}"">{%NAME_V%}</a><br />");
      Put_Line(File => Layout_File, Item => "@@END_TABLE@@");
      Put_Line(File => Layout_File, Item => "</body>");
      Put_Line(File => Layout_File, Item => "</html>");
      Close(File => Layout_File);
   end Create_Directory_Layout;

end Layouts;