(setq scroll-step 1)
(setq scroll-margin 5)
- (fringe-mode '(0 . 0))
+ (when (display-graphic-p)
+ (fringe-mode '(0 . 0)))
#+END_SRC
*** Custom file
(setq org-ditaa-jar-path "/usr/local/Cellar/ditaa/0.9/libexec/ditaa0_9.jar")
(unless
(file-exists-p org-ditaa-jar-path)
- (warn "seudut: ditaa.jar not found at %s " org-ditaa-jar-path))
+ (message "seudut: ditaa.jar not found at %s " org-ditaa-jar-path))
(org-babel-do-load-languages 'org-babel-load-languages
'((python . t)
** Save File Position
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
(require 'saveplace)
+ (setq save-place-file "~/.emacs.d/temp/saveplace")
(setq-default save-place t)
(setq save-place-forget-unreadable-files t)
(setq save-place-skip-check-regexp "\\`/\\(?:cdrom\\|floppy\\|mnt\\|/[0-9]\\|\\(?:[^@/:]*@\\)?[^@/:]*[^@/:.]:\\)")
(car (last (split-string url "/" t))))))))))
#+END_SRC
-** Elscreen
-Fix one elscreen issue when startup emacs https://github.com/knu/elscreen/issues/6
+* Dired
+** Dired basic
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
- ;; (use-package elscreen
- ;; :ensure t
- ;; :init
- ;; (setq elscreen-tab-display-control nil)
- ;; :config
- ;; ;; (elscreen-start)
- ;; (set-face-attribute 'elscreen-tab-current-screen-face nil :foreground "black" :background "yellow")
- ;; (set-face-attribute 'elscreen-tab-other-screen-face nil :foreground "black" :background "disabledControlTextColor" :underline nil)
- ;; ;; (global-unset-key (kbd)); M-TAB switch screen
- ;; ;; (global-set-key (kbd "s-`") '(lambda () (interactive) (elscreen-goto 0)))
- ;; ;; (dotimes (i 8)
- ;; ;; (global-set-key (kbd (concat "s-" (number-to-string (+ i 1))))
- ;; ;; `(lambda () (interactive) (elscreen-goto ,(+ i 1)))))
- ;; ;; (global-set-key (kbd "s-t") 'elscreen-create)
- ;; ;; (global-set-key (kbd "s-n") 'elscreen-next)
- ;; ;; (global-set-key (kbd "s-p") 'elscreen-previous)
- ;; )
+ (setq dired-dwim-target t)
+
+ (use-package dired-details
+ :ensure t
+ :config
+ (setq-default dired-details-hidden-string "--- ")
+ (dired-details-install))
#+END_SRC
-* Dired
+** Dired functions
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+ (defun sd/dired-next-line (count)
+ "Move to next line, and always focus on the file name."
+ (interactive "p")
+ (dired-next-line count)
+ (dired-move-to-filename))
+
+ (defun sd/dired-previous-line (count)
+ "Move to previous line, and always focus on the file name."
+ (interactive "p")
+ (dired-previous-line count)
+ (dired-move-to-filename))
+
+ (defun sd/dired-up-directory ()
+ "Go to up directory"
+ (interactive)
+ (let ((old (current-buffer)))
+ (dired-up-directory)
+ (kill-buffer old)))
+#+END_SRC
** Dired bindings
=C-o= is defined as a global key for window operation, here unset it in dired mode
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
#+END_SRC
* Programming Language
-** Emacs Lisp
+** Color identiifiers mode
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
(use-package color-identifiers-mode
:ensure t
:init
- (add-hook 'emacs-lisp-mode-hook 'color-identifiers-mode)
-
+ (dolist (mode '(emacs-lisp-mode-hook
+ c-mode-hook
+ c++-mode-hook))
+ (add-hook mode #'color-identifiers-mode))
:diminish color-identifiers-mode)
(global-prettify-symbols-mode t)
#+END_SRC
+** Font lock face
+
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+ (set-face-attribute 'font-lock-keyword-face nil :foreground "#F92672" :weight 'bold)
+ (set-face-attribute 'font-lock-builtin-face nil :weight 'bold)
+ (set-face-attribute 'font-lock-function-name-face nil :foreground "#A6E22E" :weight 'normal :slant 'normal)
+ (set-face-attribute 'font-lock-variable-name-face nil :foreground "#00FF00")
+
+ (font-lock-add-keywords 'c-mode
+ ;; highlight %s \n
+ '(("\\([%\\][a-zA-Z]\\)" (1 font-lock-keyword-face prepend))
+ ("[^[:alpha:]]\\([[:digit:]]*\\)[^[:alpha:]]" (1 font-lock-constant-face append))
+ ;; hex number
+ ("[^[:alpha:]]\\(0[x\\|X][0-9a-fA-F]*\\)[^[:alpha:]]" (1 font-lock-constant-face append))
+ ;; hightlight the function call
+ ("\\s\"?\\(\\(\\sw\\|\\s_\\)+\\(<-\\)?\\)\\s\"?*\\s-*(" (1 font-lock-function-name-face))) t)
+#+END_SRC
+** Emacs Lisp
In Lisp Mode, =M-o= is defined, but I use this for global hydra window. So here disable this key
bindings in =lispy-mode-map= after loaded. see [[http://stackoverflow.com/questions/298048/how-to-handle-conflicting-keybindings][here]]
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
(font-lock-add-keywords 'cperl-mode
'(("\\(say\\)" . cperl-nonoverridable-face)
("\\([0-9.]\\)*" . font-lock-constant-face)
- ("\".*\\(\\\n\\).*\"" . font-lock-constant-face)
- ("\n" . font-lock-constant-face)
+ ("\".*\\(\\\n\\).*\"" 1 font-lock-constant-face prepend)
+ ("\n" 0 font-lock-constant-face prepend)
+ ;; ("[%\\][[:alpha:]]" . font-lock-constant-face)
("\\(^#!.*\\)$" . cperl-nonoverridable-face)))
-
- ;; (font-lock-add-keywords 'Man-mode
- ;; '(("\\(NAME\\)" . font-lock-function-name-face)))
-
#+END_SRC
** C & C++
;; objective c
(add-to-list 'auto-mode-alist '("\\.mm\\'" . objc-mode))
+
+ (setq c-hungry-delete-key t)
#+END_SRC
*** irony
;; set racket path
(setenv "PATH" (concat (getenv "PATH")
- ":" "/Applications/Racket v6.6/bin"))
+ ":" "/Applications/Racket v6.10.1/bin"))
(setenv "MANPATH" (concat (getenv "MANPATH")
- ":" "/Applications/Racket v6.6/man"))
- (setq exec-path (append exec-path '("/Applications/Racket v6.6/bin")))
+ ":" "/Applications/Racket v6.10.1/man"))
+ (setq exec-path (append exec-path '("/Applications/Racket v6.10.1/bin")))
(add-to-list 'auto-mode-alist '("\\.rkt\\'" . racket-mode))
#+END_SRC
(setq compilation-auto-jump-to-next t)
(setq compilation-scroll-output 'first-error)
;; this will save all the modified buffers before compile
- (setq compilation-ask-about-save nil))
+ (setq compilation-ask-about-save nil)
+ (setq compilation-window-height (/ (window-total-height) 3)))
;; super-r to compile
(with-eval-after-load "compile"
(define-key compilation-mode-map (kbd "q") (lambda () (interactive) (quit-window t)))
(define-key compilation-mode-map (kbd "r") #'recompile))
-
- ;; (loop for (mode . program) in '(
- ;; (lua-mode-hook . "lua")
- ;; (perl-mode-hook . "perl")
- ;; (python-mode-hook . "python")
- ;; (shell-mode-hook . "sh"))
- ;; do (add-hook mode `(lambda ()
- ;; (unless (or (file-exists-p "makefile")
- ;; (file-exists-p "Makefile"))
- ;; (set (make-local-variable 'compile-command)
- ;; (concat ,program
- ;; " "
- ;; (if buffer-file-name
- ;; (shell-quote-argument buffer-file-name))))))))
-
;; here note dynamic binding the value of vv, otherwise it will resport error when run the hook.
;; https://emacs.stackexchange.com/questions/10394/scope-in-lambda
(dolist (vv '(
(:mailing-list . 20)
(:thread-subject . 70)
(:human-date . 16))))
- (warn "seudut:mu4e not installed, it won't work."))
+ (message "seudut:mu4e not installed, it won't work."))
#+END_SRC
** Smtp - send mail
* Developing
** perspeen
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
- (use-package perspeen
- :ensure t
- :init
+ ;; (use-package perspeen
+ ;; :ensure t
+ ;; :init
+ ;; (setq perspeen-use-tab nil)
+ ;; :config
+ ;; (perspeen-mode))
+
+ (el-get-bundle seudut/perspeen
+ :features perspeen
(setq perspeen-use-tab nil)
- :config
(perspeen-mode))
;; super-i to switch to ith workspace
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
(org-babel-load-file "~/.emacs.d/emacs-evil.org")
#+END_SRC
-
-
* Note
** Check if emacs is in terminal of graphic mode
Use =display-graphic-p= instead of =window-system=
projects / dotfiles.git / blobdiff