19
$\begingroup$

I've spent a fair amount of time bending Mathematica for taking notes and I've been very happy with it, the only missing piece it seems is a nice spell check dictionary for Polish (my mother language).

If anyone could point me to the right resources; where to download or how to convert an existing dictionary to one compatible with Mathematica I'd be very grateful.

--- Update ---

Alright, so I've recognized that the spelling dictionary probably sits in Mathematica/Contents/SystemFiles/SpellingDictionaries/English/Mathematica.rws and I've found some clues that it might be an aspell dictionary, so I've downloaded an aspell polish dictionary from http://sjp.pl/slownik/en/, builded it to .rws (here's a zip) and then tried to replace the default English dictionary (because putting dictionaries side by side in /SpellingDictionaries didn't work either) and when I've tried to spell-check a document the box reported a problem with Mathematica.rws which probably is CodeSigned and therefore cannot be easily replaced...

--- Update 2 ---

The first 32 bytes look exactly the same so the format should (?) be correct.

Well, I guess we may be left stuck just one last step to a working solution.

Improve this question
$\endgroup$
14
  • 1
    $\begingroup$ Have you seen How to | Spell Check a Notebook? $\endgroup$
    – user9660
    Sep 10, 2015 at 12:47
  • 5
    $\begingroup$ While I can't comment on features under development, the spell checking engine and dictionary format may change altogether, so that it would be much easier to add a dictionary for your language (if not already included). $\endgroup$
    – ilian
    Sep 19, 2015 at 15:32
  • 3
    $\begingroup$ @ilian let me just note that modifying an LGPL library such as aspell and then linking it into Mathematica obliges WRI to make available (strictly, as part of the Mathematica distribution) the source code for the modified library. So far as I can tell, this has not been done, but should be. Thus, it ought to be possible (if a user is sufficiently motivated) to generate a compatible dictionary file. $\endgroup$
    – Oleksandr R.
    Nov 22, 2015 at 18:54
  • 2
    $\begingroup$ @ilian the key distinction is as to what or is not is a derivative work. The modified library is clearly a derivative of the original and so must be made available under the terms of the (L)GPL. Code that links to it (rather than incorporating it) is not considered a derivative work under the LGPL but merely a combined work. This is in contrast to the GPL, where linking (understood in the broadest possible sense) is sufficient to produce a derivative work. These terms are to be understood in the context of copyright since GPL/LGPL rely on copyright law for their applicability. $\endgroup$
    – Oleksandr R.
    Nov 22, 2015 at 21:29
  • 2
    $\begingroup$ @OleksandrR Thank you for explaining, I am not sure what the answer is, but I will let the appropriate people know. It is possible my speculation about what was modified was simply wrong. $\endgroup$
    – ilian
    Nov 22, 2015 at 22:14

3 Answers 3

Reset to default
3
$\begingroup$

In 10.4 there are new language functions like DictionaryWordQ and SpellingCorrectionList:

DictionaryWordQ["delfin", Language -> Interpreter["Language"]["Polish"]]
(*True*)    

SpellingCorrectionList["telewozja", Language -> Interpreter["Language"]["Polish"]]
(*{"telewizja"}*)
Improve this answer
$\endgroup$
1
  • 1
    $\begingroup$ Great find! Now how can one easily spell check a notebook? $\endgroup$
    – Ranza
    Mar 6, 2016 at 11:09
1
$\begingroup$ 
$dictionaryLanguage = "Polish";

Unprotect[DictionaryLookup];

DictionaryLookup[pat : Except[_List], x___] /; ! TrueQ[$dicLang] && 
       ValueQ[$dictionaryLanguage] := 
 Block[{$dicLang = True}, 
      DictionaryLookup[{$dictionaryLanguage, pat}, x]]

DownValues[DictionaryLookup] = 
  RotateRight@DownValues[DictionaryLookup];

Protect[DictionaryLookup];
Improve this answer
$\endgroup$
1
  • 4
    $\begingroup$ can you please elaborate how this helps? $\endgroup$
    – Ranza
    Sep 24, 2015 at 15:48
1
$\begingroup$

I guess this is solved with version 11 of Mathematica.

Improve this answer
$\endgroup$

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Not the answer you're looking for? Browse other questions tagged or ask your own question.