Emacs: Remove platinum configuration

1 files changed, 0 insertions, 51 deletions

diff --git a/tag-emacs/emacs.d/init.org b/tag-emacs/emacs.d/init.org
index 09ffb12..4888072 100644
--- a/tag-emacs/emacs.d/init.org
+++ b/tag-emacs/emacs.d/init.org
@@ -335,57 +335,6 @@ modes.
     :config (setq ag-project-root-function #'projectile-project-root))
 #+END_SRC
 
-** The Platinum Searcher
-
-[[https://github.com/monochromegane/the_platinum_searcher][The Platinum Searcher]] is a code search tool similar to ack and
-the_silver_searcher(ag). It supports multi platforms and multi
-encodings.
-
-#+BEGIN_SRC sh :tangle no
-brew install pt
-#+END_SRC
-
-#+BEGIN_SRC emacs-lisp
-  (use-package pt
-    :pin melpa-stable
-    :bind* ("C-c p s s" . ap/projectile-pt)
-    :config (progn
-              (defun pt (string directory &optional args)
-                (interactive (list (read-from-minibuffer "Pt search for: " (thing-at-point 'symbol))
-                                   (read-directory-name "Directory: ")))
-                (let ((default-directory directory))
-                  (compilation-start
-                   (mapconcat 'identity
-                              (append (list pt-executable)
-                                      pt-arguments
-                                      args
-                                      '("--nogroup" "--nocolor" "--")
-                                      (list (shell-quote-argument string) ".")) " "))))
-
-              (defun ap/projectile-pt (search-term &optional arg)
-                "Run a pt search with SEARCH-TERM in the project.
-
-  With an optional prefix argument ARG SEARCH-TERM is interpreted as a
-  regular expression."
-                (interactive
-                 (list (read-from-minibuffer
-                        (projectile-prepend-project-name (format "Pt %ssearch for: " (if current-prefix-arg "regexp " "")))
-                        (projectile-symbol-or-selection-at-point))
-                       current-prefix-arg))
-                (if (require 'pt nil 'noerror)
-                    (let ((pt-command (if arg 'pt-regexp 'pt))
-                          (ignore-list (-map #'shell-quote-argument
-                                             (ag/format-ignore
-                                              (-union ag-ignore-list
-                                                      (append
-                                                       (projectile-ignored-files-rel) (projectile-ignored-directories-rel)
-                                                       grep-find-ignored-files grep-find-ignored-directories)))))
-                          ;; reset the prefix arg, otherwise it will affect the pt-command
-                          (current-prefix-arg nil))
-                      (funcall pt-command search-term (projectile-project-root) ignore-list))
-                  (error "Package 'pt' is not available")))))
-#+END_SRC
-
 ** Projectile
 
 Projectile is awesome for working in projects, especially VCS-backed