Clearer names for core files
This commit is contained in:
parent
f7d9da3e6f
commit
9f9a90d2da
6 changed files with 9 additions and 128 deletions
|
@ -1,4 +1,4 @@
|
|||
;;; core-company.el --- auto completion backend (Company-mode)
|
||||
;;; core-completion.el --- auto completion backend (Company-mode)
|
||||
;; see lib/company-macros.el
|
||||
|
||||
(use-package company
|
||||
|
@ -45,5 +45,5 @@
|
|||
(global-company-mode +1)
|
||||
(company-statistics-mode +1))
|
||||
|
||||
(provide 'core-company)
|
||||
;;; core-company.el ends here
|
||||
(provide 'core-completion)
|
||||
;;; core-completion.el ends here
|
|
@ -1,4 +1,4 @@
|
|||
;;; core-auto-insert.el --- file templates
|
||||
;;; core-file-templates.el --- file templates
|
||||
|
||||
(use-package autoinsert
|
||||
:defer t
|
||||
|
@ -95,5 +95,5 @@
|
|||
("\\.z?sh$" "__" sh-mode)
|
||||
)))
|
||||
|
||||
(provide 'core-auto-insert)
|
||||
;;; core-auto-insert.el ends here
|
||||
(provide 'core-file-templates)
|
||||
;;; core-file-templates.el ends here
|
|
@ -1,4 +1,4 @@
|
|||
;;; core-workgroups.el
|
||||
;;; core-sessions.el
|
||||
;; see lib/workgroup-defuns.el
|
||||
|
||||
;; I use workgroups to accomplish two things:
|
||||
|
@ -87,5 +87,5 @@ lib/defuns-workgroups.el.")
|
|||
(defalias 'narf:switch-to-tab-right 'wg-switch-to-workgroup-right)
|
||||
(defalias 'narf:switch-to-tab-last 'wg-switch-to-previous-workgroup))
|
||||
|
||||
(provide 'core-workgroups)
|
||||
;;; core-workgroups.el ends here
|
||||
(provide 'core-sessions)
|
||||
;;; core-sessions.el ends here
|
|
@ -1,14 +0,0 @@
|
|||
;;; lib-demo.el
|
||||
|
||||
;; This library offers:
|
||||
;; + impatient-mode: for broadcasting my emacs session
|
||||
;; + TODO integration with reveal.js for presentations
|
||||
;; + TODO "big-mode", for making emacs presentable for screencasts/share
|
||||
;; + TODO quick note/time keeping for live/youtube recordings
|
||||
|
||||
(use-package impatient-mode
|
||||
:defer t
|
||||
:commands httpd-start)
|
||||
|
||||
(provide 'lib-demo)
|
||||
;;; lib-demo.el ends here
|
|
@ -1,35 +0,0 @@
|
|||
;;; lib-plugin.el
|
||||
|
||||
(defun narf-lb6-reload ()
|
||||
(interactive)
|
||||
(let ((dir (f-traverse-upwards (lambda (f) (string-suffix-p ".lbaction" f)))))
|
||||
(shell-command (format "open %s" dir))))
|
||||
|
||||
(define-minor-mode lb6-mode
|
||||
"Launchbar development mode."
|
||||
:init-value nil
|
||||
:lighter " lb6"
|
||||
:keymap (let ((map (make-sparse-keymap)))
|
||||
(map! :map map
|
||||
(:localleader
|
||||
:n "b" 'narf-lb6-reload))
|
||||
map)
|
||||
(add-yas-minor-mode! 'lb6-mode))
|
||||
(associate! lb6-mode :match "\\.lb\\(action\\|ext\\)/.+$")
|
||||
|
||||
;;
|
||||
|
||||
(define-minor-mode hammerspoon-mode
|
||||
:init-value nil
|
||||
:lighter " hammer"
|
||||
:keymap (let ((map ))
|
||||
(map! :map map
|
||||
(:localleader
|
||||
:n "b" (λ! (shell-command (format "open hammerspoon://reload")))))
|
||||
map)
|
||||
(add-yas-minor-mode! 'hammerspoon-mode))
|
||||
(associate! hammerspoon-mode :match "/\\.?hammerspoon/.+\\.lua$")
|
||||
|
||||
(provide 'lib-plugin)
|
||||
;;; lib-plugin.el ends here
|
||||
|
|
@ -1,70 +0,0 @@
|
|||
;;; lib-tmux.el
|
||||
|
||||
;; This library offers:
|
||||
;; + TODO An integration/abstraction layer to make it seem like tmux and emacs are one
|
||||
;; program.
|
||||
;; + TODO A way to manage tmux sessions and layouts from emacs; possibly trigger them
|
||||
;; depending on current project.
|
||||
|
||||
;;;###autoload
|
||||
(defun tmux (command &optional modes)
|
||||
(let ((format
|
||||
(concat "tmux send-keys "
|
||||
(if (or (eq modes t)
|
||||
(eq modes 'clear)
|
||||
(memq 'clear modes))
|
||||
"C-u " "")
|
||||
"%s"
|
||||
(if (or (eq modes t)
|
||||
(eq modes 'run)
|
||||
(memq 'run modes))
|
||||
" Enter" ""))))
|
||||
(shell-command (format format (shell-quote-argument command)))))
|
||||
|
||||
(evil-define-interactive-code "<term>"
|
||||
"Ex tmux argument (a mix between <sh> <f> and <fsh>)"
|
||||
:ex-arg shell
|
||||
(list (when (evil-ex-p) (evil-ex-file-arg))))
|
||||
|
||||
;;;###autoload (autoload 'narf:tmux-cd "lib-tmux" nil t)
|
||||
(evil-define-command narf:tmux-cd (&optional bang)
|
||||
(interactive "<!>")
|
||||
(if bang
|
||||
(narf/tmux-cd-to-project)
|
||||
(narf/tmux-cd-to-here)))
|
||||
|
||||
;;;###autoload (autoload 'narf:tmux "lib-tmux" nil t)
|
||||
(evil-define-operator narf:tmux (&optional command bang)
|
||||
"Sends input to tmux. Use `bang' to append to tmux"
|
||||
:type inclusive
|
||||
:repeat t
|
||||
(interactive "<term><!>")
|
||||
(if (not command)
|
||||
(os-switch-to-term)
|
||||
(tmux command bang)
|
||||
(when (evil-ex-p)
|
||||
(message "[Tmux] %s" command))))
|
||||
|
||||
;;;###autoload
|
||||
(defun narf/tmux-new-window ()
|
||||
(interactive)
|
||||
(tmux "tmux new-window" t))
|
||||
|
||||
;;;###autoload
|
||||
(defun narf/tmux-cd-to-here (&optional dir)
|
||||
(interactive)
|
||||
(tmux (format "cd '%s'" (or dir default-directory))))
|
||||
|
||||
;;;###autoload
|
||||
(defun narf/tmux-cd-to-project ()
|
||||
(interactive)
|
||||
(narf/tmux-cd-to-here (narf/project-root)))
|
||||
|
||||
;;;;;;;;;;
|
||||
|
||||
;; TODO
|
||||
;; (defun narf/window (direction)
|
||||
;; )
|
||||
|
||||
(provide 'lib-tmux)
|
||||
;;; lib-tmux.el ends here
|
Loading…
Add table
Add a link
Reference in a new issue