Commits

Anonymous committed 6b2f7d7

Use my-find-dired uses the find-ls-option now. Enable toggle-truncate-lines in dired buffers

Comments (0)

Files changed (1)

       (bind-key "M-<f5>" 'my-dired-zip-files dired-mode-map)
       (bind-key "M-<f6>" 'my-dired-unpack-files dired-mode-map)
 
-      (dired-omit-mode t))
+      (dired-omit-mode t)
+      (visual-line-mode -1)
+      (toggle-truncate-lines 1))
     (add-hook 'dired-mode-hook 'my-dired-init)
 
     (defun my-dired-filter-by-regexp (regexp)
                         (while (search-forward "\\\\" nil t)
                           (delete-region (point) (- (point) 2))
                           (insert "/"))
+                        (while (search-forward "\\" nil t)
+                          (delete-region (point) (- (point) 1))
+                          (insert "/"))
+                        (while (search-forward "\\.\\" nil t)
+                          (delete-region (point) (- (point) 2)))
                         ;; Convert ` ./FILE' to ` FILE'
                         ;; This would lose if the current chunk of output
                         ;; starts or ends within the ` ./', so back up a bit:
                     (mapconcat (lambda (ex)
                                  (concat "-iname \\\"*." ex "\\\""))
                                my-find-dired-ignore-extensions " -o ")
-                    " \\) \\) -ls\" &")))
+                    " \\) \\) "
+                    (car find-ls-option)
+                    " \" &")))
           (shell-command cmd (current-buffer)))
 
         (dired-mode dir (cdr find-ls-option))