#+END_SRC
** page-break-lines
-
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
-
(use-package page-break-lines
:ensure t
:config
- (turn-on-page-break-lines-mode))
-
+ (global-page-break-lines-mode)
+ ;; (turn-on-page-break-lines-mode)
+ )
#+END_SRC
** rainbow-mode
* Mode-line
** clean mode line
-clean mode line, Refer to [[https://www.masteringemacs.org/article/hiding-replacing-modeline-strings][Marstering Emacs]]
+clean mode line, Refer to [[https://www.masteringemacs.org/article/hiding-replacing-modeline-strings][Marstering Emacs]], some greek character see [[http://xahlee.info/math/math_unicode_greek.html][math_unicode_greek]]
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
(defvar mode-line-cleaner-alist
`((auto-complete-mode . " α")
(org-indent-mode . "")
;; default is Fly
(flyspell-mode . "")
- (irony-mode . "I")
+ (irony-mode . "")
+ (page-break-lines-mode . "")
;; Major modes
(lisp-interaction-mode . "λ")
(hi-lock-mode . "")
(python-mode . "Py")
(emacs-lisp-mode . "EL")
- (eshell-mode . "ε")
+ (eshell-mode . "𝞔")
+ (dired-mode . "𝞓")
+ (ibuffer-mode . "𝞑")
+ (org-mode . "𝞞")
(nxhtml-mode . "nx"))
"Alist for `clean-mode-line'.
(define-key dired-mode-map (kbd "h") 'dired-summary)
(define-key dired-mode-map (kbd "r") 'revert-buffer)
(define-key dired-mode-map (kbd "l") 'dired-display-file)
- (define-key dired-mode-map [C-backspace] 'sd/dired-high-level-dir)
+ (define-key dired-mode-map [C-backspace] 'dired-up-directory)
(define-key dired-mode-map (kbd "?") 'describe-mode)
(define-key dired-mode-map (kbd "z") #'sd/dired-get-size)
(define-key dired-mode-map (kbd "C-d") 'dired-kill-subdir)
("\\.html?\\'" "open")
("\\.dmg\\'" "open")
("\\.cue?\\'" "audacious")))
+
+
+ (defun sd/dired-start-process (cmd &optional file-list)
+ (interactive
+ (let ((files (dired-get-marked-files
+ t current-prefix-arg)))
+ (list
+ (unless (eq system-type 'windows-nt)
+ (dired-read-shell-command "& on %s: "
+ current-prefix-arg files))
+ files)))
+
+ (if (eq system-type 'windows-nt)
+ (dolist (file file-list)
+ (w32-shell-execute "open" (expand-file-name file)))
+ (let (list-switch)
+ (start-process
+ cmd nil shell-file-name
+ shell-command-switch
+ (format
+ "nohup 1>/dev/null 2>/dev/null %s \"%s\""
+ cmd
+ ;; (if (and (> (length file-list) 1)
+ ;; (setq list-switch
+ ;; (cadr (assoc cmd ora-dired-filelist-cmd))))
+ ;; (format "%s %s" cmd list-switch)
+ ;; cmd)
+ (mapconcat #'expand-file-name file-list "\" \""))))))
#+END_SRC
** dired-hacks
:ensure t
:init
(setq projectile-enable-caching t)
- (setq projectile-switch-project-action 'projectile-dired)
+ (setq projectile-switch-project-action (lambda ()
+ (projectile-dired)
+ (sd/project-switch-action)))
(setq projectile-cache-file (concat sd-temp-directory "projectile.cache"))
:config
(add-to-list 'projectile-globally-ignored-files "GTAGS")
(:map projectile-mode-map
("s-t" . projectile-persp-switch-project)))
- ;; projectile-find-file
- ;; projectile-switch-buffer
- ;; projectile-find-file-other-window
+ ;; (defun sd/change-default-directory (buffer dir)
+ ;; "change defafult directory of buffer to dir"
+ ;; (with-current-buffer buffer
+ ;; (cd dir)))
+
+ ;; change default-directory of scratch buffer to projectile-project-root
+ (defun sd/project-switch-action ()
+ "Change default-directory of scratch buffer to current projectile-project-root directory"
+ (interactive)
+ (dolist (buffer (buffer-list))
+ (if (string-match (concat "scratch.*" (projectile-project-name))
+ (buffer-name buffer))
+ (let ((root (projectile-project-root)))
+ (with-current-buffer buffer
+ (cd root)))
+ ;; (sd/change-default-directory buffer (projectile-project-root))
+ )))
#+END_SRC
*** project config =super= keybindings