awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-09-16 15:56:52 -05:00
Code Issues Packages Projects Releases Wiki Activity

Add modules/private/hlissner

Browse Source
This commit is contained in:
Henrik Lissner
2017-02-20 00:18:54 -05:00
parent 7a72a019ea
commit 5c0b8af9d5
6 changed files with 577 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
modules/private/hlissner/autoload/evil.el Normal file
View File

@@ -0,0 +1,22 @@
;;; private/hlissner/autoload/evil.el
;;;###autoload (autoload '+hlissner:multi-next-line "private/hlissner/autoload/evil" nil t)
(evil-define-motion +hlissner:multi-next-line (count)
"Move down 6 lines."
:type line
(let ((line-move-visual visual-line-mode))
(evil-line-move (* 6 (or count 1)))))
;;;###autoload (autoload '+hlissner:multi-previous-line "private/hlissner/autoload/evil" nil t)
(evil-define-motion +hlissner:multi-previous-line (count)
"Move up 6 lines."
:type line
(let ((line-move-visual visual-line-mode))
(evil-line-move (- (* 6 (or count 1))))))
;;;###autoload (autoload '+hlissner:cd "private/hlissner/autoload/evil" nil t)
(evil-define-command +hlissner:cd ()
"Change `default-directory' with `cd'."
(interactive "<f>")
(cd input))

45
modules/private/hlissner/autoload/hlissner.el Normal file
View File

@@ -0,0 +1,45 @@
;;; private/hlissner/autoload/hlissner.el
;;;###autoload
(defun +hlissner/install-snippets ()
"Install my snippets from https://github.com/hlissner/emacs-snippets into
private/hlissner/snippets."
(interactive)
(bs-fetch :github "hlissner/emacs-snippets"
(expand-file-name "snippets" (doom-module-path :private 'hlissner))))
;;;###autoload
(defun +hlissner/find-in-templates ()
"Browse through snippets folder"
(interactive)
(projectile-find-file-in-directory (car yas-snippet-dirs)))
;;;###autoload
(defun +hlissner/find-in-snippets ()
"Browse through snippets folder"
(interactive)
(projectile-find-file-in-directory (car yas-snippet-dirs)))
;;;###autoload
(defun +hlissner/find-in-dotfiles ()
(interactive)
(projectile-find-file-in-directory (expand-file-name ".dotfiles" "~")))
;;;###autoload
(defun +hlissner/find-in-emacsd ()
(interactive)
(projectile-find-file-in-directory doom-emacs-dir))
;;;###autoload
(defun +hlissner/browse-emacsd ()
(interactive)
(let ((default-directory doom-emacs-dir))
(call-interactively (command-remapping 'find-file))))
;;;###autoload
(defun +hlissner/browse-dotfiles ()
(interactive)
(let ((default-directory (expand-file-name ".dotfiles" "~")))
(call-interactively (command-remapping 'find-file))))