From 0a37165d0ecc52fbf7bb750292b2a35ee321591b Mon Sep 17 00:00:00 2001 From: Phuntsok Drak-pa Date: Sun, 29 Sep 2019 17:58:22 +0200 Subject: [PATCH] initial commit --- README.org | 32 +++++++++++++++++ funcs.el | 96 ++++++++++++++++++++++++++++++++++++++++++++++++++ keybindings.el | 12 +++++++ packages.el | 38 ++++++++++++++++++++ 4 files changed, 178 insertions(+) create mode 100644 README.org create mode 100644 funcs.el create mode 100644 keybindings.el create mode 100644 packages.el diff --git a/README.org b/README.org new file mode 100644 index 0000000..216c151 --- /dev/null +++ b/README.org @@ -0,0 +1,32 @@ +#+TITLE: Dired-Phundrak layer +#+author: Lucien “Phundrak” Cartier-Tilet +#+TAGS: layer|dired|configuration|phundrak + +[[img/dired-phundrak.png]] + +* Table of Contents :TOC_4_gh:noexport: +- [[#description][Description]] + - [[#features][Features:]] +- [[#install][Install]] +- [[#key-bindings][Key bindings]] + +* Description + This layer adds my custom configuration of Dired on top of the default dired + configuration for Spacemacs. + +** Features: + - Autocomplete + - Lint + - Refactor + - ... + +* Install + To use this configuration layer, add it to your =~/.spacemacs=. You will need + to add =dired-phundrak= to the existing =dotspacemacs-configuration-layers= + list in this file. + +* Key bindings + + | Key Binding | Description | + |-------------+--------------| + | ~SPC x x x~ | Does thing01 | diff --git a/funcs.el b/funcs.el new file mode 100644 index 0000000..e3d0ac0 --- /dev/null +++ b/funcs.el @@ -0,0 +1,96 @@ +;;; packages.el --- dired-phundrak layer functions file for Spacemacs. +;; +;; Copyright (c) 2012-2018 Sylvain Benner & Contributors +;; +;; Author: Lucien Cartier-Tilet +;; URL: https://github.com/syl20bnr/spacemacs +;; +;; This file is not part of GNU Emacs. +;; +;;; License: GPLv3 + + ; Custom functions ;;;;;;;;;;;;;;;;;;;; + +(defun phundrak//open-marked-files (&optional @fname) + "Open all marked files in dired buffer as new Emacs buffers" + (interactive) + (let* (($file-list (if @fname + (progn (list @fname)) + (if (string-equal major-mode "dired-mode") + (dired-get-marked-files) + (list (buffer-file-name)))))) + (mapc (lambda ($fpath) + (find-file $fpath)) + $file-list))) + +(defun xah//open-in-external-app (&optional @fname) + "Open the current file or dired marked file in external app. +The app is chosen from your OS’ preference. + +When called in emacs lisp, if @fname is given, open that. + +URL `http://ergoemacs.org/emacs/emacs_dired_open_file_in_ext_apps.html' +Version 2019-01-18" + (interactive) + (let* (($file-list (if @fname + (progn (list @fname)) + (if (string-equal major-mode "dired-mode") + (dired-get-marked-files) + (list (buffer-file-name))))) + ($do-it-p (if (<= (length $file-list) 5) + t + (y-or-n-p "Open more than 5 files? ")))) + (when $do-it-p + (mapc (lambda ($fpath) + (let ((process-connection-type nil)) + (start-process "" nil "xdg-open" $fpath))) + $file-list)))) + +(defun xah//dired-sort () + "Sort dired dir listing in different ways. Prompt for a choice. +URL `http://ergoemacs.org/emacs/dired_sort.html' +Version 2018-12-23, modified by Phundrak on 2019-08-06" + (interactive) + (let ($sort-by $arg) + (setq $sort-by (ido-completing-read "Sort by:" '( "name" "size" "date" "extension" ))) + (cond + ((equal $sort-by "name") (setq $arg "-ahl --group-directories-first")) + ((equal $sort-by "date") (setq $arg "-ahl -t --group-directories-first")) + ((equal $sort-by "size") (setq $arg "-ahl -S --group-directories-first")) + ((equal $sort-by "extension") (setq $arg "-ahlD -X --group-directories-first")) + (t (error "logic error 09535" ))) + (dired-sort-other $arg ))) + +(defun xah//dired-rename-space-to-underscore () + "In dired, rename current or marked files by replacing space to +underscore _. If not in `dired', do nothing. + +URL +`http://ergoemacs.org/emacs/elisp_dired_rename_space_to_underscore.html' +Version 2017-01-02" + (interactive) + (require 'dired-aux) + (if (equal major-mode 'dired-mode) + (progn + (mapc (lambda (x) + (when (string-match " " x ) + (dired-rename-file x (replace-regexp-in-string " " "_" x) nil))) + (dired-get-marked-files )) + (revert-buffer)) + (user-error "Not in dired."))) + +(defun xah//dired-rename-space-to-hyphen () + "In dired, rename current or marked files by replacing +space to hyphen -. If not in `dired', do nothing. +URL `http://ergoemacs.org/emacs/elisp_dired_rename_space_to_underscore.html' +Version 2016-12-22" + (interactive) + (require 'dired-aux) + (if (equal major-mode 'dired-mode) + (progn + (mapc (lambda (x) + (when (string-match " " x ) + (dired-rename-file x (replace-regexp-in-string " " "_" x) nil))) + (dired-get-marked-files )) + (revert-buffer)) + (user-error "Not in dired"))) diff --git a/keybindings.el b/keybindings.el new file mode 100644 index 0000000..55bac9c --- /dev/null +++ b/keybindings.el @@ -0,0 +1,12 @@ +;;; keybindings.el --- dired-phundrak layer keybinding file for Spacemacs. +;; +;; Copyright (c) 2012-2018 Sylvain Benner & Contributors +;; +;; Author: Lucien Cartier-Tilet +;; URL: https://github.com/syl20bnr/spacemacs +;; +;; This file is not part of GNU Emacs. +;; +;;; License: GPLv3 + +(global-set-key (kbd "") (lambda () (interactive) (dired "~/"))) diff --git a/packages.el b/packages.el new file mode 100644 index 0000000..877b454 --- /dev/null +++ b/packages.el @@ -0,0 +1,38 @@ +;;; packages.el --- dired-phundrak layer packages file for Spacemacs. +;; +;; Copyright (c) 2012-2018 Sylvain Benner & Contributors +;; +;; Author: Lucien Cartier-Tilet +;; URL: https://github.com/syl20bnr/spacemacs +;; +;; This file is not part of GNU Emacs. +;; +;;; License: GPLv3 + +(defconst dired-phundrak-packages '(dired-x image-dired+ org-download) + "The list of Lisp packages required by the dired-phundrak layer.") + +(defun dired-phundrak/post-init-dired-x () + "Initializes dired-x and adds keybindings for its exposed functionalities." + (use-package dired-x + :defer t + :init (progn + (define-key dired-mode-map "f" 'phundrak//open-marked-files) + (define-key dired-mode-map "F" 'xah//open-in-external-app) + (define-key dired-mode-map "s" 'xah//dired-sort) + (define-key dired-mode-map "-" 'xah//dired-rename-space-to-hyphen) + (define-key dired-mode-map "_" 'xah//dired-rename-space-to-underscore)))) + +(defun dired-phundrak/init-image-dired+ () + "Initializes image-dired+ and adds keybindings for its exposed functionalities." + (use-package image-dired+ + :defer t + :init ())) + +(defun dired-phundrak/post-init-org-download () + "Initializes org-download and adds keybindings for its exposed functionalities." + (use-package org-download + :defer t + :init ())) + +;;; packages.el ends here