Common structure for search websites (#23)

* API work to impose a common structure across websites.

* Remove plural

* Fix vignette index name

* Update NEWS

* Stage environment

Author: coatless

NEWS.md

@@ -8,13 +8,16 @@
 
 ## Changes
 
-- Default options added.
+- Default options added:
   - `searcher.launch_delay` controls how long the user remains in _R_ prior
     to the browser opening. Default is `0.5` seconds.
   - `searcher.use_rstudio_viewer` specifies whether RStudio's viewer pane should
     open the link instead of a web browser. Default is `FALSE` until the issue
     is resolved..
 
+## Fixes
+
+- Fixed vignette index name.
 
 # searcher 0.0.4
 

R/searcher-environment.R

@@ -0,0 +1,33 @@
+keyword_default = function() {
+  keyword_entry("r programming", "tidyverse")
+}
+
+keyword_entry = function(base, tidyverse = base) {
+  list(base = base, tidyverse = tidyverse)
+}
+
+site_entry = function(url, keywords = keyword_default(), suffix = NULL) {
+  list("url" = url,
+       "keywords" = keywords,
+       "suffix" = suffix)
+}
+
+searcher_properties =
+  list(
+    "google"            = site_entry("https://github.com/search?q="),
+    "bing"              = site_entry("https://bing.com/search?q="),
+    "duckduckgo"        = site_entry("https://duckduckgo.com/?q="),
+    "startpage"         = site_entry("https://startpage.com/do/dsearch?query="),
+    "stackoverflow"     = site_entry("https://stackoverflow.com/search?q=",
+                                     keyword_entry("[r]", "[tidyverse]")
+                                    ),
+    "rstudio community" = site_entry("https://community.rstudio.com/search?q=",
+                                     NULL),
+    "github"            = site_entry("https://github.com/search?q=",
+                                     keyword_entry("language:r type:issue"),
+                                     "&type=Issues"
+                                     ),
+    "bitbucket"         = site_entry("https://bitbucket.com/search?q=",
+                                      keyword_entry("lang:r"))
+  )
+

vignettes/search-patterns.Rmd

@@ -4,7 +4,7 @@ author: "James Joseph Balamuta"
 date: "`r Sys.Date()`"
 output: rmarkdown::html_vignette
 vignette: >
-  %\VignetteIndexEntry{search-patterns}
+  %\VignetteIndexEntry{Search Patterns}
   %\VignetteEngine{knitr::rmarkdown}
   %\VignetteEncoding{UTF-8}
 ---