Install the orgit and orgit-forge packages

It’s not maintained since 2019 and it throws a lot of errors.

.gitignore

@@ -1,3 +1,4 @@
+/customizations.el
 *~
 /session*
 /tramp
@@ -15,6 +16,14 @@
 /url/
 /hgs-cache
 /smex-items
+/var/
+/anaconda-mode/
+/.last-package-update-day
+/eln-cache
+/.lsp-session-v1
+/.dap-breakpoints
+/elpy
+
 # All hail use-package!
 /elpa/
 
@@ -27,4 +36,30 @@
 /.sx/
 
 # Newsticker
-/newsticker
+/newsticker
+
+# The “compiled” version of the Org configuration
+/configuration.el
+/bookmarks
+
+/org-caldav-*.el
+
+# Forge database
+/forge-database.sqlite
+/forge-database-v*.sql
+/forge-database-v*.sqlite
+
+# request.el cookie jars
+/request/curl-cookie-jar
+
+# Quelpa stuff
+/quelpa
+
+# Transient history
+/transient/history.el
+
+# Mastodon token list
+/mastodon.plstore
+/org-roam.db
+/.org-id-locations
+/projects

.mc-lists.el

@@ -3,27 +3,72 @@
 
 (setq mc/cmds-to-run-for-all
       '(
-        c-electric-brace
-        c-electric-semi&comma
-        c-indent-line-or-region
-        electric-newline-and-maybe-indent
-        hungry-delete-forward
-        indent-for-tab-command
-        kill-region
-        org-cycle
-        org-end-of-line
-        org-kill-line
-        org-self-insert-command
-        sp-backward-delete-char
-        sp-backward-kill-word
-        sp-delete-char
-        ))
+	avy-goto-char
+	backward-sexp
+	c-electric-brace
+	c-electric-colon
+	c-electric-paren
+	c-electric-semi&comma
+	c-electric-star
+	c-indent-line-or-region
+	delete-indentation
+	downcase-region
+	drag-stuff-down
+	electric-newline-and-maybe-indent
+	forward-sexp
+	gpolonkai/duplicate-line
+	gpolonkai/move-to-beginning-of-line
+	gpolonkai/move-to-end-of-line
+	gpolonkai/org-space-key
+	hungry-delete-backward
+	hungry-delete-forward
+	indent-for-tab-command
+	kill-region
+	kill-sexp
+	kill-visual-line
+	kmacro-end-or-call-macro
+	magit-status
+	org-cycle
+	org-delete-indentation
+	org-end-of-line
+	org-force-self-insert
+	org-kill-line
+	org-meta-return
+	org-return
+	org-self-insert-command
+	org-yank
+	overwrite-mode
+	sp-backward-delete-char
+	sp-backward-kill-word
+	sp-delete-char
+	sp-kill-hybrid-sexp
+	sp-kill-region
+	sp-kill-word
+	sp-remove-active-pair-overlay
+	sp-rewrap-sexp
+	sp-unwrap-sexp
+	toggle-char-case
+	upcase-region
+	wdired--self-insert
+	yaml-electric-dash-and-dot
+	))
 
 (setq mc/cmds-to-run-once
       '(
-        drag-stuff-right
-        end-of-buffer
-        helm-M-x
-        helm-find-files
-        smartparens-strict-mode
-        ))
+	ace-jump-done
+	ace-jump-move
+	ace-mc-add-char
+	ace-mc-add-multiple-cursors
+	ace-mc-add-single-cursor
+	ace-mc-do-keyboard-reset
+	ace-mc-quick-exchange
+	counsel-M-x
+	drag-stuff-right
+	end-of-buffer
+	helm-M-x
+	helm-confirm-and-exit-minibuffer
+	helm-find-files
+	smartparens-strict-mode
+	suspend-frame
+	yaml-electric-backspace
+	))

eshell/alias

@@ -0,0 +1 @@
+alias git git --no-pager $*

games/bubbles-default-2-10-10-scores

@@ -1 +1,2 @@
+03618	Thu Aug 16 09:29:39 2018	Gergely Polonkai <gergely@polonkai.eu>
 02667	Wed Oct  5 09:52:44 2016	Gergely Polonkai <gergely@polonkai.eu>

games/snake-scores

@@ -0,0 +1 @@
+00000	Thu Aug 16 09:43:46 2018	Gergely Polonkai <gergely@polonkai.eu>

gerrit/gerrit.el

@@ -1,30 +0,0 @@
-(eval-when-compile (require 'cl))
-
-(require 'request)
-
-(defun gerrit-json-read ()
-  "Gerrit puts five extra chars (\")]}'\n\")at the beginning of
-  each JSON response for security reasons. All this function does
-  is it strips those chars before calling `json-read'"
-
-  (goto-line 2)
-  (beginning-of-line)
-  (json-read))
-
-(let ((username "epolger")
-      (password "EsthaiTh6Fu"))
-  (request
-   "https://gerrit.ericsson.se/a/changes/?q=status:open+owner:self"
-   :parser 'gerrit-json-read
-   :headers '(("Authorization"
-               (concat ("Basic "
-                        (base64-encode-string (concat username
-                                                      ":"
-                                                      password))))))
-   :success (function* (lambda (&key data &allow-other-keys)
-                         (message "Success!")
-                         (message "%s" data)))
-   :error (function* (lambda (&key error-thrown &allow-other-keys&rest _)
-                       (message "Got error: %s" error-thrown)))
-   :complete (lambda (&rest _) (message "Finished!"))
-   :status-code '((401 . (lambda (&rest _) (message "Got 401"))))))

init.el

@@ -1,929 +1,16 @@
+;;; init --- Summary
+
+;;; Commentary:
+
+;;; Code:
+
+(setq custom-file (concat user-emacs-directory "customizations.el"))
+(load custom-file)
+
 ;; Initialize the package system and use-package
 (setq load-prefer-newer t)
-(require 'package)
-(add-to-list 'package-archives
-             '("gnu" . "http://elpa.gnu.org/packages/"))
-(add-to-list 'package-archives
-             '("melpa" . "https://melpa.org/packages/"))
-(add-to-list 'package-archives
-             '("marmalade" . "http://marmalade-repo.org/packages/"))
-(package-initialize)
 
-(unless (package-installed-p 'use-package)
-  (package-refresh-contents)
-  (package-install 'use-package))
+;; I started moving my configuration to this Org file.  It’s easier to document this way.
+(org-babel-load-file (expand-file-name "configuration.org" user-emacs-directory))
 
-;; Set up my personal keymap early so I can use it in use-package
-;; calls
-(define-prefix-command 'gpolonkai/pers-map)
-(define-key ctl-x-map "t" 'gpolonkai/pers-map)
-
-;; Add path to my custom lisp functions
-(add-to-list 'load-path (concat
-                         user-emacs-directory
-                         (convert-standard-filename "lisp/")))
-
-;; Custom stuff
-(custom-set-variables
- ;; custom-set-variables was added by Custom.
- ;; If you edit it by hand, you could mess it up, so be careful.
- ;; Your init file should contain only one such instance.
- ;; If there is more than one, they won't work right.
- '(background-color "#7f7f7f")
- '(background-mode dark)
- '(blink-cursor-mode t)
- '(column-number-mode t)
- '(cursor-color "#5c5cff")
- '(cursor-type (quote bar))
- '(custom-enabled-themes (quote (tango-dark)))
- '(custom-safe-themes
-   (quote
-    ("84d2f9eeb3f82d619ca4bfffe5f157282f4779732f48a5ac1484d94d5ff5b279"
-     "c74e83f8aa4c78a121b52146eadb792c9facc5b1f02c917e3dbb454fca931223"
-     "3c83b3676d796422704082049fc38b6966bcad960f896669dfc21a7a37a748fa"
-     "a27c00821ccfd5a78b01e4f35dc056706dd9ede09a8b90c6955ae6a390eb1c1e"
-     "1e7e097ec8cb1f8c3a912d7e1e0331caeed49fef6cff220be63bd2a6ba4cc365"
-     "fc5fcb6f1f1c1bc01305694c59a1a861b008c534cae8d0e48e4d5e81ad718bc6"
-     default)))
- '(echo-keystrokes 0.1)
- '(foreground-color "#5c5cff")
- '(indent-tabs-mode nil)
- '(indicate-empty-lines t)
- '(inhibit-startup-echo-area-message (user-login-name))
- '(inhibit-startup-screen t)
- '(initial-scratch-message nil)
- '(package-selected-packages
-   (quote
-    (ace-window
-     ag
-     alert
-     avy
-     beacon
-     cheatsheet
-     coffee-mode
-     command-log-mode
-     company
-     company-c-headers
-     company-emoji
-     company-restclient
-     company-shell
-     diminish
-     drag-stuff
-     electric-case
-     electric-spacing
-     emamux
-     flycheck
-     flycheck-pkg-config
-     focus
-     ggtags
-     git-gutter
-     git-messenger
-     git-timemachine
-     gitconfig-mode
-     gitignore-mode
-     gnugo
-     gobgen
-     google
-     goto-last-change
-     helm
-     helm-ag
-     helm-chrome
-     helm-company
-     helm-descbinds
-     helm-describe-modes
-     helm-flycheck
-     helm-flyspell
-     helm-github-stars
-     helm-google
-     helm-gtags
-     helm-projectile
-     helm-smex
-     helm-swoop
-     helm-unicode
-     hungarian-holidays
-     hungry-delete
-     hyde
-     id-manager
-     identica-mode
-     jinja2-mode
-     js2-mode
-     json-mode
-     magit
-     magit-gerrit
-     magithub
-     markdown-mode
-     mc-extras
-     multiple-cursors
-     ng2-mode
-     nyan-mode
-     nyan-prompt
-     org
-     org-bullets
-     org-jekyll
-     org-projectile
-     org-random-todo
-     org-rtm
-     origami
-     plantuml-mode
-     projectile
-     rainbow-delimiters
-     rainbow-mode
-     restclient
-     restclient-helm
-     sass-mode
-     smart-mode-line
-     smart-mode-line-powerline-theme
-     smartparens
-     spinner
-     sx
-     typescript-mode
-     use-package
-     vala-mode
-     vala-snippets
-     wakatime-mode
-     xlicense
-     yaml-mode
-     yasnippet
-     zone-nyan)))
- '(sgml-basic-offset 4)
- '(show-trailing-whitespace t)
- '(tab-width 4))
-
-;; Custom face settings
-(custom-set-faces
- ;; custom-set-faces was added by Custom.
- ;; If you edit it by hand, you could mess it up, so be careful.
- ;; Your init file should contain only one such instance.
- ;; If there is more than one, they won't work right.
- '(aw-leading-char-face ((t (:inherit ace-jump-face-foreground :height 3.0))))
- '(hl-line ((t (:inherit nil :background "gray25"))))
- '(trailing-whitespace ((t (:inherit nil :background "red1"))))
- '(whitespace-line ((t (:inherit nil :background "orange")))))
-(set-face-attribute 'default t :font "Hack-10")
-(set-frame-font "Hack-10" nil t)
-
-;; UI hacks: turn off the scroll bar (that’s why Nyan-cat is here),
-;; the toolbar (I don’t really use it), and the menu bar (I rarely use
-;; it, and in those rare occasions I can simply turn it on)
-(if (fboundp 'scroll-bar-mode) (scroll-bar-mode -1))
-(if (fboundp 'tool-bar-mode) (tool-bar-mode -1))
-(if (fboundp 'menu-bar-mode) (menu-bar-mode -1))
-
-;; Some personal stuff
-(setq user-mail-address "gergely@polonkai.eu")
-
-;; Load some custom libraries
-(require 'thingatpt)
-
-(use-package helm
-  :ensure t
-  :init
-  (require 'helm-config)
-  (setq helm-M-x-fuzzy-match t
-        helm-buffers-fuzzy-matching t
-        helm-recentf-fuzzy-match t)
-  :config
-  (helm-mode t)
-  :bind
-  (("M-x" . helm-M-x)
-   ("C-x C-f" . helm-find-files)
-   ("C-x b" . helm-mini)))
-
-(use-package helm-swoop
-  :ensure t
-  :bind
-  (("M-i" . helm-swoop)))
-
-(use-package ggtags
-  :ensure t
-  :config
-  (add-hook 'c-mode-hook
-            (lambda ()
-              (ggtags-mode t)))
-  (add-hook 'c-mode-common-hook
-            (lambda ()
-              (when (derived-mode-p 'c-mode 'c++-mode 'java-mode)
-                (ggtags-mode t)))))
-
-(use-package helm-gtags
-  :ensure t
-  :init
-  (setq-default helm-gtags-auto-update t
-                helm-gtags-ignore-case t
-                helm-gtags-path-style 'relative)
-  :config
-  (add-hook 'c-mode-hook
-            (lambda ()
-              (helm-gtags-mode t)))
-  :bind
-  (:map helm-gtags-mode-map
-   ("M-t" . helm-gtags-find-tag)
-   ("M-r" . helm-gtags-find-rtag)
-   ("M-s" . helm-gtags-find-symbol)
-   ("M-g M-p" . helm-gtags-parse-file)
-   ("C-c <" . helm-gtags-previous-history)
-   ("C-c >" . helm-gtags-next-history)
-   ("M-," . helm-gtags-pop-stack)))
-
-;; Whitespace mode
-;;
-;; It is turned on by default, and can be toggled with F10
-(use-package whitespace
-  :demand
-  :config
-  (global-whitespace-mode 1)
-  :bind
-  (([f10] . whitespace-mode)
-   ([(shift f10)] . global-whitespace-mode)))
-
-;; Multiple cursors
-(use-package multiple-cursors
-  :ensure t
-  :config
-  (add-hook 'multiple-cursors-mode-enabled-hook
-            (lambda ()
-              (setq blink-matching-paren nil)))
-  (add-hook 'multiple-cursors-mode-disabled-hook
-            (lambda ()
-              (setq blink-matching-paren t)))
-  :bind (("C-S-c C-S-c" . mc/edit-lines)
-         ("C->" . mc/mark-next-like-this)
-         ("C-<" . mc/mark-previous-like-this)
-         ("C-c C-<" . mc/mark-all-like-this)))
-
-(use-package eshell
-  :config
-  (add-hook 'eshell-mode-hook
-            (lambda () (local-set-key (kbd "C-d") #'eshell-C-d)))
-  :bind
-  (:map gpolonkai/pers-map
-   ("e" . eshell)))
-
-;; Save place
-(use-package saveplace
-  :config
-  (setq-default save-place t)
-  (setq save-place-file (expand-file-name ".places" user-emacs-directory)))
-
-;; Nyanyanyanyanya
-(use-package nyan-mode
-  :ensure t
-  :init
-  (setq-default nyan-animate-nyancat t
-                nyan-wavy-trail t)
-  :config
-  (nyan-mode t))
-
-(when (display-graphic-p)
-  (use-package nyan-prompt
-    :ensure t
-    :config
-    (add-hook 'eshell-load-hook 'nyan-prompt-enable)))
-
-;; Zone!
-(use-package zone-nyan
-  :ensure t
-  :init
-  (setq zone-programs [zone-nyan])
-  (setq-default zone-nyan-hide-progress t))
-
-(use-package zone
-  :config
-  (zone-when-idle 60))
-
-;; Magit and friends
-(use-package magit
-  :ensure t
-  :init
-  (setq magit-auto-revert-mode nil)
-  (setq magit-last-seen-setup-instructions "1.4.0")
-  :bind
-  (("C-x g" . magit-status)))
-
-(use-package magithub
-  :ensure t)
-
-(use-package magit-gerrit
-  :ensure t
-  :init
-  (setq-default magit-gerrit-remote "gerrit"))
-
-(use-package origami
-  :ensure t
-  :demand
-  :config
-  (define-prefix-command 'origami-mode-map)
-  (global-set-key (kbd "C-x C-z") 'origami-mode-map)
-  (global-origami-mode)
-  :bind
-  (:map origami-mode-map
-   ("o" . origami-open-node)
-   ("O" . origami-open-node-recursively)
-   ("c" . origami-close-node)
-   ("C" . origami-close-node-recursively)
-   ("a" . origami-toggle-node)
-   ("A" . origami-recursively-toggle-node)
-   ("R" . origami-open-all-nodes)
-   ("M" . origami-close-all-nodes)
-   ("v" . origami-show-only-node)
-   ("k" . origami-previous-fold)
-   ("j" . origami-forward-fold)
-   ("x" . origami-reset)))
-
-(use-package helm-ag
-  :ensure t
-  :bind
-  (("C-x M-a" . helm-do-ag)))
-
-(use-package smartparens
-  :ensure t
-  :demand
-  :config
-  (show-smartparens-global-mode t)
-  (add-hook 'prog-mode-hook
-            'turn-on-smartparens-strict-mode)
-  (add-hook 'markdown-mode-hook
-            'turn-on-smartparens-strict-mode)
-  :bind
-  (([f9] . smartparens-strict-mode)))
-
-(use-package smart-mode-line
-  :ensure t
-  :config
-  (sml/setup))
-
-(use-package company
-  :ensure t
-  :config
-  (global-company-mode))
-
-(use-package helm-company
-  :ensure t
-  :after
-  company
-  helm
-  :bind
-  (:map company-mode-map
-   ("C-S-j" . helm-company)
-   :map company-active-map
-   ("C-S-j" . helm-company)))
-
-(use-package projectile
-  :ensure t
-  :config
-  (projectile-global-mode t))
-
-(use-package helm-projectile
-  :ensure t
-  :init
-  (setq projectile-completion-system 'helm)
-  :config
-  (helm-projectile-on))
-
-(use-package drag-stuff
-  :ensure t
-  :config
-  (drag-stuff-global-mode t))
-
-;; Git gutter
-(use-package git-gutter
-  :ensure t
-  :config
-  (global-git-gutter-mode t))
-
-;; Org mode
-(use-package org
-  :ensure t
-  :demand
-  :init
-  (require 'xdg-paths)
-  (setq-default org-crypt-key "B0740C4C"
-                org-default-notes-file (concat user-documents-directory
-                                               (convert-standard-filename
-                                                "/orgmode/notes.org"))
-                org-directory (concat user-documents-directory
-                                      (convert-standard-filename "/orgmode/"))
-                org-agenda-files (concat user-documents-directory
-                                         (convert-standard-filename
-                                          "/orgmode/agenda_files"))
-                org-ellipsis "…#"
-                org-startup-folded 'content
-                org-mobile-directory (concat user-documents-directory
-                                             (convert-standard-filename
-                                              "/orgmode/mobile/"))
-                org-mobile-inbox-for-pull (concat
-                                           user-documents-directory
-                                           (convert-standard-filename
-                                            "/orgmode/from-mobile.org"))
-                org-log-done 'time)
-  :config
-  (unless (boundp 'org-capture-templates)
-    (setq org-capture-templates nil))
-  (add-to-list 'org-capture-templates
-               '("p" "Blog post"
-                 entry (file+datetree (concat org-directory "blog.org"))
-                 "* %^{Title}  :blog:\n   :PROPERTIES:\n   :on: %T\n   :END:\n   %i%?"))
-  (setq org-time-stamp-formats '("<%Y-%m-%d>" . "<%Y-%m-%d %H:%M>"))
-  :bind
-  (:map gpolonkai/pers-map
-   ("a" . org-agenda-list)
-   :map org-mode-map
-   ("SPC" . org-space-key)))
-
-(use-package org-bullets
-  :ensure t
-  :init
-  (add-hook 'org-mode-hook
-            (lambda ()
-              (if (display-graphic-p) org-bullets-mode))))
-
-;; Waka-waka
-(use-package wakatime-mode
-  :ensure t
-  :init
-  (setq-default wakatime-cli-path "/usr/local/bin/wakatime")
-  :config
-  (global-wakatime-mode t))
-
-(use-package ace-window
-  :ensure t
-  :init
-  (setq aw-keys '(?a ?o ?e ?u ?i ?d ?h ?t ?n)
-        aw-background nil)
-  :bind
-  (("M-P" . ace-window)))
-
-(use-package avy
-  :ensure t
-  :demand
-  :config
-  (avy-setup-default)
-  :bind
-  (("C-:" . avy-goto-char)
-   ("C-'" . avy-goto-char-2)
-   ("M-g f" . avy-goto-line)
-   ("M-g w" . avy-goto-word-1)
-   ("M-g e" . avy-goto-word-0)))
-
-(use-package diminish
-  :ensure t
-  :defer t)
-
-(use-package focus
-  :ensure t
-  :bind
-  (([f8] . focus-mode)))
-
-(use-package coffee-mode
-  :ensure t)
-
-(use-package command-log-mode
-  :ensure t)
-
-(use-package company-c-headers
-  :ensure t)
-
-(use-package company-shell
-  :ensure t)
-
-(use-package electric-case
-  :ensure t
-  :config
-  (add-hook 'c-mode-hook ''electric-case-c-init))
-
-(use-package electric-spacing
-  :ensure t
-  :bind
-  (([f7] . electric-spacing-mode)))
-
-(use-package emamux
-  :ensure t)
-
-(use-package flycheck
-  :ensure t)
-
-(use-package flycheck-pkg-config
-  :ensure t)
-
-(use-package git-messenger
-  :ensure t)
-
-(use-package git-timemachine
-  :ensure t
-  :bind
-  (([f6] . git-timemachine-toggle)))
-
-(use-package gitconfig-mode
-  :ensure t)
-
-(use-package gitignore-mode
-  :ensure t)
-
-(use-package gnugo
-  :ensure t)
-
-(use-package gobgen
-  :ensure t)
-
-(use-package goto-last-change
-  :ensure t
-  :bind
-  (("M-g /" . goto-last-change)))
-
-(use-package helm-chrome
-  :ensure t)
-
-(use-package helm-flycheck
-  :ensure t)
-
-(use-package helm-flyspell
-  :ensure t
-  :demand
-  :bind
-  (:map flyspell-mode-map
-   ("C-M-i" . helm-flyspell-correct)))
-
-(use-package helm-github-stars
-  :ensure t
-  :init
-  (setq-default helm-github-stars-username "gergelypolonkai"))
-
-(use-package helm-google
-  :ensure t)
-
-(use-package hyde
-  :ensure t)
-
-(use-package id-manager
-  :ensure t)
-
-(use-package identica-mode
-  :ensure t)
-
-(use-package jinja2-mode
-  :ensure t)
-
-(use-package js2-mode
-  :ensure t)
-
-(use-package json-mode
-  :ensure t)
-
-(use-package markdown-mode
-  :ensure t)
-
-(use-package mc-extras
-  :ensure t)
-
-(use-package ng2-mode
-  :ensure t)
-
-(use-package org-projectile
-  :ensure t)
-
-(use-package sass-mode
-  :ensure t)
-
-(use-package smart-mode-line-powerline-theme
-  :ensure t
-  :init
-  (setq-default sml/theme 'powerline))
-
-(use-package spinner
-  :ensure t)
-
-(use-package sx
-  :ensure t
-  :demand
-  :bind
-  (:map gpolonkai/pers-map
-   ("qi" . sx-inbox)
-   ("qs" . sx-search)))
-
-(use-package typescript-mode
-  :ensure t)
-
-(use-package vala-mode
-  :ensure t
-  :init
-  (add-to-list 'auto-mode-alist '("\\.vala\\'" . vala-mode)))
-
-(use-package xlicense
-  :ensure t)
-
-(use-package yaml-mode
-  :ensure t
-  :init
-  (add-to-list 'auto-mode-alist '("\\.yml\\'" . yaml-mode)))
-
-(use-package helm-smex
-  :ensure t
-  :bind
-  (("M-X" . helm-smex)))
-
-(use-package ediff
-  :ensure t
-  :init
-  (setq-default ediff-merge-split-window-function 'split-window-horizontally
-                ediff-split-window-function 'split-window-vertically
-                ediff-window-setup-function 'ediff-setup-windows-plain))
-
-(use-package plantuml-mode
-  :ensure t
-  :init
-  (setq plantuml-jar-path
-        (expand-file-name
-         ;; Make sure we have a download location even if XDG is not
-         ;; working
-         (cond
-          ((xdg-user-dir "DOWNLOAD")
-           (concat (xdg-user-dir "DOWNLOAD") "/plantuml.jar"))
-          (t
-           "~/Downloads/plantuml.jar"))))
-  (defvaralias 'org-plantuml-jar-path 'plantuml-jar-path)
-  :config
-  (org-babel-do-load-languages
-   'org-babel-load-languages
-   '((plantuml . t))))
-
-(use-package org-random-todo
-  :ensure t
-  :config
-  ;; Don’t bug me too often…
-  (setq org-random-todo-how-often 3600))
-
-(use-package calendar
-  :init
-  (setq calendar-week-start-day 1
-        calendar-latitude 47.4
-        calendar-longitude 19.0
-        calendar-location-name "Budapest, Hungary"
-        calendar-time-zone 60
-        calendar-standard-time-zone-name "CET"
-        calendar-daylight-time-zone-name "CEST"))
-
-(use-package yasnippet
-  :ensure t
-  :config
-  (yas-global-mode 1))
-
-(use-package vala-snippets
-  :ensure t
-  :after
-  yasnippet)
-
-(use-package hungarian-holidays
-  :ensure t
-  :config
-  (hungarian-holidays-add))
-
-(use-package beacon
-  :ensure t
-  :demand
-  :config
-  (beacon-mode 1)
-  :bind
-  (:map gpolonkai/pers-map
-   ("b" . beacon-blink)))
-
-(use-package flyspell
-  :config
-  (add-hook 'prog-mode-hook
-            'flyspell-prog-mode)
-  (add-hook 'text-mode-hook
-            'flyspell-mode))
-
-(use-package helm-descbinds
-  :ensure t)
-
-(use-package helm-describe-modes
-  :ensure t)
-
-(use-package paren
-  :config
-  (show-paren-mode t))
-
-(use-package autorevert
-  :config
-  (global-auto-revert-mode 1))
-
-(use-package rainbow-delimiters
-  :ensure t
-  :config
-  (add-hook 'prog-mode-hook
-            #'rainbow-delimiters-mode))
-
-(use-package rainbow-mode
-  :ensure t)
-
-(use-package hungry-delete
-  :ensure t
-  :config
-  (global-hungry-delete-mode))
-
-(use-package hl-line
-  :config
-  (global-hl-line-mode))
-
-(use-package eww
-  :config
-  (setq eww-search-prefix "https://www.google.com/?q="))
-
-(use-package electric
-  :config
-  ;; This seems to be the default, but let’s make sure…
-  (electric-indent-mode 1))
-
-(use-package restclient
-  :ensure t)
-
-(use-package company-restclient
-  :ensure t)
-
-(use-package restclient-helm
-  :ensure t)
-
-(use-package alert
-  :ensure t
-  :config
-  (setq alert-default-style 'notifications))
-
-(use-package newsticker
-  :demand
-  :config
-  (setq newsticker-url-list '(("(or emacs irrelevant)"
-                               "http://oremacs.com/atom.xml"
-                               nil nil nil)
-                              ("think"
-                               "http://batsov.com/atom.xml"
-                               nil nil nil)
-                              ("Endless Parentheses"
-                               "http://endlessparentheses.com/atom.xml"
-                               nil nil nil)
-                              ("Irreal"
-                               "http://irreal.org/blog/?feed=rss2"
-                               nil nil nil)
-                              ;; The followint may supersede previous entries
-                              ("Planet Emacs"
-                               "http://planet.emacsen.org/atom.xml"
-                               nil nil nil)))
-  :bind
-  (:map gpolonkai/pers-map
-   ("n" . newsticker-show-news)))
-
-(use-package cheatsheet
-  :ensure t)
-
-(use-package nxml
-  :config
-  (setq nxml-attribute-indent 4
-        nxml-child-indent 2
-        nxml-outline-child-indent 4))
-
-(use-package savehist
-  :config
-  (savehist-mode 1))
-
-;; Before this can be used, make sure the Symbola font is installed:
-;; https://zhm.github.io/symbola/
-(defun --set-emoji-font (frame)
-  "Adjust the font setting of FRAME so Emacs can display Emoji properly."
-  (when (fboundp 'set-fontset-font)
-    (if (eq system-type 'darwin)
-        ;; For NS/Cocoa
-        (set-fontset-font t 'symbol
-                          (font-spec :family "Apple Color Emoji")
-                          frame 'prepend)
-      ;; For Linux
-      (set-fontset-font t 'symbol
-                       (font-spec :family "Symbola")
-                       frame 'prepend))))
-
-(use-package company-emoji
-  :ensure t
-  :after
-  company
-  :init
-  (--set-emoji-font nil)
-  :config
-  (add-to-list 'company-backends 'company-emoji)
-  (add-hook 'after-make-frame-functions
-            '--set-emoji-font))
-
-;; Load my own functions
-(load "gnu-c-header.el")
-(load "toggle-window-split.el")
-(load "round-number-to-decimals.el")
-(load "transpose-windows.el")
-(load "zim.el")
-(load "clearcase.el")
-(load "enclose-string.el")
-(load "buf-manipulation.el")
-(load "package-manip")
-(load "text-manip")
-(load "frame-manip")
-
-;; Define aliases
-(defalias 'yes-or-no-p 'y-or-n-p)
-
-;; `c-mode' settings
-(add-hook 'c-mode-hook
-          (lambda ()
-            (which-func-mode)))
-(add-hook 'c-mode-common-hook
-          (lambda ()
-            (local-set-key (kbd "C-c o") 'ff-find-other-file)
-            (c-set-style "PERSONAL")
-            (setq tab-width 4
-                  indent-tabs-mode nil)
-            (c-toggle-auto-newline 1)))
-(add-hook 'c-initialization-hook
-          (lambda ()
-            (define-key c-mode-base-map (kbd "C-m") 'c-context-line-break)))
-(defvaralias 'c-basic-offset 'tab-width)
-(defvaralias 'cperl-indent-level 'tab-width)
-(defconst my-c-style
-  '((c-tab-always-indent        . t)
-    (c-comment-only-line-offset . 4)
-    (c-hanging-braces-alist     . ((substatement-open after)
-                                   (brace-list-open)))
-    (c-hanging-colons-alist     . ((member-init-intro before)
-                                   (inher-intro)
-                                   (case-label after)
-                                   (label after)
-                                   (access-label after)))
-    (c-cleanup-list             . (scope-operator
-                                   empty-defun-braces
-                                   defun-close-semi))
-    (c-offsets-alist             . ((arglist-close . +)
-                                    (arglist-intro . ++)
-                                    (substatement-open . 0)
-                                    (case-label . 4)
-                                    (block-open . 0)
-                                    (knr-argdecl-intro . -)
-                                    (comment-intro . 0)))
-    (c-echo-syntactic-information-p . t))
-  "My C Programming Style")
-(c-add-style "PERSONAL" my-c-style)
-(setq c-offset-alist '((member-init-intro . ++)))
-
-;; Custom key bindings
-(global-set-key (kbd "C-x _") 'maximize-window)
-(global-set-key (kbd "C-c C-y") 'duplicate-line)
-(global-set-key (kbd "M-(") 'æ-enclose-region)
-(global-set-key (kbd "C-x w") 'webjump)
-(global-set-key (kbd "<C-return>") 'open-line-below)
-(global-set-key (kbd "<C-S-return>") 'open-line-above)
-(global-set-key (kbd "C-x C-r") 'rename-current-buffer-file)
-(global-set-key (kbd "C-x C-d") 'delete-current-buffer-file)
-(global-set-key (kbd "C-x ~") 'toggle-char-case)
-(define-key isearch-mode-map (kbd "<C-return>") #'isearch-exit-other-end)
-(define-key gpolonkai/pers-map (kbd "m") 'hidden-mode-line-mode)
-
-;; Kudos goes to
-;; http://endlessparentheses.com/leave-the-cursor-at-start-of-match-after-isearch.html
-(defun isearch-exit-other-end ()
-  "Exit isearch, at the opposite end of the string"
-  (interactive)
-
-  (isearch-exit)
-  (goto-char isearch-other-end))
-
-;; Set up some global minor modes
-(global-prettify-symbols-mode t)
-
-;; Enable some functions
-(put 'downcase-region 'disabled nil)
-(put 'upcase-region 'disabled nil)
-
-;; text-mode settings
-(add-hook 'text-mode-hook (lambda () (visual-line-mode t)))
-
-;; Add some symbols to be prettified
-(setq prettify-symbols-alist
-      '(("lambda" . 955)  ; λ
-        ("->" . 8594)     ; →
-        ("=>" . 8658)     ; ⇒
-        ("map" . 8614)))  ; ↦
-;; …and some pairs to complete
-;; TODO: maybe add-to-list is a better way to do it
-(setq insert-pair-alist
-      '(
-       (40 41)      ; ()
-       (91 93)      ; []
-       (123 125)    ; {}
-       (60 62)      ; <>
-       (34 34)      ; ""
-       (39 39)      ; ''
-       (96 39)      ; `'
-       (8220 8221)  ; “”
-       (8222 8221)  ; „”
-       (8216 8217)  ; ‘’
-       (8249 8250)  ; ‹›
-       (8250 8249)  ; ›‹
-       (171 187)    ; «»
-       (187 171)    ; »«
-      ))
-
-;; Check for package upgrades every Monday so I don’t forget.
-(check-for-package-upgrades-on-day 1)
+;;; init.el ends here

lisp/buf-manipulation.el

@@ -1,129 +0,0 @@
-;; Some custom functions for buffer content manipulation
-
-(defun delete-current-line ()
-  "Kill the whole line on which point is"
-  (interactive)
-
-  (beginning-of-line)
-  (kill-line 1))
-
-(defun copy-func-prototype ()
-  "Copy the current function's prototype to the kill-ring"
-
-  (interactive)
-
-  (save-excursion
-    (beginning-of-defun)
-    (setq protocopy-begin (point))
-    (forward-list)
-    (setq protocopy-end (point))
-    (kill-ring-save protocopy-begin protocopy-end)))
-
-(defun duplicate-line()
-  "Duplicate line at point."
-
-  (interactive)
-
-  (save-excursion
-    (move-beginning-of-line 1)
-    (kill-line)
-    (yank)
-    (open-line 1)
-    (next-line 1)
-    (yank)))
-
-(defun toggle-char-case (arg-move-point)
-  "Toggle the case of the char after point. Based on Xah's toggle letter
-case defun version 2015-12-22
-
-URL `http://ergoemacs.org/emacs/modernization_upcase-word.html'
-Version 2016-02-16"
-  (interactive "P")
-  (let ((case-fold-search nil))
-    (cond
-     ((looking-at "[[:lower:]]") (upcase-region (point) (1+ (point))))
-     ((looking-at "[[:upper:]]") (downcase-region (point) (1+ (point)))))
-    (cond
-     (arg-move-point (right-char)))))
-
-; Copied from http://whattheemacsd.com/editing-defuns.el-01.html
-(defun open-line-below ()
-  "Open a new line below point."
-
-  (interactive)
-
-  (end-of-line)
-  (newline)
-  (indent-for-tab-command))
-
-(defun open-line-above ()
-  "Open a new line above point."
-
-  (interactive)
-
-  (beginning-of-line)
-  (newline)
-  (forward-line -1)
-  (indent-for-tab-command))
-
-; Copied from http://whattheemacsd.com/file-defuns.el-01.html
-(defun rename-current-buffer-file ()
-  "Renames current buffer and file it is visiting."
-  (interactive)
-
-  (let ((name (buffer-name))
-        (filename (buffer-file-name)))
-    (if (not (and filename (file-exists-p filename)))
-        (error "Buffer '%s' is not visiting a file!" name)
-      (let ((new-name (read-file-name "New name: " filename)))
-        (if (get-buffer new-name)
-            (error "A buffer named '%s' already exists!" new-name)
-          (rename-file filename new-name 1)
-          (rename-buffer new-name)
-          (set-visited-file-name new-name)
-          ; TODO: this is suspicious for me…
-          (set-buffer-modified-p nil)
-          (message "File '%s' successfully renamed to '%s'"
-                   name (file-name-nondirectory new-name)))))))
-
-; Copied from http://whattheemacsd.com/file-defuns.el-02.html
-(defun delete-current-buffer-file ()
-  "Removes file connected to current buffer and kills the
-  buffer."
-  (interactive)
-
-  (let ((filename (buffer-file-name))
-        (name (buffer-name))
-        (buffer (current-buffer)))
-    (if (not (and filename (file-exists-p filename)))
-        (kill-buffer buffer)
-      (when (yes-or-no-p "Are you sure you want to remove this file? ")
-        (delete-file filename)
-        (kill-buffer buffer)
-        (message "File '%s' successfully removed" filename)))))
-
-; delete-char or close eshell
-; Copied from https://ryuslash.org/posts/C-d-to-close-eshell.html
-(defun eshell-C-d ()
-  "Either call `delete-char' interactively or quit."
-  (interactive)
-
-  (condition-case err
-      (call-interactively #'delete-char)
-    (error (if (and (eq (car err) 'end-of-buffer)
-                    (looking-back eshell-prompt-regexp))
-               (kill-buffer)
-             (signal (car err) (cdr err))))))
-
-(defun æ-kill-or-copy-whole-line (kill)
-  "Kill or copy the whole line point is on.
-
-If KILL is non-nil, the line gets killed. Otherwise, it gets just
-copied to the kill-ring."
-  (interactive "P")
-
-  (if kill
-      (kill-whole-line)
-    (let ((beginning (progn (beginning-of-line) (point)))
-          (end (progn (end-of-line) (point))))
-      (copy-region-as-kill beginning end))))

lisp/enclose-string.el

@@ -1,34 +0,0 @@
-(defun æ-enclose-region (character &optional start end)
-  "Enclose region in CHARACTER. If region is empty, simply inserts
-  CHARACTER two times and moves point between them.
-
-  If character is present in `insert-pair-alist', this function
-  will enclose region in the corresponding pair. In this case,
-  CHARACTER must be the opening member of the pair."
-
-  (interactive "cWhat character? \nr")
-
-  (setq open character close character)
-
-  (let ((pair (assq character insert-pair-alist)))
-    (if pair
-        (if (nth 2 pair)
-            (setq open (nth 1 pair) close (nth 2 pair))
-          (setq open (nth 0 pair) close (nth 1 pair)))))
-
-  (unless (and open close)
-    (setq open character)
-    (setq close character))
-
-  (unless (use-region-p)
-    (setq start (point) end (point)))
-
-  (save-excursion
-    (goto-char end)
-    (insert-char close)
-
-    (goto-char start)
-    (insert-char open))
-
-  (unless (use-region-p)
-      (forward-char)))

lisp/flycheck-swagger-tools.el

@@ -0,0 +1,94 @@
+;;; flycheck-swagger-tools --- Flycheck checker for swagger-tools.
+
+;; Copyright (C) 2017 Marc-André Goyette
+;; Author: Marc-André Goyette <goyette.marcandre@gmail.com>
+;; URL: https://github.com/magoyette/flycheck-swagger-tools
+;; Version: 0.1.0
+;; Package-Requires: ((emacs "25"))
+;; Keywords: swagger
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; For a full copy of the GNU General Public License
+;; see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; flycheck-swagger-tools provides a Flycheck checker for swagger-tools.
+;; This allows to validate Swagger YAML and JSON files.
+
+;; The checker can be activating by requiring this package.
+
+;; (require 'flycheck-swagger-tools)
+
+;; By default, only the first 4000 characters of a file are scanned to
+;; find the swagger 2.0 element.  To avoid stack overflow in Emacs
+;; multi-line regex, this value is necessary.  The defcustom
+;; swagger-tools-predicate-regexp-match-limit can be used to change this
+;; limit.  That could be necessary for YAML files with long initial comments.
+
+;;; Code:
+
+(require 'flycheck)
+
+(defgroup swagger-tools nil
+  "Validate swagger files with swagger-tools."
+  :group 'swagger
+  :prefix "swagger-tools-")
+
+(defcustom swagger-tools-predicate-regexp-match-limit 4000
+  "Defines the number of characters that will be scanned at the beginning of a
+buffer to find the swagger 2.0 element."
+  :type 'integer
+  :group 'swagger-tools)
+
+;;;###autoload
+(flycheck-define-checker swagger-tools
+  "A checker that uses swagger tools to validate Swagger2 JSON and YAML files.
+See URL `https://github.com/apigee-127/swagger-tools'."
+  :command ("swagger-tools" "validate" source)
+  :predicate
+  (lambda ()
+    (string-match
+     "\\(.\\|\n\\)*\\([[:space:]]\\|\"\\|\\'\\)*swagger\\([[:space:]]\\|\"\\|\\'\\)*:[[:space:]]*[\"\\']2.0[\"\\'].*"
+     ;; Need to avoid stack overflow for multi-line regex
+     (buffer-substring 1 (min (buffer-size)
+                              swagger-tools-predicate-regexp-match-limit))))
+  :error-patterns
+  ((warning line-start "  " (message (one-or-more not-newline)
+                                     "is not used"
+                                     (one-or-more not-newline))
+            line-end)
+   ;; js-yaml error with position
+   (error line-start "  error: " (message) " at line " line ", column " column ":" line-end)
+   ;; js-yaml error without position
+   (error line-start "  error: " (message) ": " (one-or-more not-newline) line-end)
+   ;; swagger-tools error (always contain a # symbol in the message)
+   (error line-start
+          "  "
+          (message (optional (one-or-more not-newline))
+                   (one-or-more "#")
+                   (one-or-more not-newline))
+          line-end))
+  :error-filter
+  ;; Add line number 1 if the error has no line number
+  (lambda (errors)
+    (let ((errors (flycheck-sanitize-errors errors)))
+      (dolist (err errors)
+        (unless (flycheck-error-line err)
+          (setf (flycheck-error-line err) 1)))
+      errors))
+  :modes (json-mode openapi-yaml-mode yaml-mode))
+
+(add-to-list 'flycheck-checkers 'swagger-tools)
+
+(provide 'flycheck-swagger-tools)
+;;; flycheck-swagger-tools.el ends here

lisp/frame-manip.el

@@ -1,24 +0,0 @@
-;; Copied from http://emacs-doctor.com/emacs-strip-tease.html
-
-(defvar hidden-mode-line-mode nil)
-(defvar hide-mode-line nil)
-
-(define-minor-mode hidden-mode-line-mode
-  "Minor mode to hide the mode-line in the current buffer."
-  :init-value nil
-  :global nil
-  :variable hidden-mode-line-mode
-  :group 'editing-basics
-  (if hidden-mode-line-mode
-      (setq hide-mode-line mode-line-format
-            mode-line-format nil)
-    (setq mode-line-format hide-mode-line
-          hide-mode-line nil))
-  (force-mode-line-update)
-  (redraw-display)
-  (when (and (called-interactively-p 'interactive)
-             hidden-mode-line-mode)
-    (run-with-idle-timer
-     0 nil 'message
-     (concat "Hidden Mode Line Mode enabled.  "
-             "Use M-x hidden-mode-line-mode to make mode-line appear."))))

lisp/gnu-c-header.el

@@ -1,65 +0,0 @@
-;;; gnu-c-header.el --- function to add a header to the C files licensed under the GPL
-;; Author: Gergely Polonkai <gergely@polonkai.eu>
-;; Copyright: public domain
-;; URL: http://gergely.polonkai.eu/blog/2014/09/26/emacs-adding-gnu-c-headers
-;; Keywords: gnu, c, header, helper, utilities
-;;; Commentary:
-;;; Code:
-
-(defun file-name-base-with-extension (&optional filename)
-  "Return the base name of the FILENAME without its directory path.
-FILENAME defaults to `buffer-file-name'."
-   (file-name-nondirectory (or filename (buffer-file-name))))
-
-(defun add-gnu-c-header (progname purpose)
-  "Add a GNU GPL header to the current buffer"
-  (interactive "sProgram name (ie: MyProgram): \nsPurpose of the file (ie: string utility functions): ")
-  (save-excursion
-    (goto-char (point-min))
-    (insert (concat
-             "/* "
-             (file-name-base-with-extension buffer-file-name)
-             " - "
-             purpose
-             " for "
-             progname
-             "\n"
-             " *\n"
-             " * Copyright (C) "
-             (format-time-string "%Y" (current-time))
-             " "
-             (user-full-name)
-             "\n"
-             " *\n"))
-    (let ((start (point)))
-      (insert (concat
-               " * "
-               progname
-               " is \n * free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 3 of the License, or (at your option) any later version."))
-      (let ((end (point)))
-        (fill-region start end)))
-    (insert (concat
-             "\n"
-             " *\n"))
-    (let ((start (point)))
-      (insert (concat
-               " * "
-               progname
-               " is \n * distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details."))
-      (let ((end (point)))
-        (fill-region start end)))
-    (insert (concat
-             "\n"
-             " *\n"))
-    (let ((start (point)))
-      (insert " * You \n * should have received a copy of the GNU General Public License along with this software; if not, see <http://www.gnu.org/licenses/>.")
-      (let ((end (point)))
-        (fill-region start end)))
-    (insert (concat
-             "\n"
-             " */\n"))
-    ))
-
-(provide 'gnu-c-header)
-
-;;; gnu-c-header.el ends here

lisp/gp-mouse.el

@@ -0,0 +1,27 @@
+;;; gp-mouse --- Extra mouse functionality
+
+;;; Commentary:
+
+;;; Code:
+(require 'mouse)
+
+(defun gpolonkai/event-in-current-window-p (event)
+  "Check if EVENT happened in the current window."
+  (let ((current-window (selected-window))
+        (event-window (posn-window (event-start event))))
+    (eq current-window event-window)))
+
+(defun gpolonkai/mouse-set-point (click &optional promote-to-region)
+  "Set mouse position.
+
+If CLICK happened in an inactive window, select that window without setting point"
+  (interactive "e\np")
+  (if (gpolonkai/event-in-current-window-p click)
+      (call-interactively 'mouse-set-point)
+    (call-interactively 'mouse-select-window)))
+
+(global-set-key [mouse-1] 'mouse-select-window-or-set-point)
+(global-unset-key [down-mouse-1])
+
+(provide 'gp-mouse)
+;;; gp-mouse.el ends here

lisp/minari.el

@@ -0,0 +1,70 @@
+;;; minari.el --- Calculate Minari dates
+
+;;; Commentary:
+;; 
+
+;;; Code:
+
+(defconst minari-special-day-names
+  '("Hëður" "Rideyy" "Morkh" "Morkh+" "Khmerd" "Chamog")
+  "Names of the special (monthless) days of the year.")
+
+(defconst minari-weekday-names
+  '("Ro’unn" "Mïrdu" "Hëmi" "Drak" "Þodon" "Charm")
+  "Names of weekdays.")
+
+(defconst minari-month-names
+  '("Mëbel" "Dirann" "Ma’uþ"
+    "Gerub" "Þrei" "Dimoc"
+    "Xentor" "Mëðïr" "Draþ"
+    "Quaden" "Ridïmel" "Rodom")
+  "Names of months.")
+
+(defun minari-today-string ()
+  "Calculate today's date according to the Minari Calendar."
+  (let ((today (decode-time (current-time))))
+    ;; FIXME: I’m not sure about this one…  If I increment by 11, I get a
+    ;; wrong date according to my GNOME Shell extension.  If I increment by
+    ;; 10, the date is OK, but by calculating it in my head, it’s bad.
+    (incf (nth 3 today) 10)
+    (let* ((minari-leap (date-leap-year-p (nth 5 today)))
+           (doy (time-to-day-in-year (apply 'encode-time today)))
+           (minari-year (- (nth 5 today) 1873))
+           (minari-month 0)
+           (minari-doy 0)
+           (minari-day 0)
+           (minari-weekday 0)
+           (minari-special-day -1))
+      (cond
+       ((eq doy 0) (setq minari-special-day 0))
+       ((eq doy 91) (setq minari-special-day 1))
+       ((eq doy 182) (setq minari-special-day 2))
+       ((and (eq doy 183) minari-leap) (setq minari-special-day 3))
+       ((and (eq doy 273) (not minari-leap)) (setq minari-special-day 4))
+       ((and (eq doy 274) minari-leap) (setq minari-special-day 4))
+       ((and (eq doy 364) (not minari-leap)) (setq minari-special-day 5))
+       ((and (eq doy 365) minari-leap) (setq minari-special-day 5))
+       (t (let ((decr 0)
+                (minari-doy doy))
+            (when (> minari-doy 0) (incf decr))
+            (when (> minari-doy 91) (incf decr))
+            (when (> minari-doy 182) (incf decr))
+            (when (and (> minari-doy 183) minari-leap) (incf decr))
+            (when (and (> minari-doy 273) (not minari-leap)) (incf decr))
+            (when (and (> minari-doy 274) minari-leap) (incf decr))
+            (setq minari-doy (- minari-doy (- decr 1))
+                  minari-month (round (fceiling (/ minari-doy 30.0)))
+                  minari-day (% minari-doy 30))
+            (when (eq minari-day 0) (setq minari-day 30))
+            (setq minari-weekday (% minari-day 6)))))
+      (if (eq -1 minari-special-day)
+          (format "%d %s %s (%s)"
+                  minari-year
+                  (nth (- minari-month 1) minari-month-names)
+                  minari-day
+                  (nth minari-weekday minari-weekday-names))
+        (nth (- minari-special-day 1) minari-special-day-names)))))
+
+(provide 'minari)
+
+;;; minari.el ends here

lisp/modeline.el

@@ -0,0 +1,17 @@
+(setq-default
+ mode-line-format
+ ("%e"
+  mode-line-front-space
+  mode-line-mule-info
+  mode-line-client
+  mode-line-modified
+  mode-line-remote
+  mode-line-frame-identification
+  mode-line-buffer-identification
+  "   "
+  mode-line-position
+  (vc-mode vc-mode)
+  "  "
+  mode-line-modes
+  mode-line-misc-info
+  mode-line-end-spaces))

lisp/package-manip.el

@@ -1,102 +0,0 @@
-;;; package-manip.el --- Utility functions to check if package upgrades are available
-
-;;; Commentary:
-;; I should add one.
-
-;; Credits go to http://emacs.stackexchange.com/a/16407/507
-
-;;; Code:
-
-(defun package-upgrade-all ()
-  "Upgrade all packages automatically without showing *Packages* buffer."
-  (interactive)
-  (package-refresh-contents)
-  (let (upgrades)
-    (cl-flet ((get-version (name where)
-                (let ((pkg (cadr (assq name where))))
-                  (when pkg
-                    (package-desc-version pkg)))))
-      (dolist (package (mapcar #'car package-alist))
-        (let ((in-archive (get-version package package-archive-contents)))
-          (when (and in-archive
-                     (version-list-< (get-version package package-alist)
-                                     in-archive))
-            (push (cadr (assq package package-archive-contents))
-                  upgrades)))))
-    (if upgrades
-        (when (yes-or-no-p
-               (message "Upgrade %d package%s (%s)? "
-                        (length upgrades)
-                        (if (= (length upgrades) 1) "" "s")
-                        (mapconcat #'package-desc-full-name upgrades ", ")))
-          (save-window-excursion
-            (dolist (package-desc upgrades)
-              (let ((old-package (cadr (assq (package-desc-name package-desc)
-                                             package-alist))))
-                (package-install package-desc)
-                (package-delete  old-package)))))
-      (message "All packages are up to date"))))
-
-(defun check-todays-package-upgrade-p (&optional no-save)
-  "Check if automatic package upgrade has been performed today.
-
-This function reads the date of the last check from the
-\"last-package-upgrade\" file. Where this file is looked for is
-guessed as follows:
-
-If `user-emacs-cache-directory' is set (e.g. by the
-`xdg-paths.el' package available from
-https://github.com/tomprince/xdg-paths-el), the timestamp file is
-opened from there. Otherwise, it will be read from
-`user-emacs-directory'
-
-If NO-SAVE is 'nil', the current date will be saved to the
-timestamp file.
-
-The return value of this function will be 't' if the timestamp
-file contains todays date, 'nil' otherwise."
-
-  (let ((tsfile-location (if (boundp 'user-emacs-cache-directory)
-                             user-emacs-cache-directory
-                           user-emacs-directory)))
-    (unless (and (file-exists-p tsfile-location)
-                 (file-accessible-directory-p tsfile-location))
-      (make-directory tsfile-location t))
-
-    (let ((timestamp-today t)
-          (timestamp-buffer (find-file-literally
-                             (expand-file-name "last-package-upgrade"
-                                               tsfile-location))))
-      (with-current-buffer timestamp-buffer
-        (goto-char 0)
-        (unless (looking-at-p (format-time-string "%Y-%m-%d"))
-          (unless no-save
-            (erase-buffer)
-            (insert (format-time-string "%Y-%m-%d"))
-            (save-buffer 0))
-          (setq timestamp-today nil))
-        (kill-buffer)
-        timestamp-today))))
-
-(defun check-for-package-upgrades-on-day (&optional day-number)
-  "Check for package upgrades if today is DAY-NUMBER.
-
-DAY-NUMBER can be anything between 0 and 7, inclusive.  Both 0
-and 7 denote Sunday to make both types of users happy.
-
-If DAY-NUMBER is 'nil', it defaults to today's day."
-
-  (let ((actual-day-number (cond
-                            ((eq day-number nil) (string-to-number (format-time-string "%u")))
-                            ((eq day-number 0) 7)
-                            (t day-number))))
-    (when (and (eq day-number (string-to-number (format-time-string "%u")))
-               (not (check-todays-package-upgrade-p t)))
-      (message "Calling")
-      (when (call-interactively 'package-upgrade-all)
-        (message "Called")
-        (check-todays-package-upgrade-p nil)))))
-
-(provide 'package-manip)
-
-;;; package-manip.el ends here

lisp/round-number-to-decimals.el

@@ -1,19 +0,0 @@
-(defun get-number-at-point ()
-  (interactive)
-  (skip-chars-backward "0123456789.-")
-  (or (looking-at "[0123456789.-]+")
-      (error "No number at point"))
-  (string-to-number (match-string 0)))
-
-(defun round-number-at-point-to-decimals (decimal-count)
-  (interactive "NDecimal count: ")
-  (let ((mult (expt 10 decimal-count)))
-    (replace-match (number-to-string
-              (/
-               (fround
-                (*
-                 mult
-                 (get-number-at-point)))
-                mult)))))
-
-(global-set-key (kbd "C-c r") 'round-number-at-point-to-decimals)

lisp/text-manip.el

@@ -1,7 +0,0 @@
-(defun org-space-key (&optional arg)
-  "Insert two spaces after a period."
-  (interactive "p")
-
-  (when (looking-back "[.!?…]")
-    (call-interactively 'self-insert-command arg))
-  (call-interactively 'self-insert-command arg))

lisp/toggle-window-split.el

@@ -1,27 +0,0 @@
-(defun toggle-window-split ()
-  (interactive)
-  (if (= (count-windows) 2)
-      (let* ((this-win-buffer (window-buffer))
-             (next-win-buffer (window-buffer (next-window)))
-             (this-win-edges (window-edges (selected-window)))
-             (next-win-edges (window-edges (next-window)))
-             (this-win-2nd (not (and (<= (car this-win-edges)
-                                         (car next-win-edges))
-                                     (<= (cadr this-win-edges)
-                                         (cadr next-win-edges)))))
-             (splitter
-              (if (= (car this-win-edges)
-                     (car (window-edges (next-window))))
-                  'split-window-horizontally
-                'split-window-vertically)))
-        (delete-other-windows)
-        (let ((first-win (selected-window)))
-          (funcall splitter)
-          (if this-win-2nd (other-window 1))
-          (set-window-buffer (selected-window) this-win-buffer)
-          (set-window-buffer (next-window) next-win-buffer)
-          (select-window first-win)
-          (if this-win-2nd (other-window 1))))
-    (error "This works only for two windows!")))
-
-(global-set-key (kbd "C-x |") 'toggle-window-split)

lisp/transpose-windows.el

@@ -1,11 +0,0 @@
-(defun transpose-windows (arg)
-  "Transpose the buffers shown in two windows."
-  (interactive "p")
-  (let ((selector (if (>= arg 0) 'next-window 'previous-window)))
-    (while (/= arg 0)
-      (let ((this-win (window-buffer))
-            (next-win (window-buffer (funcall selector))))
-        (set-window-buffer (selected-window) next-win)
-        (set-window-buffer (funcall selector) this-win)
-        (select-window (funcall selector)))
-      (setq arg (if (plusp arg) (1- arg) (1+ arg))))))

lisp/xdg-paths.el

@@ -40,7 +40,7 @@
 ;;;  user-documents-directory      ~/Documents
 ;;;
 ;;; Some convenience functions are defined to locate files in these
-;;; directories and to add user lisp to load-path.
+;;; directories and to add user Lisp to load-path.
 ;;;
 ;;; Some advantages are:
 ;;;
@@ -114,28 +114,28 @@
 ;;; Code:
 
 (eval-when-compile
-  (require 'cl))
+  (require 'cl-lib))
 
 ;;; Directories definition.
 (defvar user-emacs-config-directory nil
-  "The directory where the emacs user configuration files are stored at.")
+  "The directory where the Emacs user configuration files are stored at.")
 
 
 (defvar user-emacs-data-directory nil
-  "The directory where the emacs user data and lisp files are stored at.
+  "The directory where the Emacs user data and Lisp files are stored at.
 
 \\[user-emacs-directory] is set to this directory.")
 
 
 (defvar user-emacs-cache-directory nil
-  "The directory where the emacs user expendable files are stored at.
+  "The directory where the Emacs user expendable files are stored at.
 
 Files stored here should not be missed when deleted, apart a
 temporary loss in speed.")
 
 
 (defvar user-emacs-lisp-directory nil
-  "The directory where the user lisp packages are stored at.
+  "The directory where the user Lisp packages are stored at.
 
 This directory is added to \\[load-path].")
 
@@ -146,72 +146,73 @@ This directory is added to \\[load-path].")
 
 
 (defun xdg-user-dir (dirname)
-  "Given NAME, run 'xdg-user-dir NAME' and return the result in a string.
+  "Given DIRNAME, run 'xdg-user-dir DIRNAME' and return the result in a string.
 
 If the command fails, return NIL."
   (let ((command (concat "xdg-user-dir " dirname)))
     (if (zerop (shell-command command))
-	(substring (shell-command-to-string command) 0 -1)
+        (substring (shell-command-to-string command) 0 -1)
       nil)))
 
 
 (defun locate-user-file (filename &optional type)
-  "Given a file, locate it in the user files.
+  "Given a file FILENAME, locate it in the user files.
 
 If TYPE is NIL or 'data, the file will be located in user-emacs-data-directory.
 
-If 'config, it will be located in user-emacs-config-directory.
+If `config', it will be located in user-emacs-config-directory.
 
-If 'cache, it will be located in user-emacs-cache-directory.
+If `cache', it will be located in user-emacs-cache-directory.
 
-If 'lisp, it will be located in user-emacs-lisp-directory.
+If `lisp', it will be located in user-emacs-lisp-directory.
 
-If 'documents, it will be located in user-documents-directory.
+If `documents', it will be located in user-documents-directory.
 
-If the category is wrong, an error will be signaled.
-"
+If the category is wrong, an error will be signaled."
   (expand-file-name filename
-		    (case type
-		      ((nil data) user-emacs-data-directory)
-		      ('config user-emacs-config-directory)
-		      ('lisp user-emacs-lisp-directory)
-		      ('cache user-emacs-cache-directory)
-		      ('documents user-documents-directory)
-		      (t (error "The category %s is not valid" type)))))
+                    (cond
+                     ((or (not type) (eq type 'data)) user-emacs-data-directory)
+                     ((eq type 'config) user-emacs-config-directory)
+                     ((eq type 'lisp) user-emacs-lisp-directory)
+                     ((eq type 'cache) user-emacs-cache-directory)
+                     ((eq type 'documents) user-documents-directory)
+                     (t (error "The category %s is not valid" type)))))
 
 
 (defun locate-user-config-file (filename)
-  "Given a file, locate it in `user-emacs-config-directory`."
+  "Given a file FILENAME, locate it in `user-emacs-config-directory`."
   (locate-user-file filename 'config))
 
 
 (defun locate-user-lisp (filename)
-  "Given a file, locate it in `user-emacs-lisp-directory`."
+  "Given a file FILENAME, locate it in `user-emacs-lisp-directory`."
   (locate-user-file filename 'lisp))
 
 
 (defun add-to-path (directory &optional append)
-  "Given DIRECTORY, it it exists and is indeed a directory, add
-it to `load-path`."
+  "Given DIRECTORY, it it exists and is a directory, add it to `load-path`.
+
+APPEND is passed verbatim to `add-to-list'."
   (interactive "D")
   (if (file-directory-p directory)
       (add-to-list 'load-path directory append)
-      (error "The directory \"%s\" does not exist or isn't a directory." directory)))
+    (error "The directory \"%s\" does not exist or isn't a directory" directory)))
 
 
 (defun add-user-lisp-to-path (directory &optional append)
-  "Given DIRECTORY, it it exists and is indeed a directory, add
-it to `load-path`."
+  "Given DIRECTORY, if it exists and is a directory, add it to `load-path`.
+
+APPEND is passed directly to `add-to-path'."
   (interactive "D")
   (add-to-path (locate-user-lisp directory) append))
 
 
 ;; Set the default variables if they have no name.
-(macrolet ((setq-if-null (variable value)
-	     `(if (null ,variable)
-		  (setf ,variable ,value)))
-	   (getdir (variable fallback)
-	     `(expand-file-name "emacs/" (or (getenv ,variable) ,fallback))))
+(cl-macrolet ((setq-if-null (variable value)
+                            `(if (null ,variable)
+                                 (setf ,variable ,value)))
+              (getdir (variable fallback)
+                      `(expand-file-name "emacs/" (or (getenv ,variable) ,fallback))))
   (setq-if-null user-emacs-config-directory (getdir "XDG_CONFIG_HOME" "~/.config/"))
   (setq-if-null user-emacs-data-directory (getdir "XDG_DATA_HOME" "~/.local/share/"))
   (setq-if-null user-emacs-cache-directory (getdir "XDG_CACHE_HOME" "~/.cache/"))
@@ -219,12 +220,10 @@ it to `load-path`."
   (setq-if-null user-documents-directory (or (xdg-user-dir "DOCUMENTS") "~/Documents")))
 
 
-;; Set the user-emacs-directory to user-emacs-data-directory.
-;(setf user-emacs-directory user-emacs-data-directory)
-
-
 ;; Add the user lisp directory to path.
 (add-to-list 'load-path user-emacs-lisp-directory)
 
 
 (provide 'xdg-paths)
+
+;;; xdg-paths.el ends here

lisp/zim.el

@@ -1,19 +0,0 @@
-(defun zim-timestamp ()
-  (with-temp-buffer
-    (insert (format-time-string "%Y-%m-%dT%H:%M:%S%z"))
-    (forward-char -2)
-    (insert ":")
-    (buffer-string)))
-
-(defun insert-zim-timestamp ()
-  (interactive)
-  (insert (zim-timestamp)))
-
-(defun insert-zim-header ()
-  (interactive)
-  (save-excursion
-    (goto-char (point-min))
-    (insert
-     (concat "Content-Type: text/x-zim-wiki\n"
-             "Wiki-Format: zim 0.4\n"
-             "Creation-Date: " (zim-timestamp) "\n\n"))))

snippets/c-mode/gobh

@@ -0,0 +1,11 @@
+# -*- mode: snippet -*-
+# name: GObject H boilerplate
+# key: gobh
+# --
+# include <glib-object.h>
+
+G_BEGIN_DECLS
+
+$0
+
+G_END_DECLS

snippets/c-mode/ifdef-protect

@@ -0,0 +1,10 @@
+# -*- mode: snippet -*-
+# name: Protect with ifdef
+# key: defprot
+# --
+#ifndef ${1:name}
+# define $1
+
+$0
+
+#endif  /* $1 */

snippets/python-mode/agpl_header

@@ -0,0 +1,19 @@
+# -*- mode: snippet -*-
+# name: agpl-header
+# key: agpl
+# --
+# ${1:project_name}
+# Copyright (C) ${2:year}  ${3:author_name}
+#
+# This program is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with this program.  If not, see <https://www.gnu.org/licenses/>.

snippets/python-mode/flask_sqlalchemy_model

@@ -0,0 +1,10 @@
+# -*- mode: snippet -*-
+# name: flask_sqlalchemy_model
+# key: model
+# --
+class ${1:name}(db.Model):
+    __tablename__ = '${2:tablename}'
+
+    id = db.Column(db.Integer, primary_key=True)
+
+    $0

snippets/python-mode/new_unittest

@@ -0,0 +1,9 @@
+# -*- mode: snippet -*-
+# name: New unittest
+# key: testdef
+# --
+    def test_${1:name}(self):
+        """${2:docstring}
+        """
+
+        $0self.assertTrue(False)

snippets/python-mode/translatable_model

@@ -0,0 +1,14 @@
+# -*- mode: snippet -*-
+# name: Translatable Flask-SQLAlchemy model
+# key: tmodel
+# --
+class ${1:name}(Translatable, db.Model):
+    __tablename__ = '${2:tablename}s'
+
+    id = db.Column(db.Integer, primary_key=True)
+
+
+class $1Translation(translation_base($1)):
+    __tablename__ = '$2_translations'
+
+    $0

snippets/web-mode/viewport-meta

@@ -0,0 +1,5 @@
+# -*- mode: snippet -*-
+# name: Viewport Meta tag
+# key: vp
+# --
+<meta name="viewport" content="width=device-width, initial-scale=1.0">