Skip to content

Instantly share code, notes, and snippets.

@phluks

phluks/test-dk-hyphen.pl

Last active December 13, 2015 21:29
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save phluks/4977891 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save phluks/4977891 to your computer and use it in GitHub Desktop.
Download ZIP

Revisions

  1. phluks revised this gist Feb 19, 2013. 1 changed file with 1 addition and 1 deletion.
    2 changes: 1 addition & 1 deletion test-dk-hyphen.pl
    View file
    Original file line number Diff line number Diff line change
    @@ -2,7 +2,7 @@
    use warnings;
    use v5.10;

    # save as utf8!
    # Remember to save as utf8!
    use utf8;
    use TeX::Hyphen;
    use TeX::Hyphen::Pattern;
  2. phluks revised this gist Feb 19, 2013. 1 changed file with 2 additions and 2 deletions.
    4 changes: 2 additions & 2 deletions test-dk-hyphen.pl
    View file
    Original file line number Diff line number Diff line change
    @@ -2,7 +2,7 @@
    use warnings;
    use v5.10;

    # gem som utf8!
    # save as utf8!
    use utf8;
    use TeX::Hyphen;
    use TeX::Hyphen::Pattern;
    @@ -11,7 +11,7 @@
    $pat = TeX::Hyphen::Pattern->new();
    $pat->label('da_DK');

    # Det ser ikke ud til at det hjælper at ændre på left/rightmin
    # Changing left/rightmin does not seem to help
    #$hyph = TeX::Hyphen->new(file => $pat->filename, leftmin => 2, rightmin => 2);
    $hyph = TeX::Hyphen->new(file => $pat->filename);

  3. phluks revised this gist Feb 19, 2013. 1 changed file with 12 additions and 2 deletions.
    14 changes: 12 additions & 2 deletions test-dk-hyphen.pl
    View file
    Original file line number Diff line number Diff line change
    @@ -6,10 +6,20 @@
    use utf8;
    use TeX::Hyphen;
    use TeX::Hyphen::Pattern;
    use open ":locale";

    $pat = TeX::Hyphen::Pattern->new();
    $pat->label('da_DK');

    # Det ser ikke ud til at det hjælper at ændre på left/rightmin
    $hyph = TeX::Hyphen->new(file => $pat->filename, leftmin => 2, rightmin => 2);
    say "køreskole: " . $hyph->visualize("køreskole"); # k�reskole: k�resko-le
    #$hyph = TeX::Hyphen->new(file => $pat->filename, leftmin => 2, rightmin => 2);
    $hyph = TeX::Hyphen->new(file => $pat->filename);

    say "køreskole: "
    . $hyph->visualize("køreskole"); # køreskole: køresko-le

    say "wonderwoman: "
    . $hyph->visualize("wonderwoman"); # wonderwoman: won-derwo-man

    say "katedralskole: "
    . $hyph->visualize("katedralskole"); # katedralskole: ka-ted-ralsko-le
  4. phluks created this gist Feb 18, 2013.
    15 changes: 15 additions & 0 deletions test-dk-hyphen.pl
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,15 @@
    #!/usr/bin/perl
    use warnings;
    use v5.10;

    # gem som utf8!
    use utf8;
    use TeX::Hyphen;
    use TeX::Hyphen::Pattern;

    $pat = TeX::Hyphen::Pattern->new();
    $pat->label('da_DK');

    # Det ser ikke ud til at det hjælper at ændre på left/rightmin
    $hyph = TeX::Hyphen->new(file => $pat->filename, leftmin => 2, rightmin => 2);
    say "køreskole: " . $hyph->visualize("køreskole"); # k�reskole: k�resko-le