Ocultar el aviso de copyright GPL largo en la parte superior del archivo

10

Estoy trabajando con muchos archivos * cpp y * h que contienen un extenso aviso de copyright al principio. Me gustaría que emacs muestre estos archivos como si esto no estuviera allí, sin eliminar realmente el texto.

Eso es, esto:

/*
 * Copyright (C) 2006-2008 Author A
 * Copyright (C) 2006-2008 Author B
 * Copyright (C) 2006-2008 Author C
 * Copyright (C) 2006-2008 Author D
 * 
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public
 * License as published by the Free Software Foundation; either
 * version 2.1 of the License, or (at your option) any later version.
 * 
 * As a special exception, you may use this file as part of a free
 * software library without restriction. Specifically, if other files
 * instantiate templates or use macros or inline functions from this
 * file, or you compile this file and link it with other files to
 * produce an executable, this file does not by itself cause the
 * resulting executable to be covered by the GNU General Public
 * License. This exception does not however invalidate any other
 * reasons why the executable file might be covered by the GNU Library
 * General Public License.
 * 
 * This library 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
 * Lesser General Public License for more details.
 * 
 * You should have received a copy of the GNU Lesser General Public
 * License along with this library; if not, write to the Free Software
 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
 */

 #ifndef FILENAME
 #define FILENAME
 ...

simplemente debería verse así

#ifndef FILENAME
#define FILENAME
...
Principiante
fuente

Respuestas:

13

Emacs viene con lo elide-head.elque hace exactamente lo que estás pidiendo.

Para usarlo, agréguelo elide-heada un enlace de modo principal o find-file-hook(en su caso c-mode-common-hookdebería funcionar). Puede ocultar los comentarios de la licencia GPL fuera de la caja; para ocultar otros encabezados largos, personalice elide-head-headers-to-hide.

Tenga en cuenta que no oculta cualquier comentario en la parte superior del búfer, sino que usa expresiones regulares para que coincidan con el principio y el final de una licencia.

Constantina
fuente
1
Me gusta este comando Muy agradable.
Tu Do
Me gana cada vez. Cada vez que escribo algo, había alguien más que lo pensó primero :)
wvxvw
12

Aquí hay una manera de hacer eso:

Agregue esto a su archivo init:

(defun hide-banner ()
  (save-excursion
    (let* ((start (progn (beginning-of-buffer) (point)))
           (end (progn (forward-comment (buffer-size)) (point)))
           (over (make-overlay start end)))
      (overlay-put over 'invisible t))))

En el búfer donde desea ocultar el comentario inicial, agregue:

// -*- eval: (hide-banner) -*-

O agregue el mismo código al gancho del búfer. O bien, podría cambiar la forma en que se identifica el comentario que desea ocultar (si desea que recoja el #ifndef / #definepar, entonces necesitaría modificar la hide-bannerfunción para buscar eso en lugar del final del primer comentario.

wvxvw
fuente
¡Trabajos! Esto es mucho mejor, gracias. En caso de que alguien más necesite esto, aquí está mi gancho:(add-hook 'c-mode-common-hook 'hide-banner)
Principiante