gitback/doomemacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Refactor out more s.el dependency

Browse Source
This commit is contained in:
Henrik Lissner 2017-04-17 02:30:54 -04:00
parent 3162c98a11
commit dc9a7c9780
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
modules/completion/ivy/autoload/ivy.el
View File

@ -38,13 +38,13 @@
(ivy--switch-buffer-action
(s-chop-suffix
"[+]"
(substring buffer 0 (s-index-of " " buffer)))))
(substring buffer 0 (string-match-p (regexp-quote " ") buffer)))))
(defun +ivy--select-buffer-other-window-action (buffer)
(ivy--switch-buffer-other-window-action
(s-chop-suffix
"[+]"
(substring buffer 0 (s-index-of " " buffer)))))
(substring buffer 0 (string-match-p (regexp-quote " ") buffer)))))
;;;###autoload
(defun +ivy/switch-workspace-buffer (&optional other-window-p)

4
modules/feature/file-templates/templates/ruby-mode/__module
View File

@ -1,7 +1,7 @@
# `(progn
(setq-local pkgs (s-split "/" (s-chop-prefix (concat (doom-project-root) "lib/") (file-name-sans-extension buffer-file-name)) t))
(setq-local pkgs (split-string (s-chop-prefix (concat (doom-project-root) "lib/") (file-name-sans-extension buffer-file-name)) "/" t))
(setq-local pkgs-p (eq (length pkgs) 1))
(setq-local pkg-module (s-replace " " "::" (s-titleized-words (if pkgs-p (car pkgs) (s-join " " (butlast pkgs))))))
(setq-local pkg-module (s-replace " " "::" (s-titleized-words (if pkgs-p (car pkgs) (string-join (butlast pkgs) " ")))))
(concat "lib/" (file-name-nondirectory buffer-file-name)))`

2
modules/tools/tmux/autoload/tmux.el
View File

@ -133,7 +133,7 @@ but do not execute them."
flags))))
(if lines
(mapcar (lambda (it)
(let ((pane (s-split it ";")))
(let ((pane (split-string it ";")))
(list (nth 0 pane)
:window-id (nth 1 pane)
:session-id (nth 2 pane)