From: Don Armstrong <don@donarmstrong.com>
Date: Mon, 4 May 2015 19:58:28 +0000 (-0700)
Subject: add no-abstract option
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=9ff588d80d227ac1b4a977364b814696ff366e88;p=bin.git

add no-abstract option
---

diff --git a/pubmed_search b/pubmed_search
index 778960a..435f753 100755
--- a/pubmed_search
+++ b/pubmed_search
@@ -59,16 +59,18 @@ Display this manual.
 use vars qw($DEBUG);
 
 my %options = (debug           => 0,
-	       help            => 0,
-	       man             => 0,
-	       color           => 1,
-	       org_mode        => 0,
-	       );
+               help            => 0,
+               man             => 0,
+               color           => 1,
+               org_mode        => 0,
+               abstract        => 1,
+              );
 
 GetOptions(\%options,
            'color|c!',
            'org_mode|org-mode',
            'pmid_only|pmid-only',
+           'abstract|a!',
            'debug|d+','help|h|?','man|m');
 
 pod2usage() if $options{help};
@@ -128,8 +130,8 @@ for my $article ($xml->findnodes(q{//*[local-name()='MedlineCitation']})) {
     print BOLD CYAN if $options{color};
     print encode_utf8($title->textContent())."\n";
     print RESET if $options{color};
-    print BOLD MAGENTA if $options{color};
-    if (defined $abstract) {
+    if (defined $abstract and $options{abstract}) {
+        print BOLD MAGENTA if $options{color};
         if ($options{org_mode}) {
             print "*** Abstract\n";
         }