commit 912caae1e7c99990fb7ff4de54d90cfdff80fe4d · drubery.com/dotfiles

+22
emacs.el
···

       1
       1
       +
       ;; Save all by default

     

       1
       2
        
       (global-set-key (kbd "C-x s")

     

       2
       3
        
       		(lambda ()

     

       3
       4
        
       		  (interactive)

     

       4
       5
        
       		  (save-some-buffers t)))

     

       5
       6
        
       

     

       7
       7
       +
       ;; Get rid of backup files

     

       6
       8
        
       (setq make-backup-files nil)

     

       7
       9
        
       (setq create-lockfiles nil)

     

       8
       10
        
       (auto-save-visited-mode)

     

       9
       11
        
       

     

       12
       12
       +
       ;; Command-line reformatters should reload

     

       13
       13
       +
       (global-auto-revert-mode t)

     

       14
       14
       +
       

     

       15
       15
       +
       ;; Sometimes hit C-x C-c and lose state. Forbid this.

     

       10
       16
        
       (defun exit ()

     

       11
       17
        
         (interactive)

     

       12
       18
        
         (save-buffers-kill-terminal t))

     

       13
       19
        
       (defun remove-exit ()

     

       14
       20
        
         (interactive)

     

       15
       21
        
         (global-set-key (kbd "C-x C-c") nil))

     

       22
       22
       +
       

     

       23
       23
       +
       (setq compilation-always-kill t)

     

       24
       24
       +
       (setq compilation-ask-about-save nil)

     

       25
       25
       +
       (setq compile-command "")

     

       26
       26
       +
       (global-set-key (kbd "C-c c") 'compile)

     

       27
       27
       +
       

     

       28
       28
       +
       ;; TODO: Do I want keybindings for this?

     

       29
       29
       +
       (defun osc52-encode-utf8-base64 (string &rest base64-encode-args)

     

       30
       30
       +
         (apply 'base64-encode-string

     

       31
       31
       +
       	 (encode-coding-string string 'utf-8)

     

       32
       32
       +
       	 base64-encode-args))

     

       33
       33
       +
       (defun osc52-select-text (string &rest args)

     

       34
       34
       +
         (send-string-to-terminal

     

       35
       35
       +
          (concat "\e]52;c;"

     

       36
       36
       +
       	   (osc52-encode-utf8-base64 string t)

     

       37
       37
       +
       	   "\07")))