Browse Source

Fix default transparency, fix Windows TLS

master
Macoy Madson 5 months ago
parent
commit
aacd97da71
  1. 3
      Emacs/packages.el
  2. 5
      Emacs/visual-late.el

3
Emacs/packages.el

@ -2,6 +2,9 @@
(require 'seq)
;; Hack to get Melpa to work on Windows
(setq gnutls-algorithm-priority "NORMAL:-VERS-TLS1.3")
;; Enable MELPA
(require 'package)
(let* ((no-ssl (and (memq system-type '(windows-nt ms-dos))

5
Emacs/visual-late.el

@ -25,6 +25,7 @@
'(100 100)))
(setq macoy-transparency-index 2)
(defun macoy-cycle-transparency (&optional index)
(interactive)
(if index
@ -37,8 +38,8 @@
(set-frame-parameter (selected-frame) 'alpha transparency-settings)
(message "Transparency now %s" transparency-settings)))
;; Set default transparency
(macoy-cycle-transparency 0)
;; Set default transparency (-1 because 1 will be added due to the "cycle" thing)
(macoy-cycle-transparency (- macoy-transparency-index 1))
(global-set-key (kbd "<f9>") 'macoy-cycle-transparency)
;; Add a slight border to give us some breathing room on the edges

Loading…
Cancel
Save