This commit is contained in:
Henrik Lissner 2015-08-06 12:49:32 +02:00
parent ce9e89ab0b
commit 3c9f160c16
5 changed files with 21 additions and 19 deletions

View file

@ -1,5 +1,7 @@
;;; core-os-osx.el --- Mac-specific settings ;;; core-os-osx.el --- Mac-specific settings
(eval-when-compile (require 'core))
;; Use a shared clipboard ;; Use a shared clipboard
(setq x-select-enable-clipboard t (setq x-select-enable-clipboard t
;; Curse Lion and its sudden but inevitable fullscreen mode! ;; Curse Lion and its sudden but inevitable fullscreen mode!

View file

@ -140,11 +140,6 @@
undo-tree-auto-save-history t undo-tree-auto-save-history t
undo-tree-history-directory-alist `(("." . ,(! (concat narf-temp-dir "undo/"))))) undo-tree-history-directory-alist `(("." . ,(! (concat narf-temp-dir "undo/")))))
;; Save cursor location across sessions. Only save for files that exist.
(require 'saveplace)
(setq save-place-file (! (concat narf-temp-dir "saveplace")))
(add-hook! find-file (if (file-exists-p (buffer-file-name)) (setq save-place t)))
;; Save history across sessions ;; Save history across sessions
(require 'savehist) (require 'savehist)
(setq savehist-file (! (concat narf-temp-dir "savehist")) (setq savehist-file (! (concat narf-temp-dir "savehist"))
@ -162,19 +157,27 @@
recentf-auto-cleanup 600) recentf-auto-cleanup 600)
(recentf-mode 1) (recentf-mode 1)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Save cursor location across sessions. Only save for files that exist.
(use-package saveplace
:defer t
:config (setq save-place-file (! (concat narf-temp-dir "saveplace")))
:init
(add-hook! find-file
(if (file-exists-p (buffer-file-name))
(require 'saveplace)
(setq save-place t))))
(use-package popwin :config (popwin-mode 1))
(use-package help-fns+ ; Improved help commands (use-package help-fns+ ; Improved help commands
:commands (describe-buffer describe-command describe-file :commands (describe-buffer describe-command describe-file
describe-keymap describe-option describe-option-of-type)) describe-keymap describe-option describe-option-of-type))
(use-package popwin :config (popwin-mode 1)) (use-package server
:defer 1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; :config
(require 'server)
(unless (server-running-p) (unless (server-running-p)
(server-start)) (server-start)))
(provide 'core) (provide 'core)
;;; core.el ends here ;;; core.el ends here

View file

@ -18,9 +18,7 @@
(evil-define-command narf:compile-el (&optional bang) (evil-define-command narf:compile-el (&optional bang)
:repeat nil :repeat nil
(interactive "<!>") (interactive "<!>")
(byte-recompile-file (f-expand "init.el" narf-emacs-dir) nil 0)
(byte-recompile-file (f-expand "init-load-path.el" narf-emacs-dir) nil 0) (byte-recompile-file (f-expand "init-load-path.el" narf-emacs-dir) nil 0)
(byte-recompile-file (f-expand "core.el" narf-core-dir) t 0)
(if (and (eq major-mode 'emacs-lisp-mode) (not bang)) (if (and (eq major-mode 'emacs-lisp-mode) (not bang))
(byte-recompile-file (buffer-file-name) t 0) (byte-recompile-file (buffer-file-name) t 0)
(load (concat narf-script-dir "byte-compile.el")))) (load (concat narf-script-dir "byte-compile.el"))))

View file

@ -1,7 +1,6 @@
;;; module-r.el ;;; module-r.el
(use-package ess-site (use-package ess-site :mode (("\\.r$" . R-mode)))
:mode (("\\.r$" . R-mode)))
(provide 'module-r) (provide 'module-r)
;;; module-r.el ends here ;;; module-r.el ends here

View file

@ -86,8 +86,8 @@
`(font-lock-doc-face ((t (:foreground ,comments)))) `(font-lock-doc-face ((t (:foreground ,comments))))
`(trailing-whitespace ((t (:background "#884444")))) `(trailing-whitespace ((t (:background "#884444"))))
`(whitespace-tab ((t (:foreground ,line-hl)))) `(whitespace-tab ((t (:foreground "#343d46"))))
`(whitespace-newline ((t (:foreground ,line-hl)))) `(whitespace-newline ((t (:foreground "#343d46"))))
`(whitespace-trailing ((t (:background "#553333")))) `(whitespace-trailing ((t (:background "#553333"))))
`(highlight-indentation-face ((t (:background "#2f3641")))) `(highlight-indentation-face ((t (:background "#2f3641"))))