Difference From 8bb30e04bd97756c To 47ab69880fde8e84
2024-01-12
| ||
10:25 | Added Mastodon contact check-in: 783ebc937c user: Cthulhux tags: trunk | |
2024-01-11
| ||
18:14 | post-release changes for macOS project settings ;-) check-in: 8bb30e04bd user: Cthulhux tags: trunk | |
13:59 | Updated screenshot check-in: ae0f803ae3 user: Cthulhux tags: trunk | |
2022-03-15
| ||
15:10 | [Feature] Support for hdtbl. [Changed] Build extras and build preprocessors are now listed in a multi-select box. check-in: 931cfb6b0c user: Cthulhux tags: trunk | |
2022-03-14
| ||
16:53 | 0.12.0: [Feature] If the installed version of troff is not detected as groff, a warning is displayed. check-in: 47ab69880f user: Cthulhux tags: trunk, release-0.12.0 | |
16:46 | [Improved] groffstudio opens on the primary screen now. check-in: a092c06711 user: Cthulhux tags: trunk | |
Modified CHANGES.txt from [1b324e0183] to [983e766f33].
|
| < < < < < < < < < < < < < < | 1 2 3 4 5 6 7 | Version 0.12.0 2022-03-14 [Feature] If the installed version of troff is not detected as groff, a warning is displayed. [Changed] On platforms which probably use a package manager (currently, Linux and BSDs), the "update check" checkbox is disabled and the related libraries are not referenced. [Improved] When exiting groffstudio, the Save function from the "save" button is reused. [Changed] Less capital letters. |
︙ | ︙ |
Modified README.md from [b76a34f200] to [e15ac5bc75].
1 2 3 4 5 6 | # groffstudio: An IDE for groff. You know what was missing with `groff`? A good alternative to TeXstudio. Here we go. ## Screenshot | | | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 | # groffstudio: An IDE for groff. You know what was missing with `groff`? A good alternative to TeXstudio. Here we go. ## Screenshot ![Screenshot](https://i.imgur.com/MXLYfwq.png) ## Features * Written in Lazarus (Free Pascal). * Should be cross-platform (but Windows support is mediocre yet). * Can produce PS and PDF files. * Can handle some macros. |
︙ | ︙ |
Modified src/buildoutputwindow.lfm from [a8b1bb1460] to [30a0891c83].
1 2 3 4 5 6 7 8 9 | object BuildStatusWindow: TBuildStatusWindow Left = 493 Height = 80 Top = 160 Width = 168 BorderStyle = bsDialog Caption = 'building' ClientHeight = 80 ClientWidth = 168 | | | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | object BuildStatusWindow: TBuildStatusWindow Left = 493 Height = 80 Top = 160 Width = 168 BorderStyle = bsDialog Caption = 'building' ClientHeight = 80 ClientWidth = 168 LCLVersion = '2.3.0.0' object Label1: TLabel Left = 32 Height = 37 Top = 16 Width = 117 Caption = 'building...' Font.Height = -27 ParentColor = False ParentFont = False end end |
Modified src/buildoutputwindow.pas from [b2dc02ad8c] to [244f78b094].
︙ | ︙ | |||
16 17 18 19 20 21 22 | } {$mode ObjFPC}{$H+} interface uses | | | 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 | } {$mode ObjFPC}{$H+} interface uses Classes, SysUtils, Forms, StdCtrls, Process; type { TBuildStatusWindow } TBuildStatusWindow = class(TForm) Label1: TLabel; |
︙ | ︙ | |||
40 41 42 43 44 45 46 47 48 | implementation {$R *.lfm} function TBuildStatusWindow.BuildDocument(CommandLine: String; LogFile: String): Boolean; var str: String; lh: TextFile; | > > < > > > | > | > | > | < > < | > > > > > > | > > > | > > > > > > > > > | | | > > < < | 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 99 100 101 | implementation {$R *.lfm} function TBuildStatusWindow.BuildDocument(CommandLine: String; LogFile: String): Boolean; var p: TProcess; n: LongInt; str: String; lh: TextFile; begin p := TProcess.Create(nil); p.Options := p.Options + [poUsePipes, poStderrToOutPut]; {$IFDEF WINDOWS} p.Executable := 'cmd'; p.Parameters.Add('/c'); {$ENDIF} {$IFDEF UNIX} p.Executable := 'sh'; p.Parameters.Add('-c'); {$ENDIF} p.Parameters.Add(CommandLine); p.Execute; if LogFile <> '' then begin AssignFile(lh, LogFile); Rewrite(lh); while p.Running do begin n := p.Output.Read(str, 2048); if n > 0 then begin writeln(lh, str); end else Sleep(100); end; { We might have some buffer contents left. } repeat n := p.Output.Read(str, 2048); if n > 0 then begin writeln(lh, str); end; until n <= 0; CloseFile(lh); end; result := p.ExitStatus > 0; p.Free; { Close the status window: } Close; end; end. |
Modified src/groffstudio.lpi from [c7cb82821c] to [6398047e8e].
︙ | ︙ | |||
18 19 20 21 22 23 24 | <Resources Count="1"> <Resource_0 FileName="..\LICENSE" Type="RCDATA" ResourceName="LICENSE"/> </Resources> </General> <VersionInfo> <UseVersionInfo Value="True"/> <AutoIncrementBuild Value="True"/> | | < < < | 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 | <Resources Count="1"> <Resource_0 FileName="..\LICENSE" Type="RCDATA" ResourceName="LICENSE"/> </Resources> </General> <VersionInfo> <UseVersionInfo Value="True"/> <AutoIncrementBuild Value="True"/> <MinorVersionNr Value="12"/> <Attributes pvaPreRelease="True"/> <StringTable ProductName="groffstudio"/> </VersionInfo> <BuildModes> <Item Name="Default" Default="True"/> </BuildModes> <PublishOptions> <Version Value="2"/> <UseFileFilters Value="True"/> </PublishOptions> <RunParams> <FormatVersion Value="2"/> </RunParams> <RequiredPackages> <Item> |
︙ | ︙ | |||
75 76 77 78 79 80 81 | <Filename Value="buildoutputwindow.pas"/> <IsPartOfProject Value="True"/> <ComponentName Value="BuildStatusWindow"/> <HasResources Value="True"/> <ResourceBaseClass Value="Form"/> <UnitName Value="BuildOutputWindow"/> </Unit> | < < < < < < < < | < | 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 99 100 101 102 103 104 105 106 107 108 | <Filename Value="buildoutputwindow.pas"/> <IsPartOfProject Value="True"/> <ComponentName Value="BuildStatusWindow"/> <HasResources Value="True"/> <ResourceBaseClass Value="Form"/> <UnitName Value="BuildOutputWindow"/> </Unit> </Units> </ProjectOptions> <CompilerOptions> <Version Value="11"/> <PathDelim Value="\"/> <Target> <Filename Value="groffstudio"/> </Target> <SearchPaths> <IncludeFiles Value="$(ProjOutDir)"/> <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/> </SearchPaths> <CodeGeneration> <Optimizations> <OptimizationLevel Value="4"/> </Optimizations> </CodeGeneration> <Linking> <Debugging> <GenerateDebugInfo Value="False"/> <DebugInfoType Value="dsDwarf3"/> <StripSymbols Value="True"/> </Debugging> <Options> <Win32> <GraphicApplication Value="True"/> </Win32> </Options> </Linking> <Other> |
︙ | ︙ |
Modified src/groffstudio.lpr from [6bd99be7bf] to [15b92cbe85].
1 2 | program groffstudio; | < < < < < < < < < < < < < < < | | > < < < < < < < < < < < < | 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 | program groffstudio; {$mode objfpc}{$H+} uses {$IFDEF UNIX} cthreads, {$ENDIF} {$IFDEF HASAMIGA} athreads, {$ENDIF} Interfaces, // this includes the LCL widgetset Forms, lazcontrols, Unit1, Helpers, BuildOutputWindow { you can add units after this }; {$R *.res} begin RequireDerivedFormResource:=True; Application.Scaled:=True; Application.Initialize; Application.CreateForm(TMainForm, MainForm); Application.Run; end. |
Deleted src/splashscreen.lfm version [1492917ff1].
|
| < < < < < < < < < < < < < < < < < < < < |
Deleted src/splashscreen.pas version [a952d1c450].
|
| < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < |
Modified src/unit1.lfm from [8f95214e34] to [3d168cf702].
1 | object MainForm: TMainForm | | | | < > | | | | | | 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 | object MainForm: TMainForm Left = 2381 Height = 692 Top = 99 Width = 981 Caption = 'groffstudio' ClientHeight = 692 ClientWidth = 981 DefaultMonitor = dmPrimary OnClose = FormClose OnCreate = FormCreate LCLVersion = '2.3.0.0' object MainStatusBar: TStatusBar Left = 0 Height = 23 Top = 669 Width = 981 Panels = < item Text = 'file name with save status' Width = 200 end item Text = 'build successful?' Width = 120 end item Text = 'update available' Width = 120 end> SimplePanel = False end object ExtendedNotebook1: TExtendedNotebook Left = 8 Height = 662 Top = 8 Width = 961 ActivePage = tsEdit Anchors = [akTop, akLeft, akRight, akBottom] Style = tsFlatButtons TabIndex = 0 TabOrder = 1 object tsEdit: TTabSheet Caption = 'edit a groff document' ClientHeight = 631 ClientWidth = 953 ParentFont = False object GroupBox1: TGroupBox Left = 10 Height = 66 Top = 560 Width = 933 Align = alBottom BorderSpacing.Left = 10 BorderSpacing.Right = 10 BorderSpacing.Bottom = 5 Caption = 'build' ClientHeight = 46 ClientWidth = 929 TabOrder = 0 object Label1: TLabel Left = 184 Height = 15 Top = -4 Width = 72 Caption = 'macro to use:' |
︙ | ︙ | |||
79 80 81 82 83 84 85 | 'mom' 'ms' ) TabOrder = 0 Text = '[ select ]' end object Label2: TLabel | | | > | > | > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | > > > > > > > > > > > | < | < < < < < < < < < < < < < < < < | < < < < < < < < < < < < < < | > < | > < | | | | | 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 | 'mom' 'ms' ) TabOrder = 0 Text = '[ select ]' end object Label2: TLabel Left = 806 Height = 15 Top = -4 Width = 78 Anchors = [akTop, akRight] Caption = 'output format:' ParentColor = False end object rdPs: TRadioButton Left = 807 Height = 19 Top = 16 Width = 71 Anchors = [akTop, akRight] Caption = 'PostScript' OnChange = rdPsChange TabOrder = 1 end object rdPdf: TRadioButton Left = 887 Height = 19 Top = 16 Width = 39 Anchors = [akTop, akRight] Caption = 'PDF' OnChange = rdPdfChange TabOrder = 2 end object Label3: TLabel Left = 424 Height = 15 Top = -4 Width = 76 Anchors = [akTop, akRight] Caption = 'preprocessors:' ParentColor = False end object chkEqn: TCheckBox Left = 480 Height = 19 Top = 16 Width = 38 Anchors = [akTop, akRight] Caption = 'eqn' TabOrder = 3 end object chkPic: TCheckBox Left = 566 Height = 19 Top = 16 Width = 34 Anchors = [akTop, akRight] Caption = 'pic' TabOrder = 4 end object chkTbl: TCheckBox Left = 654 Height = 19 Top = 16 Width = 32 Anchors = [akTop, akRight] Caption = 'tbl' TabOrder = 5 end object chkGrn: TCheckBox Left = 524 Height = 19 Top = 16 Width = 36 Anchors = [akTop, akRight] Caption = 'grn' TabOrder = 6 end object chkChem: TCheckBox Left = 424 Height = 19 Top = 16 Width = 48 Anchors = [akTop, akRight] Caption = 'chem' TabOrder = 7 end object chkRefer: TCheckBox Left = 606 Height = 19 Top = 16 Width = 42 Anchors = [akTop, akRight] Caption = 'refer' TabOrder = 8 end object Label4: TLabel Left = 707 Height = 15 Top = -4 Width = 34 Anchors = [akTop, akRight] Caption = 'extras:' ParentColor = False end object chkPdfMark: TCheckBox Left = 708 Height = 19 Top = 16 Width = 63 Anchors = [akTop, akRight] Caption = 'Pdfmark' Enabled = False TabOrder = 9 end object btnBuild: TButton Left = 0 Height = 29 Top = 10 Width = 75 Caption = 'build' Color = clLime Enabled = False Font.Style = [fsBold, fsItalic] OnClick = btnBuildClick ParentFont = False TabOrder = 10 end object chkLogFile: TCheckBox Left = 80 Height = 19 Hint = 'If enabled, a log file containing the groff output will be placed alongside the source document.' Top = 16 Width = 68 Caption = 'log to file' Enabled = False TabOrder = 11 end end object btnSaveGroff: TButton Left = 868 Height = 28 Top = 528 Width = 75 Anchors = [akRight, akBottom] Caption = 'save' Font.Style = [fsBold] OnClick = btnSaveGroffClick ParentFont = False TabOrder = 1 end object btnLoadGroff: TButton Left = 787 Height = 28 Top = 528 Width = 75 Anchors = [akRight, akBottom] Caption = 'load' Font.Style = [fsBold] OnClick = btnLoadGroffClick ParentFont = False TabOrder = 2 end object Label5: TLabel Left = 331 Height = 15 Top = 541 Width = 438 Anchors = [akRight, akBottom] Caption = 'note that everything build-related will be stored in the document''s storage directory' Font.Color = clBlue Font.Style = [fsItalic] ParentColor = False ParentFont = False end inline SynEdit1: TSynEdit Left = 10 Height = 523 Top = 0 Width = 933 Anchors = [akTop, akLeft, akRight, akBottom] Font.CharSet = 4 Font.Height = -13 Font.Name = 'Consolas' Font.Pitch = fpFixed Font.Quality = fqCleartypeNatural ParentColor = False ParentFont = False TabOrder = 3 Gutter.Width = 55 Gutter.MouseActions = <> RightGutter.Width = 0 RightGutter.MouseActions = <> Keystrokes = < item Command = ecUp ShortCut = 38 |
︙ | ︙ | |||
651 652 653 654 655 656 657 | item Command = ecColSelEditorTop ShortCut = 57380 end item Command = ecColSelEditorBottom ShortCut = 57379 | < < < < < < < < < < < < | | | 687 688 689 690 691 692 693 694 695 696 697 698 699 700 701 702 703 704 705 706 | item Command = ecColSelEditorTop ShortCut = 57380 end item Command = ecColSelEditorBottom ShortCut = 57379 end> MouseActions = <> MouseTextActions = <> MouseSelActions = <> Options = [eoAutoIndent, eoGroupUndo, eoHideRightMargin, eoSmartTabs, eoTabsToSpaces, eoTrimTrailingSpaces, eoDragDropEditing, eoDoubleClickSelectsLine] Options2 = [eoEnhanceEndKey, eoFoldedCopyPaste, eoPersistentBlock, eoOverwriteBlock, eoAcceptDragDropEditing] MouseOptions = [emDragDropEditing, emDoubleClickSelectsLine] VisibleSpecialChars = [vscSpace, vscTabAtLast] SelectedColor.BackPriority = 50 SelectedColor.ForePriority = 50 SelectedColor.FramePriority = 50 SelectedColor.BoldPriority = 50 SelectedColor.ItalicPriority = 50 |
︙ | ︙ | |||
697 698 699 700 701 702 703 | OnChange = SynEdit1Change inline SynLeftGutterPartList1: TSynGutterPartList object SynGutterMarks1: TSynGutterMarks Width = 24 MouseActions = <> end object SynGutterLineNumber1: TSynGutterLineNumber | | | 721 722 723 724 725 726 727 728 729 730 731 732 733 734 735 | OnChange = SynEdit1Change inline SynLeftGutterPartList1: TSynGutterPartList object SynGutterMarks1: TSynGutterMarks Width = 24 MouseActions = <> end object SynGutterLineNumber1: TSynGutterLineNumber Width = 15 MouseActions = <> MarkupInfo.Background = clBtnFace MarkupInfo.Foreground = clNone DigitCount = 2 ShowOnlyLineNumbersMultiplesOf = 1 ZeroStart = False LeadingZeros = False |
︙ | ︙ | |||
731 732 733 734 735 736 737 | end end end end object tsSettings: TTabSheet Caption = 'groffstudio settings' ClientHeight = 631 | | | < > | 755 756 757 758 759 760 761 762 763 764 765 766 767 768 769 770 771 772 773 774 775 776 777 778 779 780 781 782 783 784 785 786 | end end end end object tsSettings: TTabSheet Caption = 'groffstudio settings' ClientHeight = 631 ClientWidth = 953 object chkAutoSaveBuildSettings: TCheckBox Left = 0 Height = 19 Top = 16 Width = 309 Caption = 'save and restore the chosen build settings for next time' TabOrder = 0 end object btnSaveSettings: TButton Left = 864 Height = 25 Top = 600 Width = 91 Anchors = [akRight, akBottom] Caption = 'save settings' OnClick = btnSaveSettingsClick TabOrder = 1 end object Label14: TLabel Left = 0 Height = 15 Top = 80 Width = 129 Caption = 'yes, that''s all for now. :-)' |
︙ | ︙ | |||
770 771 772 773 774 775 776 | Caption = 'check for updates on startup' TabOrder = 2 end end object tsGroff: TTabSheet Caption = 'groff version' ClientHeight = 631 | | | | | | < > | | | | | | | 794 795 796 797 798 799 800 801 802 803 804 805 806 807 808 809 810 811 812 813 814 815 816 817 818 819 820 821 822 823 824 825 826 827 828 829 830 831 832 833 834 835 836 837 838 839 840 841 842 843 844 845 846 847 848 849 850 851 852 853 854 855 856 857 858 859 860 861 862 863 864 865 866 867 868 869 870 871 872 873 874 875 876 877 878 879 880 881 882 883 884 885 886 887 888 889 890 891 892 893 894 895 896 897 898 899 900 901 902 903 904 905 906 907 908 909 910 911 912 913 914 915 916 | Caption = 'check for updates on startup' TabOrder = 2 end end object tsGroff: TTabSheet Caption = 'groff version' ClientHeight = 631 ClientWidth = 953 object GroupBox2: TGroupBox Left = 20 Height = 57 Top = 566 Width = 913 Align = alBottom BorderSpacing.Left = 20 BorderSpacing.Right = 20 BorderSpacing.Bottom = 8 Caption = 'groff for Windows' ClientHeight = 37 ClientWidth = 909 TabOrder = 0 object Label6: TLabel Left = 8 Height = 15 Top = 8 Width = 108 Caption = 'latest version online:' ParentColor = False end object edtOnlineGroffVersionWindows: TEdit Left = 136 Height = 15 Top = 8 Width = 676 Anchors = [akTop, akLeft, akRight] BorderStyle = bsNone Enabled = False TabOrder = 0 Text = 'fetching ...' end object btnDownloadGroffWindows: TButton Left = 820 Height = 25 Top = 5 Width = 80 Anchors = [akTop, akRight] Caption = 'download it' OnClick = btnDownloadGroffWindowsClick TabOrder = 1 end end object Label7: TLabel Left = 8 Height = 15 Top = 8 Width = 941 Anchors = [akTop, akLeft, akRight] Caption = 'as you might guess, groffstudio requires a working installation of groff. this page performs the basic checks for you. note that on windows, everything is harder than it should. :-)' Constraints.MaxHeight = 582 ParentColor = False WordWrap = True end object Label9: TLabel Left = 8 Height = 15 Top = 56 Width = 70 Caption = 'groff version:' ParentColor = False end object edtGroffInstalledVersion: TEdit Left = 144 Height = 15 Top = 56 Width = 805 Anchors = [akTop, akLeft, akRight] BorderStyle = bsNone Enabled = False TabOrder = 1 end object lblTroffCommandNotFound: TLabel Left = 8 Height = 45 Top = 112 Width = 940 Anchors = [akTop, akLeft, akRight] Caption = 'groff was not found. in order to use groffstudio, you absolutely need groff in your PATH variable. on unix and unix-like systems, you''ll need to edit the $PATH variable. on windows, i warmly recommend the Rapid Environment Editor for that.'#13#10'please exit groffstudio at your nearest convenience and adjust your PATH variables. then try again.' Font.Color = clRed ParentColor = False ParentFont = False Visible = False WordWrap = True end object edtGroffstudioInstalledVersion: TEdit Left = 144 Height = 15 Top = 77 Width = 805 Anchors = [akTop, akLeft, akRight] BorderStyle = bsNone Enabled = False TabOrder = 2 end object Label10: TLabel Left = 8 Height = 15 Top = 77 Width = 103 Caption = 'groffstudio version:' ParentColor = False end end object tsAbout: TTabSheet Caption = 'about groffstudio' ClientHeight = 631 ClientWidth = 953 object lblAboutProductName: TLabel Left = 0 Height = 61 Top = 16 Width = 315 Caption = 'groffstudio x.y.z' Font.Color = clBlue |
︙ | ︙ | |||
932 933 934 935 936 937 938 | ParentColor = False ParentFont = False end object mLicense: TMemo Left = 0 Height = 418 Top = 216 | | | 956 957 958 959 960 961 962 963 964 965 966 967 968 969 970 | ParentColor = False ParentFont = False end object mLicense: TMemo Left = 0 Height = 418 Top = 216 Width = 960 Anchors = [akTop, akLeft, akRight] ScrollBars = ssAutoBoth TabOrder = 0 end object lblWebsite: TLabel Cursor = crHandPoint Left = 120 |
︙ | ︙ |
Modified src/unit1.pas from [5cfb67d430] to [b7fbc951e8].
︙ | ︙ | |||
17 18 19 20 21 22 23 | {$mode objfpc}{$H+} interface uses Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ComCtrls, StdCtrls, | | | < < > > > > > > > | 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 | {$mode objfpc}{$H+} interface uses Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ComCtrls, StdCtrls, ExtCtrls, Buttons, ExtendedNotebook, SynEdit, fphttpclient, RegExpr, LCLIntf, LCLType, IniPropStorage, Process, Helpers, fileinfo, {$IF DEFINED(WINDOWS)} winpeimagereader, opensslsockets, {$ELSEIF DEFINED(DARWIN)} machoreader, ssockets, sslsockets, sslbase, opensslsockets, {$ELSEIF DEFINED(LINUX)} elfreader, {$ENDIF} BuildOutputWindow; type { TMainForm } TMainForm = class(TForm) btnSaveGroff: TButton; btnLoadGroff: TButton; btnBuild: TButton; btnDownloadGroffWindows: TButton; btnSaveSettings: TButton; chkUpdateCheckOnStart: TCheckBox; chkLogFile: TCheckBox; chkAutoSaveBuildSettings: TCheckBox; chkPdfMark: TCheckBox; chkRefer: TCheckBox; chkChem: TCheckBox; chkGrn: TCheckBox; chkTbl: TCheckBox; chkPic: TCheckBox; chkEqn: TCheckBox; cmbMacro: TComboBox; edtGroffInstalledVersion: TEdit; edtGroffstudioInstalledVersion: TEdit; edtOnlineGroffVersionWindows: TEdit; ExtendedNotebook1: TExtendedNotebook; GroupBox1: TGroupBox; GroupBox2: TGroupBox; |
︙ | ︙ | |||
91 92 93 94 95 96 97 98 99 100 101 102 103 104 | procedure btnSaveGroffClick(Sender: TObject); procedure btnSaveSettingsClick(Sender: TObject); procedure FormClose(Sender: TObject; var CloseAction: TCloseAction); procedure FormCreate(Sender: TObject); procedure lblFossilRepoClick(Sender: TObject); procedure lblGithubRepoClick(Sender: TObject); procedure lblWebsiteClick(Sender: TObject); procedure SynEdit1Change(Sender: TObject); {$IFDEF DARWIN} procedure GetSocketHandler(Sender: TObject; const UseSSL: Boolean; out AHandler: TSocketHandler); {$ENDIF} private var currentGroffFilePath: String; var currentGroffFileName: String; | > > | 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 | procedure btnSaveGroffClick(Sender: TObject); procedure btnSaveSettingsClick(Sender: TObject); procedure FormClose(Sender: TObject; var CloseAction: TCloseAction); procedure FormCreate(Sender: TObject); procedure lblFossilRepoClick(Sender: TObject); procedure lblGithubRepoClick(Sender: TObject); procedure lblWebsiteClick(Sender: TObject); procedure rdPdfChange(Sender: TObject); procedure rdPsChange(Sender: TObject); procedure SynEdit1Change(Sender: TObject); {$IFDEF DARWIN} procedure GetSocketHandler(Sender: TObject; const UseSSL: Boolean; out AHandler: TSocketHandler); {$ENDIF} private var currentGroffFilePath: String; var currentGroffFileName: String; |
︙ | ︙ | |||
136 137 138 139 140 141 142 | GroffHelpers: TGroffHelpers; ResStream: TResourceStream; {$IFDEF DARWIN} HTTPClient: TFPHttpClient; {$ENDIF} begin // What's the current running groff version? | < | < < < | 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 | GroffHelpers: TGroffHelpers; ResStream: TResourceStream; {$IFDEF DARWIN} HTTPClient: TFPHttpClient; {$ENDIF} begin // What's the current running groff version? if RunCommand('troff', ['--version'], GroffOutputVersion) then begin edtGroffInstalledVersion.Text := GroffOutputVersion; if pos('GNU', GroffOutputVersion) = 0 then ShowMessage('groffstudio thinks that your installed version of troff is not GNU troff.' + LineEnding + 'If this is correct, you are advised to fix this before continuing.' + LineEnding + 'If it is an error, please tell me so I can improve this detection.'); hasGroff := True; |
︙ | ︙ | |||
183 184 185 186 187 188 189 | chkUpdateCheckOnStart.Checked := updateCheck; {$ENDIF} if storeBuildSettings then begin chkLogFile.Checked := iniStorage.ReadBoolean('BuildLogFile', False); cmbMacro.Text := iniStorage.ReadString('BuildChosenMacro', '[ select ]'); | | | | | | | < | | 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 | chkUpdateCheckOnStart.Checked := updateCheck; {$ENDIF} if storeBuildSettings then begin chkLogFile.Checked := iniStorage.ReadBoolean('BuildLogFile', False); cmbMacro.Text := iniStorage.ReadString('BuildChosenMacro', '[ select ]'); chkChem.Checked := iniStorage.ReadBoolean('BuildUseChem', False); chkEqn.Checked := iniStorage.ReadBoolean('BuildUseEqn', False); chkGrn.Checked := iniStorage.ReadBoolean('BuildUseGrn', False); chkPic.Checked := iniStorage.ReadBoolean('BuildUsePic', False); chkRefer.Checked := iniStorage.ReadBoolean('BuildUseRefer', False); chkTbl.Checked := iniStorage.ReadBoolean('BuildUseTbl', False); chkPdfMark.Checked := iniStorage.ReadBoolean('BuildUsePdfMark', False); rdPs.Checked := iniStorage.ReadBoolean('BuildToPostscript', False); rdPdf.Checked := iniStorage.ReadBoolean('BuildToPDF', False); end; // What's the latest available version? FileVerInfo := TFileVersionInfo.Create(nil); |
︙ | ︙ | |||
293 294 295 296 297 298 299 300 301 302 303 304 305 306 | OpenURL('https://github.com/dertuxmalwieder/groffstudio'); end; procedure TMainForm.lblWebsiteClick(Sender: TObject); begin OpenURL('https://groff.tuxproject.de'); end; procedure TMainForm.SynEdit1Change(Sender: TObject); begin // Set the "Changed" mark: MainStatusBar.Panels[0].Text := '* ' + currentGroffFileName; unsavedChanges := True; end; | > > > > > > > > > > | 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 | OpenURL('https://github.com/dertuxmalwieder/groffstudio'); end; procedure TMainForm.lblWebsiteClick(Sender: TObject); begin OpenURL('https://groff.tuxproject.de'); end; procedure TMainForm.rdPdfChange(Sender: TObject); begin chkPdfMark.Enabled := True; end; procedure TMainForm.rdPsChange(Sender: TObject); begin chkPdfMark.Enabled := False; end; procedure TMainForm.SynEdit1Change(Sender: TObject); begin // Set the "Changed" mark: MainStatusBar.Panels[0].Text := '* ' + currentGroffFileName; unsavedChanges := True; end; |
︙ | ︙ | |||
326 327 328 329 330 331 332 | BuildWindow := TBuildStatusWindow.Create(Application); BuildWindow.Show; // Build the parameters: buildOpts := 'groff'; // - Macro: | | | | | | | | < < | | 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 | BuildWindow := TBuildStatusWindow.Create(Application); BuildWindow.Show; // Build the parameters: buildOpts := 'groff'; // - Macro: if cmbMacro.SelText <> '' then buildOpts := buildOpts + ' -' + cmbMacro.SelText; // - Enforce UTF-8: buildOpts := buildOpts + ' -Kutf8'; // - Preprocessors: if chkChem.Checked then buildOpts := buildOpts + ' -chem'; if chkEqn.Checked then buildOpts := buildOpts + ' -eqn'; if chkGrn.Checked then buildOpts := buildOpts + ' -grn'; if chkPic.Checked then buildOpts := buildOpts + ' -pic'; if chkRefer.Checked then buildOpts := buildOpts + ' -refer'; if chkTbl.Checked then buildOpts := buildOpts + ' -tbl'; // - PDF-specifics: if rdPdf.Checked then begin buildOpts := buildOpts + ' -Tpdf'; if chkPdfMark.Checked then buildOpts := buildOpts + ' -mpdfmark'; outputFileName := currentGroffFilePath + '.pdf'; end else outputFileName := currentGroffFilePath + '.ps'; // - Input file: buildOpts := buildOpts + ' ' + currentGroffFilePath; buildOpts := buildOpts + ' > ' + outputFileName; |
︙ | ︙ | |||
425 426 427 428 429 430 431 | end; procedure TMainForm.btnSaveSettingsClick(Sender: TObject); begin // Store the build settings: iniStorage.WriteString('BuildChosenMacro', cmbMacro.Text); iniStorage.WriteBoolean('BuildLogFile', chkLogFile.Checked); | | | | | | | < | | 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 | end; procedure TMainForm.btnSaveSettingsClick(Sender: TObject); begin // Store the build settings: iniStorage.WriteString('BuildChosenMacro', cmbMacro.Text); iniStorage.WriteBoolean('BuildLogFile', chkLogFile.Checked); iniStorage.WriteBoolean('BuildUseChem', chkChem.Checked); iniStorage.WriteBoolean('BuildUseEqn', chkEqn.Checked); iniStorage.WriteBoolean('BuildUseGrn', chkGrn.Checked); iniStorage.WriteBoolean('BuildUsePic', chkPic.Checked); iniStorage.WriteBoolean('BuildUseRefer', chkRefer.Checked); iniStorage.WriteBoolean('BuildUseTbl', chkTbl.Checked); iniStorage.WriteBoolean('BuildUsePdfMark', chkPdfMark.Checked); iniStorage.WriteBoolean('BuildToPostscript', rdPs.Checked); iniStorage.WriteBoolean('BuildToPDF', rdPDF.Checked); // Store the IDE settings: iniStorage.WriteBoolean('AutoSaveBuildSettings', chkAutoSaveBuildSettings.Checked); iniStorage.WriteBoolean('AutoUpdateCheck', chkUpdateCheckOnStart.Checked); |
︙ | ︙ |