 ;;; init.el --- Emmanuel Roubion's personal init file -*- lexical-binding: t; coding: utf-8  -*-
 
-;; Copyright © 2016, 2017, 2018, 2019, 2020, 2021, 2022 Emmanuel Roubion
+;; Copyright © 2016, 2017, 2018, 2019, 2020, 2021, 2022
+;; Emmanuel Roubion
 
 ;; Author: Emmanuel Roubion
 ;; Keywords: Emacs
 ;; URL: https://github.com/maanuair/dotfiles
 
 ;; This file is part of Emmanuel's Roubion dot files, released under
-;; the MIT License as published by the Massachusetts Institute of Technology
+;; the MIT License as published by the Massachusetts Institute of
+;; Technology
 
 ;;; Commentary:
 
 ;; These dotfiles are distributed in the hope they will be useful, but
 ;; without any warranty.  See the MIT License for more details.
 ;;
-;; You should have received a copy of the MIT License along with this file.
-;; If not, see https://opensource.org/licenses/mit-license.php
+;; You should have received a copy of the MIT License along with this
+;; file. If not, see https://opensource.org/licenses/mit-license.php
 
 ;; This file is NOT part of GNU Emacs.
 
 ;;; Code:
 
-;; ======================================================================
+;; ====================================================================
 ;; Prologue
 ;; Startup time performance
-;; ======================================================================
+;; ====================================================================
 
 
 ;; I followed some advices on https://blog.d46.us/advanced-emacs-startup/


;; Adapted from https://www.emacswiki.org/emacs/UnfillRegion
(defun my/unfill-region (beg end)
  "Unfill the region from BEG to END, joining text paragraphs into a single logical line."
  (interactive "*r")
  (let ((fill-column (point-max)))
    (fill-region beg end)))

;; ======================================================================
;; Act IV
;; 1st party Emacs packages
;; ======================================================================

(use-package apropos
  :ensure nil

      (define-key function-key-map (concat "\e[emacs-" key) (kbd key)))

    (defun my/global-map-and-set-key (key command &optional prefix suffix)
      "Calls `my/map-key' KEY, then `global-set-key' KEY with
COMMAND. PREFIX or SUFFIX can wrap the key when passing to
`global-set-key'."
      (my/map-key key)
      (global-set-key (kbd (concat prefix key suffix)) command))

