initial commit

.editorconfig

@@ -0,0 +1,9 @@
+root = true
+
+[*.{lua,pl}]
+end_of_line = lf
+insert_final_newline = true
+charset = utf-8
+indent_style = space
+indent_size = 2
+

README.md

@@ -0,0 +1,26 @@
+# telescope-dict.nvim
+
+A [Telescope](https://github.com/nvim-telescope/telescope.nvim) extension that loads a list of synonyms for the word under the cusor in the current buffer, and shows their definition in the preview window. Selecting one of the synonyms replaces the word in the buffer.
+
+## Requirements
+
+These should be available through your package manager (or likely already installed, in the case of `perl`):
+
+- `perl`
+- `dictd`: dictionary server
+  - `dict-wn`: WordNet dictionary for `dictd`
+  - `dict-moby-thesaurus`: Moby Thesaurus dictionary for `dictd`
+
+## Usage
+
+Install with packer (or similar equivalent package manager):
+
+```lua
+use 'rudism/telescope-dict.nvim'
+```
+
+Bind this to a key and execute it to open the synonym list for the word currently under the cursor:
+
+```lua
+require('telescope').extensions.dict.synonyms()
+```

lua/telescope/_extensions/cmd.pl

@@ -0,0 +1,90 @@
+#!/usr/bin/env perl
+
+# script that parses the following dictd output:
+# arg1=synonyms: moby-thesaurus
+#   - one word per line
+# arg1=definitions: wn
+#   - one definition per line separated by blank lines
+
+use warnings;
+use strict;
+use Data::Dumper qw(Dumper);
+
+my ($cmd, $word) = (shift, shift);
+my $qword = quotemeta($word);
+
+if ($cmd eq 'synonyms') {
+  open(my $fh, '-|', "dict -d moby-thesaurus $qword 2>/dev/null");
+  my $first = 1;
+  while (my $line = <$fh>) {
+    chomp($line);
+    if ($line =~ /^     /) {
+      $line =~ s/^\s+//;
+      $line =~ s/[\s,]*$//;
+      my @words = split(/\s*,\s*/, $line);
+      foreach my $word (@words) {
+        if ($first) {
+          $first = 0;
+        } else {
+          print "\n";
+        }
+        print $word;
+      }
+    }
+  }
+  close($fh);
+}
+
+elsif ($cmd eq 'definitions') {
+  open(my $fh, '-|', "dict -d wn $qword 2>/dev/null");
+  my $defsraw = '';
+  while (my $line = <$fh>) {
+    if ($line =~ /^ {6}/) {
+      $defsraw .= $line;
+    }
+  }
+  close($fh);
+  my @defs = split(/\n      (?=[a-z]* ?\d+: )/, $defsraw);
+  my $curtype;
+  my $defmap = {};
+  my ($biggest, $count) = (0, 0);
+  my @deftypes = ();
+  foreach my $def (@defs) {
+    my $line = $def;
+    if ($line) {
+      $line =~ s/(^\s+|\s+$)//g;
+      $line =~ s/\s*\n\s*/ /g;
+      if ($line =~ /^(([^0-9]+) )?(\d+): (.*?)( \[.*)?$/) {
+        my ($type, $num, $desc, $meta) = ($2, $3, $4, $5);
+        if ($type) {
+          $curtype = $type;
+          $defmap->{$curtype} = [];
+          push @deftypes, $type;
+          $count = 0;
+        }
+        next if !$curtype;
+        push @{$defmap->{$curtype}}, {
+          desc => $desc,
+          meta => $meta};
+        $count++;
+        if ($count > $biggest) {
+          $biggest = $count;
+        }
+      }
+    }
+  }
+  my $first = 1;
+  for (my $i = 0; $i < $biggest; $i++) {
+    foreach my $key (@deftypes) {
+      if($defmap->{$key}->[$i]) {
+        my $desc = $defmap->{$key}->[$i]->{desc};
+        if ($first) {
+          $first = 0;
+        } else {
+          print "\n\n";
+        }
+        print "$key: $desc";
+      }
+    }
+  }
+}

lua/telescope/_extensions/dict.lua

@@ -0,0 +1,64 @@
+local telescope = require('telescope')
+local pickers = require('telescope.pickers')
+local finders = require('telescope.finders')
+local sorters = require('telescope.sorters')
+local previewers = require('telescope.previewers')
+local previewer_utils = require('telescope.previewers.utils')
+local actions = require('telescope.actions')
+local action_state = require('telescope.actions.state')
+
+function script_path()
+  local str = debug.getinfo(2, "S").source:sub(2)
+  return str:match("(.*/)")
+end
+
+function upper_first(word)
+  return word:gsub("(%a)([%w_']*)", function(first, rest) return first:upper()..rest:lower() end)
+end
+
+return telescope.register_extension {
+  exports = {
+    synonyms = function(opts)
+      opts = opts or {}
+      local cursor_word = vim.fn.expand("<cword>")
+      local command = table.concat({
+        "perl ",
+        script_path().."/cmd.pl ",
+        "synonyms ",
+        vim.fn.shellescape(cursor_word)
+      })
+      local synonyms = vim.fn.systemlist(command) or {}
+      table.insert(synonyms, cursor_word:lower())
+      pickers.new(opts, {
+        prompt_title = upper_first(cursor_word).." Synonyms",
+        finder = finders.new_table {
+          results = synonyms,
+        },
+        sorter = sorters.get_substr_matcher(),
+        previewer = previewers.new_buffer_previewer({
+          define_preview = function(self, entry, status)
+            vim.api.nvim_win_set_option(self.state.winid, 'wrap', true)
+            vim.api.nvim_win_set_option(self.state.winid, 'lbr', true)
+            local cmd = { "perl", script_path().."/cmd.pl", "definitions", entry.value }
+            return previewer_utils.job_maker(cmd, self.state.bufnr, {
+              callback = function(bufnr, content)
+                previewer_utils.highlighter(bufnr, 'yaml')
+              end
+            })
+          end,
+          title = "Definition"
+        }),
+        dynamic_preview_title = true,
+        attach_mappings = function(prompt_bufnr)
+          actions.select_default:replace(function()
+            local selection = action_state.get_selected_entry()
+            actions.close(prompt_bufnr)
+            vim.cmd("normal! ciw" .. selection[1])
+            vim.cmd "stopinsert"
+          end)
+          return true
+        end,
+      }):find()
+    end
+  }
+}