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
|
;; see lib/company-macros.el
|
||||||
|
|
||||||
(use-package company
|
(use-package company
|
||||||
|
@ -45,5 +45,5 @@
|
||||||
(global-company-mode +1)
|
(global-company-mode +1)
|
||||||
(company-statistics-mode +1))
|
(company-statistics-mode +1))
|
||||||
|
|
||||||
(provide 'core-company)
|
(provide 'core-completion)
|
||||||
;;; core-company.el ends here
|
;;; core-completion.el ends here
|
|
@ -1,4 +1,4 @@
|
||||||
;;; core-auto-insert.el --- file templates
|
;;; core-file-templates.el --- file templates
|
||||||
|
|
||||||
(use-package autoinsert
|
(use-package autoinsert
|
||||||
:defer t
|
:defer t
|
||||||
|
@ -95,5 +95,5 @@
|
||||||
("\\.z?sh$" "__" sh-mode)
|
("\\.z?sh$" "__" sh-mode)
|
||||||
)))
|
)))
|
||||||
|
|
||||||
(provide 'core-auto-insert)
|
(provide 'core-file-templates)
|
||||||
;;; core-auto-insert.el ends here
|
;;; core-file-templates.el ends here
|
|
@ -1,4 +1,4 @@
|
||||||
;;; core-workgroups.el
|
;;; core-sessions.el
|
||||||
;; see lib/workgroup-defuns.el
|
;; see lib/workgroup-defuns.el
|
||||||
|
|
||||||
;; I use workgroups to accomplish two things:
|
;; 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-right 'wg-switch-to-workgroup-right)
|
||||||
(defalias 'narf:switch-to-tab-last 'wg-switch-to-previous-workgroup))
|
(defalias 'narf:switch-to-tab-last 'wg-switch-to-previous-workgroup))
|
||||||
|
|
||||||
(provide 'core-workgroups)
|
(provide 'core-sessions)
|
||||||
;;; core-workgroups.el ends here
|
;;; 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