|
|
|
|
@ -18,6 +18,7 @@ |
|
|
|
|
'(current-language-environment "English") |
|
|
|
|
'(default-input-method "rfc1345") |
|
|
|
|
'(delete-active-region nil) |
|
|
|
|
'(delete-selection-mode nil) |
|
|
|
|
'(flyspell-duplicate-distance 0) |
|
|
|
|
'(flyspell-mark-duplications-flag t) |
|
|
|
|
'(font-latex-fontify-sectioning (quote color)) |
|
|
|
|
@ -96,6 +97,7 @@ |
|
|
|
|
'(font-lock-comment-delimiter-face ((t (:foreground "lightslategray")))) |
|
|
|
|
'(font-lock-comment-face ((t (:foreground "SlateGray")))) |
|
|
|
|
'(highlight ((t (:background "Darkslategray")))) |
|
|
|
|
'(hl-line ((t (:inherit fringe)))) |
|
|
|
|
'(hl-sexp-face ((t (:underline t))) t) |
|
|
|
|
'(italic ((((supports :underline t)) nil))) |
|
|
|
|
'(linum-highlight-face ((t (:inherit (highlight default))))) |
|
|
|
|
@ -105,7 +107,7 @@ |
|
|
|
|
'(mouse ((t (:background "orchid")))) |
|
|
|
|
'(org-pomodoro-mode-line ((t (:foreground "tomato3")))) |
|
|
|
|
'(paren-face-match ((t (:background "turquoise" :foreground "black")))) |
|
|
|
|
'(region ((t (:background "DodgerBlue4")))) |
|
|
|
|
'(region ((t (:inherit highlight)))) |
|
|
|
|
'(shadow ((t (:foreground "grey60")))) |
|
|
|
|
'(tooltip ((t (:inherit default :background "lightyellow" :foreground "black" :foundry "xos4" :family "terminus")))) |
|
|
|
|
'(variable-pitch ((t (:family "default")))) |
|
|
|
|
@ -126,6 +128,7 @@ |
|
|
|
|
(setq compilation-scroll-output t |
|
|
|
|
compilation-window-height 12) |
|
|
|
|
|
|
|
|
|
(transient-mark-mode 0) |
|
|
|
|
(tool-bar-mode 0) |
|
|
|
|
(scroll-bar-mode -1) |
|
|
|
|
(setq-default show-trailing-whitespace t) |
|
|
|
|
@ -152,10 +155,13 @@ |
|
|
|
|
(setq mouse-autoselect-window nil) |
|
|
|
|
(mouse-wheel-mode t) |
|
|
|
|
|
|
|
|
|
(defvar outline-minor-mode-prefix "\M-#") |
|
|
|
|
|
|
|
|
|
;; * include other files |
|
|
|
|
(load "init-latex.el") |
|
|
|
|
(load "init-org.el") |
|
|
|
|
(load "init-c++.el") |
|
|
|
|
|
|
|
|
|
(load "init-elisp.el") |
|
|
|
|
|
|
|
|
|
;; KDE stuff |
|
|
|
|
;; |
|
|
|
|
@ -168,7 +174,7 @@ |
|
|
|
|
|
|
|
|
|
(setq frame-title-format |
|
|
|
|
'((buffer-file-name "%f" |
|
|
|
|
(dired-directory dired-directory "%b")) " · emacs " kde-current-activity-name "%S")) |
|
|
|
|
(dired-directory dired-directory "%b")) " · emacs · " (:eval (kde-current-activity-name)))) ;; "%S")) |
|
|
|
|
|
|
|
|
|
;; Put autosave files (ie #foo#) and backup files (ie foo~) in ~/.emacs.d/. |
|
|
|
|
;; create the autosave dir if necessary, since emacs won't. |
|
|
|
|
@ -345,6 +351,7 @@ a file in the home directory." |
|
|
|
|
(concat emacs-dir basename) |
|
|
|
|
(concat "~/.emacs-" basename))))) |
|
|
|
|
|
|
|
|
|
;; * Multiple cursors galore |
|
|
|
|
(require 'multiple-cursors) |
|
|
|
|
(global-set-key (kbd "C->") 'mc/mark-next-like-this) |
|
|
|
|
(global-set-key (kbd "C-<") 'mc/mark-previous-like-this) |
|
|
|
|
@ -359,7 +366,7 @@ a file in the home directory." |
|
|
|
|
|
|
|
|
|
(global-set-key (kbd "<f13>") 'set-mark-command) |
|
|
|
|
|
|
|
|
|
;; clever mark stuff |
|
|
|
|
;; * clever mark stuff |
|
|
|
|
(defun push-mark-no-activate () |
|
|
|
|
"Pushes `point' to `mark-ring' and does not activate the region |
|
|
|
|
Equivalent to \\[set-mark-command] when \\[transient-mark-mode] is disabled" |
|
|
|
|
@ -377,8 +384,8 @@ This is the same as using \\[set-mark-command] with the prefix argument." |
|
|
|
|
|
|
|
|
|
(defun just-activate-mark () |
|
|
|
|
(interactive) |
|
|
|
|
(exchange-point-and-mark) |
|
|
|
|
(exchange-point-and-mark)) |
|
|
|
|
(activate-mark)) |
|
|
|
|
|
|
|
|
|
(global-set-key (kbd "<S-f13>") 'just-activate-mark) |
|
|
|
|
|
|
|
|
|
;; (defun exchange-point-and-mark-no-activate () |
|
|
|
|
@ -388,12 +395,10 @@ This is the same as using \\[set-mark-command] with the prefix argument." |
|
|
|
|
;; (deactivate-mark nil)) |
|
|
|
|
;; (define-key global-map [remap exchange-point-and-mark] 'exchange-point-and-mark-no-activate) |
|
|
|
|
|
|
|
|
|
(byte-recompile-directory "~/.emacs.d/bibretrieve" 0) |
|
|
|
|
(load "bibretrieve") |
|
|
|
|
|
|
|
|
|
;; * Wordnik stuff - does not work anymore |
|
|
|
|
(require 'wordnik-synonym) |
|
|
|
|
(global-set-key (kbd "H-=") 'wn/synonym-at-point) |
|
|
|
|
|
|
|
|
|
;; * kill annoying completion buffer |
|
|
|
|
(add-hook 'minibuffer-exit-hook |
|
|
|
|
'(lambda () |
|
|
|
|
(let ((buffer "*Completions*")) |
|
|
|
|
@ -401,11 +406,11 @@ This is the same as using \\[set-mark-command] with the prefix argument." |
|
|
|
|
(kill-buffer buffer))) |
|
|
|
|
)) |
|
|
|
|
|
|
|
|
|
;; Open gpg encrypted files on the fly |
|
|
|
|
;; * Open gpg encrypted files on the fly |
|
|
|
|
(require 'epa-file) |
|
|
|
|
(epa-file-enable) |
|
|
|
|
|
|
|
|
|
;; Time stamps |
|
|
|
|
;; * Time stamps |
|
|
|
|
;; write |
|
|
|
|
;; Time-stamp: <> |
|
|
|
|
;; in your file and save it to see time stamps at work. |
|
|
|
|
@ -417,17 +422,23 @@ This is the same as using \\[set-mark-command] with the prefix argument." |
|
|
|
|
;; first day of the week is monday instead of sunday: |
|
|
|
|
(setq calendar--week--start--day 1) |
|
|
|
|
|
|
|
|
|
;; * Misc --- sort thme out |
|
|
|
|
(require 'highlight-sexps) |
|
|
|
|
|
|
|
|
|
(setq echo-keystrokes 0.10) |
|
|
|
|
(set-default 'cursor-type 'box) |
|
|
|
|
|
|
|
|
|
(require 'fringe-current-line) |
|
|
|
|
(global-fringe-current-line-mode 1) |
|
|
|
|
(require 'hlinum) |
|
|
|
|
(hlinum-activate) |
|
|
|
|
|
|
|
|
|
;; (require 'completion-ui) ; |
|
|
|
|
|
|
|
|
|
;; * Try again with ido |
|
|
|
|
;; ** Load ido |
|
|
|
|
(require 'ido) |
|
|
|
|
(ido-mode t) |
|
|
|
|
;; ** Organize ibuffer according to some rules |
|
|
|
|
(setq ibuffer-saved-filter-groups |
|
|
|
|
(quote (("default" |
|
|
|
|
("LaTeχ" (mode . latex-mode)) |
|
|
|
|
@ -443,16 +454,15 @@ This is the same as using \\[set-mark-command] with the prefix argument." |
|
|
|
|
'(lambda () |
|
|
|
|
(ibuffer-switch-to-saved-filter-groups "default"))) |
|
|
|
|
|
|
|
|
|
;; Try again with ido |
|
|
|
|
(require 'ido) |
|
|
|
|
(ido-mode t) |
|
|
|
|
|
|
|
|
|
(set-face-font 'default "-xos4-TerminusPlus-Medium-R-Normal--12-120-72-72-C-60-ISO10646-1") |
|
|
|
|
(mapc |
|
|
|
|
(lambda (face) |
|
|
|
|
(set-face-attribute face nil :weight 'normal)) |
|
|
|
|
(face-list)) |
|
|
|
|
;; * This used to set my patched version of terminus |
|
|
|
|
;; (set-face-font 'default "-xos4-TerminusPlus-Medium-R-Normal--12-120-72-72-C-60-ISO10646-1") |
|
|
|
|
;; (mapc |
|
|
|
|
;; (lambda (face) |
|
|
|
|
;; (set-face-attribute face nil :weight 'normal)) |
|
|
|
|
;; (face-list)) |
|
|
|
|
|
|
|
|
|
;; * mode-line setting |
|
|
|
|
(setq-default mode-line-modified '(:eval (if (buffer-modified-p) "●" "·"))) ;still needs some improvements, does not report Readonly state |
|
|
|
|
(setq-default mode-line-remote '(:eval (let ((s (format-mode-line "%@"))) |
|
|
|
|
(cond |
|
|
|
|
@ -488,6 +498,18 @@ This is the same as using \\[set-mark-command] with the prefix argument." |
|
|
|
|
mode-line-misc-info |
|
|
|
|
mode-line-end-spaces)) |
|
|
|
|
|
|
|
|
|
;; * Organize differently |
|
|
|
|
(require 'outshine) |
|
|
|
|
(add-hook 'outline-minor-mode-hook 'outshine-hook-function) |
|
|
|
|
(setq outshine-use-speed-commands t) |
|
|
|
|
|
|
|
|
|
(add-hook 'sh-mode-hook 'outline-minor-mode) |
|
|
|
|
|
|
|
|
|
(require 'package) |
|
|
|
|
(add-to-list 'package-archives |
|
|
|
|
'("melpa-stable" . "http://stable.melpa.org/packages/") t) |
|
|
|
|
|
|
|
|
|
;; * start server named after kde activity id |
|
|
|
|
(setq server-name (kde-current-activity)) |
|
|
|
|
(server-start) |
|
|
|
|
(menu-bar-mode -99) |
|
|
|
|
(server-start) |
|
|
|
|
|
Jacopo De Simoi
10 years ago