Overview
Comment: | [Feature] Support for hdtbl. [Changed] Build extras and build preprocessors are now listed in a multi-select box. |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA3-256: |
931cfb6b0c47bbb216e52da139110f47 |
User & Date: | Cthulhux on 2022-03-15 15:10:38 |
Other Links: | manifest | tags |
Context
2022-03-16
| ||
18:10 | [Improved] If no error has occurred, the log file will contain a success message. check-in: 1216632299 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 | |
Changes
Modified CHANGES.txt from [983e766f33] to [734b411882].
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. | > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 | Version [next] [Feature] Support for hdtbl. [Changed] Build extras and build preprocessors are now listed in a multi-select box. ------------------------------- 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 src/groffstudio.lpi from [6398047e8e] to [84201116a3].
︙ | ︙ | |||
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 | <Resources Count="1"> <Resource_0 FileName="..\LICENSE" Type="RCDATA" ResourceName="LICENSE"/> </Resources> </General> <VersionInfo> <UseVersionInfo Value="True"/> <AutoIncrementBuild Value="True"/> <MinorVersionNr Value="13"/> <Attributes pvaPreRelease="True"/> <StringTable ProductName="groffstudio"/> </VersionInfo> <BuildModes> <Item Name="Default" Default="True"/> </BuildModes> <PublishOptions> |
︙ | ︙ |
Modified src/unit1.lfm from [3d168cf702] to [745f374b4a].
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 = 2515 Height = 692 Top = 99 Width = 847 Caption = 'groffstudio' ClientHeight = 692 ClientWidth = 847 DefaultMonitor = dmPrimary OnClose = FormClose OnCreate = FormCreate LCLVersion = '2.3.0.0' object MainStatusBar: TStatusBar Left = 0 Height = 23 Top = 669 Width = 847 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 = 827 ActivePage = tsEdit Anchors = [akTop, akLeft, akRight, akBottom] Style = tsFlatButtons TabIndex = 0 TabOrder = 1 object tsEdit: TTabSheet Caption = 'edit a groff document' ClientHeight = 631 ClientWidth = 819 ParentFont = False object GroupBox1: TGroupBox Left = 10 Height = 66 Top = 560 Width = 799 Align = alBottom BorderSpacing.Left = 10 BorderSpacing.Right = 10 BorderSpacing.Bottom = 5 Caption = 'build' ClientHeight = 46 ClientWidth = 795 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 | 'mom' 'ms' ) TabOrder = 0 Text = '[ select ]' end object Label2: TLabel Left = 672 Height = 15 Top = -4 Width = 78 Anchors = [akTop, akRight] Caption = 'output format:' ParentColor = False end object rdPs: TRadioButton Left = 673 Height = 19 Top = 16 Width = 71 Anchors = [akTop, akRight] Caption = 'PostScript' TabOrder = 1 end object rdPdf: TRadioButton Left = 753 Height = 19 Top = 16 Width = 39 Anchors = [akTop, akRight] Caption = 'PDF' TabOrder = 2 end object Label3: TLabel Left = 419 Height = 15 Top = -4 Width = 76 Anchors = [akTop, akRight] Caption = 'preprocessors:' ParentColor = False end object Label4: TLabel Left = 544 Height = 15 Top = -4 Width = 34 Anchors = [akTop, akRight] Caption = 'extras:' ParentColor = False 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 = 3 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 = 4 end object chkBoxPreprocessors: TCheckComboBox Left = 419 Height = 24 Top = 15 Width = 100 Anchors = [akTop, akRight] ItemHeight = 16 Items.Strings = ( 'chem' 'eqn' 'grn' 'pic' 'refer' 'tbl' ) TabOrder = 5 end object chkBoxExtras: TCheckComboBox Left = 544 Height = 24 Top = 15 Width = 100 Anchors = [akTop, akRight] ItemHeight = 16 Items.Strings = ( 'hdtbl' 'Pdfmark' ) TabOrder = 6 end end object btnSaveGroff: TButton Left = 734 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 = 653 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 = 197 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 = 799 Anchors = [akTop, akLeft, akRight, akBottom] Font.CharSet = 4 Font.Height = -13 Font.Name = 'Consolas' Font.Pitch = fpFixed Font.Quality = fqCleartypeNatural ParentColor = False |
︙ | ︙ | |||
755 756 757 758 759 760 761 | end end end end object tsSettings: TTabSheet Caption = 'groffstudio settings' ClientHeight = 631 | | | | 719 720 721 722 723 724 725 726 727 728 729 730 731 732 733 734 735 736 737 738 739 740 741 742 743 | end end end end object tsSettings: TTabSheet Caption = 'groffstudio settings' ClientHeight = 631 ClientWidth = 819 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 = 730 Height = 25 Top = 600 Width = 91 Anchors = [akRight, akBottom] Caption = 'save settings' OnClick = btnSaveSettingsClick TabOrder = 1 |
︙ | ︙ | |||
794 795 796 797 798 799 800 | Caption = 'check for updates on startup' TabOrder = 2 end end object tsGroff: TTabSheet Caption = 'groff version' ClientHeight = 631 | | | | | | | | | | | | | 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 787 788 789 790 791 792 793 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 | Caption = 'check for updates on startup' TabOrder = 2 end end object tsGroff: TTabSheet Caption = 'groff version' ClientHeight = 631 ClientWidth = 819 object GroupBox2: TGroupBox Left = 20 Height = 57 Top = 566 Width = 779 Align = alBottom BorderSpacing.Left = 20 BorderSpacing.Right = 20 BorderSpacing.Bottom = 8 Caption = 'groff for Windows' ClientHeight = 37 ClientWidth = 775 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 = 542 Anchors = [akTop, akLeft, akRight] BorderStyle = bsNone Enabled = False TabOrder = 0 Text = 'fetching ...' end object btnDownloadGroffWindows: TButton Left = 686 Height = 25 Top = 5 Width = 80 Anchors = [akTop, akRight] Caption = 'download it' OnClick = btnDownloadGroffWindowsClick TabOrder = 1 end end object Label7: TLabel Left = 8 Height = 30 Top = 8 Width = 807 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 = 671 Anchors = [akTop, akLeft, akRight] BorderStyle = bsNone Enabled = False TabOrder = 1 end object lblTroffCommandNotFound: TLabel Left = 8 Height = 45 Top = 112 Width = 806 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 = 671 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 = 819 object lblAboutProductName: TLabel Left = 0 Height = 61 Top = 16 Width = 315 Caption = 'groffstudio x.y.z' Font.Color = clBlue |
︙ | ︙ | |||
956 957 958 959 960 961 962 | ParentColor = False ParentFont = False end object mLicense: TMemo Left = 0 Height = 418 Top = 216 | | | 920 921 922 923 924 925 926 927 928 929 930 931 932 933 934 | ParentColor = False ParentFont = False end object mLicense: TMemo Left = 0 Height = 418 Top = 216 Width = 826 Anchors = [akTop, akLeft, akRight] ScrollBars = ssAutoBoth TabOrder = 0 end object lblWebsite: TLabel Cursor = crHandPoint Left = 120 |
︙ | ︙ |
Modified src/unit1.pas from [b7fbc951e8] to [44732cacc5].
︙ | ︙ | |||
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 | {$mode objfpc}{$H+} interface uses Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ComCtrls, StdCtrls, ExtCtrls, Buttons, ExtendedNotebook, SynEdit, fphttpclient, RegExpr, LCLIntf, LCLType, IniPropStorage, ComboEx, 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; chkBoxExtras: TCheckComboBox; chkBoxPreprocessors: TCheckComboBox; chkUpdateCheckOnStart: TCheckBox; chkLogFile: TCheckBox; chkAutoSaveBuildSettings: TCheckBox; cmbMacro: TComboBox; edtGroffInstalledVersion: TEdit; edtGroffstudioInstalledVersion: TEdit; edtOnlineGroffVersionWindows: TEdit; ExtendedNotebook1: TExtendedNotebook; GroupBox1: TGroupBox; GroupBox2: TGroupBox; |
︙ | ︙ | |||
96 97 98 99 100 101 102 | 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); | < < | 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; |
︙ | ︙ | |||
186 187 188 189 190 191 192 | chkUpdateCheckOnStart.Checked := updateCheck; {$ENDIF} if storeBuildSettings then begin chkLogFile.Checked := iniStorage.ReadBoolean('BuildLogFile', False); cmbMacro.Text := iniStorage.ReadString('BuildChosenMacro', '[ select ]'); | | | | | | | > | | 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 | chkUpdateCheckOnStart.Checked := updateCheck; {$ENDIF} if storeBuildSettings then begin chkLogFile.Checked := iniStorage.ReadBoolean('BuildLogFile', False); cmbMacro.Text := iniStorage.ReadString('BuildChosenMacro', '[ select ]'); chkBoxPreprocessors.Checked[0] := iniStorage.ReadBoolean('BuildUseChem', False); chkBoxPreprocessors.Checked[1] := iniStorage.ReadBoolean('BuildUseEqn', False); chkBoxPreprocessors.Checked[2] := iniStorage.ReadBoolean('BuildUseGrn', False); chkBoxPreprocessors.Checked[3] := iniStorage.ReadBoolean('BuildUsePic', False); chkBoxPreprocessors.Checked[4] := iniStorage.ReadBoolean('BuildUseRefer', False); chkBoxPreprocessors.Checked[5] := iniStorage.ReadBoolean('BuildUseTbl', False); chkBoxExtras.Checked[0] := iniStorage.ReadBoolean('BuildUseHdtbl', False); chkBoxExtras.Checked[1] := 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); |
︙ | ︙ | |||
296 297 298 299 300 301 302 | end; procedure TMainForm.lblWebsiteClick(Sender: TObject); begin OpenURL('https://groff.tuxproject.de'); end; | < < < < < < < < < < | 290 291 292 293 294 295 296 297 298 299 300 301 302 303 | 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; |
︙ | ︙ | |||
344 345 346 347 348 349 350 | // - Macro: if cmbMacro.SelText <> '' then buildOpts := buildOpts + ' -' + cmbMacro.SelText; // - Enforce UTF-8: buildOpts := buildOpts + ' -Kutf8'; // - Preprocessors: | | | | | | | > > | | 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 | // - Macro: if cmbMacro.SelText <> '' then buildOpts := buildOpts + ' -' + cmbMacro.SelText; // - Enforce UTF-8: buildOpts := buildOpts + ' -Kutf8'; // - Preprocessors: if chkBoxPreprocessors.Checked[0] then buildOpts := buildOpts + ' -chem'; if chkBoxPreprocessors.Checked[1] then buildOpts := buildOpts + ' -eqn'; if chkBoxPreprocessors.Checked[2] then buildOpts := buildOpts + ' -grn'; if chkBoxPreprocessors.Checked[3] then buildOpts := buildOpts + ' -pic'; if chkBoxPreprocessors.Checked[4] then buildOpts := buildOpts + ' -refer'; if chkBoxPreprocessors.Checked[5] then buildOpts := buildOpts + ' -tbl'; if chkBoxExtras.Checked[0] then buildOpts := buildOpts + ' -mhdtbl'; // - PDF-specifics: if rdPdf.Checked then begin buildOpts := buildOpts + ' -Tpdf'; if chkBoxExtras.Checked[1] then buildOpts := buildOpts + ' -mpdfmark'; outputFileName := currentGroffFilePath + '.pdf'; end else outputFileName := currentGroffFilePath + '.ps'; // - Input file: buildOpts := buildOpts + ' ' + currentGroffFilePath; buildOpts := buildOpts + ' > ' + outputFileName; |
︙ | ︙ | |||
435 436 437 438 439 440 441 | end; procedure TMainForm.btnSaveSettingsClick(Sender: TObject); begin // Store the build settings: iniStorage.WriteString('BuildChosenMacro', cmbMacro.Text); iniStorage.WriteBoolean('BuildLogFile', chkLogFile.Checked); | | | | | | | > | | 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 | end; procedure TMainForm.btnSaveSettingsClick(Sender: TObject); begin // Store the build settings: iniStorage.WriteString('BuildChosenMacro', cmbMacro.Text); iniStorage.WriteBoolean('BuildLogFile', chkLogFile.Checked); iniStorage.WriteBoolean('BuildUseChem', chkBoxPreprocessors.Checked[0]); iniStorage.WriteBoolean('BuildUseEqn', chkBoxPreprocessors.Checked[1]); iniStorage.WriteBoolean('BuildUseGrn', chkBoxPreprocessors.Checked[2]); iniStorage.WriteBoolean('BuildUsePic', chkBoxPreprocessors.Checked[3]); iniStorage.WriteBoolean('BuildUseRefer', chkBoxPreprocessors.Checked[4]); iniStorage.WriteBoolean('BuildUseTbl', chkBoxPreprocessors.Checked[5]); iniStorage.WriteBoolean('BuildUseHdtbl', chkBoxExtras.Checked[0]); iniStorage.WriteBoolean('BuildUsePdfMark', chkBoxExtras.Checked[1]); iniStorage.WriteBoolean('BuildToPostscript', rdPs.Checked); iniStorage.WriteBoolean('BuildToPDF', rdPDF.Checked); // Store the IDE settings: iniStorage.WriteBoolean('AutoSaveBuildSettings', chkAutoSaveBuildSettings.Checked); iniStorage.WriteBoolean('AutoUpdateCheck', chkUpdateCheckOnStart.Checked); |
︙ | ︙ |