emacs设置

emacs在使用过程中窗体的大小每次要点鼠标很麻烦，将一下内容配置到.emacs 中可以默认最大化窗口
;;最大化
(defun my-maximized ()
  (interactive)
  (x-send-client-message
    nil 0 nil "_NET_WM_STATE" 32
    '(2 "_NET_WM_STATE_MAXIMIZED_HORZ" 0)
  )
  (x-send-client-message
    nil 0 nil "_NET_WM_STATE" 32
    '(2 "_NET_WM_STATE_MAXIMIZED_VERT" 0)
  )
)
;;启动时最大化
(my-maximized)
可以通过 f11绑定这个函数来实现改变
(global-set-key [f11] 'my-maximized)

Emacs 透明 设置

直接在.emacs 文件中增加一下代码 


(global-set-key [(f9)] 'loop-alpha)  ;;注意这行中的F9 , 可以改成你想要的按键  
  
(setq alpha-list '((70 55) (100 100)))  
  
(defun loop-alpha ()  
  (interactive)  
  (let ((h (car alpha-list)))                  
    ((lambda (a ab)  
       (set-frame-parameter (selected-frame) 'alpha (list a ab))  
       (add-to-list 'default-frame-alist (cons 'alpha (list a ab)))  
       ) (car h) (car (cdr h)))  
    (setq alpha-list (cdr (append alpha-list (list h))))  
    )  
)  


打卡emacs 之后 按F9 可以在透明 和不透明之间切换  这个((70 55) (100 100))参数修改可以改变透明度