Commit 240d89087306

Vincent Demeester <vincent@sbr.pm>
2019-01-12 12:18:20
lisp: add some comment to get less lint errors…
… and remove unused hydras Signed-off-by: Vincent Demeester <vincent@sbr.pm>
1 parent c8cef88
lisp/shortbrain-theme.el
@@ -1,4 +1,3 @@
-;;; -*- lexical-binding: t; -*-
 ;;; shortbrain-theme.el --- Shortbrain theme
 
 ;; Copyright (C) 2013-2016 Marian Schubert
@@ -27,12 +26,10 @@
 
 ;; Low distraction, minimalistic color theme, with minimal colors, preferring
 ;; other styles of markup (italic, bold).
-;; TODO(vdemeester) change some magit faces
-;; TODO(vdemeester) try a dark version of it (?)
 
 ;;; Credits:
 
-;; Based on: 
+;; Based on:
 ;; https://git.madhouse-project.org/algernon/brutalist-theme.el
 
 ;; Which in turn was inspired by:
@@ -43,6 +40,7 @@
 ;; http://www.daveliepmann.stfi.re/tufte-css/?sf=wklwy
 
 ;;; Code:
+;;; -*- lexical-binding: t; -*-
 
 (deftheme shortbrain
   "Minimal, low-color, low-distraction theme.")
lisp/vde-buffers.el
@@ -1,4 +1,8 @@
+;;; vde-buffers.el --- setup buffer related function and mode
+;;; Commentary:
+;;; Code:
 ;;; -*- lexical-binding: t; -*-
+
 ;; Don't let the cursor go into minibuffer prompt
 (let ((default (eval (car (get 'minibuffer-prompt-properties 'standard-value))))
       (dont-touch-prompt-prop '(cursor-intangible t)))
lisp/vde-company.el
@@ -1,3 +1,6 @@
+;;; vde-company.el -- setup company (completions)
+;;; Commentary:
+;;; Code:
 ;;; -*- lexical-binding: t; -*-
 (use-package company
   :commands global-company-mode
lisp/vde-compile.el
@@ -1,3 +1,6 @@
+;;; vde-compile.el --- setup compilation modes
+;;; Commentary:
+;;; Code:
 ;;; -*- lexical-binding: t; -*-
 (use-package compile
   :defer 2
lisp/vde-deft.el
@@ -1,4 +1,8 @@
+;;; vde-deft.el -- setup deft
+;;; Commentary:
+;;; Code:
 ;;; -*- lexical-binding: t; -*-
+
 (use-package deft
   :commands (deft)
   :bind (("<f9>" . deft)
lisp/vde-dired.el
@@ -1,4 +1,8 @@
+;;; vde-dired.el --- setup dired mode(s)
+;;; Commentary:
+;;; Code:
 ;;; -*- lexical-binding: t; -*-
+
 (use-package dired
   :defer t
   :bind (("<C-return>" . vde-open-in-external-app)
lisp/vde-docker.el
@@ -1,4 +1,8 @@
+;;; vde-docker.el --- setup docker related mode(s)
+;;; Commentary:
+;;; Code:
 ;;; -*- lexical-binding: t; -*-
+
 (use-package dockerfile-mode            ; Edit docker's Dockerfiles
   :mode ("Dockerfile\\'" . dockerfile-mode))
 
lisp/vde-editing.el
@@ -1,4 +1,8 @@
+;;; vde-editing.el --- setup editing related mode(s)
+;;; Commentary:
+;;; Code:
 ;;; -*- lexical-binding: t; -*-
+
 (use-package aggressive-indent          ; Automatically indent code
   :bind ("C-c t i" . aggressive-indent-mode)
   :hook ((lisp-mode       . aggressive-indent-mode)
lisp/vde-files.el
@@ -1,4 +1,8 @@
+;;; vde-files.el --- setup files related modes
+;;; Commentary:
+;;; Code:
 ;;; -*- lexical-binding: t; -*-
+
 (use-package files                      ; Core commands for files
   :bind (("<f5>" . revert-buffer)))
 
lisp/vde-go.el
@@ -1,4 +1,8 @@
+;;; vde-go.el --- setup go mode(s)
+;;; Commentary:
+;;; Code:
 ;;; -*- lexical-binding: t; -*-
+
 (use-package go-mode
   :mode "\\.go$"
   :interpreter "go"
lisp/vde-hydras.el
@@ -1,64 +1,7 @@
+;;; vde-hydras.el --- setup hydras
+;;; Commentary:
+;;; Code:
 ;;; -*- lexical-binding: t; -*-
-(defhydra hydra-projects (:color blue)
-  "Open projects"
-  ("b" (find-file "~/src/github.com/vdemeester/blog/README.md") "blog")
-  ("d" hydra-docker-projects/body "docker")
-  ("e" (find-file "~/.emacs.d/init.el") "emacs")
-  ("g" hydra-golang-projects/body "go*")
-  ("k" hydra-kubernetes-projects/body "kubernetes")
-  ("m" hydra-moby-projects/body "moby")
-  ("n" hydra-nix-projects/body "nix")
-  ("o" hydra-openshift-projects/body "openshift")
-  ("r" hydra-redhat-dev-projets/body "redhat")
-  ("v" hydra-vdemeester-projects/body "vdemeester"))
-
-(bind-key "C-c SPC" #'hydra-projects/body)
-
-(defhydra hydra-vdemeester-projects (:color blue)
-  ("a" (find-file "~/src/github.com/vdemeester/ape/README.md") "ape")
-  ("b" (find-file "~/src/github.com/vdemeester/bee/README.md") "bee") 
-  ("o" (find-file "~/src/github.com/vdemeester/orgist/README.md") "orgist")
-  ("f" (find-file "~/src/github.com/vdemeester/fox/README.md") "fox")
-  ("y" (find-file "~/src/github.com/vdemeester/yak/README.md") "yak"))
-
-(defhydra hydra-golang-projects (:color blue)
-  "Golang (random) projects"
-  ("t" (find-file "~/src/gotest.tools/README.md") "gotest.tools"))
-
-(defhydra hydra-nix-projects (:color blue)
-  "Nix-based projects"
-  ("h" (find-file "~/.config/nixpkgs/README.md") "home")
-  ("m" (find-file "~/src/github.com/rycee/home-manager/README.md") "home-manager")
-  ("n" (find-file "~/src/github.com/NixOS/nixpkgs/README.md") "nixpkgs")
-  ("s" (find-file "/sudo::/etc/nixos/README.md") "nixos"))
-
-(defhydra hydra-docker-projects (:color blue)
-  "Docker projects"
-  ("a" (find-file "~/src/github.com/docker/app/README.md") "docker/app")
-  ("c" (find-file "~/src/github.com/docker/cli/README.md") "docker/cli")
-  ("d" (find-file "~/src/github.com/docker/docker/README.md") "docker/docker"))
-
-(defhydra hydra-moby-projects (:color blue)
-  "Moby projects"
-  ("b" (find-file "~/src/github.com/moby/buildkit/README.md") "buildkit")
-  ("c" (find-file "~/src/github.com/containerd/containerd/README.md") "containerd")
-  ("r" (find-file "~/src/github.com/opencontainers/runc/README.md") "runc")
-  ("l" (find-file "~/src/github.com/linuxkit/linuxkit/README.md") "linuxkit"))
-
-(defhydra hydra-redhat-dev-projets (:color blue)
-  "RedHat projects"
-  ("o" (find-file "~/src/github.com/redhat-developer/odo/README.md") "odo"))
-
-(defhydra hydra-openshift-projects (:color blue)
-  "Openshift projects"
-  ("o" (find-file "~/src/github.com/openshift/origin/README.md") "origin"))
-
-(defhydra hydra-kubernetes-projects (:color blue)
-  "Kubernetes projects"
-  ("b" (find-file "~/src/github.com/kubernetes-sigs/kubebuilder/README.md") "kubebuilder")
-  ("c" (find-file "~/src/github.com/kubernetes/kompose/README.md") "kompose")
-  ("k" (find-file "~/src/github.com/kubernetes/kubernetes/README.md") "kubernetes")
-  ("u" (find-file "~/src/github.com/kubernetes-sigs/kustomize/README.md") "kustomize"))
 
 (defhydra hydra-goto-line (goto-map ""
                                     :pre (linum-mode 1)
@@ -105,7 +48,6 @@ _l_ org link display:  %`org-descriptive-links
 
 (global-set-key (kbd "C-c C-v") 'hydra-toggle/body)
 
-
 (defhydra hydra-marked-items (dired-mode-map "")
   "
 Number of marked items: %(length (dired-get-marked-files))
lisp/vde-ivy.el
@@ -1,5 +1,8 @@
+;;; vde-ivy.el --- setup ivy and related packages (counsel)
+;;; Commentary:
+;;; Code:
 ;;; -*- lexical-binding: t; -*-
-;; This file stores my configuration for Ivy and related packages.
+
 (use-package ivy
   :bind (:map vde-mode-map
               ("C-x b" . ivy-switch-buffer)
lisp/vde-keybindings.el
@@ -1,4 +1,8 @@
+;;; vde-keybindings.el --- setup keybindings 👼
+;;; Commentary:
+;;; Code:
 ;;; -*- lexical-binding: t; -*-
+
 (use-package key-chord
   :chords
   (("''" . "’")
lisp/vde-mode.el
@@ -1,6 +1,10 @@
+;;; vde-mode.el --- define a personal minor mode
+;;; Commentary:
+;;;
+;;; Main use is to have my key bindings have the highest priority
+;;;
+;;; Code
 ;;; -*- lexical-binding: t; -*-
-;; My minor mode
-;; Main use is to have my key bindings have the highest priority
 
 (defvar vde-special-keymap-prefix (kbd "C-x m")
   "`vde-mode' keymap prefix.
lisp/vde-navigating.el
@@ -1,4 +1,8 @@
+;;; vde-navigating.el --- setup navigating related modes
+;;; Commentary:
+;;; Code:
 ;;; -*- lexical-binding: t; -*-
+
 (use-package avy                   ; Jump to characters in buffers
   :bind (("C-c j"   . avy-goto-word-1)
          ("C-c n b" . avy-pop-mark)
lisp/vde-nix.el
@@ -1,4 +1,8 @@
+;;; vde-nix.el --- setup nix modes
+;;; Commentary:
+;;; Code:
 ;;; -*- lexical-binding: t; -*-
+
 (use-package nix-mode
   :mode ("\\.nix\\'" "\\.nix.in\\'"))
 
lisp/vde-org.el
@@ -1,4 +1,8 @@
+;;; vde-org.el --- setup org-mode
+;;; Commentary:
+;;; Code:
 ;;; -*- lexical-binding: t; -*-
+
 (use-package org
   :defer t
   :mode (("\\.org$" . org-mode))
lisp/vde-projectile.el
@@ -1,4 +1,8 @@
+;;; setup-projectile.el --- setup projectile
+;;; Commentary:
+;;; Code:
 ;;; -*- lexical-binding: t; -*-
+
 (use-package projectile                 ; Project management
   :init (projectile-mode)
   :chords (("pf" . projectile-find-file)
lisp/vde-rust.el
@@ -1,4 +1,8 @@
+;;; vde-rust.el --- setup rust related modes
+;;; Commentary:
+;;; Code:
 ;;; -*- lexical-binding: t; -*-
+
 (use-package rust-mode
   :mode "\\.rs\\'"
   :init
@@ -12,7 +16,7 @@
   :config
   (setq racer-cmd (executable-find "racer")))
 
-(use-package company-racer  
+(use-package company-racer
   :after company
   :config
   (push 'company-racer company-backends))
lisp/vde-search.el
@@ -1,4 +1,8 @@
+;;; vde-search.el --- setup search
+;;; Commentary:
+;;; Code:
 ;;; -*- lexical-binding: t; -*-
+
 ;; Ignore directories during grep
 (with-eval-after-load 'grep
   '(progn
lisp/vde-shells.el
@@ -1,4 +1,8 @@
+;;; vde-shells.el --- setup shells related mode
+;;; Commentary:
+;;; Code:
 ;;; -*- lexical-binding: t; -*-
+
 (use-package shell                 ; Specialized comint.el for running the shell
   :bind (("<f1>"      . vde-shell-open)
          ("C-c a s s" . vde-shell-open)
lisp/vde-style.el
@@ -1,4 +1,8 @@
+;;; vde-style.el --- setup emacs style 😎
+;;; Commentary:
+;;; Code:
 ;;; -*- lexical-binding: t; -*-
+
 ;;; Fonts used:
 ;;; - Iosevka (https://github.com/be5invis/Iosevka)
 ;;; - Fira Sans (https://github.com/mozilla/Fira/)
lisp/vde-vcs.el
@@ -1,4 +1,8 @@
+;;; vde-vcs.el --- setup vcs related mode (like magit 🌟)
+;;; Commentary:
+;;; Code:
 ;;; -*- lexical-binding: t; -*-
+
 (use-package vc-hooks                   ; Simple version control
   :bind (("S-<f5>" . vc-revert)
          ("C-c v r" . vc-refresh-state))
lisp/vde-web.el
@@ -1,4 +1,8 @@
+;;; vde-web.el --- setup web related modes
+;;; Commentary:
+;;; Code:
 ;;; -*- lexical-binding: t; -*-
+
 (use-package web-mode
   :mode
   ("\\.html\\'" . web-mode)
lisp/vde-windows.el
@@ -1,4 +1,8 @@
+;;; vde-windows.el --- window/frame configuration
+;;; Commentary:
+;;; Code:
 ;;; -*- lexical-binding: t; -*-
+
 (setq window-combination-resize t) ; Size new windows proportionally
 
 (use-package fullframe                 ; Generalized execution in a single frame
early-init.el
@@ -1,5 +1,7 @@
+;;; early-init.el --- this file is loaded before init.el.
+;;; Commentary:
+;;; Code:
 ;;; -*- lexical-binding: t; -*-
-;; This file is loaded before init.el.
 (setq package-enable-at-startup nil)
 
 (provide 'early-init)
init.el
@@ -1,4 +1,8 @@
+;;; init.el --- emacs configuration entrypoint
+;;; Commentary:
+;;; Code:
 ;;; -*- lexical-binding: t; -*-
+
 (defconst emacs-start-time (current-time))
 (defvar file-name-handler-alist-old file-name-handler-alist)