จะค้นหาเนื้อหาไฟล์ / grep ซ้ำในไดเรกทอรี / ไดเรกทอรีย่อยใน Emacs ได้อย่างไร?

ฉันใช้ Emacs อยู่พักหนึ่งและฉันก็ยังไม่เข้าใจว่าอะไรคือวิธีที่ดีที่สุดในการ grep (วนซ้ำ) สำหรับสตริงภายในไดเรกทอรี (โครงการ) และได้รับผลลัพธ์ที่แสดงเป็นบัฟเฟอร์ที่ต้องการหรือมากกว่านั้น วิธีที่มีประโยชน์ โปรดให้ความกระจ่างแก่ฉัน

เนื่องจากคำถามเดิมไม่ได้กล่าวถึงrgrepฉันจะดำเนินการต่อและชี้ไปที่นี่ นี่เป็นตัวเลือกที่ง่ายที่สุดที่ติดตั้งไว้แล้วใน Emacs และฉันพบว่ามันเพียงพอสำหรับทุกสิ่ง

จากเอกสาร

Recursively grep for REGEXP in FILES in directory tree rooted at DIR.

การค้นหาถูก จำกัด เฉพาะชื่อไฟล์ที่ตรงกับรูปแบบเปลือกไฟล์

ดังนั้นสำหรับตัวอย่างเช่นในการค้นหาไฟล์หลามทั้งหมดภายใต้ไดเรกทอรีบ้านของฉันสำหรับการใช้งานของsome_functionผมจะเรียกมันว่าด้วยsome_function, *.py, ~/เป็นข้อโต้แย้ง ผลลัพธ์จะแสดงในบัฟเฟอร์ใหม่

ฉันใช้อย่างมีความสุขM-x find-grep-diredมานานหลายปี มันส่งคืนผลลัพธ์เป็นบัฟเฟอร์ dired ซึ่งคุณสามารถใช้

โซลูชันที่ 1 (ทางออกที่ดีที่สุด):

ติดตั้งที่ปรึกษา ( https://github.com/abo-abo/swiper/blob/master/c Counsel.el )

M-x counsel-git-grepแล้วก็

ไม่จำเป็นต้องตั้งค่า (git รู้จักรูทโปรเจ็กต์และไฟล์ที่จะไม่รวม) ทั้งgit grepและcounselมีประสิทธิภาพ

จำเป็นต้องมีการจัดการโครงการโดย git

ที่ปรึกษาต้องใช้โหมด ivy

โซลูชันที่ 2:

โซลูชันนี้ใช้ grep และทำงานกับโครงการใด ๆ มันด้อยกว่าโซลูชัน 1 เนื่องจากช้ากว่าและต้องตั้งค่าด้วยตนเอง มันขึ้นอยู่กับโหมด ivy

(defvar simple-project-root "~/.emacs.d")
(defun simple-grep ()
  (interactive)
  (unless (featurep 'ivy)
    (require 'ivy))
  (let* ((default-directory (file-name-as-directory simple-project-root))
         (keyword (read-string "Keyword:")))
    (ivy-read (format "Grep at %s:" simple-project-root)
              (split-string (shell-command-to-string (format "grep -rsnI %s ." keyword)) "\n" t)
              :action (lambda (val)
                        (let* ((lst (split-string val ":"))
                               (linenum (string-to-number (cadr lst))))
                          ;; open file
                          (find-file (car lst))
                          ;; goto line if line number exists
                          (when (and linenum (> linenum 0))
                            (goto-char (point-min))
                            (forward-line (1- linenum))))))))

คุณต้องสร้าง. dir-locals.el เพื่อตั้งค่าsimple-project-rootดูhttps://www.gnu.org/software/emacs/manual/html_node/emacs/Directory-Variables.htmlเพื่อดูรายละเอียดทางเทคนิค

โค้ดในโซลูชัน 2 เป็นเพียงต้นแบบ การใช้งานจริงของฉันมีความซับซ้อนมากขึ้น ดูcounsel-etags-grepในhttps://github.com/redguardtoo/c Counsel-etags/blob/master/c Counsel-etags.el

สรุป:

นี่เป็นทางออกที่ดีที่สุดสองข้อที่ฉันรู้

หากมีวิธีแก้ปัญหาอื่นที่ดีกว่าพวกเขาต้องการอย่างน้อยแก้ปัญหาด้านล่างให้พร้อมผลิต

• วิธีรับคีย์เวิร์ดเพื่อ grep (เช่นรับคีย์เวิร์ดจากภูมิภาคที่เลือก)

• หลบหนีคำหลัก

• หากมีโปรแกรม grep ที่มีประสิทธิภาพมากขึ้นเราควรใช้มัน (ripgrep, the_silver_searcher / ag, ... ฯลฯ ) หรือมิฉะนั้นให้เลือก grep เริ่มต้น

• หน้าต่างตัวเลือกควรใช้เต็มความกว้างของหน้าจอและผู้ใช้สามารถกรองตัวเลือกแบบโต้ตอบ

• เราควรแสดงเส้นทางสัมพัทธ์ในหน้าต่างตัวเลือก

• สามารถใช้ผลลัพธ์ grepped ก่อนหน้านี้ได้อีกครั้ง ดังนั้นควรบันทึกผลลัพธ์ก่อนหน้า คุณสามารถใช้ivy-resumeจากivyหรือhelm-resumeจากhelm

• เมื่อคุณบันทึกผลลัพธ์ grepped ก่อนหน้าบริบทของผลลัพธ์ก่อนหน้าควรถูกบันทึกด้วย ตัวอย่างเช่นในรหัสของโซลูชัน 2 default-directoryคือบริบท ดูhttps://github.com/abo-abo/swiper/issues/591สำหรับรายละเอียดเพิ่มเติม

• ควรใช้นิพจน์ทั่วไปเพิ่มเติมเนื่องจากง่ายกว่าและถูกใช้แล้วโดยcounsel-git-grepthe_silver_searcher / ag

ฉันต้องการเพิ่มโซลูชันอื่นให้กับโซลูชันของ @chen bin ซึ่งใช้เช่นกันcounsel(แต่คุณไม่จำเป็นต้องดูแลรักษาโครงการgitนี้ด้วย)

คุณต้องติดตั้งag (ตัวค้นหาซิลเวอร์) และcounselให้คำสั่งcounsel-agที่ค้นหาไดเรกทอรีปัจจุบันสำหรับสตริงที่ป้อน

หากคุณต้องการค้นหาภายในโครงการ (ไม่ใช่เพียงไดเรกทอรีการทำงานปัจจุบัน) เพิ่มสิ่งนี้ใน.emacs: -

  (defun rag/counsel-ag-project-at-point ()
    "use counsel ag to search for the word at point in the project"
    (interactive)
    (counsel-ag (thing-at-point 'symbol) (projectile-project-root)))

ฟังก์ชันนี้จะใช้agเพื่อค้นหาไดเรกทอรีรากของโปรเจ็กต์ซ้ำ

แก้ไข : ฟังก์ชั่นด้านบนเริ่มต้นที่สัญลักษณ์ที่จุดสำหรับการค้นหา ถ้าคุณไม่ชอบพฤติกรรมที่เปลี่ยนด้วย(thing-at-point 'symbol) nilและถ้าคุณต้องการผลการค้นหามันเป็นบัฟเฟอร์กดเองC-c C-o

แก้ไข 2 : ถ้าคุณripgrepติดตั้งแล้วคุณสามารถแทนที่counsel-agด้วยcounsel-rgในฟังก์ชั่นด้านบนและมันก็จะเป็นเรื่องดี :)

นี่คือตัวอย่างของฟังก์ชัน grep ที่กำหนดเองที่ greps เนื้อหาไฟล์ซ้ำ (ใช้ regexp สำหรับคำค้นหา) ในไดเรกทอรีและไดเรกทอรีย่อยและแสดงผลลัพธ์ที่มีบรรทัดบริบทก่อนและหลัง บิวด์อินcompile.elและgrep.elไลบรารีจัดเตรียมสำหรับหลายวิธีเพื่อข้ามไปยังตำแหน่งในไฟล์ที่มีผลลัพธ์การค้นหา ไม่จำเป็นต้องติดตั้งอะไรอีกเพื่อให้ตัวอย่างนี้ใช้งานได้ - สิ่งที่จำเป็นทั้งหมดคือ Emacs เวอร์ชันเต็มและคอมพิวเตอร์ที่grepติดตั้งยูทิลิตี้ ตัวแปรgrep-programสามารถปรับให้ชี้ไปที่ตำแหน่งเฉพาะของgrepยูทิลิตีหากค่าเริ่มต้นไม่เพียงพอ

(defun recursive-grep ()
"Recursively grep file contents.  `i` case insensitive; `n` print line number;
`I` ignore binary files; `E` extended regular expressions; `r` recursive"
(interactive)
  (let* ((search-term (read-string "regex:  "))
         (search-path
           (directory-file-name (expand-file-name (read-directory-name "directory:  "))))
         (default-directory (file-name-as-directory search-path))
         (grep-command
           (concat
             grep-program
             " "
             "-inIEr --color=always -C2"
             " "
             search-term
             " "
             search-path)))
    (compilation-start grep-command 'grep-mode (lambda (mode) "*grep*") nil)))