diff options
Diffstat (limited to 'lisp/init-gui.el')
| -rw-r--r-- | lisp/init-gui.el | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/lisp/init-gui.el b/lisp/init-gui.el index 6bcdb8c..1d33698 100644 --- a/lisp/init-gui.el +++ b/lisp/init-gui.el @@ -10,6 +10,7 @@ (menu-bar-mode 0) (setq make-backup-files nil) ; stop creating backup~ files (setq auto-save-default nil) ; stop creating #autosave# files +(setq create-lockfiles nil) ; stop creating #create-lockfiles ;;---------------------------------------------------------------------------- ;; Editor configuration @@ -40,21 +41,26 @@ ;; Configure keys ;;---------------------------------------------------------------------------- (global-unset-key (kbd "C-z")) ; Stops C-z from minimizing window -(global-set-key (kbd "M-<down>") (lambda () (interactive) (sanityinc/adjust-opacity nil -2))) ; M-down less visibility -(global-set-key (kbd "M-<up>") (lambda () (interactive) (sanityinc/adjust-opacity nil 2))) ; M-up more visibility (global-set-key (kbd "M-0") (lambda () (interactive) (modify-frame-parameters nil '((alpha . 100))))) ; M-0 standard visibility -(global-set-key (kbd "<f11>") 'myemacs/toggle-fullscreen) ; F11 FullScreen (global-set-key (kbd "s-C-+") 'sacha/increase-font-size) ; C-+ increase font size (global-set-key (kbd "s-C--") 'sacha/decrease-font-size) ; C-- decrease font size (global-set-key (kbd "<f12>") 'revert-buffer-no-confirm) (global-set-key (kbd "s-h") 'global-hl-line-mode) ; Highlight current line (global-set-key (kbd "M-c") nil) ; disable capitalize-word +;;--------------------------------------------------------------------------- +;; FullScreen +;;--------------------------------------------------------------------------- +(defun myemacs/toggle-fullscreen () + "Return a message string if the current doc string is invalid." + (interactive) + (x-send-client-message nil 0 nil "_NET_WM_STATE" 32 + '(2 "_NET_WM_STATE_FULLSCREEN" 0))) +(global-set-key (kbd "<f11>") 'myemacs/toggle-fullscreen) ; F11 FullScreen ;;---------------------------------------------------------------------------- ;; clock ;;---------------------------------------------------------------------------- - (setq display-time-day-and-date t) (display-time) |