<commit_before>;;; packages.el --- my-programmer-dvorak layer packages file for Spacemacs.
;;
;; Copyright (c) 2012-2016 <NAME> & Contributors
;;
;; Author: <NAME>' <<EMAIL>>
;; URL: https://github.com/syl20bnr/spacemacs
;;
;; This file is not part of GNU Emacs.
;;
;;; License: GPLv3

;;; Commentary:

;;; Code:

(defconst my-programmer-dvorak-packages
  '(
    avy
    ace-window
    (default-helm-config :location built-in)
    eyebrowse
    persp-mode
    ))

(defun my-programmer-dvorak/pre-init-avy ()
  (spacemacs|use-package-add-hook avy
    :post-init
    (setq avy-keys my-programmer-dvorak-jump-keys
          avy-dispatch-alist my-programmer-dvorak-avy-dispatch-alist)))

(defun my-programmer-dvorak/pre-init-ace-window ()
  (spacemacs|use-package-add-hook ace-window
    :post-init
    (setq aw-keys my-programmer-dvorak-jump-keys)))

(defun my-programmer-dvorak/pre-init-eyebrowse ()
  (spacemacs|use-package-add-hook eyebrowse
    :post-init
    (or (boundp 'spacemacs-workspaces-transient-state-add-bindings)
        (setq spacemacs-workspaces-transient-state-add-bindings '()))
    (my-programmer-dvorak/loop-digit-keys
     (lambda (qwerty-key dvp-key)
       (let ((cmd (my-programmer-dvorak//intern
                   "eyebrowse-switch-to-window-config-%s"
                   qwerty-key)))
         (push (list dvp-key cmd :exit t)
               spacemacs-workspaces-transient-state-add-bindings))))))

(defun my-programmer-dvorak/pre-init-persp-mode ()
  (spacemacs|use-package-add-hook persp-mode
    :post-init
    (or (boundp 'spacemacs-layouts-transient-state-add-bindings)
        (setq spacemacs-layouts-transient-state-add-bindings'()))
    (my-programmer-dvorak/loop-digit-keys
     (lambda (qwerty-key dvp-key)
       (let ((cmd (my-programmer-dvorak//intern
                   "spacemacs/persp-switch-to-%s"
                   qwerty-key)))
         (push (list dvp-key cmd :exit t)
               spacemacs-layouts-transient-state-add-bindings))))))

;;; packages.el ends here<commit_msg>my-programmer-dvorak: handling of C-* bindings in GUI<commit_after>;;; packages.el --- my-programmer-dvorak layer packages file for Spacemacs.
;;
;; Copyright (c) 2012-2016 <NAME> & Contributors
;;
;; Author: <NAME>' <<EMAIL>>
;; URL: https://github.com/syl20bnr/spacemacs
;;
;; This file is not part of GNU Emacs.
;;
;;; License: GPLv3

;;; Commentary:

;;; Code:

(defconst my-programmer-dvorak-packages
  '(
    avy
    ace-window
    (default-helm-config :location built-in)
    evil
    eyebrowse
    persp-mode
    ))

(defun my-programmer-dvorak/pre-init-avy ()
  (spacemacs|use-package-add-hook avy
    :post-init
    (setq avy-keys my-programmer-dvorak-jump-keys
          avy-dispatch-alist my-programmer-dvorak-avy-dispatch-alist)))

(defun my-programmer-dvorak/pre-init-ace-window ()
  (spacemacs|use-package-add-hook ace-window
    :post-init
    (setq aw-keys my-programmer-dvorak-jump-keys)))

(defun my-programmer-dvorak/pre-init-evil ()
  ;; Setting `evil-intercept-esc' to t tells Evil not to translate C-[ into ESC
  ;; in GUI, so we can use it for Programmer Dvorak remap of layout/workspace
  ;; C-2 -> C-[.
  (setq evil-intercept-esc t))

(defun my-programmer-dvorak/pre-init-eyebrowse ()
  (spacemacs|use-package-add-hook eyebrowse
    :post-init
    (or (boundp 'spacemacs-workspaces-transient-state-add-bindings)
        (setq spacemacs-workspaces-transient-state-add-bindings '()))
    (my-programmer-dvorak/loop-digit-keys
     (lambda (qwerty-key dvp-key)
       (let ((cmd (my-programmer-dvorak//intern
                   "eyebrowse-switch-to-window-config-%s"
                   qwerty-key)))
         (push (list dvp-key cmd :exit t)
               spacemacs-workspaces-transient-state-add-bindings)
         ;; We can properly handle things like C-[ only in GUI.
         (when (display-graphic-p)
           (push (list (concat "C-" dvp-key) cmd)
                 spacemacs-workspaces-transient-state-add-bindings)) )))))

(defun my-programmer-dvorak/pre-init-persp-mode ()
  (spacemacs|use-package-add-hook persp-mode
    :post-init
    (or (boundp 'spacemacs-layouts-transient-state-add-bindings)
        (setq spacemacs-layouts-transient-state-add-bindings'()))
    (my-programmer-dvorak/loop-digit-keys
     (lambda (qwerty-key dvp-key)
       (let ((cmd (my-programmer-dvorak//intern
                   "spacemacs/persp-switch-to-%s"
                   qwerty-key)))
         (push (list dvp-key cmd :exit t)
               spacemacs-layouts-transient-state-add-bindings)
         ;; We can properly handle things like C-[ only in GUI.
         (when (display-graphic-p)
           (push (list (concat "C-" dvp-key) cmd)
                 spacemacs-layouts-transient-state-add-bindings)))))))

;;; packages.el ends here
{'fraction_non_alphanumeric': 0.1465354825204103, 'fraction_numerical': 0.004814737282813481, 'mean_word_length': 2.6838858905165766, 'pattern_counts': {'":': 0, '<': 11, '<?xml version=': 0, '>': 12, 'https://': 2, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '7377400', 'n_tokens_mistral': 1810, 'n_tokens_neox': 1739, 'n_words': 300}