Combine orgrr-search and metasearch-search-set

combined-search.el

(defun lt/combined-search ()
  "Combines orgrr-search and metasearch-search-set."
 (interactive)
 (let ((search-query))
   (if (region-active-p)
	    (setq search-query (buffer-substring-no-properties (region-beginning)(region-end)))
	  (setq search-query (read-from-minibuffer "Search: ")))
   (orgrr-search '(4) search-query)
   (metasearch-search-set "Search" search-query)))
(global-set-key (kbd "C-c d c") 'lt/combined-search)