Fix default transparency, fix Windows TLS

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))

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