Bundle-PBib

 view release on metacpan or  search on metacpan

bin/PBibTk.pl  view on Meta::CPAN

=item *

B<Browse references> both in database and those cited in the current document side-by-side. Get quickly an idea, how many and which references you are using plus how often each reference is cited.

=item * 

B<Quick search> for authors and keywords. Searches are remembered and can be quickly accessed (or re-executed) later.

=item *

Easy B<copy-and-paste of references> into the document using the system clipboard and your favourite editor (including MS Word and OpenOffice).

=item *

B<Jump> to the place a reference is cited in the current document. (I think this only works with MS Word at the moment.) For most document types, you will be able to quickly B<open the current document> for editing.

=item *

Start F<PBib>, i.e. B<process the current input document> to create one with formatted citations and list of references.

=item *

docs/ToDo.txt  view on Meta::CPAN

- check-buttons: "display used only", "display known only", "new", "unknown & not new"
- refactor: sub-modules for Ref-Lists
- support multiple top-level windows (for different papers) ... needed???
- fork thread to update widgets ... geht das?

LitUIRefDialog:
- LitUIRefDialog: insert ref: neuen text selektieren
- LitUIRefDialog: insert hyperlink for Source, doi, BibSource, File, ...

LitUISearchDialog:
- im menü: alle references von dem suchergebnis ins clipboard als [[S1], [S2], ...]

LitRefs:

- bug: quote single (and double?) quotes in SQL select (')
- LitRefs should use PBib::Document.pm
- eigentlich sollte LitUI LitRefs gar nicht mehr benutzen ...

PBib/Doc:
- MSWord: paragraphs should return also other "stories" (text flows) beside 
  the main one, esp. footnote/endnotes, or comments, or whichever other stories exist ...

docs/ToDo.txt  view on Meta::CPAN

  ref'Formators should use abstract interface + rely on Doc's quote()
  => Ref'Form'RTF -> Ref'Form'Field uses Doc's field() etc. methods
- allow "inline" references like [Author1, Author2 "Title" ....] that will be
  included in bibliographies!
- search author dialog
- search keyword dialog (look in keyword, title, comment, note, ....)
- read paper ==> update refs list also! (used/unused might have changed)
- BibItem bug: output "et al." instead of "et al.." if the Author field ends
  with a dot.
- BibItem bug: don't output "edition" if the Edition field is not an (ordinal) number
- button: "copy selected ref to clipboard", "find + jump to selected ref in word"
- search dialog: search case-independent
- "open" doc button: open selected document (in word or notepad or associated app.)
- pbib-import: import bib's into std-bib
- doppel-klick in ref liste öffnet refs fenster
- jump-to-key: auch für liste mit focus
- option "inline" print "Tandler et al. (2000)" (et al. could be in italics!)
- PBib: fix creation of bookmarks in IEEE style
- LitUIRefDialog: use PBib to generate sensible output of reference!
- use bp ...
- support for xrefs.: define conferences and journals (see bibtex)

lib/PBibTk/Main.pm  view on Meta::CPAN

  $model = $self unless defined $model;
  my $mb = $mf->cascade(-label => '~Biblio'); ###, -tearoff => 0);

#  $cmd = sub { $model->showSelectedBiblioReference(); };
  $cmd = [$model, 'showSelectedBiblioReference'];
  $mb->command(-label => 'Show ~Reference', -command => $cmd,
				-accelerator => 'Ctrl-R' );
  $win->bind('<Control-r>' => $cmd);
#  $win->bind('<Return>' => $cmd);

  $cmd = [ $model, 'clipboardSelectedBiblioReferenceId'];
  $mb->command(-label => '~Copy CiteKey to Clipboard', -command => $cmd,
				-accelerator => 'Ctrl-C' );
  $win->bind('<Control-c>' => $cmd);

  $cmd = sub { $model->searchSelectedBiblioReferenceId(); };
  $mb->command(-label => '~Search CiteKey in Paper', -command => $cmd,
  				-accelerator => 'Ctrl-J' );
  $win->bind('<Control-j>' => $cmd);

  $cmd = sub { $model->refList()->focus(); };

lib/PBibTk/Main.pm  view on Meta::CPAN

sub initPaperMenu {
  my ($self, $mf, $win) = @_;
  my $cmd;
  my $mb = $mf->cascade(-label => '~Paper');

  $cmd = sub { $self->showSelectedPaperReference(); };
  $mb->command(-label => 'Show ~Reference', -command => $cmd,
  				-accelerator => 'Ctrl-T' );
  $win->bind('<Control-Key-t>' => $cmd);

  $cmd = sub { $self->clipboardSelectedPaperReferenceId(); };
  $mb->command(-label => '~Copy CiteKey to Clipboard', -command => $cmd,
  				-accelerator => 'Ctrl-X' );
  $win->bind('<Control-Key-x>' => $cmd);

  $cmd = sub { $self->searchSelectedPaperReferenceId(); };
  $mb->command(-label => '~Search CiteKey in Paper', -command => $cmd,
  				-accelerator => 'Ctrl-G' );
  $win->bind('<Control-Key-g>' => $cmd);

  $cmd = sub { $self->foundList()->focus(); };

lib/PBibTk/Main.pm  view on Meta::CPAN

  PBibTk::RefDialog->new($self, $paper)->show();
}
sub showSelectedPaperReference {
  my $self = shift;
  my $idx = $self->foundListSelection();
  return if !defined($idx) || $idx eq "";
  my $paper = $self->litRefs()->queryPaperWithId($self->paperRefAt($idx));
  PBibTk::RefDialog->new($self, $paper)->show();
}

sub clipboardSelectedBiblioReferenceId {
  my $self = shift;
  my $idx = $self->refListSelection();
  return if !defined($idx) || $idx eq "";
  my $ref = $self->biblioRefAt($idx);
  Win32::Clipboard()->Set("[$ref]");
}
sub clipboardSelectedPaperReferenceId {
  my $self = shift;
  my $idx = $self->foundListSelection();
  return if !defined($idx) || $idx eq "";
  my $ref = $self->paperRefAt($idx);
  Win32::Clipboard()->Set("[$ref]");
}

sub searchSelectedBiblioReferenceId {
  my $self = shift;
  my $idx = $self->refListSelection();

lib/PBibTk/SearchDialog.pm  view on Meta::CPAN

}

sub showSelectedBiblioReference {
	my $self = shift;
	my $paper = $self->selectedBiblioReference();
	return unless defined($paper);
	PBibTk::RefDialog
	  ->new($self->pBibTkUI(), $paper)
	  ->show();
}
sub clipboardSelectedBiblioReferenceId {
	my $self = shift;
	my $paper = $self->selectedBiblioReference();
	return unless defined($paper);
	my $ref = $paper->{'CiteKey'};
	Win32::Clipboard()->Set("[$ref]");
}
sub searchSelectedBiblioReferenceId {
	my $self = shift;
	my $paper = $self->selectedBiblioReference();
	return unless defined($paper);