added new journal abbreviations, and a helm function to set journal strings
authorJohn Kitchin <jkitchin@andrew.cmu.edu>
Sat, 2 May 2015 17:52:26 +0000 (13:52 -0400)
committerJohn Kitchin <jkitchin@andrew.cmu.edu>
Sat, 2 May 2015 17:52:26 +0000 (13:52 -0400)
jmax-bibtex.el

index 0e7f7e8..c313a2e 100644 (file)
@@ -79,87 +79,99 @@ I like \C-cj."
 
 ;; * Journal abbreviations
 (defvar jmax-bibtex-journal-abbreviations
-  '(("ACAT" "ACS Catalysis" "ACS Catal.")
-    ("AM" "Acta Materialia" "Acta Mater.")
-    ("AMM" "Acta Metallurgica et Materialia" "Acta Metall. Mater.")
-    ("AMiner" "American Mineralogist" "Am. Mineral.")
-    ("AngC" "Angewandte Chemie-International Edition" "Angew. Chem. Int. Edit.")
-    ("APLM" "APL Materials" "APL Mat.")
-    ("ACBE" "Applied Catalysis B: Environmental" "Appl. Catal. B-Environ.")
-    ("APL" "Applied Physics Letters" "Appl. Phys. Lett.")
-    ("ASS" "Applied Surface Science" "Appl. Surf. Sci.")
-    ("CL" "Catalysis Letters" "Catal. Lett.")
-    ("CST" "Catalysis Science & Technology" "Catal. Sci. Technol.")
-    ("CT" "Catalysis Today" "Catal. Today")
-    ("CPL" "Chemical Physics Letters" "Chem. Phys. Lett")
-    ("CR" "Chemical Reviews" "Chem. Rev.")
-    ("CSR" "Chemical Society Reviews" "Chem. Soc. Rev.")
-    ("CSR" "Chemical Society Reviews" "Chem. Soc. Rev.")
-    ("CM" "Chemistry of Materials" "Chem. Mater.")
-    ("CSA" "Colloids and Surfaces, A: Physicochemical and Engineering Aspects" "Colloids Surf., A")
-    ("CPMS" "Computational Materials Science" "Comp. Mater. Sci.")
-    ("CPC" "Computer Physics Communications" "Comput. Phys. Commun.")
-    ("CGD" "Crystal Growth \\& Design" "Cryst. Growth Des.")
-    ("CEC" "CrystEngComm" "CrystEngComm")
-    ("ECST" "ECS Transactions" "ECS Trans.")
-    ("EES" "Energy \\& Environmental Science" "Energy Environ. Sci.")
-    ("HPR" "High Pressure Research" "High Pressure Res.")
-    ("IC" "Inorganic Chemistry" "Inorg. Chem.")
-    ("IECR" "Industrial \\& Engineering Chemistry Research" "Ind. Eng. Chem. Res.")
-    ("JJAP" "Japanese Journal of Applied Physics" "Jpn. J. Appl. Phys.")
-    ("JMatR" "Journal of  Materials Research" "J. Mater. Res.")
-    ("JALC" "Journal of Alloys and Compounds" "J. Alloy Compd.")
-    ("JAC" "Journal of Applied Crystallography" "J. Appl. Crystallogr.")
-    ("JAP" "Journal of Applied Physics" "J. Appl. Phys.")
-    ("JC" "Journal of Catalysis" "J. Catal.")
-    ("JCP" "Journal of Chemical Physics" "J. Chem. Phys.")
-    ("JCC" "Journal of Computational Chemistry" "J. Comput. Chem.")
-    ("JCG" "Journal of Crystal Growth" "J. Crys. Growth")
-    ("JMC" "Journal of Materials Chemistry" "J. Mater. Chem.")
-    ("JMC" "Journal of Materials Chemistry" "J. Mater. Chem.")
-    ("JMSL" "Journal of Materials Science Letters" "J. Mater. Sci. Lett.")
-    ("JMS" "Journal of Membrane Science" "J. Memb. Sci.")
-    ("JPE" "Journal of Phase Equilibria" "J. Phase Equilib.")
-    ("JPCS" "Journal of Physics and Chemistry of Solids" "J. Phys. Chem. Solids")
-    ("JPCM" "Journal of Physics: Condensed Matter" "J. Phys.: Condens. Matter")
-    ("JSSC" "Journal of Solid State Chemistry" "J. Solid State Chem.")
-    ("JACerS" "Journal of the American Ceramic Society" "J. Am. Ceram. Soc.")
-    ("JACS" "Journal of the American Chemical Society" "J. Am. Chem. Soc.")
-    ("JES" "Journal of The Electrochemical Society" "J. Electrochem. Soc.")
-    ("JEaC" "Journal of Electroanalytical Chemistry" "J. Electroanal. Chem.")
-    ("JMS" "Journal of Membrane Science" "J. Memb. Sci.")
-    ("JVST" "Journal of Vacuum Science \\& Technology A" "J. Vac. Sci. Technol. A")
-    ("ML" "Materials Letters" "Mater. Lett.")
-    ("MSE-BS" "Materials Science and Engineering B" "Mat. Sci. Eng. B-Solid")
-    ("MOLSIM" "Molecular Simulation" "Mol. Sim.")
-    ("Nature" "Nature" "Nature")
-    ("NM" "Nature Materials" "Nat. Mater.")
-    ("PML" "Philosophical Magazine Letters" "Phil. Mag. Lett.")
-    ("PMA" "Philosophical Magazine A" "Phil. Mag. A")
-    ("PA" "Physica A: Statistical Mechanics and its Applications" "Physica A")
-    ("PB" "Physica B-Condensed Matter" "Physica B")
-    ("PCCP" "Physical Chemistry Chemical Physics" "Phys. Chem. Chem. Phys.")
-    ("PSSB" "physica status solidi (b)" "Phys. Status Solidi B")
-    ("PRA" "Physical Review A" "Phys. Rev. A")
-    ("PRB" "Physical Review B" "Phys. Rev. B")
-    ("PRL" "Physical Review Letters" "Phys. Rev. Lett.")
-    ("PCM" "Physics and Chemistry of Minerals" "Phys. Chem. Miner.")
-    ("PSurfSci" "Progress in Surface Science" "Prog. Surf. Sci.")
-    ("Science" "Science" "Science")
-    ("SABC" "Sensors and Actuators B: Chemical" "Sensor. Actuat. B-Chem.")
-    ("SS" "Surface Science" "Surf. Sci.")
-    ("EPJB" "The European Physical Journal B" "Eur. Phys. J. B")
-    ("JPC" "The Journal of Physical Chemistry" "J. Phys. Chem.")
-    ("JPCB" "The Journal of Physical Chemistry B" "J. Phys. Chem. B")
-    ("JPCC" "The Journal of Physical Chemistry C" "J. Phys. Chem. C")
-    ("JPCL" "The Journal of Physical Chemistry Letters" "J. Phys. Chem. Lett.")
-    ("JCP" "The Journal of Chemical Physics" "J. Chem. Phys.")
-    ("MSMSE" "Modelling and Simulation in Materials Science and Engineering" "Modell. Simul. Mater. Sci. Eng.")
-    ("TSF" "Thin Solid Films" "Thin Solid Films")
-    ("TC" "Topics in Catalysis" "Top. Catal.")
-    ("WR" "Water Research" "Water Res."))
+  '()
   "List of (string journal-full-name journal-abbreviation).  Find abbreviations at http://cassi.cas.org/search.jsp.")
 
+(setq jmax-bibtex-journal-abbreviations
+      '(("ACR" "Accounts of Chemical Research" "Acc. Chem. Res.")
+       ("ACAT" "ACS Catalysis" "ACS Catal.")
+       ("AM" "Acta Materialia" "Acta Mater.")
+       ("AMM" "Acta Metallurgica et Materialia" "Acta Metall. Mater.")
+       ("AEM" "Advanced Energy Materials" "Adv. Energy Mater.")
+       ("AMiner" "American Mineralogist" "Am. Mineral.")
+       ("AngC" "Angewandte Chemie-International Edition" "Angew. Chem. Int. Edit.")
+       ("APLM" "APL Materials" "APL Mat.")
+       ("ACBE" "Applied Catalysis B: Environmental" "Appl. Catal. B-Environ.")
+       ("APL" "Applied Physics Letters" "Appl. Phys. Lett.")
+       ("ASS" "Applied Surface Science" "Appl. Surf. Sci.")
+       ("CL" "Catalysis Letters" "Catal. Lett.")
+       ("CST" "Catalysis Science & Technology" "Catal. Sci. Technol.")
+       ("CT" "Catalysis Today" "Catal. Today")
+       ("CPL" "Chemical Physics Letters" "Chem. Phys. Lett")
+       ("CR" "Chemical Reviews" "Chem. Rev.")
+       ("CSR" "Chemical Society Reviews" "Chem. Soc. Rev.")
+       ("CSR" "Chemical Society Reviews" "Chem. Soc. Rev.")
+       ("CM" "Chemistry of Materials" "Chem. Mater.")
+       ("CSA" "Colloids and Surfaces, A: Physicochemical and Engineering Aspects" "Colloids Surf., A")
+       ("CPMS" "Computational Materials Science" "Comp. Mater. Sci.")
+       ("CPC" "Computer Physics Communications" "Comput. Phys. Commun.")
+       ("CGD" "Crystal Growth \\& Design" "Cryst. Growth Des.")
+       ("CEC" "CrystEngComm" "CrystEngComm")
+       ("EA" "Electrochimica Acta" "Electrochim. Acta")
+       ("ECST" "ECS Transactions" "ECS Trans.")
+       ("EES" "Energy \\& Environmental Science" "Energy Environ. Sci.")
+       ("HPR" "High Pressure Research" "High Pressure Res.")
+       ("IC" "Inorganic Chemistry" "Inorg. Chem.")
+       ("IECR" "Industrial \\& Engineering Chemistry Research" "Ind. Eng. Chem. Res.")
+       ("JJAP" "Japanese Journal of Applied Physics" "Jpn. J. Appl. Phys.")
+       ("JMatR" "Journal of  Materials Research" "J. Mater. Res.")
+       ("JALC" "Journal of Alloys and Compounds" "J. Alloy Compd.")
+       ("JAC" "Journal of Applied Crystallography" "J. Appl. Crystallogr.")
+       ("JAE" "Journal of Applied Electrochemistry" "J. Appl. Electrochem.")
+       ("JAP" "Journal of Applied Physics" "J. Appl. Phys.")
+       ("JC" "Journal of Catalysis" "J. Catal.")
+       ("JCP" "Journal of Chemical Physics" "J. Chem. Phys.")
+       ("JCC" "Journal of Computational Chemistry" "J. Comput. Chem.")
+       ("JCG" "Journal of Crystal Growth" "J. Crys. Growth")
+       ("JMC" "Journal of Materials Chemistry" "J. Mater. Chem.")
+       ("JMC" "Journal of Materials Chemistry" "J. Mater. Chem.")
+       ("JMSL" "Journal of Materials Science Letters" "J. Mater. Sci. Lett.")
+       ("JMS" "Journal of Membrane Science" "J. Memb. Sci.")
+       ("JPE" "Journal of Phase Equilibria" "J. Phase Equilib.")
+       ("JPCS" "Journal of Physics and Chemistry of Solids" "J. Phys. Chem. Solids")
+       ("JPCM" "Journal of Physics: Condensed Matter" "J. Phys.: Condens. Matter")
+       ("JPS" "Journal of Power Sources" "J. Power Sources")
+       ("JSSC" "Journal of Solid State Chemistry" "J. Solid State Chem.")
+       ("JACerS" "Journal of the American Ceramic Society" "J. Am. Ceram. Soc.")
+       ("JACS" "Journal of the American Chemical Society" "J. Am. Chem. Soc.")
+       ("JES" "Journal of The Electrochemical Society" "J. Electrochem. Soc.")
+       ("JEaC" "Journal of Electroanalytical Chemistry" "J. Electroanal. Chem.")
+       ("JMS" "Journal of Membrane Science" "J. Memb. Sci.")
+       ("JRS" "Journal of Raman Spectroscopy" "J. Raman Spectrosc.")
+       ("JVST" "Journal of Vacuum Science \\& Technology A" "J. Vac. Sci. Technol. A")
+       ("ML" "Materials Letters" "Mater. Lett.")
+       ("MSE-BS" "Materials Science and Engineering B" "Mat. Sci. Eng. B-Solid")
+       ("MOLSIM" "Molecular Simulation" "Mol. Sim.")
+       ("Nature" "Nature" "Nature")
+       ("NM" "Nature Materials" "Nat. Mater.")
+       ("NC" "Nature Chemistry" "Nat. Chem.")
+       ("PML" "Philosophical Magazine Letters" "Phil. Mag. Lett.")
+       ("PMA" "Philosophical Magazine A" "Phil. Mag. A")
+       ("PA" "Physica A: Statistical Mechanics and its Applications" "Physica A")
+       ("PB" "Physica B-Condensed Matter" "Physica B")
+       ("PCCP" "Physical Chemistry Chemical Physics" "Phys. Chem. Chem. Phys.")
+       ("PSSB" "physica status solidi (b)" "Phys. Status Solidi B")
+       ("PRA" "Physical Review A" "Phys. Rev. A")
+       ("PRB" "Physical Review B" "Phys. Rev. B")
+       ("PRL" "Physical Review Letters" "Phys. Rev. Lett.")
+       ("PCM" "Physics and Chemistry of Minerals" "Phys. Chem. Miner.")
+       ("PNAS" "Proceedings of the National Academy of Sciences of the United States of America" "Proc. Natl. Acad. Sci. U. S. A.")
+       ("PSurfSci" "Progress in Surface Science" "Prog. Surf. Sci.")
+       ("Science" "Science" "Science")
+       ("SM" "Scripta Materialia" "Scr. Mater.")
+       ("SABC" "Sensors and Actuators B: Chemical" "Sensor. Actuat. B-Chem.")
+       ("SS" "Surface Science" "Surf. Sci.")
+       ("EPJB" "The European Physical Journal B" "Eur. Phys. J. B")
+       ("JPC" "The Journal of Physical Chemistry" "J. Phys. Chem.")
+       ("JPCB" "The Journal of Physical Chemistry B" "J. Phys. Chem. B")
+       ("JPCC" "The Journal of Physical Chemistry C" "J. Phys. Chem. C")
+       ("JPCL" "The Journal of Physical Chemistry Letters" "J. Phys. Chem. Lett.")
+       ("JCP" "The Journal of Chemical Physics" "J. Chem. Phys.")
+       ("MSMSE" "Modelling and Simulation in Materials Science and Engineering" "Modell. Simul. Mater. Sci. Eng.")
+       ("TSF" "Thin Solid Films" "Thin Solid Films")
+       ("TC" "Topics in Catalysis" "Top. Catal.")
+       ("WR" "Water Research" "Water Res.")))
+
 
 (defun jmax-bibtex-generate-longtitles ()
   "Generate longtitles.bib which are @string definitions.
@@ -210,6 +222,24 @@ START and END allow you to use this with `bibtex-map-entries'"
        (bibtex-set-field "journal" bstring t)
         (bibtex-fill-entry)))))
 
+(defun jmax-helm-set-journal-string ()
+  "Helm interface to set a journal string."
+  (interactive)
+  (bibtex-set-field
+   "journal"
+   (helm :sources `((name . "journal")
+                   (candidates . ,(mapcar
+                                   (lambda (x)
+                                     (cons (nth 1 x)
+                                           (car x)))
+                                   jmax-bibtex-journal-abbreviations))
+                   (action . (lambda (x) (identity x))))
+        :input (s-trim (bibtex-autokey-get-field "journal")))
+   t)
+  (bibtex-fill-entry)
+  (bibtex-clean-entry))
+
+
 (defun jmax-set-journal-string (full-journal-name)
   "Set a bibtex journal name to the string that represents FULL-JOURNAL-NAME.
 This is defined in `jmax-bibtex-journal-abbreviations'."